1.         否则
  2.             j=0
  3.         条件结束
  4.     循环结束
  5.     // 宠物加蓝
  6.     如果表达式 (k=1) 为真,则循环执行
  7.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(170,94,227,97,"#f0f8",0,0.8,xa,ya)
  8.         如果表达式 (p<patmp) 为真,则
  9.             按键<2>
  10.             调用子程序 宠物加血鼠标动作
  11.         否则
  12.             k=0
  13.         条件结束
  14.     循环结束
  15.     //宠物喂食
  16.     如果表达式 (count>=pateat) 为真,则
  17.         按键<4>
  18.         调用子程序 宠物加血鼠标动作
  19.         count=0
  20.     条件结束
  21. 子程序结束,回到调用处
  22. 子程序 加血鼠标动作
  23.     鼠标移到 873 , 119
  24.     延时200毫秒
  25.     左键单击
  26.     延时500毫秒
  27. 子程序结束,回到调用处
  28. 子程序 宠物加血鼠标动作
  29.     鼠标移到 707 , 106
  30.     延时200毫秒
  31.     左键单击
  32.     延时500毫秒
  33. 子程序结束,回到调用处