1. 子程序结束,回到调用处
  2. //===============================
  3. //===============================
  4. 子程序 解绿毒
  5.     子程序 解绿毒
  6.         调用外部VBScript子程序 在屏幕区域里查找图形(900,100,965,450,"KO2_H.bmp",0.9,x,y)
  7.         调用外部VBScript子程序 在屏幕区域里查找图形(900,100,965,450,"KO2_H.bmp",0.9,x,y)
  8.         如果表达式 (x>=900 and y>=100) 为真,则
  9.             如果表达式 (x>=900 and y>=100) 为真,则
  10.                 鼠标移到 x , y
  11.                 鼠标移到 x , y
  12.                 鼠标相对移动 50 , 5
  13.                 鼠标相对移动 50 , 5
  14.                 延时300毫秒
  15.                 延时300毫秒
  16.                 左键单击
  17.                 左键单击
  18.                 延时300毫秒
  19.                 延时300毫秒
  20.                 按键<8>
  21.                 按键<8>
  22.                 延时1800毫秒
  23.                 延时1800毫秒
  24.             条件结束
  25.         条件结束
  26.     子程序结束,回到调用处
  27. 子程序结束,回到调用处
  28. //===============================
  29. //===============================
  30. 子程序 解诅咒
  31.     子程序 解诅咒
  32.         调用外部VBScript子程序 在屏幕区域里查找图形(900,100,965,450,"KO2_H.bmp",0.9,x,y)
  33.         调用外部VBScript子程序 在屏幕区域里查找图形(900,100,965,450,"KO2_H.bmp",0.9,x,y)
  34.         如果表达式 (x>=900 and y>=100) 为真,则
  35.             如果表达式 (x>=900 and y>=100) 为真,则
  36.                 鼠标移到 x , y
  37.                 鼠标移到 x , y
  38.                 鼠标相对移动 50 , 5
  39.                 鼠标相对移动 50 , 5
  40.                 延时300毫秒
  41.                 延时300毫秒
  42.                 左键单击
  43.                 左键单击
  44.                 延时300毫秒
  45.                 延时300毫秒
  46.                 按键<8>
  47.                 按键<8>
  48.                 延时1800毫秒
  49.                 延时1800毫秒
  50.             条件结束
  51.         条件结束
  52.     子程序结束,回到调用处
  53. 子程序结束,回到调用处
  54. //===============================
  55. //===============================
  56. 子程序 打坐
  57.     子程序 打坐
  58.         如果 (978,748) 的颜色等于 #0 则
  59.             如果 (978,748) 的颜色等于 #0 则
  60.                 （VBScript语句） k=0
  61.                 （VBScript语句） k=0
  62.             否则
  63.             否则
  64.                 （VBScript语句） k=k+1
  65.                 （VBScript语句） k=k+1
  66.                 如果表达式 (k>3) 为真,则
  67.                     如果表达式 (k>3) 为真,则
  68.                         （VBScript语句） k=0
  69.                         （VBScript语句） k=0
  70.                         按住<C>
  71.                         按住<C>
  72.                         延时400毫秒
  73.                         延时400毫秒
  74.                         弹起<C>
  75.                         弹起<C>
  76.                         延时100毫秒
  77.                         延时100毫秒
  78.                     条件结束
  79.                 条件结束
  80.             条件结束
  81.         条件结束
  82.     子程序结束,回到调用处
  83. 子程序结束,回到调用处
  84. //===============================
  85. //===============================
  86. 子程序 全捡
  87.     子程序 全捡
  88.         鼠标移到 400 , 580
  89.         鼠标移到 400 , 580
  90.         按键<Space>
  91.         按键<Space>
  92.         按键<Num 7>
  93.         按键<Num 7>
  94.         按键<Num 8>
  95.         按键<Num 8>
  96.         按键<Num 4>
  97.         按键<Num 4>
  98.         按键<Num 5>
  99.         按键<Num 5>
  100.         按键<Num 1>