浪漫庄园钓鱼脚本

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

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

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

Plugin hwnd2=window.foreground()

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

Plugin hwnd1=window.mousepoint()

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

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

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

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

Plugin Rect = Window.GetwindowRect(Hwnd1)

MyArray = Split(Rect, "|")

xleft = Cint(MyArray(0))

ytop = Cint(MyArray(1))

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

VBSCall GetCursorPos(xget,yget)

Plugin clixy=BGKM5.ScrToCli(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 BGKM5.KeyClick(hwnd1,112)

Delay 100

Plugin BGKM5.LClick(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=BkgndColor.FindColor(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 BGKM5.LClick(hwnd1,xjt-2,yjt+30)

Delay 150

//令J=1，跳出循环

j=1

EndIf

EndWhile

Delay 200

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

Plugin BGKM5.KeyClick(hwnd1,119)

Delay 200

Goto 开始

Sub 体力

Plugin color7=Bkgndcolor.GetPixelColor(hwnd1,90,62)

//如果颜色为黑，吃血

If color7=2106400

Delay 200

Plugin BGKM5.KeyClick(hwnd1,113)

Delay 200

Plugin BGKM5.LClick(hwnd1,570,507)

Delay 1800

Plugin BGKM5.KeyClick(hwnd1,113)

EndIf

Return 体力

Sub 鱼饵

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

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

Plugin color0=BkgndColor.GetPixelColor(hwnd1,531,553)

If color0=7864320

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

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

If add=1

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

EndScript

Else

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

//先锁定鼠标

LockMouse

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

Plugin Window.Move(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 window.Move(hwnd2,xleft,ytop)

Delay 500

//释放鼠标

UnlockMouse

EndIf

EndIf

Return 鱼饵

以下是本人收集的浪漫庄园全水产,括号内左边加评数值,右边显示游戏系统报价

泥鳅(0,1)、河虾(2,27)、金鱼(2,27)、翁戎螺(2,27)、鲳鱼(2,27)、红翁戎螺(4,700)

鲷鱼(1,4)、红螺(2,27)、罗非鱼(2,27)、铜鱼(2,27)、松江鲈(2,27)、香鱼(6,1000)、龙宫翁戎螺(6,1000)、宝石钟螺(6,1000)

鲤鱼(1,1)、中华沙鳅(2,27)、法螺(2,27)、四眼鱼(2,27)、扶轮螺(2,27)、暗鳜(4,700)

青鱼(1,4)、蝴蝶鱼(2,27)、隆头鱼(2,27)、毛法螺(2,27)、白头鳜(2,27)、棱角螺(6,1000)、长旋螺(6,1000)、白星宝螺(6,1000)

海虾(2,3)、圆鳍鱼(4,71)、龙虾(4,71)、漓江副沙鳅(4,71)、海蜗牛(4,71)、女王凤凰螺(6,1000)

圆鳗(3,11)、圆尾斗鱼(4,71)、光背鱼(4,71)、斑鳜(4,71)、凤凰螺(4,71)、黑嘴凤凰螺(8,1300)、墨头鱼(8,1300)、猫眼蝾螺(8,1300)

草鱼(2,3)、七鳃鳗(4,71)、叉尾斗鱼(4,71)、裹咽鱼(4,71)、宝螺(4,71)、粗瘤凤凰螺(6,1000)

虾鱼(3,11)、湘华鲮(4,71)、腔鳍鱼(4,71)、榧螺(4,71)、长拳螺(4,71)、橙口榧螺(8,1300)、栗色鹑螺(8,1300)、黑星宝螺(8,1300)

鲶(3,5)、似鲈(6,118)、南方大口鲶(6,118)、蛙螺(6,118)、石斑(6,118)、云斑谷米螺(9,1300)

刺鱼(4,19)、鲭鱼(6,118)、鲈鲤(6,118)、大笋螺(6,118)、大口鳒(6,118)、夜光贝(12,1600)、膨肚枇杷螺(12,1600)、小枇杷螺(12,1600)

鲈(3,5)、洞鲈(6,118)、黄宝螺(6,118)、白鲟(6,118)、鹑螺(6,118)、河鲀(9,1300)

河蟹(4,19)、大眼鳜(6,118)、线口鳗(6,118)、蝙蝠鱼(6,118)、扭法螺(6,118)、蜘蛛螺(12,1600)、中华鲟(12,1600)、雪山宝螺(12,1600)

黄鳝(3,3)、鲟(2,27)、q鱼(2,27)、d涂鱼(2,27)、秀峰文蛤(2,27)、绿鳍鱼(4,700)

麦穗鱼(3,4)、菊花偏口蛤(2,27)、西非樱蛤(2,27)、石鲷(2,27)、斗鱼(2,27)、黑身燕鱼(6,1000)、杜氏长旋螺(3,2000)、女巫骨螺(6,1000)

鳗鲡(3,1)、钟螺(2,27)、大西洋带鱼(2,27)、电鳗(2,27)、狗鱼(2,27)、塘鳢(4,700)

乌鳢(3,4)、丽鱼(2,27)、红花宝螺(2,27)、蝰鱼(2,27)、毒鲉(2,27)、粗鳍鱼(6,1000)、拉马克宝螺(6,1000)、七角贝(6,1000)

海鳝(2,3)、帽螺(1,71)、鳚(4,71)、鳕鱼(4,71)、锥螺(4,71)、刺球骨螺(6,1000)

黄颡鱼(3,11)、石首鱼(4,71)、蓝带裂唇鱼(4,71)、金眼鲷(4,71)、马蹄螺(4,71)、西非杨桃螺(8,1300)、蓑鲉(8,1300)、高鳍石首鱼(8,1300)、

刺鳅(3,3)、勒氏皇带鱼(4,71)、杜父鱼(4,71)、红点鲑(4,71)、红鲍螺(4,71)、鹬头骨螺(6,1000)

船蛸(1,11)、驴耳鲍螺(4,71)、平鲉(4,71)、月鱼(4,71)、短吻蝠(4,71)、鳉(8,1300)、棕线旋螺(8,1300)、金棕d头螺(8,1300)

小丑鱼(6,5)、剑鱼(6,118)、反鳍棘鱼(6,118)、盲鳗(6,118)、红钻螺(6,118)、花边骨螺(9,1300)

刺鱼(4,19)、大赤旋螺(3,118)、辐射樱蛤(3,1000)、日光樱蛤(6,118)、海马(6,118)、钩嘴鳎(12,1600)、红狐笔螺(12,1600)、弓鳍鱼(12,1600)

马口鱼(3,19)、豹鲂鮄鱼(6,118)、躄鱼(6,118)、鞭冠鱼(6,118)、钩鱼(6,118)、纯色海菊蛤(3,2000)、锦鲤笔螺(12,1600)、金口蛙螺(12,1600)

海蟹(1,5)、多鳍鱼(6,118)、蝠鲼(6,118)、舟鰤(6,118)、鼠宝螺(6,118)、华丽骨螺(9,1300)

罗非鱼很好钓的，用木鱼杆，添加鱼饵，我是在游鱼湾（从鱼波镇进）的右上角落里的那个诱鱼器那边钓的，一会儿就有了。

金鱼很难钓，也用木鱼杆，但是不需要添加鱼饵，这个大概要钓上将近一小时才能钓到，如果实在钓不到，在钓鱼的地方喊一下，就有人卖给你了，或者去大的超市也有的卖，祝楼主好运！

---