Yoko

VAR Pickaxe="0x0f39"
VAR X,Y,Stoplocation = 0
VAR ItemBB="0x19b9"
VAR PickAxeCC=3
VAR MoveDelay=2500,MoveNumber=1,Ep=0.001,XN = 1117,YN = 1462
VAR Maxcountpick=14 #ìàêñèìàëüíîå êîëè÷åñòâî ïîïûòîê êîïàòü
VAR KolScrolls=0
VAR Master="AeR"
VAR selfname="Mama"
VAR Box="0x400FA8A8"
VAR Box_from_instruments="0x400FA8A9"

sub start()
main()
end sub

sub main()
VAR e,eTemp,Minestatus=0
uo.addobject("Box",Box)
uo.addobject("Box_from_instruments",Box_from_instruments)
   preload()   
   while 1==1
      if Getlocation()<>0 then
         gobase()
      end if
      while checkinv()==0
         wait(150)
      wend
      bandageself()
      uo.setglobal("Status","OK")
         Uo.deletejournal()
         wait(200)
      gomine()
      uo.print("gomine cicle end!")
      repeat 
      eTemp=0
         repeat
            e=Change_point_coordinates()
            eTemp=gotoxy(val(uo.getglobal("X")),val(uo.getglobal("Y")),1)
         until eTemp<>1
         
         Minestatus=mine()
         uo.print("Minestatus= "+str(Minestatus))
         if Minestatus==1 then
            gobase()
         end if
         if Minestatus==2 then
            uo.exec("exec bandageself")
            gobase()
         end if
      until Minestatus==1 or Minestatus==2
   wend
end sub


Sub mine()
var Tim,Jurn,HP,countpick=0
Dim Ñliloc[10]
Ñliloc[0]="cliloc# 0xA867"
Ñliloc[1]="cliloc# 0xAD03" 
Ñliloc[2]="cliloc# 0xAD00" 
Ñliloc[3]="cliloc# 0x6B31" 
Ñliloc[4]="cliloc# 0xEE46"   
Ñliloc[5]="cliloc# 0x5DE1" 
Ñliloc[6]="cliloc# 0x5DE6" 
Ñliloc[7]="cliloc# 0xA2DE" 
Ñliloc[8]="cliloc# 0xACF9"   
Ñliloc[9]="cliloc# 0xA866"
Ñliloc[10]="cliloc# 0xA20D"
HP=Uo.GetHP()
REPEAT   
 Uo.waitTargetTile(uo.getglobal("T"),uo.getglobal("X"),uo.getglobal("Y"),uo.getglobal("Z"))   
 Uo.usetype(Pickaxe)  
 wait(2100)
   Tim = Uo.Timer()
REPEAT  
                 wait(150)
                 Jurn=Uo.Journal(0)
UNTIL Uo.Timer()-Tim>40 or not Uo.Weight<470 or Jurn == Ñliloc[1] or Jurn == Ñliloc[2] or Jurn == Ñliloc[3] or Jurn == Ñliloc[4] or Jurn == Ñliloc[0] or Jurn == Ñliloc[9] or Jurn == Ñliloc[10] or Uo.GetHP()<HP 
countpick=countpick+1

UNTIL  Jurn == Ñliloc[3] or not Uo.Weight <470 or Jurn == Ñliloc[2] or Uo.count(Pickaxe)==0 or Jurn == Ñliloc[7] or Jurn == Ñliloc[0] or Jurn == Ñliloc[9] or Jurn == Ñliloc[10] or Uo.GetHP()<HP or countpick>=Maxcountpick
IF (Jurn == Ñliloc[2] or Jurn == Ñliloc[0] or Jurn == Ñliloc[7] or Jurn == Ñliloc[9] or countpick>=Maxcountpick ) and not Uo.GetHP()<HP then
  Uo.Print("No metal !!!")
  Return 0
end if 
   if Uo.GetHP()<HP or uo.injournal("121") then
   uo.textopen()
   uo.textprint("alert at "+time())
   uo.textprint(uo.getglobal("T")+"$$$"+uo.getglobal("X")+"$$$"+uo.getglobal("Y")+"$$$"+uo.getglobal("Z"))
   Return 2
   end if
   Return 1
   Uo.deletejournal()
   wait(200)
end sub 

Sub CheckINV()
uo.addobject("Box",Box)
uo.addobject("Box_from_instruments",Box_from_instruments)
gobase()
   uo.say("bank")
      wait(2000)
      Uo.useobject("Box_from_instruments")
      wait(2000)
   Uo.useobject("Box")
      wait(2000)   
   Uo.useobject("backpack")
      wait(2000)   
   while Uo.count(ItemBB)
      Uo.findtype(ItemBB)
      Uo.moveitem("finditem","0","Box")
      wait(700)
   wend

while uo.count(Pickaxe)<3 #or uo.count("0x1f4c")< KolScrolls
   Uo.findtype(Pickaxe,"-1","Box_from_instruments")
   wait(500)
      IF Uo.findCount()>(PickaxeCC-Uo.count(Pickaxe)) then
            while Uo.count(Pickaxe)<PickaxeCC 
               Uo.grab(STR(PickaxeCC-Uo.count(Pickaxe)),"finditem")
               wait(700)
               Uo.findtype(Pickaxe,"-1","Box_from_instruments")
            wend
         else   
            wait(3000)
      end if
      
      
   wait(700)
wend
      if Uo.count("0x0e21")<20 then
         Uo.findtype("0x0e21","-1","Box_from_instruments")
         Uo.grab(str(20-Uo.count("0x0e21")),"finditem")
         wait(700)
      end if
         Informer()
end sub

Sub preload()
VAR iPath,iPoint
DIM Path[50],Point[500]
Path[0]="0 2512 551 0"
Path[1]="0 2515 543 0"
Path[2]="0 2522 537 0"
Path[3]="0 2528 536 0"
Path[4]="0 2528 521 0"
Path[5]="0 2528 519 0"
Path[6]="0 2526 508 15"
Path[7]="0 2525 507 15"
Path[8]="0 2525 502 15"
Path[9]="0 2527 501 15"
Path[10]="0 2527 501 15"
Path[11]="1852 2528 501 15"
Path[12]="1852 2530 501 25"
Path[13]="1993 2531 502 30"
Path[14]="1993 2537 501 30"
Path[15]="1993 2544 502 30"
Path[16]="1996 2547 502 30"
Path[17]="1850 2548 502 25"
Path[18]="1850 2549 501 20"
Path[19]="1850 2549 501 20"
Path[20]="1850 2550 501 15"
Path[21]="0 2551 502 15"
Path[22]="0 2555 503 4"
Path[23]="0 2556 502 0"
Path[24]="0 2557 502 0"
Path[25]="1340 2557 500 0"

Point[0]="1339 2556 498 0"
Point[1]="1339 2556 497 0"
Point[2]="1339 2557 494 0"
Point[3]="1339 2558 496 0"
Point[4]="1339 2560 498 0"
Point[5]="1339 2560 496 0"
Point[6]="1339 2562 494 0"
Point[7]="1342 2559 494 0"
Point[8]="1339 2561 493 0"
Point[9]="1339 2563 493 0"
Point[10]="1350 2565 491 0"
Point[11]="1339 2563 491 0"
Point[12]="1340 2561 491 0"
Point[13]="1342 2560 492 0"
Point[14]="1355 2558 492 0"
Point[15]="1355 2558 490 0"
Point[16]="1339 2559 488 0"
Point[17]="1339 2561 486 0"
Point[18]="1339 2562 485 0"
Point[19]="1354 2562 483 0"
Point[20]="1353 2563 481 0"
Point[21]="1339 2565 480 0"
Point[22]="1355 2565 479 0"
Point[23]="1339 2566 477 0"
Point[24]="1339 2568 475 0"
Point[25]="1339 2569 475 0"
Point[26]="1339 2571 476 0"
Point[27]="1342 2573 476 0"
Point[28]="1339 2575 476 0"
Point[29]="1339 2573 475 0"
Point[30]="1339 2576 475 0"
Point[31]="1339 2572 475 0"
Point[32]="1339 2579 478 0"
Point[33]="1352 2581 480 0"
Point[34]="1339 2580 482 0"
Point[35]="1339 2578 484 0"
Point[36]="1339 2578 482 0"
Point[37]="1339 2576 482 0"
Point[38]="1339 2576 480 0"
Point[39]="1339 2576 478 0"
Point[40]="1342 2577 478 0"
Point[41]="1339 2576 477 0"
Point[42]="1339 2574 477 0"
Point[43]="1339 2574 479 0"
Point[44]="1339 2574 481 0"
Point[45]="1339 2575 480 0"
Point[46]="1339 2573 483 0"
Point[47]="1339 2573 484 0"
Point[48]="1341 2572 482 0"
Point[49]="1339 2573 482 0"
Point[50]="1339 2572 484 0"
Point[51]="1339 2571 486 0"
Point[52]="1339 2571 485 0"
Point[53]="1339 2570 486 0"
Point[54]="1340 2571 488 0"
Point[55]="1340 2569 488 0"
Point[56]="1342 2569 486 0"
Point[57]="1339 2569 484 0"
Point[58]="1339 2567 484 0"
Point[59]="1339 2566 487 0"
Point[60]="1339 2568 488 0"
Point[61]="1339 2568 485 0"
Point[62]="1339 2566 487 0"
Point[63]="1339 2566 489 0"
Point[64]="1339 2564 488 0"
Point[65]="1339 2564 486 0"
Point[66]="1339 2566 484 0"
Point[67]="1340 2568 482 0"
Point[68]="1339 2570 480 0"
Point[69]="1341 2572 482 0"
Point[70]="1339 2574 484 0"
Point[71]="1342 2575 485 0"
Point[72]="1339 2577 485 0"
Point[73]="1340 2571 488 0"
Point[74]="1339 2571 481 0"
Point[75]="1342 2571 479 0"
Point[76]="1339 2569 479 0"
Point[77]="1339 2567 481 0"
Point[78]="1340 2566 483 0"
Point[79]="1339 2564 485 0"
Point[80]="1339 2566 485 0"
Point[81]="1339 2565 487 0"
Point[82]="1339 2563 487 0"
Point[83]="1339 2561 489 0"
Point[84]="1340 2561 491 0"
Point[85]="1339 2561 493 0"
Point[86]="1339 2559 495 0"
Point[87]="1339 2557 497 0"
uo.setglobal("kolcoord",87)

FOR iPath=0 to 25
uo.setglobal("Path"+str(iPath),Path[iPath])
next

FOR iPoint=0 to 87
            
            uo.setglobal("point"+str(iPoint),Trim(Point[iPoint]))
next
end sub

Sub Change_point_coordinates()
uo.setglobal("T",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),0))
uo.setglobal("X",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),1))
uo.setglobal("Y",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),2))
uo.setglobal("Z",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),3))
IF val(uo.getglobal("kolcoord"))-val(uo.getglobal("point_number"))>1 then
      uo.setglobal("point_number",val(uo.getglobal("point_number"))+1)
   else
      uo.setglobal("point_number",0)
end if
end sub

Sub gomine()
VAR Temp,Location=Getlocation(),x,y
Temp=Location
   while Temp<>25
         x=Getnumb(trim(uo.getglobal("Path"+str(Temp+1))),1)
         y=Getnumb(trim(uo.getglobal("Path"+str(Temp+1))),2)
         if gotoxy(x,y,1)==1 then
         Temp=Temp-2
         end if
         Temp=Temp+1
         if Temp<0 then
         Temp=2
         end if
   wend
end sub



Sub gobase()
If uo.weight>418 then
uo.drop(1, ItemBB)
endif
VAR Temp,Location=Getlocation(),x,y
Temp=Location
uo.print("My location = "+str(Temp))
   while Temp<>0
         x=Getnumb(trim(uo.getglobal("Path"+str(Temp-1))),1)
         y=Getnumb(trim(uo.getglobal("Path"+str(Temp-1))),2)
         if gotoxy(x,y,1)==1 then
         Temp=Temp+2
         end if
         Temp=Temp-1
         if Temp>25 then
         Temp=24
         end if
   wend
   uo.deletejournal()
end sub

Sub Getlocation()
var i,x,y,point=0,minPath=100,tempminPath
for i=0 to 25
   x=Getnumb(trim(uo.getglobal("Path"+str(i))),1)
   y=Getnumb(trim(uo.getglobal("Path"+str(i))),2)
      tempminPath=Getdistance(x,y)
   if tempminPath<minPath then
      minPath=tempminPath
      point=i
   end if
next
return point
end sub

Sub Getdistance(x,y)
var dx,dy,dd
dx=uo.getx("self")-x
dy=uo.gety("self")-y
if dx<0 then
   dx=-1*dx
end if
if dy<0 then
   dy=-1*dy
end if
if dx>dy then
      dd=dx
   else
      dd=dy
end if
return dd
end sub

Sub GetNumb(C,I)
VAR J,T,K
J=0
K=1
while K>0
  J=J+1
  IF (Mid(C,J,1)==" ") Or (J>=Len(C)-1) then
   IF I==0 then
    T=Val(Left(C,J))
   Else
    T=GetNumb(Right(C,Len(C)-J-1),I-1)
   end if
   K=0
  end if
wend
return T
end sub


Sub gotoxy(x,y,prec) 
var ld=0,ldc=0 
var dx,dy 
var mx,my 
var ox,oy,mk,k 

start: 
mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 
if dx<=prec then 
return 
end if 
if not ldc then 
;uo.print(STR(dx)) 
end if 
if dx<3 then 
mk=70 
else 
mk=15 
end if 

ox=mx 
oy=my 
for k=1 to mk 
mx=UO.GetX() 
my=UO.GetY() 
if mx<>ox or my<>oy then 
goto sdidapl 
end if 
wait(1) 
next 
sdidapl: 

mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 

if dx<=prec then 
return 
end if 
if ld==dx then 
ldc=ldc+1 
if ldc>20 then 
  uo.print("Can not reach location!") 
  return 1  
end if 
else 
ld=dx 
end if 

if mx==x then 
if my==y then 
return 
endif 
if my>y then 

UO.Press(33) 
goto start 
endif 

UO.Press(35) 
goto start 
end if 
if mx<x then 
if my>y then 

UO.Press(39) 
goto start 
endif 
if my==y then 

UO.Press(34) 
goto start 
endif 

UO.Press(40) 
goto start 
end if 
if my<y then 
 
UO.Press(37) 
goto start 
endif 
if my==y then 

UO.Press(36) 
goto start 
endif 
 
UO.Press(38) 
goto start 
end sub


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

Sub Time()
VAR Date,nTime,uTime,i
uTime=str(Uo.Time())
nTime=""
for i=0 to Len(uTime)
nTime=uTime[Len(uTime)-i]+nTime
IF (i==2) or (i==4) then
nTime=":"+nTime
end if
next
uTime=str(Uo.Date())
Date=""
for i=0 to Len(uTime)
Date=uTime[Len(uTime)-i]+Date
IF (i==2) or (i==4) then
Date="."+Date
end if
next
uTime=nTime+" @ "+Date
return uTime
end sub


Sub bandageself()
VAR Mess,Timst
   while Uo.count("0x0e21") and uo.life<90
         uo.bandageself()
      repeat 
               wait(150)
                 Mess=Uo.Journal(0)
      until (Uo.Timer()-Timst) > 40 or uo.life==uo.str or not Uo.count("0x0e21")
   wend
end sub

sub control()
VAR i,Ok=0
   uo.deletejournal()
   wait(200)
while 1==1
   if uo.injournal(Master+": "+selfname+" reload") then
   uo.setglobal("Reload","Yes")
      uo.say("Ok!")
      uo.exec("terminate gotoxy")
      wait(500)
      uo.exec("terminate gopapa")
      wait(500)
      uo.exec("terminate mine")
      wait(500)
      uo.exec("terminate main")
      wait(500)
      uo.exec("exec main")
      wait(500)      
   uo.deletejournal()
   wait(200)
   end if 
   wait(150)
wend
end sub

Sub Informer()
VAR i
DIM Color[20],Name[20]
Color[0]="0x0001" # Iron
Color[1]="0x0BB7" # Bronze
Color[2]="0x096D" # Copper
Color[3]="0x0BB5" # Silver
Color[4]="0x0BB5" # Gold
Color[5]="0x0BB3" # Blood rock
Color[6]="0x0BB2" # Shining 
Color[7]="0x0BB1" # Spectral
Color[8]="0x0BB0" # Iguana
Color[9]="0x0BAF" # Star
Color[10]="0x0001" #
Color[11]="" #
Name[0]="Iron"
Name[1]="Bronze"
Name[2]="Copper"
Name[3]="Silver"
Name[4]="Gold"
Name[5]="Blood rock"
Name[6]="Shining"
Name[7]="Spectral"
Name[8]="Iguana"
Name[9]="Star"
Name[10]="0x0000"
Name[11]=""
if uo.getglobal("Reload")=="Yes" then
FOR i=1 to 9
uo.findtype("ItemBB",Color[i],"Box")
uo.say(Name[i]+" = "+str(uo.getQuantity("finditem")))
wait(200)
NEXT
uo.setglobal("Reload","No")
end if
uo.say("*-*-*-*-*-*-*-*")
uo.findtype("Pickaxe",-1,"Box_from_instruments")
uo.say("Pickaxe = "+str(uo.findcount()))
uo.findtype("0x0e21",-1,"Box_from_instruments")
uo.say("Bandages = "+str(uo.getQuantity("finditem")))
uo.say("*-*-*-*-*-*-*-*")
end sub