求一个大航海 在法罗杀猪的脚本!!

发布网友 发布时间：2022-04-30 21:43

我来回答

共2个回答

热心网友 时间：2022-06-19 00:01

　　VBS set TiShiObj = createobject("WScript.Shell")
　　Dim xing,xinga,xingd,xinge hpmax
　　xing=&H00b06620
　　Plugin hhsd = Window.GetKeyFocusWnd()
　　For 400
　　Gosub 购买
　　Delay 1000
　　For 2
　　Gosub 生产
　　Delay 1000
　　Gosub 生产2
　　Delay 1000
　　EndFor
　　Gosub 卖出
　　EndFor
　　Sub 购买
　　For 1
　　//此处为购买次数，可根据家畜买卖引取高低与最大行动力调整购买次数
　　Delay 1200
　　Plugin Window.SendKeyPress(hhsd,119)
　　Delay 1500
　　Plugin Window.SendKeyPress(hhsd,112)
　　Delay 1000
　　MoveTo 649,386
　　Delay 500
　　LeftClick 1
　　Delay 500
　　LeftClick 1
　　Delay 1000
　　For 4
　　Delay 50
　　KeyPress 40,1
　　EndFor
　　KeyDown 17,1
　　Delay 500
　　MoveTo 381,195
　　Delay 500
　　LeftClick 1
　　Delay 1000
　　KeyUp 17,1
　　Delay 500
　　MoveTo 663,437
　　Delay 500
　　LeftClick 1
　　Delay 500
　　EndFor
　　Return 购买
　　Sub 生产
　　l=0
　　Plugin xinga=Memory.Read32Bit(hhsd,xing)
　　Gosub 料理
　　Delay 500
　　Plugin Window.SendKeyPress(hhsd,119)
　　Delay 1300
　　Plugin Window.SendKeyPress(hhsd,113)
　　Delay 1000
　　Plugin Window.SendKeyPress(hhsd,13)
　　Delay 500
　　While l<10
　　Plugin xingd=Memory.Read32Bit(hhsd,xing)
　　Plugin BGKM5.LClick(hhsd,447,300)
　　Delay 300
　　Plugin xinge=Memory.Read32Bit(hhsd,xing)
　　If xinge=xingd
　　l=l+1
　　Else
　　l=0
　　EndIf
　　EndFor
　　Delay 1000
　　Plugin BGKM5.LClick(hhsd,624,407)
　　Return 生产
　　Sub 生产2
　　l=0
　　Plugin xinga=Memory.Read32Bit(hhsd,xing)
　　Gosub 料理
　　Delay 500
　　Plugin Window.SendKeyPress(hhsd,119)
　　Delay 1300
　　Plugin Window.SendKeyPress(hhsd,113)
　　Delay 1000
　　For 3
　　// 如果要做火腿就把上面的3改成4
　　Plugin Window.SendKeyPress(hhsd,40)
　　Delay 100
　　EndFor
　　Delay 1000
　　Plugin Window.SendKeyPress(hhsd,13)
　　Delay 500
　　While l<10
　　Plugin xingd=Memory.Read32Bit(hhsd,xing)
　　Plugin BGKM5.LClick(hhsd,447,300)
　　Delay 300
　　Plugin xinge=Memory.Read32Bit(hhsd,xing)
　　If xinge=xingd
　　l=l+1
　　Else
　　l=0
　　EndIf
　　EndFor
　　Delay 1000
　　Plugin BGKM5.LClick(hhsd,624,407)
　　Return 生产2
　　Sub 料理
　　While xinga <450
　　//需要补充到的行动力值，一般为最大行动力减去每个料理的补充值
　　Plugin Window.SendKeyDown(hhsd,119)
　　Plugin Window.SendKeyDown(hhsd,118)
　　Plugin Window.SendKeyDown(hhsd,117)
　　Plugin Window.SendKeyDown(hhsd,116)
　　Plugin xinga=Memory.Read32Bit(hhsd,xing)
　　EndWhile
　　Plugin Window.SendKeyUp(hhsd,119)
　　Return 料理
　　Sub 卖出
　　Delay 500
　　Plugin BGKM5.LClick(hhsd,686,358)
　　Delay 500
　　Delay 1000
　　Plugin BGKM5.LClick(hhsd,325,70)
　　Delay 1000
　　Plugin BGKM5.LClick(hhsd,630,412)
　　Delay 1000
　　Return 卖出

　　说明：把F5--F8都设成自定义栏
　　自定义栏：F1 1*书 F2 猪之章 F5--F8放4种料理

　　启动键 ctrl+小键盘1
　　停止键 小键盘-

热心网友 时间：2022-06-19 00:02

z