1.         按键<4>
  2.         延时32毫秒
  3.         t1=now
  4.     条件结束
  5.     如果表达式 (DateDiff("s",t2,now)>=jn(1)) 为真,则
  6.         按键<5>
  7.         延时32毫秒
  8.         t2=now
  9.     条件结束
  10.     如果表达式 (DateDiff("s",t3,now)>=jn(2)) 为真,则
  11.         按键<6>
  12.         延时32毫秒
  13.         t3=now
  14.     条件结束
  15. 子程序结束,回到调用处
  16. 子程序 辅助技能
  17.     如果表达式 (DateDiff("n",t4,now)>=jn(3)) 为真,则
  18.         按键<7>
  19.         延时32毫秒
  20.         t4=now
  21.     条件结束
  22.     如果表达式 (DateDiff("n",t5,now)>=jn(4)) 为真,则
  23.         按键<8>
  24.         延时32毫秒
  25.         t5=now
  26.     条件结束
  27.     如果表达式 (DateDiff("n",t6,now)>=jn(5)) 为真,则
  28.         按键<0>
  29.         延时32毫秒
  30.         t6=now
  31.     条件结束
  32. 子程序结束,回到调用处
  33. 子程序 补红
  34.     如果 (hp*0.79+187,41) 的颜色大约等于 #292984 则
  35.         按键<1>
  36.         调用子程序 生命石
  37.     条件结束
  38. 子程序结束,回到调用处
  39. 子程序 生命石
  40.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  41.     如果表达式 (x<0 and y<0) 为真,则
  42.         如果 ((hp-10)*0.79+187,41) 的颜色大约等于 #292984 则
  43.             按键<Q>
  44.         条件结束
  45.     条件结束
  46. 子程序结束,回到调用处
  47. 子程序 补蓝
  48.     如果 (mp*0.77+190,74) 的颜色大约等于 #843929 则
  49.         按键<2>
  50.         调用子程序 魔法石
  51.     条件结束
  52. 子程序结束,回到调用处
  53. 子程序 魔法石
  54.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  55.     如果表达式 (x<0 and y<0) 为真,则
  56.         如果 ((mp-10)*0.77+190,74) 的颜色大约等于 #843929 则
  57.             按键<E>
  58.         条件结束
  59.     条件结束
  60. 子程序结束,回到调用处
  61. 子程序 解咒1
  62.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  63.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  64.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  65.     调用子程序 B1
  66.     如果表达式 (x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0) 为真,则
  67.         如果表达式 (B<l) 为真,则
  68.             按键<0>
  69.             延时32毫秒
  70.             B=B+1
  71.         条件结束
  72.     条件结束
  73.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  74.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  75.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  76.     调用子程序 Y1
  77.     如果表达式 (x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0) 为真,则
  78.         如果表达式 (Y<l) 为真,则
  79.             按键<0>
  80.             延时32毫秒
  81.             Y=Y+1
  82.         条件结束
  83.     条件结束
  84. 子程序结束,回到调用处
  85. 子程序 B1
  86.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  87.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  88.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  89.     如果表达式 (x1<0 and y1<0 and x2<0 and y2<0 and x<=0 and y3<0) 为真,则
  90.         B=0
  91.     条件结束
  92. 子程序结束,回到调用处
  93. 子程序 Y1
  94.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  95.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  96.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(498,28,500,30,"fffbef",1,0.8,x,y)
  97.     如果表达式 (x1<0 and y1<0 and x2<0 and y2<0 and x<=0 and y3<0) 为真,则
  98.         Y=0
  99.     条件结束
  100. 子程序结束,回到调用处