Yoko

Code: Select all

sub adad() 
begin: 
gotoxy(1328,938,0) 
kopok(3296,1328,936) 
kopok(3280,1330,935) 
gotoxy(1326,938, 0) 
gotoxy(1326,933, 0) 
kopok(3280,1324,936) 
kopok(3302,1324,933) 
kopok(3299,1328,933) 
kopok(3293,1324,930) 
kopok(3288,1328,930) 
gotoxy(1326,931, 0) 
gotoxy(1319,931, 0) 
gotoxy(1319,930, 0) 
kopok(3277,1320,933) 
kopok(3296,1316,933) 
kopok(3286,1320,927) 
gotoxy(1322,931, 0) 
gotoxy(1322,921, 0) 
kopok(3296,1320,924) 
kopok(3280,1320,921) 
kopok(3286,1320,918) 
kopok(3283,1324,918) 
gotoxy(1327,921, 0) 
gotoxy(1327,915, 0) 
kopok(3286,1324,915) 
kopok(3288,1328,918) 
kopok(3286,1324,912) 
kopok(3283,1328,912) 
gotoxy(1327,906, 0) 
gotoxy(1326,906, 0) 
kopok(3293,1324,909) 
kopok(3302,1328,909) 
kopok(3280,1328,906) 
kopok(3288,1324,906) 
kopok(3299,1324,903) 
gotoxy(1326,897, 0) 
kopok(3299,1328,897) 
kopok(3291,1328,900) 
kopok(3277,1328,894) 
gotoxy(1318,897, 0) 
kopok(3291,1320,900) 
kopok(3291,1316,900) 
kopok(3299,1316,897) 
kopok(3302,1316,894) 
gotoxy(1318,889, 0) 
kopok(3283,1316,891) 
kopok(3283,1320,891) 
kopok(3299,1320,888) 
kopok(3291,1316,888) 
gotoxy(1314,889, 0) 
gotoxy(1314,900, 0) 
kopok(3280,1312,900) 
kopok(3291,1312,897) 
kopok(3288,1312,903) 
gotoxy(1314,944, 0) 
gotoxy(1318,944, 0) 
gotoxy(1318,949, 0) 
UO.useobject("0x401258E1") 
gotoxy(1328,949, 0) 
goto begin 
end sub 

sub kopok(t,i,j) 
var mx, my, mz, mt, q 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
mx = i 
my = j 
mt = t 
q = 0 
   while not UO.InJournal("no logs") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("It appears") and not q==5 
      UO.Print("Now Mining In: "+str(mx)+" "+str(my)) 
      UO.DeleteJournal() 
      q=q+1 
      UO.Waittargettile(str(mt), str(mx), str(my), str(mz)) 
      UO.Usetype("0x0F44") ; type  òîïîðà âñòàâèòü íàäî!!!!!!!!!!!!! 
            while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no logs") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("It appears") and not UO.InJournal("OOPS") and not UO.InJournal("attacking you") 
               wait (300) 
            wend 
         if UO.InJournal("You put") then 
            q=0 
         end if 

         wend 
         UO.DeleteJournal() 
wait(200) 
end sub 


sub gotoxy(x,y,prec) 
var ld=0,ldc=0 
var dx,dy 
var mx,my 
var ox,oy,mk,k 
#uo.print(">") 
#uo.track("1",str(x),str(y)) 
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(10) 
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>100 then 
uo.print("Can not reach location!") 
return 
end if 
else 
ld=dx 
end if 
if mx==x then 
if my==y then 
return 
endif 
if my>y then 
#UO.Print("UR") 
UO.Press(33) 
goto start 
endif 
#UO.Print("DL") 
UO.Press(35) 
goto start 
end if 
if mx<x then 
if my>y then 
#UO.Print("R") 
UO.Press(39) 
goto start 
endif 
if my==y then 
#UO.Print("DR") 
UO.Press(34) 
goto start 
endif 
#UO.Print("D") 
UO.Press(40) 
goto start 
end if 
if my<y then 
#UO.Print("L") 
UO.Press(37) 
goto start 
endif 
if my==y then 
#UO.Print("LU") 
UO.Press(36) 
goto start 
endif 
#UO.Print("U") 
UO.Press(38) 
goto start 
end sub