Yoko

Code: Select all

sub TravelDuels() 
#¤Leo¤# 
UO.Exec("set norbcheck 1")
UO.Exec("set norbcalc 1")
UO.FindType('0x0EDE','-1','ground') 
   if UO.FindCount() AND UO.GetDistance('finditem')<3 then 
      UO.Recall('finditem','28') 
   else 
      UO.Print('Подойди ко мне поближе!!! Столб телепортации.') 
   endif 
end sub

Code: Select all

var Cont='0x400079F9'  ##ID сундука с кожей
VAR Trash='0x40024DBA' ##Куда суём готовую продукцию
var Creat='0x13C7'     ##Тип того, что сшили
sub Tailoring()
#¤Leo¤#
   while NOT UO.Dead()
      ToHide()
      UO.FindType('0x1067','0x0000','backpack') 
      if UO.GetQuantity('finditem')<4 then
         UO.UseObject(Cont)
         UO.FindType('0x0E21','0x0000','backpack')
         if UO.GetQuantity('finditem')>0 then
            UO.SetReceivingContainer(Cont)
               wait(1000)
            UO.Grab('all','finditem')
               wait(1000)
            UO.UnSetReceivingContainer()
         Endif 
         UO.FindType('0x1067','0x0000',Cont)
            wait(1000)
         UO.Grab('200','finditem')
            wait(1000)
      endif 
      CheckLag() 
      UO.WaitMenu('Leather','Leather Armour','Leather Armour','leather gorget') 
      UO.WaitTargetType('0x1067')
      UO.UseType('0x0F9D')
      UO.DeleteJournal()
         wait(1000) 
      repeat
         wait(100)
      until UO.InJournal('fail') or UO.InJournal('put')
      UO.DeleteJournal()
         wait(500)
      UO.FindType(Creat,'0x0000','backpack') 
      wait(100) 
      if UO.GetQuantity('finditem')>0  then 
      UO.MoveItem('finditem','-1',Trash) 
       wait(500) 
      endif 
   wend 
endsub

Sub ToHide()
   while NOT UO.Hidden()
      UO.DeleteJournal()
      UO.Exec('warmode 0') 
      UO.UseSkill('Stealth')
         repeat
            wait(50) 
         until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
   wend
end sub 

Sub CheckLag()
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub 

Code: Select all

...
 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 

...