1.     延时2000毫秒
  2.     按键<Enter>
  3.     鼠标移到 520 , 100
  4.     延时100毫秒
  5.     左键单击
  6.     标记 结束备用充电
  7. 子程序结束,回到调用处
  8. 子程序 sd询问确认
  9.     c=0
  10.     标记 sd询问确认start
  11.     延时400毫秒
  12.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  13.     如果表达式 (intX>=0 and intY>=0) 为真,则
  14.         延时100毫秒
  15.         鼠标移到 intX , intY+10
  16.         延时100毫秒
  17.         左键单击
  18.         延时100毫秒
  19.     否则
  20.         如果表达式 (c<=YS) 为真,则
  21.             c=c+1
  22.             跳转到标记 sd询问确认start
  23.         否则
  24.             c=0
  25.         条件结束
  26.     条件结束
  27. 子程序结束,回到调用处
  28. 子程序 sd确认
  29.     c=0
  30.     标记 sd确认start
  31.     延时400毫秒
  32.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  33.     如果表达式 (intX>=0 and intY>=0) 为真,则
  34.         延时100毫秒
  35.         鼠标移到 intX , intY+10
  36.         延时100毫秒
  37.         左键单击
  38.         延时100毫秒
  39.     否则
  40.         如果表达式 (c<=YS) 为真,则
  41.             c=c+1
  42.             跳转到标记 sd确认start
  43.         否则
  44.             c=0
  45.         条件结束
  46.     条件结束
  47. 子程序结束,回到调用处
  48. 子程序 充电
  49.     c=0
  50.     标记 充电start
  51.     调用子程序 找自己
  52.     如果表达式 (intX>=0 and intY>=0) 为真,则
  53.     否则
  54.         跳转到标记 结束充电
  55.     条件结束
  56.     鼠标移到 intX+30 , intY+130
  57.     延时100毫秒
  58.     硬件模拟鼠标相对移动 -10 , -10
  59.     延时100毫秒
  60.     右键单击
  61.     延时100毫秒
  62.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  63.     如果表达式 (intX>=0 and intY>=0) 为真,则
  64.         鼠标移到 intX , intY+39
  65.         延时100毫秒
  66.         硬件模拟鼠标相对移动 6 , -3
  67.         延时100毫秒
  68.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  69.         如果表达式 (intX>=0 and intY>=0) 为真,则
  70.             左键单击
  71.             调用子程序 sd询问确认
  72.             调用子程序 sd确认
  73.         否则
  74.             鼠标移到 520 , 215
  75.             延时100毫秒
  76.             左键单击
  77.             调用子程序 备用充电
  78.         条件结束
  79.     否则
  80.     条件结束
  81.     标记 结束充电
  82. 子程序结束,回到调用处
  83. 子程序 擂台攻击
  84.     c=0
  85.     c2=0
  86.     标记 1
  87.     如果表达式 (chaoshi=0) 为真,则
  88.         调用子程序 259才杀
  89.     条件结束
  90.     按键<2>
  91.     wq=2
  92.     右键按下
  93.     调用子程序 环境判断
  94.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  95.     如果表达式 (intX>=0 and intY>=0) 为真,则
  96.     否则
  97.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  98.     条件结束
  99.     如果表达式 (intX>=0 and intY>=0) 为真,则
  100.         跳转到标记 开始攻击