1.             face=0
  2.         否则
  3.             //右移
  4.             硬件模拟按住<Right>
  5.             延时500毫秒
  6.             硬件模拟弹起<Right>
  7.             face=1
  8.         条件结束
  9.         延时100毫秒
  10.     条件结束
  11. 循环结束
  12. 子程序 拾取动作
  13.     s=x-wx
  14.     h=Abs(s)-30
  15.     t=h/v
  16.     延时500毫秒
  17.     如果表达式 (h>=0) 为真,则
  18.         如果表达式 (s>0) 为真,则
  19.             硬件模拟按住<Left>
  20.             延时t毫秒
  21.             硬件模拟弹起<Left>
  22.             face=0
  23.             pt=pt-t
  24.         否则如果(s<0)为真,则
  25.             硬件模拟按住<Right>
  26.             延时t毫秒
  27.             硬件模拟弹起<Right>
  28.             face=1
  29.             pt=pt+t
  30.         条件结束
  31.     条件结束
  32.     延时100毫秒
  33.     按键<Space>
  34.     延时500毫秒
  35.     按键<Space>
  36.     延时100毫秒
  37. 子程序结束,回到调用处
  38. 子程序 挖矿
  39.     s=x-wx
  40.     h=Abs(s)-90
  41.     t=h/v
  42.     延时100毫秒
  43.     如果表达式 (h>0) 为真,则
  44.         如果表达式 (s>0) 为真,则
  45.             硬件模拟按住<Left>
  46.             延时t毫秒
  47.             硬件模拟弹起<Left>
  48.             face=0
  49.             pt=pt-t
  50.         否则如果(s<0)为真,则
  51.             硬件模拟按住<Right>
  52.             延时t毫秒
  53.             硬件模拟弹起<Right>
  54.             face=1
  55.             pt=pt+t
  56.         条件结束
  57.     否则
  58.         如果表达式 (s>0) 为真,则
  59.             如果表达式 (face=1) 为真,则
  60.                 硬件模拟按键<Left>
  61.                 face=0
  62.                 n=n-1
  63.             条件结束
  64.         否则如果(s<0)为真,则
  65.             如果表达式 (face=0) 为真,则
  66.                 硬件模拟按键<Right>
  67.                 face=1
  68.                 n=n+1
  69.             条件结束
  70.         条件结束
  71.     条件结束
  72.     延时100毫秒
  73.     循环 9 遍
  74.         按住<Z>
  75.         延时2000毫秒
  76.         弹起<Z>
  77.         延时100毫秒
  78.         如果表达式 (c=1) 为真,则
  79.             wx=-1
  80.             wy=-1
  81.         否则
  82.             标记 采矿出包
  83.             调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
  84.             如果表达式 (x>=0 or y>=0) 为真,则
  85.                 x=x+21
  86.                 调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
  87.             否则
  88.                 弹起<Z>
  89.                 Randomize
  90.                 r=Rnd
  91.                 如果表达式 (r>=0.5) 为真,则
  92.                     //左移
  93.                     硬件模拟按住<Left>
  94.                     延时500毫秒
  95.                     硬件模拟弹起<Left>
  96.                     face=0
  97.                     pt=pt-500
  98.                 否则
  99.                     //右移
  100.                     硬件模拟按住<Right>