Yoko

Code: Select all

sub main()
   uo.print('Мусорка') 
   uo.exec('addobject musor') 
   while uo.targeting() 
      wait(100) 
   wend
   uo.print('Сумка') 
   uo.exec('addobject bag') 
   while uo.targeting() 
      wait(100) 
   wend 
   while not UO.Dead()
      reload()
      alchemy()
      sliv()
      #poison()
      spik()
   wend
end sub
Sub alchemy()
   while uo.count('0x0F0E') > 1 and UO.Count('0x0F88') > 1
      UO.DeleteJournal()
      ChekLag()
      UO.WaitMenu('What','(2)')
      UO.UseType(0x0F88) 
      UO.DeleteJournal()          
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
         wait(100)
      wend
   wend
end sub
Sub poison()
   while uo.count('0x0F0A') > 0
      UO.FindType('0x0F0A','-1','backpack')
      UO.DeleteJournal()
      UO.UseSkill("Poisoning") 
      UO.WaitTargetObject(0x4148BFBE,'finditem')
      while NOT UO.InJournal("You fail to apply") AND NOT UO.InJournal("You apply")
         wait(100)
      wend     
   wend
end sub
Sub trash()
   var keg=1-uo.count('0x1940') 
   UO.FindType('0x1940','-1','backpack')
   UO.DeleteJournal()
   UO.SetCatchbag('musor')
   uo.exec("grab "+str(keg)+" finditem") 
   wait(3500)
   UO.UnSetReceivingContainer()
   UO.UnSetCatchBag()
   ChekLag()
end sub
Sub sliv()
   while uo.count('0x0F0A') > 0
      UO.UseType(0x1940) 
      UO.DeleteJournal()   
      UO.waittargettype(0x0F0A)
      wait (100)
   wend
   trash()
end sub
Sub reload() 
   UO.UnSetReceivingContainer()
   UO.UnSetCatchBag()
   var keg=1-uo.count('0x1940') 
   UO.findtype('0x1940', '-1', 'bag') 
   uo.exec("grab "+str(keg)+" finditem") 
   wait(3500)
   var ns=200-uo.count('0x0F88') 
   if ns > 0 then
      UO.findtype('0x0F88', '-1', 'bag') 
      uo.exec("grab "+str(ns)+" finditem") 
      ChekLag()
      wait(3500)
   end if
end sub
Sub spik()
   UO.useskill("Spirit")
   wait(6000)
   UO.useskill("Spirit")
   wait(6000)
end sub
Sub ChekLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('ackpack')
end sub