1. 子程序 打开宁海县地图
  2.     调用子程序 取消PK
  3.     k=0:tx=-1:ty=-1
  4.     如果表达式 (k<5) 为真,则循环执行
  5.         按键#asc("M")
  6.         如果表达式 (tx<0 and ty<0 and k<5) 为真,则循环执行
  7.             调用子程序 取消PK
  8.             延时1000毫秒
  9.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  10.             （VBScript语句） k=k+1
  11.         循环结束
  12.         如果表达式 (k=5) 为真,则
  13.             k=0
  14.         否则
  15.             k=5
  16.         条件结束
  17.     循环结束
  18.     鼠标移到 cx+521 , cy+125
  19.     延时96毫秒
  20.     左键单击
  21.     延时1000毫秒
  22.     tx=1
  23.     如果表达式 (tx=1) 为真,则循环执行
  24.         调用子程序 取消PK
  25.         如果 (512+cx,203+cy) 的颜色大约等于 #181F24 则
  26.             tx=2
  27.         否则
  28.             左键单击
  29.         条件结束
  30.         延时1000毫秒
  31.     循环结束
  32.     鼠标移到 cx+480 , cy+160
  33.     延时96毫秒
  34.     左键单击
  35.     延时2000毫秒
  36. 子程序结束,回到调用处
  37. 子程序 打开宁海城地图
  38.     k=0:tx=-1:ty=-1
  39.     如果表达式 (k<5) 为真,则循环执行
  40.         按键#asc("M")
  41.         如果表达式 (tx<0 and ty<0 and k<5) 为真,则循环执行
  42.             调用子程序 取消PK
  43.             延时1000毫秒
  44.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  45.             （VBScript语句） k=k+1
  46.         循环结束
  47.         如果表达式 (k=5) 为真,则
  48.             k=0
  49.         否则
  50.             k=5
  51.         条件结束
  52.     循环结束
  53.     鼠标移到 cx+724 , cy+130
  54.     延时96毫秒
  55.     左键单击
  56.     延时1000毫秒
  57.     tx=1
  58.     如果表达式 (tx=1) 为真,则循环执行
  59.         调用子程序 取消PK
  60.         如果 (710+cx,219+cy) 的颜色大约等于 #272C2F 则
  61.             tx=2
  62.         否则
  63.             左键单击
  64.         条件结束
  65.         延时1000毫秒
  66.     循环结束
  67.     鼠标移到 cx+680 , cy+150
  68.     延时96毫秒
  69.     左键单击
  70.     延时2000毫秒
  71. 子程序结束,回到调用处
  72. 子程序 关闭窗口
  73.     tx=1:ty=1
  74.     如果表达式 (tx>=0 and ty>=0) 为真,则循环执行
  75.         调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  76.         如果表达式 (tx>=0 and ty>=0) 为真,则
  77.             鼠标移到 tx+3 , ty+3
  78.             延时96毫秒
  79.             左键单击
  80.             延时1000毫秒
  81.         条件结束
  82.         延时128毫秒
  83.     循环结束
  84. 子程序结束,回到调用处
  85. 子程序 开始制皮
  86.     如果表达式 (ObjN(3)>24) 为真,则循环执行
  87.         tx=-1:ty=-1
  88.         如果表达式 (tx<0 and ty<0) 为真,则循环执行
  89.             按键#asc(keys(4))
  90.             延时2000毫秒
  91.             调用子程序 取消PK
  92.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  93.             如果表达式 (tx<0 and ty<0) 为真,则
  94.                 调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  95.             条件结束
  96.         循环结束
  97.         按键<F12>
  98.         如果表达式 (tx>=0 and ty>=0) 为真,则
  99.             鼠标移到 tx , ty
  100.             延时96毫秒