1.     条件结束
  2.     调用子程序 找红色目标
  3.     如果表达式 (JL<=2) 为真,则
  4.         ZDMB=1
  5.         调用子程序 选择武器
  6.         延时50毫秒
  7.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  8.         如果表达式 (intX>=0 and intY>=0) 为真,则
  9.         否则
  10.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  11.         条件结束
  12.         如果表达式 (intX>=0 and intY>=0) 为真,则
  13.             左键单击
  14.             标记 开始攻击
  15.             （VBScript语句） gjts=timer
  16.             弹起<W>
  17.             调用子程序 选择武器
  18.             循环 8 遍
  19.                 左键单击
  20.                 延时50毫秒
  21.             循环结束
  22.             跳转到标记 1
  23.         否则
  24.             （VBScript语句） gjte=timer
  25.             如果表达式 (gjte-gjts<2) 为真,则
  26.                 跳转到标记 1
  27.             条件结束
  28.             如果表达式 (QJAX=1) 为真,则
  29.                 （VBScript语句） QJAXt2=timer
  30.                 如果表达式 (QJAXt2-QJAXt>5) 为真,则
  31.                     弹起<W>
  32.                     QJAX=0
  33.                     如果表达式 (JL<=1) 为真,则
  34.                         按键<2>
  35.                         按住<Space>
  36.                         延时100毫秒
  37.                         右键按下
  38.                         延时100毫秒
  39.                         左键单击
  40.                         延时1000毫秒
  41.                         弹起<Space>
  42.                         左键单击
  43.                         按住<Space>
  44.                         延时200毫秒
  45.                         按键<3>
  46.                         延时200毫秒
  47.                         左键单击
  48.                         延时1000毫秒
  49.                         左键单击
  50.                         右键弹起
  51.                     否则
  52.                         调用子程序 判断转向
  53.                     条件结束
  54.                     如果表达式 (wq=2) 为真,则
  55.                         按键<2>
  56.                     否则
  57.                         如果表达式 (wq=3) 为真,则
  58.                             按键<3>
  59.                         否则
  60.                             按键<1>
  61.                         条件结束
  62.                     条件结束
  63.                     弹起<Space>
  64.                 条件结束
  65.             条件结束
  66.             如果表达式 (QJAX=0) 为真,则
  67.                 （VBScript语句） QJAXt=timer
  68.                 右键按下
  69.                 按住<Space>
  70.                 延时100毫秒
  71.                 循环 14 遍
  72.                     延时40毫秒
  73.                     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  74.                     如果表达式 (intX>=0 and intY>=0) 为真,则
  75.                     否则
  76.                         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  77.                     条件结束
  78.                     如果表达式 (intX>=0 and intY>=0) 为真,则
  79.                         左键单击
  80.                         QJAX=0
  81.                         弹起<Space>
  82.                         弹起<W>
  83.                         跳转到标记 开始攻击
  84.                     条件结束
  85.                 循环结束
  86.                 按键<W>
  87.                 延时100毫秒
  88.                 按住<W>
  89.                 循环 20 遍
  90.                     延时40毫秒
  91.                     // VBSCall FindColorEx(0,0,940,710,"2020ff",1,1,intX,intY)
  92.                     // If intX>=0 and intY>=0
  93.                     // KeyPress 87,1
  94.                     // QJAX=0
  95.                     // // Goto 1
  96.                     // EndIf
  97.                     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  98.                     如果表达式 (intX>=0 and intY>=0) 为真,则
  99.                     否则
  100.                         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)