QM农场.docVIP

QM农场 [General] SyntaxVersion=2 BeginHotkey=121 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 RunOnce=1 EnableWindow= MacroID=f12ac5e3-98c0-4e3f-9d1b-df6bc1661a78 Description=脚本实验室-QM农场 Enable=0 AutoRun=0 [Repeat] Type=0 Number=1 [SetupUI] Type=2 QUI= [Relative] SetupOCXFile= [Comment] [Script] Dim Fruit, FruitL UserVar Fruit=18 当摘取多少次果实后自动卖出 FruitL = 0 MessageBox 请将鼠标移到Flash游戏窗口上面，脚本测试到游戏窗口后会再次提示才开始挂机 Call 检测鼠标下是否游戏窗口 MessageBox 游戏窗口验证成功，三秒后开始挂机 Delay 3000 Call Plugin.Window.Active(WinF) Rem 开始 Call 跳到自己的农田 Call 播种 Call 收获 Call 好友果实 Goto 开始 Sub 检测鼠标下是否游戏窗口 //While WinSWH(2) 550 and WinSWH(3) 400 //得到鼠标下的句柄 WinF = Plugin.Window.MousePoint() //得到鼠标指向的句柄的窗口客户区大小 WinS = Plugin.Window.GetClientRect(WinF) //分割坐标 WinSWH = Split(WinS, |) //Wend End Sub Sub 跳到自己的农田 //检测指定坐标点的颜色 MeC = Plugin.Bkgnd.GetPixelColor(WinF, 36, 28) //如果不符合则跳到自己的农场 If MeC 000000 Then //鼠标移动到指定坐标 Call Plugin.Bkgnd.MoveTo(WinF, 440, 30) Delay 300 //鼠标在指定坐标单击 Call Plugin.Bkgnd.LeftClick(WinF, 440, 30) Delay 300 End If End Sub Sub 播种 //i初始值为9 i = 9 //下面是选择种子准备播种 Call Plugin.Bkgnd.MoveTo(WinF, 70, 350) Delay 300 Call Plugin.Bkgnd.LeftClick(WinF, 70, 350) Delay 300 Call Plugin.Bkgnd.MoveTo(WinF, 65, 320) Delay 300 Call Plugin.Bkgnd.LeftClick(WinF, 65, 320) Delay 300 //循环9次，即检测农田的九块地 For 9 //调用农田坐标 Call 农田坐标 //得到农田坐标点的颜色 FarmlandC = Plugin.Bkgnd.GetPixelColor(WinF, FX, FY) //如果颜色符合则对相应的农田进行操作 If FarmlandC = 38587B Then Call 对农田操作 End If //每检测一块地后向后一块地检测 i = i - 1 Next End Sub Sub 收获 i=9 //移动到指定坐标 Call Plugin.Bkgnd.MoveTo(WinF, 130, 350) Delay 300 //在指定坐标单击 Call Plugin.Bkgnd.LeftClick(WinF, 130, 350) Delay 300 For 9 //调用农田坐标 Call 农田坐标 //得到指定坐标点的颜色 FarmlandC =