End If Delay 300 Rem 招式2 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 返回2 End If Delay 300 Rem 返回2 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 防出岛2 End If Delay 40 Rem 防出岛2 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 跳转2 End If Delay 300 Rem 跳转2 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 北2 End If Delay 300 Rem 北2 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 找怪8 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 攻击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 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 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 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