- （VBScript语句） dim hong,lan,hongT,lanT
- //F3红，F4蓝
- //在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
- 用户定义变量 hong=70 血量<hong%时，自动吃红。
- 用户定义变量 lan=30 蓝量<lan%时，自动吃蓝。
- 用户定义变量 hongT=256 补血延时时间（毫秒）
- 用户定义变量 lanT=256 补蓝延时时间（毫秒）
- 用户定义变量 xue=70 血量<xue%时，自动吃红。
- 用户定义变量 mo=70 魔量<mo%时，自动上善。
- 标记 开始
- //循环开始标记
- 延时32毫秒
- //循环小延时，防止出现CPU使用率过高，脚本卡
- 标记 补红
- 如果 (hong/100*(314-188)+188,107) 的颜色大约等于 #454545 则
- //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
- //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
- 按键<F3>
- //按下补血快捷键
- 延时hongT毫秒
- //补血延时
- 按键<Space>
- 条件结束
- 标记 补蓝
- 如果 (lan/100*(313-200)+200,127) 的颜色大约等于 #454545 则
- //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
- //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
- 按键<F4>
- //按下补蓝快捷键
- 延时lanT毫秒
- //补蓝延时
- 按键<Space>
- 条件结束
- //跳转到循环开始
- 标记 补状态
- 标记 曲则全
- 调用外部VBScript子程序 在屏幕区域里查找图形(189,148,273,195,"曲则全.bmp",0.7,x,y)
- 如果表达式 (x>0 and y>0) 为真,则
- 跳转到标记 开始找怪
- 否则
- 按键<K>
- 延时300毫秒
- 按键<L>
- 延时2100毫秒
- 条件结束
- //++++++++++++++++++++++++++++++++++++++
- //++++++++++++++++++++++++++++++++++++++
- 标记 开始找怪
- 按键<Tab>
- 标记 找猴子
- 延时500毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(189,148,273,195,"曲则全.bmp",0.7,x,y)
- //设定要打的怪,我只打猴子
- 标记 如果找到老虎则
- 如果表达式 (x2>0 and y2>0) 为真,则
- 标记 使用听雨
- 按键<1>
- 按键<1>
- 跳转到标记 抢怪
- 否则
- 延时500毫秒
- 按住<A>
- 延时150毫秒
- 弹起<A>
- 延时200毫秒
- 按键<Tab>
- 延时500毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(189,148,273,195,"曲则全.bmp",0.7,x,y)
- 标记 如果找到老虎则
- 如果表达式 (x2>0 and y2>0) 为真,则
- 标记 使用听雨
- 按键<1>
- 按键<1>
- 跳转到标记 抢怪
- 条件结束
- 延时500毫秒
- 按住<A>
- 延时150毫秒
- 弹起<A>
- 延时200毫秒
- 按键<Tab>
- 延时500毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(189,148,273,195,"曲则全.bmp",0.7,x,y)
- 标记 如果找到老虎则
- 如果表达式 (x2>0 and y2>0) 为真,则
- 标记 使用听雨
- 按键<1>
- 按键<1>
- 跳转到标记 抢怪
- 条件结束
- 延时500毫秒
- 按住<A>
- 延时150毫秒
- 弹起<A>
- 延时200毫秒
- 按键<Tab>
- 延时500毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(189,148,273,195,"曲则全.bmp",0.7,x,y)
- 标记 如果找到老虎则
- 如果表达式 (x2>0 and y2>0) 为真,则