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