（词条-相关词数量）
（推荐度-词条-相关词数）你的位置：
浪漫庄园挖矿脚本太多了在发个后台钓鱼的脚本
04:52:26 |
来源: 按键精灵资源站
本帖最后由 472101 于
01:28 编辑
后台钓鱼后台吃药后台发现意外声音提示
不知道什么原因老感觉用这脚本很卡&&都想放弃后台搜色了
大概是后台搜色不怎么理想吧&&希望高手们指点下
需要2个插件 星凡后台搜色和361的后台按键
由于有天气的变化 浮标颜色也要抓上2个 白天个晚上的
F1放鱼杆 F2放加体力的&&要求色
有些语句我也不在是什么意思&&照别人例子加进去的
UserVar Var1=5400 钓鱼延时
UserVar Var2=20 判断鱼上钩的次数
UserVar Var3=&90& 鱼鳔的颜色白天
UserVar Var4=&080448& 鱼鳔的颜色晚上
UserVar Var5=DropList{加:1|不加:2}=0 加鱼饵
////////获得窗口句柄
Plugin hwnd=WindowEx.GetMousePointWindow()
////////获得主窗口句柄
Plugin lm=WindowEx.GetForegroundWindow()
////////获得鼠标位置坐标
VBSCall GetCursorPos(x,y)
////////转换鼠标位置成游戏窗口坐标
Plugin WindowEx.ScreenToClient(hwnd,x,y)
////////获得体力当前得颜色
Plugin Color1=BkgndColor.GetPixelColor(hwnd,85,62)
Plugin Color2=BkgndColor.GetPixelColor(hwnd,599,38)
/////---------加体力部分-------后台加
Plugin Color4=BkgndColor.GetPixelColor(hwnd,85,62)
If Color4&&Color1
& & Delay 100
& & Plugin BGKM5.KeyClick(hwnd,113)
& & Delay 50
& & Plugin BGKM5.LClick(hwnd,570,500)
& & Delay 1500
////////////------判断意外事件----意外了声音提示
Plugin Color3=BkgndColor.GetPixelColor(hwnd,599,38)
If Color3&&Color2
& && &&&Delay 100
& && &&&Beep
& && &&&Delay 100
& & EndFor
Plugin BGKM5.KeyClick(hwnd,112)
Plugin BGKM5.LClick(hwnd,x,y)
Delay 2000
& & Gosub 鱼饵
Gosub 判断
Gosub 判断
& & Plugin XY=BkgndColor.FindColorEx(hwnd,x-40,y-40,x+40,y+40,tt,1,0.9)
& & MyArray1=Split(XY,&|&,-1,1)
& & If MyArray1(0)&0
& && &&&Delay Var1
& && &&&Plugin Color=BkgndColor.GetPixelColor(hwnd,MyArray1(0)+10,MyArray1(1)-45)
& && &&&Delay 10
& && &&&////这里是后台循环取色CPU会占用到差不多50%..
& && &&&////我电脑里是这样的..也希望有高手帮解决一下
& && &&&For Var2
& && && && &Plugin Color0=BkgndColor.GetPixelColor(hwnd,MyArray1(0)+10,MyArray1(1)-45)
& && && && &If Color0=Color
& && && && && & Delay 300
& && && && &Else
& && && && && & Plugin BGKM5.LClick(hwnd,MyArray1(0),MyArray1(1))
& && && && && & Delay 100
& && && && && & Goto 钓
& && && && &EndIf
& && &&&EndFor
& & Plugin mms=BkgndColor.FindColorEx(hwnd,527,552,535,557,&,0.8)
& & MyArray1=Split(mms,&|&,-1,1)
& & If MyArray1(0)&0
& && &&&Delay 100
& && &&&Plugin WindowEx.SetWindowState(lm,1)
& && &&&Plugin BGKM5.LClick(hwnd,580,504)
& && &&&Delay 300
& && &&&LockMouse
& && &&&x1=590:y1=540
& && &&&Plugin WindowEx.ClientToScreen(hwnd,x1,y1)
& && &&&MoveToS x1,y1
& && &&&LeftDown 1
& && &&&Delay 100
& && &&&MoveToS x1-300,y1-260
& && &&&Delay 100
& && &&&LeftUp 1
& && &&&Delay 600
& && &&&MoveToS x1-270,y1-174
& && &&&Delay 100
& && &&&LeftClick 1
& && &&&Delay 600
& && &&&UnlockMouse
& && &&&Goto 钓
Return 加鱼饵子程序
-----------------------------------------------------------------
由于狠多人不能直接用,所以修改了一下发上来给大家...F3放鱼饵
以前是在6.71版本上制作的脚本,而最近研究361得插件所以下面修改得脚本加了个
361得窗口插件..主要是加鱼饵需要....而星帆得插件就不需要了..后台搜色用按键自
带得插件,这脚本是在6.87版上制作出来
顺便给361大大得插件做点宣传做个使用示范..哈哈插件太好用了
361得窗口插件地址&&