1.                     左键单击
  2.                     延时2000毫秒
  3.                 条件结束
  4.                 调用子程序 检测
  5.                 左键单击
  6.             循环结束
  7.         条件结束
  8.     条件结束
  9.     调用子程序 检测
  10. 循环结束
  11. 子程序 检测
  12.     检测上次按键，保存到变量aa中
  13.     如果表达式 (aa=Var4) 为真,则
  14.         保存鼠标位置
  15.         调用子程序 加能量
  16.     条件结束
  17.     如果表达式 (aa=Var5) 为真,则
  18.         ww="磁化.bmp"
  19.         保存鼠标位置
  20.         调用子程序 换发生器
  21.     条件结束
  22.     如果表达式 (aa=Var6) 为真,则
  23.         ww="高热.bmp"
  24.         保存鼠标位置
  25.         调用子程序 换发生器
  26.     条件结束
  27.     如果表达式 (aa=Var7) 为真,则
  28.         ww="腐蚀.bmp"
  29.         保存鼠标位置
  30.         调用子程序 换发生器
  31.     条件结束
  32.     如果表达式 (aa=Var8) 为真,则
  33.         保存鼠标位置
  34.         调用子程序 换导弹
  35.     条件结束
  36.     如果表达式 (aa=Var9) 为真,则
  37.         保存鼠标位置
  38.         调用子程序 换雷达
  39.     条件结束
  40.     如果表达式 (aa=Var10) 为真,则
  41.         保存鼠标位置
  42.         调用子程序 换隐身
  43.     条件结束
  44.     如果表达式 (aa=Var11) 为真,则
  45.         保存鼠标位置
  46.         调用子程序 换火箭
  47.     条件结束
  48.     如果表达式 (aa=Var12) 为真,则
  49.         保存鼠标位置
  50.         调用子程序 换修酒
  51.     条件结束
  52.     如果表达式 (aa=Var13) 为真,则
  53.         保存鼠标位置
  54.         调用子程序 换修
  55.     条件结束
  56.     如果表达式 (aa=Var14) 为真,则
  57.         保存鼠标位置
  58.         调用子程序 换炮
  59.     条件结束
  60. 子程序结束,回到调用处
  61. 子程序 加能量
  62.     按键<D>
  63.     循环 10 遍
  64.         延时100毫秒
  65.         调用外部VBScript子程序 在屏幕区域里查找图形(263,41,741,306,"Attachment:\死亡.bmp",0.9,x2,y2)
  66.         如果表达式 (x>0 and y>0) 为真,则
  67.             延时100毫秒
  68.             调用外部VBScript子程序 在屏幕区域里查找图形(263,41,741,306,"Attachment:\死亡.bmp",0.9,x2,y2)
  69.             如果表达式 (x1>0 and y1>0) 为真,则
  70.                 鼠标移到 x1 , y1+5
  71.                 右键单击
  72.                 延时200毫秒
  73.                 鼠标移到 x1+57 , y1+80
  74.                 左键单击
  75.                 鼠标移到 x+170 , y+332
  76.                 左键单击
  77.                 恢复鼠标位置
  78.                 中键单击
  79.                 按键<D>
  80.                 跳转到标记 ww
  81.             条件结束
  82.             按键<D>
  83.             跳转到标记 ww
  84.         条件结束
  85.     循环结束
  86.     按键<D>
  87.     跳转到标记 ww
  88. 子程序结束,回到调用处
  89. 子程序 换发生器
  90.     循环 10 遍
  91.         按键<D>
  92.         延时100毫秒
  93.         调用外部VBScript子程序 在屏幕区域里查找图形(263,41,741,306,"Attachment:\死亡.bmp",0.9,x2,y2)
  94.         如果表达式 (x>0 and y>0) 为真,则
  95.             延时100毫秒
  96.             调用外部VBScript子程序 在屏幕区域里查找图形(263,41,741,306,"Attachment:\死亡.bmp",0.9,x2,y2)
  97.             如果表达式 (x1>0 and y1>0) 为真,则
  98.                 鼠标移到 x1 , y1+5
  99.                 左键双击
  100.                 鼠标移到 x+170 , y+332