'
'精简模式 大师 易水之畔 自动刷冒险任务 刷金币
'
'模拟器 请按如下设置
'''''''''''''''''''''''
'设置成 平板版
'分辨率 1280*720
'DPI 240
'DirectX
'电脑屏幕分辨率： 1920*1080'启动 F2
'停止 Pause/Break'易水之畔 大师难度 每次+33个金币 +88经验 大概2分钟刷完一次,金币刷完了仍然会有经验
'点冒险模式，点挑战，灭国的战场，易水之畔 大师难度，下一步
'-------------------------------------------------------------------------------'重要提示
'请退出360，如果开着的话脚本就会失效了
'把光标放在游戏窗口内 ，一但光标自动隐藏了 脚本也就失效了
'脚本连续工作将近3个小时 系统会提示 要休息15分钟'进入 易水之畔 界面 选好上阵英雄 按F2 开始脚本
'后面的交给脚本来吧，一直刷到安卓模拟器死机为止（每隔几小时模拟器自动无响应）
'2017年7月3日 20:56:23 完成
'-------------------------------------------------------------------------------
s=Plugin.GetSysInfo.GetDateTime
'TracePrint "您的操作系统日期和时间：" & s
sTime= "[" + Mid(s,12,10) +"]" + " "
'TracePrint sTime'----------------------------------------------------------------------------
'计数
Form1.InputBox3.Text = "脚本执行中 ... " & sTime
count = count + 1
Form1.TextCount.Text = CStr(count)If count < 2 Then Form1.InputBox1.Text = Form1.InputBox1.Text +sTime+  "请确保鼠标光标放在游戏窗口正中间（大概位置，确保能看到效果） " & vbcrlf
End If'---------------------------------------------------------------------------
闯关
自动
跳过
点击屏幕结束
再次挑战
关闭提示 '----------------------------------------------------------------------------

DimEnv i '移动光标并且 能看到 光标的轨迹（不是瞬移过去的）防真度100%
Sub MoveCursorWithReal(x, y)SaveMousePosGetCursorPos xc, ycx1 = xcy1 = ycx2 = xy2=yIf i = 1 Then b = abs( (y1 - y2)/(x1 - x2)) b1 = (x2 - x1) / abs(x2 - x1)b2 = (y2 - y1) / abs(y2 - y1)Call MoveFunci = 0'能看到效果Delay 100LeftClick 1'
        Delay 200RestoreMousePosEnd If
End SubSub MoveFuncx = x1 : y = y1Do' Delay 1 //移动速度设置 越小越快x = x + 0.5 * b1y = y + 0.5 *b* b2'  'TracePrint x&"x" &yMoveTo x, y''TracePrint CStr(Round(x, 0)) &"   " &CStr(x2)Loop Until Round(x, 0) = x2
End Sub
'-------------------------------------------------------------------------------
Function 闯关'6【闯关】FindPic 0,0,1920,1080,"Attachment:\闯关.bmp",1,intX,intYIf intX > 0 And intY > 0 Then 'TracePrint "[" & h & ":" & m & ":" & s &  "]   " & "等待加载中 ....  加载不消耗流量"i = 1Call MoveCursorWithReal(intX + 88, intY + 35)Form1.InputBox3.Text =sTime & "闯关"Form1.InputBox1.Text = Form1.InputBox1.Text + sTime & "闯关"& vbcrlf '7等待加载中 .... 30秒
    End If
End FunctionFunction 自动'8 【自动】FindPic 0,0,1920,1080,"Attachment:\自动.bmp",1,intX,intYIf intX > 0 And intY > 0 Then 'TracePrintsTime & "单击 自动 按钮"Form1.InputBox3.Text = sTime & "单击 自动 按钮"Form1.InputBox1.Text = Form1.InputBox1.Text + sTime & "单击 自动 按钮"& vbcrlf i = 1Call MoveCursorWithReal(intX +18, intY + 10)    End If
End FunctionFunction 跳过'9 【跳过】 个别非常不准FindPic 0,0,1920,1080,"Attachment:\跳过.bmp",0.6,intX,intYIf intX > 0 And intY > 0 Then 'TracePrintsTime & "跳过"Form1.InputBox3.Text =sTime & "跳过"Form1.InputBox1.Text = Form1.InputBox1.Text +sTime & "跳过"& vbcrlf i = 1Call MoveCursorWithReal(intX + 63, intY + 24)Delay 100End If
End FunctionFunction 点击屏幕结束'12 【点击屏幕结束】FindPic 0,0,1920,1080,"Attachment:\结束.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then 'TracePrintsTime & "点击屏幕结束"Form1.InputBox3.Text =sTime & "点击屏幕结束"Form1.InputBox1.Text = Form1.InputBox1.Text +sTime & "胜利  点击屏幕结束"& vbcrlf i=1Call MoveCursorWithReal(intX + 109, intY + 44)Delay 200End If
End FunctionFunction 再次挑战'13 【再次挑战】 关卡奖励 FindPic 0,0,1920,1080,"Attachment:\再次挑战.bmp",1,intX,intYIf intX > 0 And intY > 0 Then 'TracePrintsTime & "再次挑战"Form1.InputBox3.Text =sTime & "再次挑战"Form1.InputBox1.Text = Form1.InputBox1.Text +sTime & "再次挑战" & vbcrlf i = 1Call MoveCursorWithReal(intX + 96, intY + 35)Beep Beep CoinTime = CoinTime + 1Form1.InputBox2.Text = CStr(CoinTime)End If
End FunctionFunction 关闭提示'13 关闭提示'亲爱的招换师，你好。您 连续玩游戏的时长达2小时，请合理控制游戏时间，享受健康生活。FindPic 0,0,1920,1080,"Attachment:\休息对话框.bmp",1,intX,intYIf intX > 0 And intY > 0 Then 'TracePrintsTime & "关闭 游戏时长2小时 对话框..."Form1.InputBox3.Text =sTime & "关闭 游戏时长2小时 对话框..."Form1.InputBox1.Text = Form1.InputBox1.Text + sTime & "关闭 游戏时长2小时 对话框..."& vbcrlf i = 1Call MoveCursorWithReal(intX + 90, intY + 339)End If
End Function