1.     调用子程序 战吼2
  2. 子程序结束,回到调用处
  3. //===================每250秒加一次战吼（按键5）=========================
  4. 子程序 战吼2
  5.     如果表达式 (datediff("s",thistime2,now)>240) 为真,则
  6.         //VBSCall messagebox(datediff("s",thistime,now))
  7.         延时100毫秒
  8.         按键<5>
  9.         延时2500毫秒
  10.         thistime2=now
  11.     条件结束
  12.     调用子程序 更换武器2
  13. 子程序结束,回到调用处
  14. //===================每1.5小时更换一次武器（按键7）=========================
  15. 子程序 更换武器2
  16.     如果表达式 (datediff("s",thistime3,now)>5400) 为真,则
  17.         延时100毫秒
  18.         按键<7>
  19.         延时2500毫秒
  20.         thistime3=now
  21.     条件结束
  22.     如果表达式 (datediff("s",thistime4,now)>10800) 为真,则
  23.         延时100毫秒
  24.         按键<Tab>
  25.         延时2500毫秒
  26.         thistime4=now
  27.     条件结束
  28.     调用子程序 Kill NPC2
  29. 子程序结束,回到调用处
  30. //======================打怪（按键1和2）=================================
  31. 子程序 Kill NPC2
  32.     按键<C>
  33.     延时300毫秒
  34.     循环 MaxTime 遍
  35.         如果 (2,122) 的颜色大约等于 #8cbeef 则
  36.             如果 (47,123) 的颜色大约等于 #6b 则
  37.                 按键<1>
  38.                 延时500毫秒
  39.             否则
  40.                 循环 40 遍
  41.                     如果 (47,123) 的颜色大约等于 #6b 则
  42.                         如果 (2,122) 的颜色大约等于 #8cbeef 则
  43.                             按键<2>
  44.                             延时500毫秒
  45.                         否则
  46.                             调用子程序 补血2
  47.                         条件结束
  48.                     否则
  49.                         调用子程序 补血2
  50.                     条件结束
  51.                 循环结束
  52.             条件结束
  53.         否则
  54.             调用子程序 补血2
  55.         条件结束
  56.     循环结束
  57. 子程序结束,回到调用处