MoveTo X - 410, Y + 310 Delay 200 LeftClick 1 Delay 1000 MoveTo X - 398, Y + 329 Delay 200 RightClick 1 Delay 500 RightClick 1 Delay 500 MoveTo X-380, Y + 100 Delay 100 LeftClick 1 Delay 1000 MoveTo X - 440, Y + 340 Delay 100 LeftClick 1 Delay 500 MoveTo X-180, Y + 100 LeftClick 1 End Sub Sub 查东郊坐标 Rem dzb Call FindPic(X-50,Y,X+50,Y+70,"183zb133dj.bmp",1,dbnX,dbnY) If dbnX > 0 and dbnY > 0 Then Delay 10 Else Delay 1000 Goto dzb End If End Sub Sub 查西郊坐标 Rem xzb Call FindPic(X-50,Y,X+50,Y+70,"245zb69xj.bmp",1,xbnX,xbnY) If xbnX > 0 and xbnY > 0 Then Delay 10 Else Delay 1000 Goto xzb End If End Sub Sub 查南郊坐标 Rem nzb Call FindPic(X-50,Y,X+50,Y+70,"163zb139nj.bmp",1,zbnX,zbnY) If zbnX > 0 and zbnY > 0 Then Delay 10 Else Delay 1000 Goto nzb End If End Sub Sub 查北郊坐标 Rem bzb Call FindPic(X-50,Y,X+50,Y+70,"173zb63bj.bmp",1,bzbX,bzbY) If bzbX > 0 and bzbY > 0 Then Delay 10 Else Delay 1000 Goto bzb End If End Sub Sub 洞查对话 Rem 找洞查 Call FindPic(X-700, Y+200, X-200, Y+450, "dongchasz.bmp", 1, dxszX, dxszY) If dxszX > 0 and dxszY > 0 Then MoveTo dxszX + 40, dxszY + 90 Delay 10 LeftClick 1 Else Delay 200 Goto 找洞查 End if For 2 Rem 知道了 Delay 500 Call findpic(X-700, Y+200, X-200, Y+450, "dongcha.bmp", 1, dxX, dxY) If dxX > 0 and dxY > 0 Then KeyPress "Enter", 1 Else Goto 知道了 End If Next Delay 1000 Call findpic(X-700, Y+200, X-200, Y+450, "dongcha.bmp", 1, dxX, dxY) If dxX > 0 and dxY > 0 Then KeyPress "Enter", 1 End If End Sub Sub 回城 Delay 500 MoveTo X + 70, Y + 36 Delay 200 LeftClick 1 Delay 1000 MoveTo X -413 , Y +319 Delay 10 RightClick 1 Delay 800