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