1.             延时70毫秒
  2.             调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  3.             //msgbox dqx&"|"&dqy
  4.             //检查是否还处于挂机范围
  5.             延时70毫秒
  6.             如果表达式 (abs(yd_x-dqx)>hit_xy/2 or abs(yd_y-dqy)>hit_xy/2) 为真,则
  7.                 延时70毫秒
  8.                 调用子程序 回挂机范围
  9.             条件结束
  10.             跳转到标记 s
  11.         条件结束
  12.     否则
  13.         调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  14.         //模糊找色打怪
  15.         如果表达式 (x>0 and y>0) 为真,则
  16.             鼠标移到 x+20 , y+50
  17.             延时50毫秒
  18.             右键单击
  19.             qg=now
  20.             如果 (538,41) 的颜色大约等于 #ghong 则
  21.             否则
  22.                 鼠标移到 x+20 , y+85
  23.                 延时50毫秒
  24.                 右键单击
  25.             条件结束
  26.             如果 (538,41) 的颜色大约等于 #ghong 则
  27.                 标记 check2
  28.                 按键#jn
  29.                 如果 (538,41) 的颜色大约等于 #ghong 则
  30.                     延时ys毫秒
  31.                     如果表达式 (datediff("s",qg,now)>qgtime) 为真,则
  32.                         跳转到标记 s
  33.                     条件结束
  34.                     跳转到标记 check2
  35.                 否则
  36.                     调用子程序 拾取方式
  37.                     //拾取方式 两种
  38.                     标记 checkxy
  39.                     调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  40.                     延时70毫秒
  41.                     调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  42.                     延时70毫秒
  43.                     //msgbox dqx&"|"&dqy
  44.                     如果表达式 (abs(yd_x-dqx)>hit_xy/2 or abs(yd_y-dqy)>hit_xy/2) 为真,则
  45.                         延时70毫秒
  46.                         调用子程序 回挂机范围
  47.                     条件结束
  48.                     跳转到标记 s
  49.                 条件结束
  50.             否则
  51.                 延时700毫秒
  52.                 跳转到标记 s
  53.             条件结束
  54.         条件结束
  55.     条件结束
  56. 条件结束
  57. 跳转到标记 s
  58. 子程序 拾取方式
  59.     //分别为全部拾取和只拾取金币
  60.     如果表达式 (pick=1) 为真,则
  61.         循环 picknum 遍
  62.             按键<Space>
  63.             延时350毫秒
  64.         循环结束
  65.     条件结束
  66.     如果表达式 (pick=2) 为真,则
  67.         循环 picknum 遍
  68.             调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  69.             如果表达式 (pickx>0 and picky>0) 为真,则
  70.                 鼠标移到 pickx , picky
  71.                 延时100毫秒
  72.                 左键单击
  73.             条件结束
  74.             标记 是否拾取与游戏兼容性
  75.             //通过游戏坐标的变化判断是否已经拾取上
  76.             调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  77.             延时70毫秒
  78.             调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  79.             延时100毫秒
  80.             调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  81.             延时70毫秒
  82.             调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  83.             延时70毫秒
  84.             如果表达式 (pick_x=pick_x1 and pick_y=pick_y1) 为真,则
  85.                 跳转到标记 继续
  86.             否则
  87.                 跳转到标记 是否拾取与游戏兼容性
  88.             条件结束
  89.             标记 继续
  90.         循环结束
  91.     条件结束
  92. 子程序结束,回到调用处
  93. //msgbox yd_x&"|"&yd_y
  94. 子程序 回挂机范围
  95.     //回挂机范围以下用到坐标 通过收集可得到 主要是 移动的方向和坐标的增减
  96.     标记 pand
  97.     调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  98.     延时70毫秒
  99.     调用外部VBScript子程序 读取内存地址(bitx,2,yd_x)
  100.     延时70毫秒