1.         跳转到标记 杀怪中
  2.     条件结束
  3.     调用子程序 捡东西
  4. 子程序结束,回到调用处
  5. //**********************************
  6. 子程序 捡东西
  7.     循环 6 遍
  8.         按住#pick
  9.         延时64毫秒
  10.         弹起#pick
  11.         延时8毫秒
  12.     循环结束
  13. 子程序结束,回到调用处
  14. //*****************************
  15. 子程序 定位
  16.     //防卡信号
  17.     i=1
  18.     鼠标移到 62 , 384
  19.     延时128毫秒
  20.     标记 继续定位
  21.     //拣东西
  22.     循环 2 遍
  23.         按住#pick
  24.         延时64毫秒
  25.         弹起#pick
  26.         延时8毫秒
  27.     循环结束
  28.     调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  29.     如果表达式 (xx1>0) 为真,则
  30.         xx=xx1-cox:yy=yy1-1-coy
  31.         如果表达式 (abs(xx)>1 or abs(yy)>2) 为真,则
  32.             如果表达式 (abs(yy)>1) 为真,则
  33.                 如果表达式 (yy>0) 为真,则
  34.                     按住<W>
  35.                 否则如果(yy<0)为真,则
  36.                     按住<S>
  37.                 条件结束
  38.             条件结束
  39.             循环 2 遍
  40.                 按住#pick
  41.                 延时64毫秒
  42.                 弹起#pick
  43.                 延时8毫秒
  44.             循环结束
  45.             按住#pick
  46.             延时64毫秒
  47.             弹起#pick
  48.             延时320毫秒
  49.             如果表达式 (abs(xx)>1) 为真,则
  50.                 如果表达式 (xx>0) 为真,则
  51.                     按住<A>
  52.                 否则如果(xx<0)为真,则
  53.                     按住<D>
  54.                 条件结束
  55.             条件结束
  56.             循环 3 遍
  57.                 按住#pick
  58.                 延时64毫秒
  59.                 弹起#pick
  60.                 延时192毫秒
  61.             循环结束
  62.             弹起<A>
  63.             弹起<D>
  64.             弹起<S>
  65.             弹起<W>
  66.             //防卡住
  67.             xx2=xx1:yy2=yy1
  68.             调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  69.             如果表达式 (xx2=xx1 and yy2=yy1) 为真,则
  70.                 如果表达式 (i=1) 为真,则
  71.                     如果表达式 (yy>0) 为真,则
  72.                         按住<W>
  73.                     否则如果(yy<0)为真,则
  74.                         按住<S>
  75.                     条件结束
  76.                     如果表达式 (xx>0) 为真,则
  77.                         按键<D>
  78.                     否则如果(xx<0)为真,则
  79.                         按键<A>
  80.                     条件结束
  81.                     循环 2 遍
  82.                         按住#pick
  83.                         延时64毫秒
  84.                         弹起#pick
  85.                         延时192毫秒
  86.                     循环结束
  87.                 否则如果(i=2)为真,则
  88.                     如果表达式 (xx>0) 为真,则
  89.                         按住<A>
  90.                     否则如果(xx<0)为真,则
  91.                         按住<D>
  92.                     条件结束
  93.                     如果表达式 (yy>0) 为真,则
  94.                         按键<S>
  95.                     否则如果(yy<0)为真,则
  96.                         按键<W>
  97.                     条件结束
  98.                     循环 2 遍
  99.                         按住#pick
  100.                         延时64毫秒