1.         如果表达式 (c=0) 为真,则
  2.             如果表达式 (TRt2-TRt>=30) 为真,则
  3.                 c=1
  4.                 TRn=1
  5.                 如果表达式 (TRn<=8) 为真,则循环执行
  6.                     （VBScript语句） Ttime1(TRn)=timer
  7.                     TR(TRn)=0
  8.                     TRn=TRn+1
  9.                 循环结束
  10.             否则
  11.                 跳转到标记 看是否为房主
  12.             条件结束
  13.         条件结束
  14.         如果表达式 (c=1) 为真,则
  15.             调用子程序 踢人
  16.         条件结束
  17.         跳转到标记 看是否为房主
  18.     条件结束
  19.     延时100毫秒
  20.     调用子程序 找自己
  21.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  22.     如果表达式 (intX2>=0 and intY2>=0) 为真,则
  23.     否则
  24.         按键<F5>
  25.         延时100毫秒
  26.     条件结束
  27.     延时100毫秒
  28.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  29.     如果表达式 (intX>=0 and intY>=0) 为真,则
  30.     否则
  31.         跳转到标记 结束准备游戏
  32.     条件结束
  33.     延时100毫秒
  34.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  35.     如果表达式 (intX>=0 and intY>=0) 为真,则
  36.         按键<Enter>
  37.     否则
  38.         跳转到标记 准备游戏start
  39.     条件结束
  40.     标记 结束准备游戏
  41.     // Gosub 等待读取
  42. 子程序结束,回到调用处
  43. 子程序 判断转向
  44.     右键弹起
  45.     延时30毫秒
  46.     硬件模拟鼠标相对移动 0 , 500
  47.     延时90毫秒
  48.     硬件模拟鼠标相对移动 0 , -160
  49.     右键按下
  50.     c=0
  51.     标记 转向start
  52.     如果表达式 (QJAX=1) 为真,则
  53.         弹起<Space>
  54.         弹起<W>
  55.         QJAX=0
  56.     条件结束
  57.     右键按下
  58.     延时500毫秒
  59.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  60.     如果表达式 (intX>=0 and intY>=0) 为真,则
  61.         右键弹起
  62.         延时30毫秒
  63.         硬件模拟鼠标相对移动 -180 , 0
  64.         右键按下
  65.         延时100毫秒
  66.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  67.         如果表达式 (intX3>=0 and intY3>=0) 为真,则
  68.             按键<W>
  69.             QJAX=0
  70.             跳转到标记 结束转向
  71.         条件结束
  72.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  73.         如果表达式 (intX3>=0 and intY3>=0) 为真,则
  74.             跳转到标记 开始攻击
  75.         条件结束
  76.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  77.         如果表达式 (intX2>=0 and intY2>=0) 为真,则
  78.         否则
  79.             如果表达式 (c<=4) 为真,则
  80.                 c=c+1
  81.                 跳转到标记 转向start
  82.             否则
  83.             条件结束
  84.         条件结束
  85.     条件结束
  86.     标记 结束转向
  87. 子程序结束,回到调用处
  88. 子程序 找红色目标
  89.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  90.     如果表达式 (intX<=115 and intY<=139) 为真,则
  91.         intX=-1
  92.         intY=-1
  93.     条件结束
  94.     如果表达式 (intX<=391 or intX>=641) 为真,则
  95.         JL=2
  96.     否则
  97.         如果表达式 (intX>=0 and intY>=0) 为真,则
  98.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  99.             如果表达式 (intX>=0 and intY>=0) 为真,则
  100.                 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)