小精灵你们自己做哈，好不容易写出来的，觉得好的话帮我顶起来，有什么问题留言
// 注：所有涉及到颜色，鼠标形状的值请自行使用抓点抓色功能得到后修改
VBS dim hong,lan,hongT,lanT,cwhong
// 定义变量名称
UserVar hong=70 人物血量<hong%时，自动吃红。
// 自定义变量值
UserVar lan=30 人物蓝量<lan%时，自动吃蓝。
// 自定义变量值
UserVar cwhong=50 宠物血量<cwhong%时，自动吃红。
// 自定义变量值
UserVar hongT=256 补血延时时间（毫秒）
// 自定义变量值
UserVar lanT=256 补蓝延时时间（毫秒）
// 自定义变量值
Delay 30
// 延时30毫秒
IfColor hong/100*121+65 31 212021 2
// 如果坐标hong/100*121+65,31的颜色大约等于“212021”则，其中121为人物血条最右边的X坐标减去人物血条最左边的X坐标，65为人物血条最左边的X坐标,31为人物血条的Y坐标
KeyPress 119 1
//按下补血快捷键F8
Delay hongT
//补血延时
EndIf
// 条件结束
IfColor lan/100*121+65 37 212021 2
// 如果坐标hong/100*121+65,37的颜色大约等于“212021”则，其中121为人物蓝条最右边的X坐标减去人物蓝条最左边的X坐标，65为人物蓝条最左边的X坐标，37为人物蓝条的Y坐标
KeyPress 120 1
//按下补蓝快捷键F9
Delay lanT
//补蓝延时
EndIf
//条件结束
IfColor cwhong/100*97+64 70 101010 2
// 如果坐标hong/100*97+64,70的颜色大约等于“101010”则，其中97为宠物务条最右边的X坐标减去宠物血条最左边的X坐标，64为宠物血条最左边的X坐标，70为宠物血条的Y坐标
KeyPress 121 1
//按下补血快捷键F10
Delay hongT
//补血延时
EndIf
//条件结束
VBS n = 14
// 定义变量n,用于后面的循环
VBS x = 162
// 定义找怪区域左上角的X坐标
VBS s = 1236534264
// 定义鼠标移动到怪物身上后变成刀形鼠标的值，请使用抓点抓色功能得到
While n >= 0
// 如果n大于等于0，则执行循环
VBS y = 146
// 定义找怪区域左上角的Y坐标
MoveTo x,y
// 鼠标移动到坐标x,y
Delay 10
// 延时10毫秒
VBSCall k=GetCursorShape(0)
// 调用外部VBS子各程序得到当前鼠标形状并赋值到变量K
If k = s
// 如果表达式k=s成立，则执行下面的语句
VBS a=0
// 该变量用于时间判断
RightClick 1
// 鼠标右键单击
Delay 10
// 延时10毫秒
Rem 有怪
// 标记 有怪
IfColor 223,33,0010ff,0
// 如果坐标223，33的颜色等于“0010ff"则执行下面的语句。坐标223，33为鼠标右键点中怪物后，怪物血条最左边的的坐标
KeyPress 112 1
// 按键F1攻击
Delay 10
// 延时10毫秒
Goto 有怪
// 跳转到标记有怪执行判断，看怪物死没有
EndIf
// 条件结束
Else
VBS a=a+1
EndIf
// 条件结束
VBS z = 14
While z >= 0
VBS y = y + 30
// y坐标增加30
VBS z = z - 1
MoveTo x,y
Delay 10
VBSCall k=GetCursorShape(0)
If k = s
VBS b=0
// 该变量用于时间判断
RightClick 1
Delay 10
Rem 怪物
IfColor 223,33,0010ff,0
KeyPress 112 1
Delay 10
Goto 怪物
EndIf
Else
VBS b=b+1
EndIf
EndWhile
VBS x = x + 50
// x坐标增加50
VBS n = n - 1
EndWhile
If a>=1830 and b>=27450
// 如果大约5分钟左右没有找到怪，则执行下面的语句
MoveTo 512,150
LeftClick 1
Delay 2000
MoveTo 512,150
LeftClick 1
Delay 2000
EndIf
