[General]
Description=钓鱼脚本
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
//首先声明,我是新手,接触按键精灵不足一个月,发现论坛上有一些钓鱼的脚本,但有些不足不能完美运行
//就亲自编写了这个脚本,免费为大家使用
//编写这个脚本的时候参考了论坛上其他的脚本,也加进了自己的一些思想
//脚本使用说明:
//1,请将钓鱼的技能放在按键1
//2,面对水域(废话),尽可能的将镜头拉近
//3,按下F10开始钓鱼
//
UserVar var=DropList{普通模式:0|推荐模式:1}=1 请选择模式
UserVar LTop=300,200 鼠标左上
UserVar RBot=980,500 鼠标右下
UserVar dy1=5 鼠标扫描期间间隔时间
mouseType=1884068285
VBSCall GetCursorShape(0)
Dim s,x1,y1,x2,y2,x,y,c,starttime,endtime
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))
Rem Start
KeyPress 49,1
Rem Search
Delay 1000
x=x1
y=y1
MoveTo x y
starttime=Now
While y<y2
    y=y+30
    While x<x2
        x=x+10
        MoveTo x y
        Delay dy1
        If GetCursorShape(0)=mouseType
            MoveTo x,y
            If var=1
                Goto panduanyanse
            ElseIf var=0
                Goto yidong
            EndIf
        EndIf
    EndWhile
    x=x1
EndWhile
Goto Search
//下面是判断鱼漂的特征码,可以准确取得鱼漂的位置
//有时判断会出错,不过大不分水域还是能正常运行的
//你可以修改鱼漂的特征码,也去掉下面这段代码也是可以运行的
Rem panduanyanse
Delay 300
VBSCall FindColorEx(x-100,y-100,x+100,y+100,"78694B",1,0.5,x,y)
If x>0 and y>0
    Goto yidong
EndIf
VBSCall FindColorEx(x-100,y-100,x+100,y+100,"191620",1,0.5,x,y)
If x>0 and y>0
    Goto yidong
EndIf
VBSCall FindColorEx(x-100,y-100,x+100,y+100,"1B2161",1,0.5,x,y)
If x>0 and y>0
    Goto yidong
EndIf
//判断鱼漂的特征码结束
Rem yidong
MoveTo x,y
While true
    If GetCursorShape(0)=mouseType
        MoveTo x,y
    ElseIf
        MoveTo x,y+10
        Goto shanggou
    EndIf
    Delay 30
    y=y-1
EndWhile
Rem shanggou
While true
    Delay 100
    If GetCursorShape(0)<>mouseType
        MoveTo x,y+50
        RightClick 1
        Goto Start
    EndIf
    If DateDiff("s",starttime,Now) >=18
        Goto Start
    EndIf
EndWhile