Yoko

Code: Select all

###########################################################################################################
#
#      Main Idea by Trolly(written by EX-Brodyaga aka Ayvaz)
#
#                          Ver.  2.1
#
###########################################################################################################
sub Torch() 
var TLog='0x1BDD'
var IDiz='0x402684EC'
var dagger='0x0F51'
var torch='0x0F64' 
   VAR Exit=0, LastTimer, TryToPoison 
   while not UO.Dead()
      ToHide() 
      UO.DeleteJournal() 
 
      UO.FindType(TLog,-1,'backpack')
      If UO.GetQuantity('finditem')<1 then 
         UO.FindType(TLog,-1,IDiz) ; sunduk s logami
         
         if Uo.GetQuantity('finditem')==0 then 
          UO.Exec("terminate Torch")
         endif
         
         UO.Unsetreceivingcontainer() 
         wait(1000) 
         UO.Grab('50','finditem') 
         wait(1000) 
      Endif 
      
        UO.findtype(TLog,-1,IDiz)
        UO.Print("Îñòàëîñü = "+STR(UO.Getquantity('finditem')))
 
  UO.WaitTargetType(TLog)
  CheckLag()
  UO.usetype(dagger)  
  UO.WaitMenu('What do','Items','Items','torch')
  UO.DeleteJournal()
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") 
        wait(1000) 
      wend 
 
      If UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") then 
       UO.WaitTargetType(TLog)
       UO.usetype(dagger)  
       UO.WaitMenu('What do','Items','Items','torch')
       UO.DeleteJournal()
       while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") 
        wait(1000) 
       wend 
      EndIf 
       
       If Uo.Count(torch)>50 then 
        Drag(IDiz,torch)
       Endif       
   wend
end sub 
 
sub tohide()
while not UO.Hidden()
UO.Print("Ïðÿ÷åìñÿ...")
UO.Useskill('Hiding')
wait(4000)
wend
end sub
 
sub Drag(IDiz,torch)
CheckLag()
 while uo.Count(torch)>0
   CheckLag()
   UO.FindType(torch,-1,'backpack')
   wait(200)
   UO.MoveItem('finditem','400',IDiz)
   wait(500) 
 wend
end sub
 
sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(200) # o auaaeaiueeia iiia inoaaeou 200, eoi ia iiiaaa, noaauoa 500-800 
   until UO.InJournal('backpack') 
end sub