按键精灵 剑网三帮派钓鱼脚本

智障脚本

代码框架是网上随便找的一个

然后自己瞎改了改，非常完美

除了关闭的时候，得自己用任务管理器来关以外，好像没啥问题了……

如果设定了自动全部拾取的话，那就直接把拾取这个位置瞎填一个 比较合理的位置就好了，让鼠标点空气也是兹瓷的……

只能前台挂机。

成品下载地址：http://pan.baidu.com/s/1bpcBzAn

Event Form1.Button1.Click
    
	//设置重新垂钓标记
	While (true)
		Rem 重新垂钓 
		//鼠标移动到"垂钓"
		Cx = Form1.InputBox1.Text
		Cy = Form1.InputBox2.Text
		MoveTo Cx,Cy
		//鼠标左键单击
		LeftClick 1
		//计时
		i = 0
		//设置引导计时标记
		Rem 引导计时
		//通过坐标和颜色进行判断鱼是否上钩(坐标抓点为提示的**逗号)
		IfColor Form1.InputBox5.Text,Form1.InputBox6.Text,"1AD3CC",2 Then
		//鼠标移动到"收杆"
		MoveTo Form1.InputBox3.Text,Form1.InputBox4.Text
		//等待0.2秒
		Delay "200"
		//单击鼠标左键
		LeftClick 1
		//等待4.2秒
		Delay "4200"
		//鼠标移动到"全部拾取"
		MoveTo Form1.InputBox7.Text, Form1.InputBox8.Text
		//等候时间0.5秒
		Delay "500"
		//单击鼠标左键
		LeftClick 1
		//如果20秒内未有鱼上钩,则自动重新开始钓鱼
		ElseIf i>19
			i = 0 
			//跳转到重新垂钓标记
			Goto 重新垂钓
			//如果坐标和颜色不对,则证明鱼未上钩,所以计时+1
		Else
			Delay "1000"
			i=i+1
			//跳转到引导计时标记
			Goto 引导计时
		End If
	Wend
End Event