1.         如果表达式 (QJAXt2-QJAXt1>=2) 为真,则
  2.             如果表达式 (QJAX=1) 为真,则
  3.                 弹起<Space>
  4.                 弹起<W>
  5.                 QJAX=0
  6.             条件结束
  7.             调用子程序 判断转向
  8.         条件结束
  9.         如果表达式 (QJAX=0) 为真,则
  10.             （VBScript语句） QJAXt1=timer
  11.             按住<Space>
  12.             延时100毫秒
  13.             按键<W>
  14.             延时50毫秒
  15.             按住<W>
  16.             QJAX=1
  17.         条件结束
  18.         跳转到标记 找红色
  19.     条件结束
  20. 子程序结束,回到调用处
  21. 子程序 环境判断
  22.     在调试状态下向调试窗口输出 fight
  23.     标记 环境判断start
  24.     延时50毫秒
  25.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  26.     如果表达式 (intX>=0 and intY>=0) 为真,则
  27.         如果表达式 (Fight=0) 为真,则
  28.             跳转到标记 返回调用处
  29.         条件结束
  30.         弹起<W>
  31.         弹起<Space>
  32.         右键弹起
  33.         跳转到标记 等待中
  34.     否则
  35.     条件结束
  36.     延时60毫秒
  37.     如果 (36,73) 的颜色等于 #ffffff 则
  38.         如果表达式 (Fight=1) 为真,则
  39.             跳转到标记 返回调用处
  40.         条件结束
  41.         弹起<W>
  42.         弹起<Space>
  43.         右键弹起
  44.         跳转到标记 战斗开始
  45.     否则
  46.         如果 (341,213) 的颜色等于 #ffffff 则
  47.             如果 (503,210) 的颜色等于 #ffffff 则
  48.                 repair=1
  49.                 ZDMB=0
  50.                 弹起<W>
  51.                 右键弹起
  52.                 弹起<Space>
  53.                 跳转到标记 尚未开始战斗
  54.             否则
  55.             条件结束
  56.         否则
  57.         条件结束
  58.         跳转到标记 环境判断start
  59.     条件结束
  60.     延时60毫秒
  61.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  62.     如果表达式 (intX>=0 and intY>=0) 为真,则
  63.         延时100毫秒
  64.         按键<Enter>
  65.         延时100毫秒
  66.     否则
  67.     条件结束
  68.     跳转到标记 环境判断start
  69.     标记 返回调用处
  70. 子程序结束,回到调用处
  71. 子程序 准备游戏
  72.     标记 准备游戏start
  73.     鼠标移到 0 , 0
  74.     延时100毫秒
  75.     左键单击
  76.     延时100毫秒
  77.     c=0
  78.     如果 (190,700) 的颜色等于 #ff9900 则
  79.     否则
  80.         调用子程序 找自己
  81.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  82.         如果表达式 (intX2>=0 and intY2>=0) 为真,则
  83.             按键<F5>
  84.         否则
  85.             延时100毫秒
  86.         条件结束
  87.         延时500毫秒
  88.         调用子程序 充电
  89.     条件结束
  90.     延时500毫秒
  91.     （VBScript语句） TRt=timer
  92.     标记 看是否为房主
  93.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  94.     如果表达式 (intX>=0 and intY>=0) 为真,则
  95.         按键<F5>
  96.         延时110毫秒
  97.         按键<Enter>
  98.         延时110毫秒
  99.         （VBScript语句） TRt2=timer
  100.         按键<Enter>