Code: Select all
sub Go(GX,GY)
var GDIR,GnX,GnY,GKR
REPEAT
IF UO.GetX() > GX then
GDIR=36
ENDIF
IF UO.GetX() < GX then
GDIR=34
ENDIF
IF GDIR==36 or GDIR==34 then
REPEAT
GKR=0
REPEAT
GKR=GKR+1
GnX=UO.GetX()
UO.Press(GDIR)
Wait(250)
IF UO.GetX()==GnX AND GKR>2 then
GoWrong(GDIR,1)
ENDIF
UNTIL GKR>3 or GnX<>UO.GetX()
UNTIL UO.GetX() == GX OR (GDIR==36 AND UO.GetX()<GX) OR (GDIR==34 and UO.GetX()>GX)
ENDIF
IF UO.GetY() > GY then
GDIR=33
ENDIF
IF UO.GetY() < GY then
GDIR=35
ENDIF
IF GDIR==33 or GDIR==35 then
REPEAT
GKR=0
REPEAT
GKR=GKR+1
GnY=UO.GetY()
UO.Press(GDIR)
Wait(250)
IF UO.GetY()==GnY and GKR>3 then
GoWrong(GDIR,1)
ENDIF
UNTIL GKR>3 or GnY<>UO.GetY()
UNTIL UO.GetY()==GY OR (GDIR==33 AND UO.GetY()<GY) or (GDIR==35 AND UO.GetY()>GY)
ENDIF
Wait(100)
UNTIL UO.GetX()==GX AND UO.GetY()==GY
end sub
sub GoWrong(WA,WB)
var WDIR,WnX,WnY,WB0
var WX=UO.GetX()
var WY=UO.GetY()
var WN=0
REPEAT
WB0=WB
WN=WN+1
IF WB THEN
IF WA==36 THEN
WDIR=33
ELSE
WDIR=WA+1
ENDIF
ELSE
IF WA==33 THEN
WDIR=36
ELSE
WDIR=WA-1
ENDIF
ENDIF
IF WA==33 or WA==35 then
WHILE UO.GetY()==WY and WB==WB0
WnX=UO.GetX()
UO.Press(WDIR,2)
Wait(250)
IF UO.GetX()==WnX then
WB=0
ENDIF
UO.Press(WA,2)
Wait(250)
WEND
ENDIF
IF WA==36 or WA==34 then
WHILE UO.GetX()==WX and WB==WB0
WnY=UO.GetY()
UO.Press(WDIR,2)
Wait(250)
IF UO.GetY()==WnY then
WB=0
ENDIF
UO.Press(WA,2)
Wait(250)
WEND
ENDIF
Wait(100)
UNTIL UO.GetX() <> WX AND UO.GetY() <> WY AND WB0==WB OR WN>15
end sub
