win = Plugin.Window.MousePoint() Call Plugin.Window.Top(win) Call Plugin.Window.Active(win) Delay 400 Call Plugin.Window.Move(win, 0, 0) Rem 开始 For 5 Rem 找怪 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 Goto 攻击 End If Delay 300 Rem 攻击 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 招式 End If Delay 300 Rem 招式 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 800 Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4) Else Goto 返回 End If Rem 返回 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 Goto 防出岛 End If Delay 300 Rem 防出岛 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 跳转 End If Delay 300 Rem 跳转 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 东 End If Delay 300 Rem 东 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 Delay 300 Rem 找怪2 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 攻击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