IfColor x,y,000000,0
                Delay 100
                IfColor x,y,000000,0
                    Goto over1
                EndIf 
            EndIf 
        EndFor 
        c=a:a=b:b=c
    EndFor 
    p=p*(-1)
    j=j+1:q=q+1
EndFor 
Dela=dela+10
Goto start
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//                                                           BY 灰烬燃烧
//                                                              2007-5-16
//扫描鱼漂下限坐标
Rem over1
Delay 100
xx=x
yy=y+50
If k=1
    yy=yy+10
EndIf 
For 70
    MoveTo xx,yy
    Delay 10+dela
    IfColor xx,yy,000000,0
        y0=yy
        MoveTo x-80,y0-20
        Goto over3
    EndIf 
    yy=yy-2
EndFor 
Rem over3
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//扫描鱼漂左限坐标
Delay 100
xx=x-60
yy=y0-20
For 50
    MoveTo xx,yy
    Delay 10+dela
    IfColor xx,yy,000000,0
        x0=xx
        Goto over7
    EndIf 
    xx=xx+2
EndFor 
Rem over7
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//扫描鱼漂露水部分的下限坐标
dim color0(2)
xx=x0+14
yy=y0+20
MoveTo xx,yy+1
Delay 100
VBSCall cpix=GetPixelColor(xx,yy)
color0(0)=cint("&H"&left(cpix,2))
color0(1)=cint("&H"&mid(cpix,3,2))
color0(2)=cint("&H"&right(cpix,2))
For 70
    MoveTo xx,yy+1
    yy=yy-1
    VBSCall cpix=getpixelcolor(xx,yy)
    dr=abs(color0(2)-cint("&H"&right(cpix,2)))
    dg=abs(color0(1)-cint("&H"&mid(cpix,3,2)))
    db=abs(color0(0)-cint("&H"&left(cpix,2)))
    avcolor=int((dr+db+dg)/3)
    ddcolor=abs(dr-avcolor)+abs(dg-avcolor)+abs(db-avcolor)
    If ddcolor>10 or dr+dg+db>100
        //   If y0-yy<11
        //       Goto re1
        //   EndIf
        y0=yy
        x0=xx
        Goto over4
    EndIf 
    Rem re1
    color0(0)=cint("&H"&left(cpix,2))
    color0(1)=cint("&H"&mid(cpix,3,2))
    color0(2)=cint("&H"&right(cpix,2))
EndFor 
Goto start
Rem over4
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//等鱼上钩
xx=x0
yy=y0-5
ddcolor=0
i=0
VBSCall cpix=GetPixelColor(xx,yy)
color0(0)=cint("&H"&left(cpix,2))
color0(1)=cint("&H"&mid(cpix,3,2))
color0(2)=cint("&H"&right(cpix,2))