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