求一个彩虹岛跑动挖矿代码（按键精灵）

彩虹岛的挖矿脚本 我也见了很多 也都试用过

很多人提到 不能用键盘控制任务移动

在此 我就以我发布的商业版彩虹岛包裹中的采矿的全代码来给大家 分析下

代码和分析如下：

首先获得当前屏幕的分辨率的宽和高

Plugin screenX=GetSysInfo.GetScreenResolutionX()
Plugin screenY=GetSysInfo.GetScreenResolutionY()

求出中心点坐标，由于观察发现 除非人物走到底图边缘 屏幕始终是把人物放在屏幕中间的

CenterX=ScreenX/2
CenterY=ScreenY/2

设定一个face变量 来代表 人物的面朝方向

face=1

设置一个死循环 程序循环运行

While 1=1

开始时先在屏幕范围内查找有没有掉落的包裹

VBSCall FindPic(0,CenterY-200,screenX,CenterY+200,"包裹.bmp",0.9,intX1,intY1)

如果包裹存在则执行向包裹移动

If intX1<>-1 and intY1<>-1

包裹intX1是图片坐上角坐标，所以判断

intX1+20<CenterX时

判断向左方移动

If intX1<(CenterX-20)

左键按下50毫秒后弹起，因为尝试过点击左键无效果

KeyDownH 37,1
Delay 50
KeyUpH 37,1

如果包裹在人物右方则按下右键

ElseIf intX1>(CenterX+