Yoko

Code: Select all

VAR Cont1 = '0x4037360A' ;ресурсы, пустые мешки и фишстейки
VAR Cont2 = '0x40285A50' ;сундук де будут лежать полные мешки
VAR Count = 250 ;какое количество ресусров бёрем
var Tools = '0x1EBC' ;инструмент, при котором появляется
var Creat = '0x1085' ;тип созданной вещи(удочка, даггер и т.д.) 
VAR Food = '0x097B' ;тип еды, кторую будем кушать
var Bag = '0x0E76' ;тип мешочков
var Source = '0x1BEF' 
var BagSer, i=0, fizl=0, control=5, time, z 

sub tinkIron() 
Tools = '0x1EBC' 
Creat = '0x1085' 
Source = '0x1BEF' 
UO.CancelMenu() 
UO.AutoMenu('Tinkering','Jewelry') 
UO.AutoMenu('Jewelry','necklace') 
if UO.Count(Tools) > 0 then 
  UO.FindType(Tools,'-1','backpack') 
  UO.AddObject('objTools','finditem') 
  main() 
end if 
UO.CancelMenu() 
end sub 

sub main() 
var CountSource = 1 ;кол-во разных типов сырья, которые мы возьмем из сундука
Open('backpack') 
NewBag() 
if UO.Count(Source) then 
  UO.FindType(Source,'0x0000', 'backpack') 
  UO.MoveItem('finditem','-1',Cont1) 
  wait(1000) 
end if 
UO.FindType(Source,'0x0000', Cont1) 
UO.Grab(STR(Count),'finditem') 
wait(1000) 
CheckLag()    
while UO.Count(Source) > 0 
  if UO.Count(Source) < 2 then 
   UO.FindType(Source,'0x0000', Cont1) 
   UO.Grab(STR(Count),'finditem') 
   wait(1000) 
  endif 
  UO.DeleteJournal() 
  UO.UseObject('objTools') 
  Repeat 
   wait(500) 
  Until UO.InJournal('You put ') OR UO.InJournal('failed') or UO.InJournal('You fail ')  
  While UO.Count(Creat)>0 
   UO.FindType(Creat,'-1',-1) 
   UO.MoveItem('finditem','0',BagSer) 
   If UO.Count(Creat)>0 then 
     FastLootCheck() 
   endif 
   if UO.InJournal("Too many items") then 
     NewBag() 
   endif 
  Wend   
Wend 
UO.CancelMenu() 
end sub 

sub Open(Container) 
  UO.DeleteJournal() 
  UO.UseObject(Container) 
  wait(500) 
end sub 

sub FastLootCheck() 
  UO.DeleteJournal() 
  wait(450) 
  If UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
   UO.Click('backpack') 
   repeat 
     wait(300) 
   until UO.InJournal('backpack') 
  Endif 
end sub 

sub NewBag() 
  Open(Cont1) 
  Open(Cont2) 
  ToEat() 
  UO.FindType(Bag, -1, Cont1) 
  UO.Print('Ok') 
  if UO.FindCount() < 1 then 
  end if 
  BagSer=UO.GetSerial('finditem')   
  UO.MoveItem(BagSer, 0, Cont2) 
  wait(1000) 
end sub 

sub ToEat() 
  UO.FindType('0x097B', '0x0000',Cont1) 
  if UO.FindCount() > 0 then 
   UO.MoveItem('finditem','20','backpack') 
  else 
   return 
  end if 
  repeat   
   CheckLag() 
   uo.UseType('0x097B') 
   while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() 
     wait(100) 
   wend 
  until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't") 
  UO.FindType('0x097B', '0x0000','backpack') 
  if UO.FindCount() > 0 then 
   UO.MoveItem('finditem','20','Cont1')   
  end if 
end sub 

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

Code: Select all

VAR cont1 = '0x4037360A' ;инги айрона, пустые мешки
VAR cont2 = '0x40285A50' ;сундук где будут лежать полные мешки
VAR count = 456 ;какое количество ингов бёрем
var creat = '0x1085' ;тип созданной вещи 
var bag = '0x0E76' ;тип пустого мешочка
var ings = '0x1BEF' ;тип ингов айрона
var k
var ms1="You put"
var ms2="You have failed"

sub main()
UO.CancelMenu() 
UO.AutoMenu('Blacksmithing','Weapons')
UO.AutoMenu('Weapons','Swords & Blades') 
UO.AutoMenu('Swords & Blades','cutlass (8 iron ingot)') 

grab1()
grab2()
while not uo.dead()
uo.useobject(k)
uo.findtype(creat,'-1',k)
while uo.findcount()<>255
 grab1()
 uo.usetype(ings)
 repeat
  wait(100)
 until uo.injournal(ms1) or uo.injournal(ms2)
 uo.findtype(creat,'-1','backpack')
 if uo.findcount()>0 then
  uo.moveitem('finditem','1',k)
  wait(700)
 endif
 uo.findtype(creat,'-1',k)
wend
drop()
grab2()
wend
endsub

sub grab1()
uo.useobject(cont1)
wait(500)
uo.findtype(ings,'-1','backpack')
if uo.getquantity('finditem')<20 or uo.findcount()==0 then
 uo.findtype(ings,'-1',cont1)
  uo.moveitem('finditem',count,'backpack')
  wait(700)
endif
endsub


sub grab2()
uo.useobject(cont1)
wait(500)
uo.findtype(bag,'-1',cont1)
if uo.findcount()>0 then
  uo.moveitem('finditem','1','backpack')
  wait(700)
  k=uo.getserial('finditem')
 else
  uo.print("net meshkov")
  uo.exec('terminate all')
endif
endsub

sub drop()
 uo.moveitem(k,'1',cont2)
 wait(700)
endsub