1.                 调用子程序 解黄毒
  2.                 调用子程序 解绿毒
  3.                 调用子程序 解绿毒
  4.                 调用子程序 解诅咒
  5.                 调用子程序 解诅咒
  6.                 跳转到标记 【开始】
  7.                 跳转到标记 【开始】
  8.             条件结束
  9.         条件结束
  10.     子程序结束,回到调用处
  11. 子程序结束,回到调用处
  12. //===============================
  13. //===============================
  14. 子程序 有祝福
  15.     子程序 有祝福
  16.         如果 (1000,79) 的颜色不等于 #0 则
  17.             如果 (1000,79) 的颜色不等于 #0 则
  18.                 如果 (992,73) 的颜色不等于 #0 则
  19.                     如果 (992,73) 的颜色不等于 #0 则
  20.                         如果 (968,79) 的颜色不等于 #0 则
  21.                             如果 (968,79) 的颜色不等于 #0 则
  22.                                 如果 (960,73) 的颜色不等于 #0 则
  23.                                     如果 (960,73) 的颜色不等于 #0 则
  24.                                         如果 (936,79) 的颜色不等于 #0 则
  25.                                             如果 (936,79) 的颜色不等于 #0 则
  26.                                                 // Gosub 群上限和防
  27.                                                 // Gosub 群上限和防
  28.                                                 调用子程序 单加上限和防
  29.                                                 调用子程序 单加上限和防
  30.                                                 调用子程序 自动吃红蓝
  31.                                                 调用子程序 自动吃红蓝
  32.                                             条件结束
  33.                                         条件结束
  34.                                     条件结束
  35.                                 条件结束
  36.                             条件结束
  37.                         条件结束
  38.                     条件结束
  39.                 条件结束
  40.             条件结束
  41.         条件结束
  42.     子程序结束,回到调用处
  43. 子程序结束,回到调用处
  44. //===============================
  45. //===============================
  46. 子程序 +SX
  47.     子程序 +SX
  48.         （VBScript语句） bt=time
  49.         （VBScript语句） bt=time
  50.         （VBScript语句） ct=DateDiff("s",at,bt)
  51.         （VBScript语句） ct=DateDiff("s",at,bt)
  52.         （VBScript语句） ct=Abs(ct)
  53.         （VBScript语句） ct=Abs(ct)
  54.         如果表达式 (ct>605) 为真,则
  55.             如果表达式 (ct>605) 为真,则
  56.                 （VBScript语句） at=time
  57.                 （VBScript语句） at=time
  58.                 延时2000毫秒
  59.                 延时2000毫秒
  60.                 // Gosub 群上限和防
  61.                 // Gosub 群上限和防
  62.                 调用子程序 单加上限和防
  63.                 调用子程序 单加上限和防
  64.             条件结束
  65.         条件结束
  66.     子程序结束,回到调用处
  67. 子程序结束,回到调用处
  68. //===============================
  69. //===============================
  70. 子程序 +SX&F
  71.     子程序 +SX&F
  72.         如果 (871,12) 的颜色大约等于 #217939 则
  73.             如果 (871,12) 的颜色大约等于 #217939 则
  74.                 如果 (900,12) 的颜色大约等于 #108a52 则
  75.                     如果 (900,12) 的颜色大约等于 #108a52 则
  76.                         如果 (955,12) 的颜色大约等于 #ffffff 则
  77.                             如果 (955,12) 的颜色大约等于 #ffffff 则
  78.                                 调用子程序 有祝福
  79.                                 调用子程序 有祝福
  80.                             条件结束
  81.                         条件结束
  82.                     条件结束
  83.                 条件结束
  84.             否则
  85.             否则
  86.                 调用子程序 无祝福
  87.                 调用子程序 无祝福
  88.             条件结束
  89.         条件结束
  90.     子程序结束,回到调用处
  91. 子程序结束,回到调用处
  92. //===============================
  93. //===============================
  94. 子程序 无祝福
  95.     子程序 无祝福
  96.         如果 (1000,55) 的颜色不等于 #0 则
  97.             如果 (1000,55) 的颜色不等于 #0 则
  98.                 如果 (992,50) 的颜色不等于 #0 则
  99.                     如果 (992,50) 的颜色不等于 #0 则
  100.                         如果 (968,55) 的颜色不等于 #0 则