//=================
//浪漫庄园钓钓鱼-2009-1-14
//=================
dim dofish_left,dofish_top,dofish_right,dofish_bottom,dofish_x,dofish_y,dofish_xpy,dofish_ypy
dim dofish_c_yp,dofish_c_sg,dofish_c_yg,dofish_c_hs
Randomize
Gosub dofishsub
EndScript 
//钓鱼过程sub
Sub dofishsub
    //设置钓鱼区域，考虑到太靠近窗口边缘，提示会超出窗口抓不到颜色， 大家可以根据自己庄园里头的鱼塘自己设置。
    dofish_left=210
    dofish_top=80
    dofish_right=1010
    dofish_bottom=604
    //偏移
    dofish_xpy=10:dofish_ypy=10
    //窗口max过后区域：219,25,963,604
    //鱼漂、上钩、鱼竿、河水颜色！
    //用数组主要是用来支持 白天黑夜之间上述4个物体颜色会渐变
    dofish_c_yp=array("101080","88","80c98","40","50","404038")
    dofish_c_sg=array("D8CCB8","E8E0C0")
    dofish_c_yg=array("486468")
    dofish_c_hs=array("c09820","784408")
    i=0
    While 1
        Rem dofish_rr
        i=i+1:i=i mod 2
        Delay 500
        //找河水
        TracePrint dofish_left & "," & dofish_top & "," & dofish_right & "," & dofish_bottom
        VBSCall FindColor(dofish_left,dofish_top,dofish_right,dofish_bottom,dofish_c_hs(i),dofish_x,dofish_y)
        If dofish_x>0 and dofish_y>0
            TracePrint "找到河流"
            //鼠标移动到河水上，随机偏移0，0，10，10之间
            dofish_xpy=int(rnd*10)+10:dofish_ypy=int(rnd*10)+10
            MoveTo dofish_x+dofish_xpy,dofish_y+dofish_ypy
            Delay 500
            //移动鼠标到河水上check是否有鱼竿，相对位置-50，50
            VBSCall FindColor(dofish_x+dofish_xpy,dofish_y+dofish_ypy-50,dofish_x+dofish_xpy+50,dofish_y+dofish_ypy+50,dofish_c_yg(0),dofish_x,dofish_y)
            If dofish_x>0 and dofish_y>0
                TracePrint "找到鱼竿！"
                LeftClick 1
                //msgbox "找到鱼竿"
                Delay 2000
                //是否有鱼漂, 点击相对范围-40,+40之间
                dofish_yp_j=0
                For ubound(dofish_c_yp)
                    dofish_yp_j=dofish_yp_j+1
                    VBSCall FindColor(dofish_x-40,dofish_y-40,dofish_x+40,dofish_y+40,dofish_c_yp(dofish_yp_j),dofish_x,dofish_y)
                    If dofish_x>0 and dofish_y>0
                        Goto dofish_yp_chkok
                    EndIf 
                EndFor 
                TracePrint "没找到鱼漂"
                Goto dofish_rr
                Rem dofish_yp_chkok
                If dofish_x>0 and dofish_y>0
                    TracePrint "找到鱼漂!"
                    Delay 13000
                    //与游戏兼容性是否有鱼上钩,相对位置：207,566,215,539=8,-27
                    dofish_j=0
                    Rem dofish_getfish_rr
                    dofish_j=dofish_j+1
                    Delay 500
                    //与游戏兼容性是否上钩
                    dofish_sg_j=0
                    For ubound(dofish_c_sg)
                        dofish_sg_j=dofish_sg_j+1
                        VBSCall FindColor(dofish_x,dofish_y-80,dofish_x+50,dofish_y,dofish_c_sg(dofish_sg_j),dofish_x_sg,dofish_y_sg)
                        If dofish_x_sg>0 and dofish_y_sg>0
                            Goto dofish_sg_chkok
                        EndIf 
                    EndFor 
                    TracePrint "没找到上钩提示！"
                    //Goto dofish_rr
                    Rem dofish_sg_chkok
                    If dofish_x_sg>0 and dofish_y_sg>0
                        TracePrint "鱼儿山钩了！！"
                        //msgbox  "鱼儿山钩了！！"
                        MoveTo dofish_x_sg,dofish_y_sg
                        LeftClick 1
                        Goto dofish_rr
                    Else 
                        TracePrint "没上钩"
                    EndIf 
                    If dofish_j>30
                        Goto dofish_rr
                    Else 
                        Goto dofish_getfish_rr
                    EndIf 
                Else 
                    Goto dofish_rr
                EndIf 
            Else 
                TracePrint "没找到鱼竿，重来"
                Goto dofish_rr
            EndIf 
        Else 
            TracePrint "没有河流，退出！" & i