Yoko

Code: Select all

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    

Code: Select all

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

Code: Select all

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

Code: Select all

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

Code: Select all

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