魔兽世界6.2自动钓鱼 [复制链接]

适用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