Yoko

Code: Select all

sub katorga()
var f=file("C:\trees3.dat")
var TreeCount=0,i
dim TreeX[500],TreeY[500],TreeT[500]
uo.print('Topor... ') 
uo.exec('addobject axe') 
while uo.targeting() 
 wait(100) 
wend 
uo.print('load file...') 
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  
  GotoXY(treex[i],treey[i])  
  GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz()))  
 next 
 DropLogs()
wend
endsub

Sub GetTree(type,x,y,z) 
var ms1="logs in your pack"
var ms2="logs 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() 
GotoXY(1318,949)
wait(1000) 
uo.useobject('0x401258E1')
wait(1000)
end sub 

Sub GotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

Sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 

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

Code: Select all

54
3280 1330 935
3296 1328 936
3299 1328 933
3288 1328 930
3280 1324 936
3302 1324 933
3294 1324 930
3277 1320 933
3296 1316 933
3286 1320 927
3296 1320 924
3302 1328 924
3280 1320 921
3286 1320 918
3283 1324 918
3286 1324 915
3288 1328 918
3302 1332 918
3283 1328 912
3302 1328 909
3294 1324 909
3286 1324 912
3280 1320 912
3286 1316 912
3290 1316 915
3294 1316 909
3296 1312 906
3299 1316 906
3280 1320 906
3288 1324 906
3299 1324 903
3280 1328 906
3280 1332 903
3290 1328 900
3299 1328 897
3288 1338 895
3296 1332 891
3277 1328 894
3294 1320 903
3290 1320 900
3290 1316 900
3299 1316 897
3290 1312 897
3280 1312 900
3288 1312 903
3302 1303 890
3294 1304 888
3302 1312 888
3290 1316 888
3283 1316 891
3299 1320 888
3283 1320 891
3302 1324 888
3280 1313 924

Code: Select all

Sub WaitForChange()
   var Text1='You hack at the tree for a while, but fail to produce any useable wood.'
   var Text2='There are no logs here to chop.'
   var Text3="You can't reach this."
   var Text4="That is too far away."
   var Text5="You can't do much in your current state."
   var Text6='There is no wood left to harvest.'
   var Text7='World is saving now...'
   var mess
   for var i=0 to 100
      mess=uo.Journal(0)
      if uo.Journal(0)==Text2 and uo.journalserial(uo.Journal(0))=='0x00000000' or uo.Journal(0)==Text3 and uo.journalserial(uo.Journal(0))=='0x00000000' or uo.Journal(0)==Text4 and uo.journalserial(uo.Journal(0))=='0x00000000' OR uo.Journal(0)==Text6 and uo.journalserial(uo.Journal(0))=='0x00000000' then
         return 1
      endif
      if uo.Journal(0)==Text1 and uo.journalserial(uo.Journal(0))=='0x00000000' then
         return 0
      endif
      if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then
         return 0
      endif
      if uo.Journal(0)==Text7 then
         wait(70000)
      endif
      wait(100)
   next
   return 0
end sub