Помогите поправить
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