1.                         弹起#pick
  2.                         延时192毫秒
  3.                     循环结束
  4.                 否则如果(i=3)为真,则
  5.                     按住<D>
  6.                     延时int(1024*rnd)毫秒
  7.                     弹起<D>
  8.                     按住<A>
  9.                     延时int(1024*rnd)毫秒
  10.                     弹起<A>
  11.                     按住<S>
  12.                     延时int(1024*rnd)毫秒
  13.                     弹起<S>
  14.                     按住<W>
  15.                     延时int(1024*rnd)毫秒
  16.                     弹起<W>
  17.                 条件结束
  18.                 i=i+1
  19.                 如果表达式 (i>4) 为真,则
  20.                     i=1
  21.                 条件结束
  22.             条件结束
  23.             跳转到标记 继续定位
  24.         条件结束
  25.     条件结束
  26.     //关大地图
  27.     如果表达式 (dwguan=1) 为真,则
  28.         调用子程序 开关地图
  29.         调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  30.         如果表达式 (xx1>0) 为真,则
  31.             调用子程序 开关地图
  32.         条件结束
  33.     条件结束
  34.     如果表达式 (xiuxi=1) 为真,则
  35.         调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  36.         如果表达式 (lifx<=0) 为真,则
  37.             如果表达式 (HOME=36) 为真,则
  38.                 硬件模拟按住<Home>
  39.                 延时256毫秒
  40.                 硬件模拟弹起<Home>
  41.                 延时256毫秒
  42.             否则
  43.                 按住#HOME
  44.                 延时256毫秒
  45.                 弹起#HOME
  46.                 延时256毫秒
  47.             条件结束
  48.             调用子程序 休息中
  49.         条件结束
  50.     条件结束
  51.     strtime=time
  52. 子程序结束,回到调用处
  53. //*****************************************
  54. 子程序 休息中
  55.     标记 继续休息
  56.     //休息只以红为准
  57.     调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  58.     延时5120毫秒
  59.     调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  60.     如果表达式 (lifx<=0) 为真,则
  61.         调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  62.         如果表达式 (lifx1=lifx2) 为真,则
  63.             如果表达式 (xiuxi=2) 为真,则
  64.                 跳转到标记 结束休息
  65.             条件结束
  66.             如果表达式 (HOME=36) 为真,则
  67.                 硬件模拟按住<Home>
  68.                 延时256毫秒
  69.                 硬件模拟弹起<Home>
  70.                 延时256毫秒
  71.             否则
  72.                 按住#HOME
  73.                 延时256毫秒
  74.                 弹起#HOME
  75.                 Delay256
  76.             条件结束
  77.             跳转到标记 继续休息
  78.         否则如果(lifx1>lifx2)为真,则
  79.             如果表达式 (HOME=36) 为真,则
  80.                 硬件模拟按住<Home>
  81.                 延时256毫秒
  82.                 硬件模拟弹起<Home>
  83.                 延时256毫秒
  84.             否则
  85.                 按住#HOME
  86.                 延时256毫秒
  87.                 弹起#HOME
  88.                 延时256毫秒
  89.             条件结束
  90.             调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  91.             如果表达式 (xx<=0) 为真,则
  92.                 //按TAB选怪
  93.                 按住<Tab>
  94.                 延时256毫秒
  95.                 弹起<Tab>
  96.                 延时1024毫秒
  97.                 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  98.             条件结束
  99.             如果表达式 (xx<=0) 为真,则
  100.                 鼠标移到 86 , 384