1. 子程序结束,回到调用处
  2. //+快速回血药子程序
  3. 子程序 状态
  4.     延时50毫秒
  5.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  6.     如果表达式 (x<=0 and y<=0) 为真,则
  7.         按键<4>
  8.         延时50毫秒
  9.     条件结束
  10. 子程序结束,回到调用处
  11. //状态检测，参考qmmwn
  12. 子程序 喊话
  13.     按键<Enter>
  14.     延时200毫秒
  15.     输入文本 请在TAB调出大地图后5秒内将鼠标移到代表角色的黄点
  16.     延时200毫秒
  17.     按键<Enter>
  18.     延时200毫秒
  19. 子程序结束,回到调用处
  20. //喊话子程序，个人爱好，想调用就调用，话的内容可以自己改
  21. 子程序 躲怪
  22.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  23.     如果表达式 (x<=913 and y<=121 and x>0 and y>0) 为真,则
  24.         标记 躲怪1
  25.         鼠标移到 696 , 478
  26.         延时50毫秒
  27.         左键单击
  28.         延时100毫秒
  29.         调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  30.         如果表达式 (x=696) 为真,则
  31.             跳转到标记 躲怪2
  32.         条件结束
  33.     否则如果(x>=913 and y>=121)为真,则
  34.         标记 躲怪2
  35.         鼠标移到 352 , 276
  36.         延时50毫秒
  37.         左键单击
  38.         延时100毫秒
  39.         调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  40.         如果表达式 (x=352) 为真,则
  41.             跳转到标记 躲怪3
  42.         条件结束
  43.     条件结束
  44.     延时50毫秒
  45.     如果表达式 (x>=913 and y<=121) 为真,则
  46.         标记 躲怪3
  47.         鼠标移到 286 , 485
  48.         延时50毫秒
  49.         左键单击
  50.         延时100毫秒
  51.         调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  52.         如果表达式 (x=286) 为真,则
  53.             跳转到标记 躲怪4
  54.         条件结束
  55.     否则如果(x<=913 and y>=121)为真,则
  56.         标记 躲怪4
  57.         鼠标移到 701 , 256
  58.         延时50毫秒
  59.         左键单击
  60.         延时100毫秒
  61.         调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  62.         如果表达式 (x=701) 为真,则
  63.             跳转到标记 躲怪1
  64.         条件结束
  65.     条件结束
  66. 子程序结束,回到调用处
  67. //参照qmmwn,加入了躲怪循环，防止角色退到角落，无法移动，而怪物和角色重叠，鼠标刚好点到是角色，始终循环找怪躲怪打怪，通过记录鼠标位置辨别
  68. 子程序 修理
  69.     延时5000毫秒
  70.     按键<Tab>
  71.     延时1000毫秒
  72.     鼠标移到 272 , 184
  73.     延时1000毫秒
  74.     循环 11 遍
  75.         调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  76.         鼠标移到 xb+40 , yb
  77.         延时200毫秒
  78.         右键单击
  79.         延时200毫秒
  80.         如果 (429,15) 的颜色大约等于 #b5ebf7 则
  81.             如果 (416,52) 的颜色大约等于 #b58a5a 则
  82.                 如果 (430,45) 的颜色大约等于 #000000 则
  83.                     跳转到标记 药品商人
  84.                 条件结束
  85.             条件结束
  86.         条件结束
  87.     循环结束
  88.     鼠标移到 272 , 264
  89.     延时1000毫秒
  90.     循环 11 遍
  91.         调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  92.         鼠标移到 xb+40 , yb
  93.         延时200毫秒
  94.         右键单击
  95.         延时200毫秒
  96.         如果 (429,15) 的颜色大约等于 #b5ebf7 则
  97.             如果 (416,52) 的颜色大约等于 #b58a5a 则
  98.                 如果 (430,45) 的颜色大约等于 #000000 则
  99.                     跳转到标记 药品商人
  100.                 条件结束