1. 子程序 检测XI 是否已满
  2.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(704,641,909,695,"1372f4,0",1,0.9,x,y)
  3.     如果表达式 (x>=0 and y>=0) 为真,则
  4.         鼠标移到 x , y
  5.         延时200毫秒
  6.         左键单击
  7.         调用子程序 刷XP
  8.     条件结束
  9. 子程序结束,回到调用处
  10. 子程序 刷XP
  11.     循环 93 遍
  12.         按键<4>
  13.         延时200毫秒
  14.         鼠标移到 514 , 429
  15.         延时100毫秒
  16.         右键单击
  17.         延时220毫秒
  18.         调用子程序 判断经验球
  19.     循环结束
  20.     调用子程序 回城买随即
  21. 子程序结束,回到调用处
  22. 子程序 回城买随即
  23.     按键<2>
  24.     延时2000毫秒
  25.     按键<1>
  26.     延时2000毫秒
  27. 子程序结束,回到调用处
  28. 子程序 判断经验球
  29.     如果 (145,72) 的颜色等于 #92621f 则
  30.         延时100毫秒
  31.         按键<3>
  32.         弹起<3>
  33.     条件结束
  34. 子程序结束,回到调用处