1.     （VBScript语句） gjjn3=now
  2.     延时gjjn3szt*1030毫秒
  3. 条件结束
  4. 如果 (491,23) 的颜色等于 #000000 则
  5.     跳转到标记 拾取
  6. 条件结束
  7. 延时700毫秒
  8. 如果表达式 (datediff("s",gjjn2,now)>=gjjn2lqt) 为真,则
  9.     按键<F3>
  10.     （VBScript语句） gjjn2=now
  11.     延时gjjn2szt*1030毫秒
  12. 条件结束
  13. 如果 (491,23) 的颜色等于 #000000 则
  14.     跳转到标记 拾取
  15. 条件结束
  16. 如果表达式 (datediff("s",gjjn1,now)>=gjjn1lqt) 为真,则
  17.     按键<2>
  18.     （VBScript语句） gjjn1=now
  19.     延时gjjn1szt*1030毫秒
  20. 条件结束
  21. 如果 (491,23) 的颜色等于 #000000 则
  22.     跳转到标记 拾取
  23. 条件结束
  24. 调用外部VBScript子程序 在屏幕区域里查找图形(7,114,18,126,"bb2.bmp",0.9,x,y)
  25. 如果表达式 (x>=0 and y>=0) 为真,则
  26.     按键<Esc>
  27.     跳转到标记 1
  28. 条件结束
  29. //检查有无黑点(是不是可攻击的物体)
  30. 调用外部VBScript子程序 在屏幕区域里查找图形(7,114,18,126,"bb2.bmp",0.9,x,y)
  31. 如果表达式 (x<0 and y<0) 为真,则
  32.     跳转到标记 1
  33. 条件结束
  34. //看人物是否使用宠物技能补血
  35. 如果 (8+200*Var4,49) 的颜色等于 #000000 则
  36.     鼠标移到 37 , 12
  37.     延时200毫秒
  38.     左键单击
  39.     延时200毫秒
  40.     按住<Alt>
  41.     按键<4>
  42.     弹起<Alt>
  43.     延时500毫秒
  44.     调用子程序 tab
  45. 条件结束
  46. 如果表达式 (datediff("s",gjjn4,now)>=gjjn4lqt) 为真,则
  47.     按键<F5>
  48.     （VBScript语句） gjjn4=now
  49.     延时gjjn4szt*1030毫秒
  50. 条件结束
  51. 如果 (491,23) 的颜色等于 #000000 则
  52.     跳转到标记 拾取
  53. 条件结束
  54. 按键<1>
  55. 延时700毫秒
  56. 如果 (491,23) 的颜色等于 #000000 则
  57.     跳转到标记 拾取
  58. 条件结束
  59. 如果表达式 (datediff("s",gjjn1,now)>=gjjn1lqt) 为真,则
  60.     按键<F2>
  61.     （VBScript语句） gjjn1=now
  62.     延时gjjn1szt*1030毫秒
  63. 条件结束
  64. 如果 (491,23) 的颜色等于 #000000 则
  65.     跳转到标记 拾取
  66. 条件结束
  67. 调用外部VBScript子程序 在屏幕区域里查找图形(7,114,18,126,"bb2.bmp",0.9,x,y)
  68. 如果表达式 (x>=0 and y>=0) 为真,则
  69.     按键<Esc>
  70.     跳转到标记 1
  71. 条件结束
  72. //看是否需要复活宠物
  73. 如果 (45,134) 的颜色大约等于 #0d1123 则
  74.     鼠标移到 45 , 135
  75.     延时200毫秒
  76.     左键单击
  77.     延时200毫秒
  78.     按住<Ctrl>
  79.     按键<F1>
  80.     弹起<Ctrl>
  81.     延时200毫秒
  82.     调用子程序 tab
  83. 条件结束
  84. //人物是否需要吃药补血
  85. 如果 (8+200*Var0,49) 的颜色等于 #000000 则
  86.     按键<F6>
  87.     延时200毫秒
  88. 条件结束
  89. 延时400毫秒
  90. 按键<F1>
  91. 延时1000毫秒
  92. //人物是否需要吃药补蓝
  93. 如果 (8+200*Var9,64) 的颜色大约等于 #0d0200 则
  94.     按键<F7>
  95.     延时200毫秒
  96. 条件结束
  97. 如果表达式 (datediff("s",gjjn2,now)>=gjjn2lqt) 为真,则
  98.     按键<F3>
  99.     （VBScript语句） gjjn2=now
  100.     延时gjjn2szt*1030毫秒