Yoko

Prosmotrel 15 stranic, ne nashol normalnogo skripta na alhimiju, o4en proshu skinut skriptik na poisony.
Zaranee blagodaren

на прокачку пойзона с варкой отравы или просто на варку пойзонов?

_________________
Сделал дело - флуди смело !!!

Da mne nado 4tob prosto varil poisony do posinenija, a bag s regami i batlami propisat dumaju smogu

sub Alchemy() 
   VAR Sunduk=0x4023D632 ;ID сундука
   VAR Dagger=0x40286902 ;ID оружия, которое травить
   VAR Exit=0, LastTimer, TryToPoison 

   while Exit<>1 
      UO.DeleteJournal() 
      UO.FindType('0x0F0E',-1,'backpack') ;
      If UO.GetQuantity('finditem')<10 then 
         UO.FindType('0x0F0E','0x0000',Sunduk) 
         wait(1000) 
         UO.Grab('300','finditem') 
         wait(1000) 
      Endif 
      UO.FindType('0x0F88','0x0000','backpack') 
      If UO.GetQuantity('finditem')<20 then 
         UO.FindType('0x0F88','0x0000',Sunduk) 
         wait(1000) 
         UO.Grab('1000','finditem') 
         wait(6000) 
      Endif 
      LastTimer=UO.Timer() 
      UO.WaitMenu('What','(1)') ; (1) Lesser Poison (2)Poison (3) Great Poison 
      UO.UseType(0x0F88)  
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
            wait(500) 
      wend 
      If UO.InJournal("You toss the failed") then 
         repeat 
            wait(100) 
         until UO.Timer()>=LastTimer+100 
      Else 
         TryToPoison=1 
         repeat 
            UO.FindType('0x0F0E','0x0998','my') 
            If UO.GetQuantity('finditem')>0 then 
               UO.WaitTargetObject(dagger,'finditem') 
               UO.UseSkill('Poisoning') 
               wait(4000) 
            Else 
               TryToPoison=0 
            Endif 
         until TryToPoison==0 
      EndIf 
UO.DeleteJournal() 
UO.UseSkill('Spirit') 
repeat 
wait(100) 
until uo.injournal('You establish') or uo.injournal('You fail') 
wend    

На этом качал.

Da mne nuzno 4tob prosto varil poisony, a 4to tam takogo na etoj ssylke, posmotrel ni4ego inteesnogo...

http://yoko.netroof.net/forum/viewtopic ... 5194#15194

Это тинкер бутылок для алхимии, алхимия на пойзоне и пойзонинг
Если поработать головой и поменять 1000 на 0 в строке :

if uo.skillval("Poisoning",1)<1000 then

тада будет просто кидать пойзоны в сундук и пойзонить даггер.

_________________
Сделал дело - флуди смело !!!

Привет, RMK

Вобщем вот мой скрипт на алхимию(Poison'ы, Explosion'ы, Cur'ы):

sub Alchemy(reagent, min_reg, choice)
   while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
      UO.DeleteJournal()
      UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
      UO.UseType(reagent)
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
         wait(300)
      wend
   wend
end sub

sub LesserPoison()
   alchemy('0x0f88', 1, "'Lesser Poison'")
end sub

sub Poison()
   alchemy('0x0f88', 2, "'Poison'")
end sub

sub GreaterPoison()
   alchemy('0x0f88', 4, "'Greater Poison'")
end sub

sub DeadlyPoison()
   alchemy('0x0f88', 8, "'Deadly Poison'")
end sub

sub LesserExplosion()
   alchemy('0x0f8c', 3, "'Lesser Explosion'")
end sub

sub Explosion()
   alchemy('0x0f8c', 5, "'Explosion'")
end sub

sub GreaterExplosion()
   alchemy('0x0f8c', 10, "'Greater Explosion'")
end sub

sub LesserCure()
   alchemy('0x0f84', 1, "'Lesser Cure'")
end sub

sub Cure()
   alchemy('0x0f84', 3, "'Cure'")
end sub

sub GreaterCure()
   alchemy('0x0f84', 6, "'Greater Cure'")
end sub

Но почему-то вместо Poison, Cure и Explosion делаются Lesser Poison, Lesser Cure, Lesser Explosion. Я так и не понял в чём трабл. Кто-нибудь сможет помочь?

sub Poison() 
   alchemy('0x0f88', 2, "'Poison'") 
end sub 

Попробуй так !!!

sub Poison() 
   alchemy('0x0f88', 2, "'(2)'") 
end sub 

_________________
Сделал дело - флуди смело !!!

Спсибо. Теперь работает

Ogromnoe vsem spasibo...
Zaodno za vnimanie...