我想编个彩虹岛的智能找怪的脚本,懂的高手帮忙做一个

问题描述：

我的思路是在区域找色找自己名字颜色的左边和怪物名字的坐标
如果远的话快跑过去
靠近的话在怪所在的位置按一下方向键
不过始终不能用高手看一下,或者帮忙编一个
不知道思路有没有问题
下面是我编的脚本
VBS dim x,y,a,b
dim x,y,a,b
VBSCall FindColor(56,231,780,305,"433967",x,y)//获取怪物坐标
VBSCall FindColor(56,231,780,305,"80FF80",a,b)//获取自己坐标
KeyPress 32,1
IfColor 71,32,ffffff,0//自动补血
KeyPress 70,1
Else
EndIf
IfColor 63,47,ffffff,0//自动补蓝
KeyPress 86,1
Else
EndIf
If x>=0 and x-a>100 //怪物坐标在自己右边100以外，右移
Gosub 右移
Else
EndIf
If x>=0 and a-x>100 //怪物坐标在自己左边100以外，左移
Gosub 左移
Else
EndIf
If x>=0 and x-a<=100 and x-a>0//怪物在自己近身右边，按一下右GOTO打怪
KeyPressH 39,1
Delay zzT
Gosub 打怪
Else
EndIf
If x>=0 and a-x<=100 and a-x>0//怪物在自己近身左边，按一下左GOTO打怪
KeyPressH 37,1
Delay zzT
Gosub 打怪
Else
EndIf
EndScript
Sub 左移
KeyPressH 37,1
Delay zzT
KeyDownH 37,1
Delay 500
KeyUpH 37,1
Return
Sub 右移
KeyPressH 39,1
Delay zzT
KeyDownH 39,1
Delay 500
KeyUpH 39,1
Return
Sub 打怪
KeyPress 32,1
Delay zzT
KeyPress 65,1
Delay zzT
KeyPress 90,1
Delay zzT
KeyPress 88,1
Delay zzT
KeyPress 18,1
Delay zzT
Return

问题解答：

你这编好了不怕别人引怪给你，你被秒吗？
如果打低级的，又没什么经验，高级的，补血都来不及。