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