浪漫庄园钓鱼脚本

//如果你不需要做小精灵，可以直接赋值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)
　　Del