Yoko

Code: Select all

sub lumber() 
var f=file("D:\trees3.dat"),TreeCount=0,i 
var axe='0x40055BFF'
var Trytodrop=1
var LogsQty=400
dim TreeX[500],TreeY[500],TreeT[500] 
f.open() 
TreeCount=safe call f.readNumber() 
for i=1 to TreeCount 
 TreeT[i]=safe call f.ReadNumber() 
 TreeX[i]=safe call f.ReadNumber() 
 TreeY[i]=safe call f.ReadNumber() 
next 
f.close() 
while not uo.dead() 
 for i=1 to TreeCount  
 if Trytodrop==1 and uo.Count('ZLK')>=LogsQty then 
GotoXY(975,1237,2) 
DropLogs() 
end if 
  GotoXY(treex[i],treey[i],2) 
  ToHide()  
  GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz()))  
 next 
 DropLogs() 
wend 
endsub 

Sub ToHide() 
while not UO.Hidden() 
 uo.deletejournal() 
 UO.UseSkill("Hiding") 
 wait(4100) 
wend 
end sub 

Sub GetTree(type,x,y,z) 
var ms1="logs in your pack" 
var ms2="nothing here to chop" 
var ms3="log in your pack" 
var ms4="You hack at the tree for a while" 
var ms5="That is too far away" 
var ms6="You can't reach this" 
wait(200) 
repeat 
 uo.deletejournal() 
 uo.waittargettile(type,x,y,z) 
 uo.useobject('axe') 
 repeat 
  wait(100) 
 until uo.injournal(ms1) or uo.injournal(ms2) or uo.injournal(ms3) or uo.injournal(ms4) or uo.injournal(ms5) or uo.injournal(ms6) 
until uo.injournal(ms2) or uo.injournal(ms5) or uo.injournal(ms6) 
end sub 

sub DropLogs() 
var a,Exit,Chest='0x4104F8F7',Logs='0x1BDD' 
GotoXY(975,1237,2) 
ToHide() 
uo.findtype(Logs,'-1','backpack') 
while uo.findcount()>0 
 uo.moveitem('finditem','all',Chest) 
 wait(700) 
 uo.findtype(Logs,'-1','backpack') 
wend 
end sub