Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else goto 跳转8 End If Delay 300 Rem 跳转8 FindPic 0,0,1024,768,"Attachment:\跳转.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else Goto 东8 End If Rem 东8 FindPic 0,0,1024,768,"Attachment:\西.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else End If Next For 5 Rem 找怪4 Delay 400 FindPic 0, 0, 1024, 768, "Attachment:\怪的星号.bmp", 0.9, intX, intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else Goto 攻击4 End If Delay 300 Rem 攻击4 FindPic 0,0,1024,768,"Attachment:\攻击.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else Goto 招式4 End If Delay 300 Rem 招式4 FindPic 0,0,1024,768,"Attachment:\普通攻击.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else Goto 返回4 End If Rem 返回4 Delay 400 FindPic 0,0,1024,768,"Attachment:\返回游戏.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Goto 防出岛4 End If Delay 400 Rem 防出岛4 FindPic 0,0,1024,768,"Attachment:\防止出龙岛.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else goto 跳转4 End If Rem 跳转4 FindPic 0,0,1024,768,"Attachment:\跳转.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else Goto 南4 End If Delay 300 Rem 南4 Delay 300 FindPic 0,0,1024,768,"Attachment:\南.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4) Delay 1000 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else End If Next Rem 继续 FindPic 0,0,1024,768,"Attachment:\继续.bmp",0.9,intX,intY