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