适用1366*768窗口模式。
//钓鱼技能放在1的位置
//开自动拾取
speed =8
flag = false
Rem start
IfColor 1113, 65, "7588E6", 1 Then //上鱼饵的 判断右上角鱼竿buff颜色
KeyPress "9", 1 //加钓鱼技能鱼饵 放9键
Delay 3000
KeyPress "7", 1 //德拉诺之王地图鱼饵 放7键
Delay 3000
End If
MoveTo 300, 500
KeyPress "space", 1
Delay 500
KeyPress "8", 1 //鱼虫信息素
Delay 500
KeyPress "1", 1 //钓鱼技能
Delay 1000
UserVar zsx="300" "左上X"
UserVar zsy="250" "左上Y"
UserVar zxx="1000" "右下X"
UserVar zxy="500" "右下Y"
//可以缩小游戏环境,通过抓抓找出合适的范围 1366*768 窗口模式
For t = zsy To zxy step 13 //从左到右平移
For i = zsx To zxx step 15//自上而下换行
MoveTo i, t
Delay 10
var = GetCursorShape(0)
If var = 1053591638 Then
GetCursorPos x1, y1
flag = true
Goto qigan
End If
Delay speed*1.5
Next
Next
Rem qigan
If flag = true Then
GetCursorPos x, y
End If
//微移鼠标, 把鼠标放到鱼漂下面几个像素位置
For i = 0 To 1000
MoveTo x + i, y
x1=x
var = GetCursorShape(0)
If var = 965986689 Then
GetCursorPos x2, y2
Exit For
End If
Delay speed*2
Next
MoveTo (x2-x1)/2+x1, y
GetCursorPos x, y
Delay 200
For i = 0 To 1000
MoveTo x, y + i
var = GetCursorShape(0)
If var = 965986689 Then
GetCursorPos x3,y3
Exit For
End If
Delay speed*2
Next
MoveTo x3, y3 + 3
// 起竿 没有自动拾取, 用了插件fishbuddy 自动拾取
For i=0 to 1000
var = GetCursorShape(0)
If var = 1053591638 Then
MoveTo x3,y3-5
Delay 1000
RightClick 1
Delay 500
End If
Delay 10
Next
Delay 2000
GetCursorPos x4, y4
If x4 = 1000 Then
Goto start
End If