智障腳本
代碼框架是網上隨便找的一個
然后自己瞎改了改，非常完美
除了關閉的時候，得自己用任務管理器來關以外，好像沒啥問題了……
如果設定了自動全部拾取的話，那就直接把拾取這個位置瞎填一個 比較合理的位置就好了，讓鼠標點空氣也是茲瓷的……
只能前台掛機。
成品下載地址：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