Yoko

Code: Select all

sub IamDead() 
var lol=0 
UO.Exec("terminate Reconnector") 
UO.Exec("terminate Fishihgs") 
UO.Exec("terminate Start") 
UO.Exec("warmode 1") 
while NOT UO.Life>0 
UO.DeleteJournal() 
if lol==5 then 
uo.sayu("home home home") 
wait(5000) 
gotoXY(2477,417) 
gotoXY(2491,417)
gotoXY(2491,442)
gotoXY(2498,442)
gotoXY(2498,482)
gotoXY(2475,482) 
gotoXY(2475,531)
gotoXY(2468,531)
wait(5000) 
uo.useobject('0x4001d120') 
wait(10000) 
else 
wait(10000) 
lol=lol+1 
endif 
wend 
   recall("1") 
wait(200000)
   wait(100) 
UO.Exec("terminate Reconnector") 
   wait(100)
UO.Exec('exec Reconnector') 
   wait(1000) 
UO.Exec("warmode 0") 
UO.Exec("exec Start") 
   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 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