1.             左键单击
  2.             延时128毫秒
  3.         条件结束
  4.         鼠标移到 60+cx , 545+cy
  5.         延时96毫秒
  6.         左键单击
  7.         延时128毫秒
  8.         延时1000毫秒
  9.         tx=1:ty=1
  10.         如果表达式 (tx>0 and ty>0) 为真,则循环执行
  11.             调用子程序 取消PK
  12.             鼠标移到 60+cx , 545+cy
  13.             延时96毫秒
  14.             左键单击
  15.             延时5000毫秒
  16.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  17.         循环结束
  18.         调用子程序 检查数值
  19.         如果表达式 (ObjN(3)>24) 为真,则
  20.             调用子程序 关闭窗口
  21.             调用子程序 回宁海城
  22.         条件结束
  23.     循环结束
  24. 子程序结束,回到调用处
  25. 子程序 回宁海城
  26.     t=Timer:mark=0
  27.     如果表达式 (mark=0) 为真,则循环执行
  28.         调用子程序 打开宁海城地图
  29.         鼠标移到 cx+370 , cy+398
  30.         延时96毫秒
  31.         左键单击
  32.         延时1000毫秒
  33.         按键#asc(keys(6))
  34.         按键#asc("M")
  35.         t=Timer
  36.         如果表达式 (((Timer-t+86400) mod 86400)<180 and mark=0) 为真,则循环执行
  37.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  38.             如果表达式 (tx>0 and ty>0) 为真,则
  39.                 延时1000毫秒
  40.                 按住<Up>
  41.                 延时128毫秒
  42.                 弹起<Up>
  43.                 mark=1
  44.             条件结束
  45.             延时500毫秒
  46.         循环结束
  47.         如果表达式 (mark=0) 为真,则
  48.             调用子程序 关闭宝宝
  49.             调用子程序 召唤宝宝
  50.         条件结束
  51.         调用子程序 取消PK
  52.     循环结束
  53. 子程序结束,回到调用处
  54. 子程序 召唤宝宝
  55.     按住<Down>
  56.     延时128毫秒
  57.     弹起<Down>
  58.     延时1000毫秒
  59.     按键#asc(keys(1))
  60.     延时6000毫秒
  61.     按键#asc(keys(2))
  62.     延时6000毫秒
  63. 子程序结束,回到调用处
  64. 子程序 关闭宝宝
  65.     tx=1:ty=1
  66.     如果表达式 (tx>=0 and ty>=0) 为真,则循环执行
  67.         调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  68.         如果表达式 (tx>=0 and ty>=0) 为真,则
  69.             鼠标移到 tx+8 , ty+8
  70.             延时256毫秒
  71.             左键单击
  72.             延时3000毫秒
  73.         条件结束
  74.         延时100毫秒
  75.     循环结束
  76. 子程序结束,回到调用处
  77. 子程序 点击采集点
  78.     按键#asc("7")
  79.     调用子程序 打开宁海县地图
  80.     鼠标移到 cx+213 , cy+248
  81.     延时96毫秒
  82.     左键单击
  83.     延时1000毫秒
  84.     按键#
  85.     延时1000毫秒
  86.     按键#
  87. 子程序结束,回到调用处
  88. 子程序 读取单个数字
  89.     如果 (tx+1,ty+1) 的颜色大约等于 #clfont 则
  90.         如果 (tx+5,ty+3) 的颜色大约等于 #clfont 则
  91.             如果 (tx+1,ty+8) 的颜色大约等于 #clfont 则
  92.                 如果 (tx+4,ty+4) 的颜色大约等于 #clfont 则
  93.                     num=3
  94.                 否则
  95.                     num=0
  96.                 条件结束
  97.             否则
  98.                 num=9
  99.             条件结束
  100.         否则