[General]
SyntaxVersion=2
BeginHotkey=119
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=120
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=1002212b-d2d6-466e-8b60-4406b4e9e915
Description=魔兽世界自动钓鱼程序
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1
[Relative]
SetupOCXFile=
[Comment]
魔兽世界自动钓鱼程序1.0  ——  刀疤  整理优化
温馨提示：
1、本程序由免费版按键精灵制作，会附带广告，对此表示抱歉
2、使用按键精灵可能会导致魔兽世界帐号被封，请自行斟酌
3、本程序适合魔兽世界大地的裂变国服版本（其他未测）
4、为保证程序生效，请按照使用说明对您的游戏进行设置
使用说明：
1、建议设置魔兽世界为1024*768分辨率，将游戏特效开至最大
如发现本程序无法在您的计算机上运行，请联系作者刀疤
2、将 “钓鱼” 技能拖至绑定了按键“1”的位置，装备上 “鱼竿”
3、请开启自动拾取并检查背包空间
4、将人物停留在没有其他玩家钓鱼的地方，提高上钩成功率
5、请尽量靠近水面
6、本程序快捷键  F8启动  F9停止  其他设置默认即可
7、第一次甩杆，程序会关闭当前界面，如需要恢复请按ALT+Z
每次甩杆，程序都会将视角切换至第一人称魔兽世界安装程序
8、当前设置理想延迟50-200，如您无法正常使用，请联系作者
程序原理：
程序启动后，会逐行扫描已经记录下来的当前版本鱼钩特征
通过对比在指定区域内迅速到鱼漂，并监控鱼漂的动作
当鱼漂上下浮动时，自动点击右键，收杆，就这么简单！
[Script]
MessageBox "点击确定 5 秒后将开始钓鱼，请切换至魔兽世界窗口，自动钓鱼期间请勿动鼠标键盘"
Delay 5000
UserVar LTop="300,380" "鼠标扫描左上起点"
UserVar RBot="980,500" "鼠标扫描右下终点"
mouseType=1053591638
Call GetCursorShape(0)
Dim s, x0, y0, x1, y1, x2, y2, x, y, c, starttime, endtime, m1, n1, m2, n2
s = InStr(LTop, ",")
x1 = int(Mid(LTop, 1, s - 1))
y1 = int(Mid(LTop, s + 1))
s = InStr(RBot, ",")
x2 = int(Mid(RBot, 1, s - 1))
y2 = int(Mid(RBot, s + 1))
KeyDown 18, 1
KeyPress 90, 1
KeyUp 18, 1
Delay 100
Rem KaiShi
KeyPress "End", 1
Delay 100
KeyPress "Home", 5
Delay 1000
KeyPress 49, 1
Rem SouSuo
Delay 1500
x = x1
y = y1
MoveTo x, y
starttime = Now
While y < y2
y = y + 25
While x < x2
x = x + 2
MoveTo x, y
Delay 1
If GetCursorShape(0) = mouseType Then 
GetCursorPos x0, y0
MoveTo x, y
Goto YiDong
End If       
Wend
x=x1
Wend
Goto KaiShi
Rem YiDong
While GetCursorShape(0) = mouseType
x = x + 1
MoveTo x, y
Delay 10
GetCursorPos m1, n1
Wend
x = x0
y = y0
MoveTo x, y
Delay 200
While GetCursorShape(0) = mouseType
x = x - 1
MoveTo x, y
Del
ay 20
GetCursorPos m2, n2
Wend
x = (m1 + m2) / 2
y = (n1 + n2) / 2
MoveTo x, y
Delay 200
While GetCursorShape(0) = mouseType
y = y - 1
MoveTo x, y
Delay 50
Wend
y = y + 1
MoveTo x, y
Delay 200
Goto ShangGou
Rem ShangGou
While true
If GetCursorShape(0)<>mouseType
MoveTo x0, y0
Delay 200
RightClick 1
Delay 2000
Goto KaiShi
End If
Wend