Sub 坐标x()
Delay 30
If n=0 then
Delay 30
jssbx=xgwsx+12
jssby =179+h1
Call 测位数y()
else
n=n-1
Delay 30
IfColor jssbx,jssby,"C8E0D0",0 Then
i = 1
Else
IfColor jssbx+2,jssby-1,"C8E0D0",0 Then
IfColor jssbx-1,jssby+2,"C8E0D0",0 Then
IfColor jssbx+3,jssby+2,"C8E0D0",0 Then
IfColor jssbx,jssby+3,"C8E0D0",0 Then
i = 9
Else
i = 0
End If
Else
IfColor jssbx+3,jssby-1,"C8E0D0",0 Then
i = 5
Else
i = 6
End If
End If
Else
IfColor jssbx+2,jssby+1,"C8E0D0",0 Then
IfColor jssbx+2,jssby+5,"C8E0D0",0 Then
i = 4
Else
i = 7
End If
Else
IfColor jssbx-1,jssby+6,"C8E0D0",0 Then
i=2
Else
IfColor jssbx-1,jssby+1,"C8E0D0",0 Then
i=8
Else
i=3
End If
End If
End If
End If
Else
Goto 杀怪
End If
End If
Delay 30
jswbx=i&jswbx
end if
jssbx=jssbx-6
call 坐标x()
End sub
Sub 坐标y()
Delay 30
If n=0 then
Call 当前坐标()
Else
n=n-1
Delay 30
IfColor jssbx,jssby,"C8E0D0",0 Then
i = 1
Else
IfColor jssbx+2,jssby-1,"C8E0D0",0 Then
IfColor jssbx-1,jssby+2,"C8E0D0",0 Then
IfColor jssbx+3,jssby+2,"C8E0D0",0 Then
IfColor jssbx,jssby+3,"C8E0D0",0 Then
i = 9
Else
i = 0
End If
Else
IfColor jssbx+3,jssby-1,"C8E0D0",0 Then
i = 5
Else
i = 6
End If