sub start()
RecLes()
UO.Exec('exec Lumber')
end sub

sub Lumber() 
var i=0,j=0,k=0,r=0,q=0,ii,jj 
var TopX=324,TopY=65 
dim TreeX[500], TreeY[500],TreeT[500] 
dim TreeTile[200] 
var flag=0,treeCount=0,clicks=0,flag2=0 
var f=file("C:\trees.dat") 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
var Area=1 ## ?????? ?????????????? ??????????, ????? ?????? ?? 1 ?? 4. 
var TryHiding=1 ## 1 - ????? ??? ??? ?????? ??????, ????? ???????? ???? ? ????, 0 - ?? ????? 
var TryRecall=1 ## 1 - ????? ???? ??? ??????? LogsQty ?????, ????? ???????? ?????????? ?????, 
# ?????????? ???? ?? ??? ? ?????????? ??????? (????? ??????? ??? ????), 0 - ?? ?????. 

var LogsQty=1000 ## ?????????? ?????, ????? ??????? ???? ?????????? ?????. 

var RecallFromScroll=0 ## 1 - ????? ?? ???????, 0 - ?? ????????? 

var GetFromFile=1 ## 1 - ?????????? ???????? ????? ?????????? ?? ?????, 0 - ????????? ?? ??????? 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

#??????? ???????? 
TreeTile[0]=3283 
TreeTile[1]=3277 
TreeTile[2]=3293 
TreeTile[3]=3296 
TreeTile[4]=3302 
TreeTile[5]=3299 
TreeTile[6]=3290 
TreeTile[7]=3288 
TreeTile[8]=3286 
TreeTile[9]=3280 

uo.exec("filterspeech on") 
uo.exec("filterspeech add 'Where do you want to use the pickaxe?'") 
UO.Exec('exec Check')
UO.Exec('exec Reconnector')

if TryRecall==1 then 

if RecallFromScroll==1 then 
uo.print('?????? ?????? Recall:' ) 
uo.exec('addobject RecallScroll') 
wait(5000) 
end if 
end if 

#????????? ?????????? ?? ????? 
if GetFromFile==1 then 
uo.print('Loading...') 
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() 
else 
#???????? ?????????? ?? ??????? 
uo.print('Pickaxe: ') 
uo.exec('addobject Pickaxe') 
while uo.targeting() 
wait(100) 
wend 

uo.print('Searching trees...') 
for q=1 to Area 
if q==2 then 
;gotoxy(uo.getx()+20,uo.gety()-10) 
end if 
if q==3 then 
;gotoxy(uo.getx(),uo.gety()+20) 
end if 
if q==4 then 
;gotoxy(uo.getx()-20,uo.gety()) 
end if 
for r=0 to 3 
if r==1 then 
;gotoxy(uo.getx()+10,uo.gety()) 
end if 
if r==2 then 
;gotoxy(uo.getx(),uo.gety()+10) 
end if 
if r==3 then 
;gotoxy(uo.getx()-10,uo.gety()) 
end if 
for j=0 to 8 
for i=0 to 8 
clicks=0 
flag=0 
uo.DeleteJournal() 
#??????? ?? ???? 
uo.useobject('Pickaxe') 
waitForTarget() 
uo.DeleteJournal() 
WaitForTryRock() 
#????????? ?????? ?? ??? 
flag=0 
for k=0 to 9 
if uo.LastTile(0)==TreeTile[k]+1 then 
flag=2 
end if 
next 
if flag==0 then 
for k=0 to 9 
if uo.LastTile(0)==TreeTile[k] then 
flag=1 
end if 
next 
end if 
#???????? ?? ????? 
if flag==1 then 
flag2=0 
if treeCount>0 then 
for ii=1 to treeCount 
if treeX[ii]==uo.lastTile(1) AND treeY[ii]==uo.lastTile(2) then 
flag2=1 
end if 
next 
end if 
if flag2==0 then 
treeCount=treeCount+1 
TreeX[treeCount]=uo.LastTile(1) 
treeY[treeCount]=uo.lastTile(2) 
TreeT[treeCount]=uo.LastTile(0) 
uo.print('??????? ??????: x='+str(uo.lasttile(1))+' y='+str(uo.lastTile(2))) 
wait(500)
uo.print('Faund trees have nomber: '+str(treeCount)) 
end if 
end if 
#???????? ?? ?????? 
if flag==2 then 
flag2=0 
if treeCount>0 then 
for ii=1 to treeCount 
if treeX[ii]==uo.lastTile(1) AND treeY[ii]==uo.lastTile(2) then 
flag2=1 
end if 
next 
end if 
if flag2==0 then 
treeCount=treeCount+1 
TreeX[treeCount]=uo.LastTile(1) 
treeY[treeCount]=uo.LastTile(2) 
TreeT[treeCount]=uo.LastTile(0)-1 
uo.print('Find trees: x='+str(uo.lasttile(1))+' y='+str(uo.lastTile(2))) 
end if 
end if 
next 
next 
next 
next 
uo.exec("filterspeech off") 
uo.print('Analize is end, zapisanno v  C:\trees.dat') 
SaveToFile(treeCount,TreeX,TreeY,TreeT) 
end if 
uo.print('Trees fainded: '+str(treeCount)) 
wait(2000) 
#????? ?? ????????? ??????????? 
while 1==1 
if treeCount>0 then 
for i=1 to treeCount 
if TryRecall==1 AND uo.Count('ZLK')>=LogsQty then 
ToRecall(RecallFromScroll) 
end if 
uo.print('goto tree  '+str(i)+': x='+str(treex[i])+' y='+str(treey[i])) 
flag=gotoxy(treex[i],treey[i]) 
if flag==1 then 
if TryHiding==1 then 
ToHide() 
end if 
GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz())) 
end if 
next 
end if 
wend 
end sub 

sub GetTree(type,x,y,z) 
var i 
uo.print('Starting lamber...') 
for i=0 to 15 
if uo.warmode()==1 then 
return 0 
end if 
wait(200) 
uo.deletejournal() 
uo.waittargettile(type,x,y,z) 
uo.UseType('0x0F4B')  ## Type ??????
Infologs()
if WaitForChange()==1 then 
return 1 
end if 
next 
return 0 
end sub 

sub ToRecall(FromScroll) 
RecallToHome(FromScroll) 
wait(500) 
repeat 
wait(500) 
repeat
wait(500) 
repeat 
wait(500) 
repeat  
wait(600) 
UO.SetReceivingContainer('0x416A2AA5') ## ID ?????????? ??? ?????? 
uo.findtype('ZLK') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
until uo.GetQuantity('finditem')==0 
T1()
UO.UnSetReceivingContainer() 
takereg()
RecallToLumber(FromScroll) 
end sub 

sub RecallToHome(FromScroll) 
var i 
uo.print('Recall to home...') 
for i=1 to 10 
uo.deletejournal() 
uo.waittargetobject('0x4169EB4A') ## ID Runki domoi
if FromScroll==0 then 
uo.cast('Recall') 
else 
uo.useobject('RecallScroll') 
end if 
if WaitForRecall()==1 then 
return 1 
end if 
next 
return 0 
end sub 


sub RecallToLumber(FromScroll) 
var i 
uo.print('Recall to les...') 
for i=1 to 10 
uo.deletejournal() 
uo.waittargetobject('0x4169EB4C') ## Id runki v les
uo.cast('Recall') 
if waitForRecall()==1 then 
return 1 
end if 
next 
return 0 
end sub 

sub ToHide() 
var i 
uo.print('V haid...') 
for i=1 to 15 
uo.deletejournal() 
uo.useskill('Stealth') 
if WaitForHide()==1 then 
return 1 
end if 
next 
return 0 
end sub 

sub WaitForRecall() 
var Text1=uo.getname()+": The spell fizzles." 
var mess='',lastX=uo.getX(),lastY=uo.getY() 
for var i=0 to 200 
mess=uo.journal(0) 
if uo.Journal(0)==Text1 then 
return 0 
end if 
if uo.getX()<>lastX OR uo.getY()<>LastY then 
return 1 
end if 
wait(50) 
next 
return 0 
end sub 

sub WaitForHide() 
var Text1=uo.getname()+": You have hidden yourself well" 
var Text2=uo.getname()+": You can't seem to hide here." 
var mess 
for var i=0 to 200 
mess=uo.journal(0) 
if uo.Journal(0)==Text1 then 
return 1 
end if 
if uo.Journal(0)==Text2 then 
return 0 
end if 
wait(50) 
next 
return 0 
end sub 

sub WaitForChange() 
var Text1=uo.getname()+': You hack at the tree for a while, but fail to produce any useable wood' 
var Text2='There is nothing here to chop.' 
var Text3="You can't reach this." 
var mess 
for var i=0 to 200 
mess=uo.journal(0) 
if uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 then 
return 1 
end if 
if uo.Journal(0)==Text1 then 
return 0 
end if 
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 
end if 
wait(50) 
next 
return 0 
end sub 

sub WaitForTryRock() 
var Text1="That is too far away." 
var Text2="You can't use the %s where it is." 
var Text3="Try mining elsewhere." 
var Text4="You have no line of sight to that location" 
var Text5="You can't see the target" 
for var i=0 to 50 
if uo.Journal(0)==Text1 OR uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 OR uo.Journal(0)==Text4 OR uo.Journal(0)==Text5 then 
return 1 
end if 
wait(200) 
next 
return 0 
end sub 

sub WaitForTarget() 
for var i=0 to 50 
if uo.Targeting()==1 then 
return 1 
end if 
wait(200) 
next 
return 0 
end sub 

sub WaitForChangeXY(myX,myY,lastX,lastY) 
for var i=1 to 50 
if lastX<>myX OR lastY<>myY then 
return 1 
end if 
wait(200) 
next 
return 0 
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 abs(x-myX)<=1 AND abs(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 abs(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 

sub SaveToFile(TreeCount,TreeX,TreeY,TreeT) 
var f=file("C:\trees.dat") 
var s=0,i=0 
f.open() 
f.create() 
s=safe call f.writeln(TreeCount) 
for i=1 to TreeCount 
s=safe call f.writeln(str(TreeT[i])+' '+str(treeX[i])+' '+str(TreeY[i])) 
next 
f.close() 
end sub 


sub Reconnector() 
    var ReconnectTime, RFlag 
    ReconnectTime = '0' 
    RFlag = 1 
    Repeat 
          While (UO.ObjAtLayer('Bpack') == '') 
                if RFlag Then 
                   ReconnectTime = MakeTime() 
                   RFlag = 0 
                endif 
                Wait(20000) # WorldSave Protection 
                UO.Say('') 
                Wait(3000) 
                UO.Say('') 
                Wait(3000) 
                UO.Say('') 
                Wait(3000) 
                UO.LDblClick(357,164) 
                UO.LClick(616,459) 
                Wait(3000)        
          WEnd 
          Wait(3000) 
          if (RFlag == 0) and (ReconnectTime <> '0') Then 
             
             UO.TextOpen() 
             UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
             RFlag = 1 
             ReconnectTime = '0' 
          endif 
    Until false 
end sub 

sub MakeTime() 
   VAR D, T, Ret, i 
   Ret = STR(UO.Time()) 
   T = "" 
   For i = 0 To Len(Ret) 
      T = Ret[Len(Ret)-i] + T 
      If (I == 2) OR (I == 4) Then 
         T = ":" + T 
      EndIf 
   Next 
   Ret = STR(UO.Date()) 
   D = "" 
   For i = 0 To Len(Ret) 
      D = Ret[Len(Ret)-i] + D 
      If (I == 2) OR (I == 4) Then 
         D = "." + D 
      EndIf 
   Next    
   Ret = T + " @ " + D 
   RETURN Ret 
end sub 

sub time() 
var hh,mm,ss,hms,t=str(UO.Time()) 
if len(t)<=2 then 
hh="0" 
mm="0" 
ss=t 
endif 
if len(t)==3 then 
hh="0" 
mm=left(t,len(t)-2) 
ss=right(t,len(t)-1) 
endif 
if len(t)==4 then 
hh="0" 
mm=left(t,len(t)-2) 
ss=right(t,len(t)-2) 
endif 
if len(t)==5 then 
hh=left(t,len(t)-4) 
hms=left(t,len(t)-2) 
mm=right(hms,len(hms)-1) 
ss=right(t,len(t)-3) 
endif 
if len(t)==6 then 
hh=left(t,len(t)-4) 
hms=left(t,len(t)-2) 
mm=right(hms,len(hms)-2) 
ss=right(t,len(t)-4) 
endif 
return hh+":"+mm+":"+ss 
end sub 

sub pwavw(); ???? ??? ??????
UO.DeleteJournal() 
REPEAT 
uo.playwav("E:\UO\inject\SOUND\by.wav") 
WAIT(3500) 
UNTIL UO.InJournal('all stop') 
endsub 

sub Check() 
var Time 
Time = Time()
while not UO.dead() 
wait(1000) 
wend 
UO.Exec("exec pwavw") 
uo.textopen() 
UO.TextPrint('You are dead in: '+Time) 
end sub

sub T1()
var Time 
Time = Time() 
uo.textopen() 
UO.TextPrint('Unload to container: '+Time) 
end sub

sub Infologs() 
UO.Print('You have '+Str(UO.Count('0x1BDD'))+' logov v symke:') 
UO.Print('there is '+Str(UO.Count('0x1BDD','0x0000'))+' standart and ' +str(uo.count('0x1BDD')-uo.count('0x1BDD','0x0000'))+' colored.') 
end sub 

sub takereg() 
lockunlock()
var regcount = '0x416A2AA5' ## ID conteinera s regami
DIM reg[3] 
var i,n 
reg[1]='0x0F86' ; MR 
reg[2]='0x0F7A' ; BP 
reg[3]='0x0F7B' ; BM 

UO.UseObject(regcount) 
for i=1 to 3 
while UO.Count(reg[i])<5 
UO.FindType(reg[i],-1,regcount) 
n=UO.Count(reg[i]) 
UO.Grab(str(5-n),'finditem') 
wait(1000) 
wend 
next 
lockunlock()
end sub

sub RecLes() ;
uo.print('Recall to les...')
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.waittargetobject('0x4169EB4C') ## id runki v les
wait(500)
uo.cast('Recall')
wait(6000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
wait(2000)
end sub

sub lockunlock()
Var seif = '0x416A2AA5'
Var kluch = '0x416D08BD'
UO.WaitTargetObject( seif ) 
UO.UseObject( kluch )
wait(1000)
end sub


sub terminate()
UO.Print("ALL OFF")
UO.DeleteJournal() 
uo.exec("terminate all")
end sub