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