//首先声明,我是新手,接触按键精灵不足一个月,发现论坛上有一些钓鱼的脚本,但有些不足不能完美运行
//就亲自编写了这个脚本,免费为大家使用
//编写这个脚本的时候参考了论坛上其他的脚本,也加进了自己的一些思想
//同时我也是WOW玩家
//脚本使用说明:
//1,请将钓鱼的技能放在按键1
//2,面对水域(废话),尽可能的将镜头拉近
//3,按下F10开始钓鱼
//4,脚本我调试了很长时间,总之能完美运行,如果出现什么问题请自己多调试,也可以联系我QQ644938082
//
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