浪漫庄园宠物钓鱼

宠物目前好像没有钓鱼技能，还有你是什么宠物啊？能干活的只有精灵（全能）、白熊（只会挖坑）、和囧神（全能）~~~~其他宠物只会玩和吃~~~

想要找帮手就养精灵，我两只都是精灵，自从给她们买了浇水技能和饲养技能后，我家的鸡鸭牛羊我就没去喂过，浇水也都交给它们，虽然它们干得慢，但是省事啊！

忙的时候给我帮了不少忙，我去挖矿的时候，叫我的小号站在庄园里，它们就不会停下来了！！！挖完矿回家只要收鸡蛋和作物就好了！！！呵呵呵

　　//如果你不需要做小精灵，可以直接赋值add=0,1,2任意一个

　　UserVar add=DropList{不加饵:0|空饵报警:1|自动加饵:2}=0 加饵方式

　　//首先是获取窗口句柄，注意2种方式获得的句柄的区别：

　　Plugin hwnd2=windowforeground()

　　//上面这句获得的窗口句柄可以移动窗口，但是无法在窗口点击鼠标

　　Plugin hwnd1=windowmousepoint()

　　//现在用这句得到的句柄，可以在窗口内点击鼠标，但是无法移动这个窗口

　　//所以，如果你需要移动窗口，使用的句柄应该是hwnd2，而点击使用的是hwnd1

　　//当然，这2种方式取得的窗口，大小是一样的，所以坐标的计算就无所谓了

　　//获得窗口左上角的位置，用于自动加饵后窗口返回初始位置

　　Plugin Rect = WindowGetwindowRect(Hwnd1)

　　MyArray = Split(Rect, "|")

　　xleft = Cint(MyArray(0))

　　ytop = Cint(MyArray(1))

　　//获得鼠标位置，并转换为窗口坐标

　　VBSCall GetCursorPos(xget,yget)

　　Plugin clixy=BGKM5ScrToCli(hwnd1,xget,yget)

　　VBSCall MyArray1=split(clixy,"|",-1,1)

　　VBSCall x=CInt(MyArray1(0))

　　VBSCall y=CInt(MyArray1(1))

　　Rem 开始

　　Gosub 体力

　　//如果选择的是不加饵，那么就不需要执行鱼饵判断

　　If add<>0

　　Gosub 鱼饵

　　EndIf

　　//选择鱼竿，然后在水面下杆

　　Plugin BGKM5KeyClick(hwnd1,112)

　　Delay 100

　　Plugin BGKM5LClick(hwnd1,x,y)

　　//7秒内不会出现鱼，所以延迟7秒后再开始循环找，避免无意义的循环

　　Delay 7000

　　//确定找鱼的次数，以及找鱼的范围

　　timelimit=60

　　zuoshangx=x-60

　　zuoshangy=y-100

　　youxiax=x+60

　　youxiay=y-40

　　//开始找鱼,一共60次，每次间隔200毫秒

　　//如果一直没有找到，会消耗12秒

　　//加上之前的7秒，整个钓鱼过程的检测时间是19秒

　　//不过测试中，找不到鱼的几率为0 ^_^

　　i=0

　　j=0

　　While i<timelimit and j=0

　　Plugin jt=BkgndColorFindColor(hwnd1,zuoshangx,zuoshangy,youxiax,youxiay,"F0CC98")

　　If jt="-1|-1"

　　//如果没有找到鱼，延迟200毫秒，重新找

　　i=i+1

　　Delay 200

　　Else

　　//如果找到了鱼（实际上是箭头），点击鱼

　　jtarray=Split(jt,"|",-1,1)

　　VBSCall xjt=cint(jtarray(0))

　　VBSCall yjt=cint(jtarray(1))

　　Plugin BGKM5LClick(hwnd1,xjt-2,yjt+30)

　　Delay 150

　　//令J=1，跳出循环

　　j=1

　　EndIf

　　EndWhile

　　Delay 200

　　//切换F8是为了干什么我就不多说了，玩庄园的都知道

　　Plugin BGKM5KeyClick(hwnd1,119)

　　Delay 200

　　Goto 开始

　　Sub 体力

　　Plugin color7=BkgndcolorGetPixelColor(hwnd1,90,62)

　　//如果颜色为黑，吃血

　　If color7=2106400

　　Delay 200

　　Plugin BGKM5KeyClick(hwnd1,113)

　　Delay 200

　　Plugin BGKM5LClick(hwnd1,570,507)

　　Delay 1800

　　Plugin BGKM5KeyClick(hwnd1,113)

　　EndIf

　　Return 体力

　　Sub 鱼饵

　　//判断鱼饵的量是否小于3%，截图中发现，小于3%的鱼饵量是无法继续取色的了

　　//所以只能以3%来判断，小于3%就认为是没有鱼饵了

　　Plugin color0=BkgndColorGetPixelColor(hwnd1,531,553)

　　If color0=7864320

　　//如果颜色变黑，则说明需要加饵，根据变量选择的不同而判断

　　//选择报警时，弹出提示

　　If add=1

　　msgbox "鱼饵只剩3%，脚本会自动停止，请加饵后继续"

　　EndScript

　　Else

　　//选择自动加饵时，则自动加饵，自动加饵为前台操作

　　//先锁定鼠标

　　LockMouse

　　//窗口移动到左上，注意此处使用的窗口句柄

　　Plugin WindowMove(hwnd2,0,0)

　　Delay 500

　　//鼠标移动到10，10的位置点击一次是为了保证此窗口能前端显示

　　//所以使用此功能时，请注意把屏幕左上角留出至少10x10的位置

　　//也就是说你的其他窗口不能最大化

　　MoveTo 10,10

　　Delay 100

　　LeftClick 1

　　Delay 200

　　//点击钓竿的位置,可以用按键F1代替

　　MoveTo 519,539

　　Delay 100

　　LeftClick 1

　　Delay 1000

　　//点“添加鱼饵”按钮

　　MoveTo 584,503

　　Delay 500

　　LeftClick 1

　　Delay 500

　　MoveTo 10,10

　　Delay 500

　　//点击鱼饵(F3位置)，并按住鱼饵移动到空格中

　　MoveTo 591,539

　　Delay 200

　　LeftDown 1

　　Delay 200

　　MoveTo 290,279

　　Delay 200

　　LeftUp 1

　　Delay 1000

　　//点击“添加”按钮

　　MoveTo 329,369

　　Delay 500

　　LeftClick 1

　　Delay 1000

　　//加饵完成，窗口移动回初始位置

　　Plugin windowMove(hwnd2,xleft,ytop)

　　Delay 500

　　//释放鼠标

　　UnlockMouse

　　EndIf

　　EndIf

　　Return 鱼饵

首先你要能用精致的钓鱼杆，诱鱼器是不能用的。在每周六、日下午2：00开始。

地点：1、瑶河镇——水岸沙洲

2、天平镇——水晶走廊

3、碧波镇——玛瑙湖畔

4、漫星镇——红树林

5、微风镇——黄金海岸——落日海湾

如果有飞行石跳转速度会快哦。

1、加评价，稀有鱼的评价值很高，

2、做家具，有的家具材料是需要鱼螺来做材料的

3、做料理，烤鱼什么的，

4、卖钱，稀有鱼，很值钱的说

5、做任务，家族任务，商会任务，都有关于鱼螺的。

更多浪漫资料就在 小径密林论坛