Call FindPic(500,0,1600,500,"longcheng.bmp",1,X,Y) If X > 0 and Y > 0 Else Delay 200 Goto 检查龙城 End If End sub sub 龙城定位 MoveTo X + 70, Y + 36 Delay 200 LeftClick 1 Delay 1000 MoveTo X-380,Y+100 Delay 100 LeftClick 1 Delay 800 LeftClick 1 Delay 1000 MoveTo X - 422, Y + 500 Delay 100 LeftClick 1 Delay 1000 MoveTo X - 440, Y + 340 Delay 500 Call FindPic(X-600,Y+100,X,Y+400,"longchengdt.bmp",1,dtX,dtY) If dtX > 0 and dtY > 0 Then Delay 10 Else Delay 500 End If LeftClick 1 Delay 1000 MoveTo X -413 , Y +319 Delay 10 RightClick 1 Delay 800 MoveTo X-380, Y + 100 LeftClick 1 Delay 800 MoveTo X-180, Y + 100 LeftClick 1 End sub Sub 检查龙城定位 rem 检查坐标lc Call FindPic(X-50,Y,X+50,Y+70,"240zb85lc.bmp",1,lzbX,lzbY) If lzbX>0 and lzbY>0 then Delay 100 Else Delay 200 Goto 检查坐标lc End If End sub Sub 进家族前院 rem 城主 Call FindPic(X - 700, Y+200, X-200, Y + 450, "chengzhuch.bmp", 1, czX, czY) If czX > 0 and czY > 0 Then MoveTo czX + 30, czY + 90 Delay 100 LeftClick 1 Else Delay 500 goto 城主 End If Rem 关于 Delay 500 Call FindPic(X-700, Y+200, X-200, Y+450, "guanyujzw.bmp", 1, gyX, gyY) If gyX > 0 and gyY > 0 Then Delay 10 MoveTo gyX + 100, gyY + 8 Delay 100 LeftClick 1 Else Goto 关于 End If Rem 进入 Delay 500 Call FindPic(X-700, Y+200, X-200, Y+450, "jinrujzqy.bmp", 1,jinX,jinY) If jinX>0 and jinY>0 Then Delay 10 MoveTo jinX + 100, jinY + 8 Delay 100 LeftClick 1 Else Goto 进入 End If End Sub Sub 是否进入前院 Rem 前院 Delay 200 Call FindPic(X-50,Y-20,X+100,Y+20,"jiazuqy.bmp",1,qyX,qyY) If qyX > 0 and qyY > 0 Else Goto 前院 End If End Sub Sub 是否祭司旁停下 rem 检查坐标qy Call FindPic(X-50,Y,X+50,Y+70,"69zb36qy.bmp",1,qzbX,qzbY) If qzbX>0 and qzbY>0