我在魔兽世界里玩过许多号。这次来台服玩了一个战士,因为无亲无故,所以只好生活技能全练起来。

这个钓鱼啊别提多累了。于是决定上网找个脚本,可是找了几个都不能用。我只好一面参考这些脚本的原理一面学习按键精灵,用了三天的苦难研究,终于做成了这一个钓鱼脚本。

脚本运行的前提条件:

装上大脚插件,打开自动拾取功能。

关掉快捷栏和小地图。

把视角向前调,调成第一人称,就是把你的小人儿调没了,只见到水。这样你的屏幕上大部分面积都是水,可以放心钓鱼了。

因为有天气和早午晚的变化,鱼漂的蓝羽毛颜色会有一些小的变化,造成脚本不能用。这时用按键精灵的抓色点功能抓一下鱼漂的蓝羽毛的颜色,替换脚本里的对应颜色就可用了。就是VBSCall FindColorEx(121,141,922,517,"261110",1,0.8,x1,y1)中的261110这个颜色代码。

找个没人的地方,免得有人打搅你。

钓鱼时你不能使用微机。你可以去看电视或做家务、看孩子。

本来按键精灵可以让游戏最小化时也能运行脚本的,可能是我没有注册的原因,我试了几次都不行。凑合用吧。


下面是脚本正文:


Delay 6000

For 10000

Delay 4000

KeyPress 32,1

For 5

Delay 4000

KeyPress 187,1

Delay 3000

VBS dim x1,y1

VBSCall FindColorEx(121,141,922,517,"261110",1,0.8,x1,y1)

If x1>=0 and y1>=0

MoveTo x1 y1

Else

Goto Find

EndIf

Delay 500

VBS dim t

t=0

Rem 钓吧

VBS dim k,j

t=t+1

VBSCall FindColorEx(x1-20,y1-20,x1+10,y1+10,"ffffff",1,0.9,k,j)

Delay 100

If k>=0 or j>=0

RightClick 1

Delay 1000

Else

If t<180

Goto 钓吧

EndIf

MoveTo 400,300

EndIf

EndFor

EndFor