1.     调用子程序 更换武器
  2. 子程序结束,回到调用处
  3. //===================每1.5小时更换一次武器（按键7）=========================
  4. 子程序 更换武器
  5.     如果表达式 (datediff("s",thistime3,now)>5400) 为真,则
  6.         延时100毫秒
  7.         按键<7>
  8.         延时2500毫秒
  9.         thistime3=now
  10.     条件结束
  11.     如果表达式 (datediff("s",thistime4,now)>10800) 为真,则
  12.         延时100毫秒
  13.         按键<Tab>
  14.         延时2500毫秒
  15.         thistime4=now
  16.     条件结束
  17.     调用子程序 Kill NPC
  18. 子程序结束,回到调用处
  19. //======================打怪（按键1和2）=================================
  20. 子程序 Kill NPC
  21.     按键<C>
  22.     延时300毫秒
  23.     循环 MaxTime 遍
  24.         如果 (4,162) 的颜色等于 #294573 则
  25.             如果 (72,156) 的颜色等于 #6b 则
  26.                 按键<1>
  27.                 延时500毫秒
  28.             否则
  29.                 循环 40 遍
  30.                     如果 (72,156) 的颜色不等于 #6b 则
  31.                         如果 (4,162) 的颜色等于 #294573 则
  32.                             按键<2>
  33.                             延时500毫秒
  34.                         否则
  35.                             调用子程序 补血
  36.                         条件结束
  37.                     否则
  38.                         调用子程序 补血
  39.                     条件结束
  40.                 循环结束
  41.             条件结束
  42.         否则
  43.             调用子程序 补血
  44.         条件结束
  45.     循环结束
  46. 子程序结束,回到调用处
  47. //=========================================================================
  48. //=========================================================================
  49. //=========================================================================
  50. //=========================================================================
  51. //=========================================================================
  52. //==============================补血（按键8）====================
  53. 子程序 补血2
  54.     如果 (HP2,53) 的颜色大约等于 #ce 则
  55.         调用子程序 补充SP2
  56.     否则
  57.         循环 300 遍
  58.             如果 (171,49) 的颜色大约等于 #9eef 则
  59.                 调用子程序 Kill NPC2
  60.             条件结束
  61.             如果 (198,53) 的颜色大约等于 #ce 则
  62.                 调用子程序 补充SP2
  63.             否则
  64.                 按键<8>
  65.                 延时3000毫秒
  66.                 按键<3>
  67.                 延时16000毫秒
  68.             条件结束
  69.         循环结束
  70.     条件结束
  71. 子程序结束,回到调用处
  72. //==============================补充精力（按键3）============================
  73. 子程序 补充SP2
  74.     如果 (SP2,90) 的颜色大约等于 #42b231 则
  75.         调用子程序 防御2
  76.     否则
  77.         按键<3>
  78.         延时6000毫秒
  79.         按键<3>
  80.         循环 20 遍
  81.             如果 (171,49) 的颜色大约等于 #9eef 则
  82.                 调用子程序 Kill NPC2
  83.             条件结束
  84.             如果 (198,90) 的颜色大约等于 #42b239 则
  85.                 调用子程序 防御2
  86.             否则
  87.                 延时5000毫秒
  88.             条件结束
  89.         循环结束
  90.     条件结束
  91. 子程序结束,回到调用处
  92. //===================每300秒加一次技能（按键4）=========================
  93. 子程序 防御2
  94.     如果表达式 (datediff("s",thistime,now)>290) 为真,则
  95.         //VBSCall messagebox(datediff("s",thistime,now))
  96.         延时100毫秒
  97.         按键<4>
  98.         延时2500毫秒
  99.         thistime=now
  100.     条件结束