1.         延时500毫秒
  2.         鼠标移到 60+cx , 545+cy
  3.         延时96毫秒
  4.         左键单击
  5.         延时128毫秒
  6.         调用子程序 检查数值
  7.         调用子程序 检查背包空格
  8.         如果表达式 (ObjN(2)>3 and ObjN(1)>0 and isPacFull=0) 为真,则循环执行
  9.             延时5000毫秒
  10.             调用子程序 取消PK
  11.             调用子程序 检查数值
  12.             调用子程序 检查背包空格
  13.         循环结束
  14.         按键<Left>
  15.         延时96毫秒
  16.         按键<Right>
  17.         延时96毫秒
  18.         调用子程序 关闭窗口
  19.         调用子程序 打开购物窗口
  20.         调用子程序 卖裤子
  21.         如果表达式 (ObjN(1)=0) 为真,则
  22.             调用子程序 买剪刀
  23.         条件结束
  24.         调用子程序 关闭窗口
  25.     循环结束
  26. 子程序结束,回到调用处
  27. 子程序 走到小贩旁边
  28.     tx=-1:ty=-1
  29.     如果表达式 (tx<0 and ty<0) 为真,则循环执行
  30.         调用子程序 取消PK
  31.         调用子程序 打开宁海城地图
  32.         鼠标移到 cx+396 , cy+469
  33.         延时96毫秒
  34.         左键单击
  35.         延时128毫秒
  36.         按键#asc(keys(6))
  37.         按键#asc("M")
  38.         t=Timer
  39.         如果表达式 (((Timer-t+86400) mod 86400)<15) 为真,则循环执行
  40.             延时500毫秒
  41.         循环结束
  42.         按住<Right>
  43.         延时500毫秒
  44.         弹起<Right>
  45.         按键<F12>
  46.         调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  47.     循环结束
  48. 子程序结束,回到调用处
  49. 子程序 打开购物窗口
  50.     按键<F12>
  51.     延时1000毫秒
  52.     tx=-1:ty=-1
  53.     如果表达式 (tx<0 and ty<0) 为真,则循环执行
  54.         如果表达式 (tx<0 and ty<0) 为真,则循环执行
  55.             调用子程序 取消PK
  56.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  57.             如果表达式 (tx<0 and ty<0) 为真,则
  58.                 调用子程序 走到小贩旁边
  59.             条件结束
  60.         循环结束
  61.         鼠标移到 tx+10 , ty+132
  62.         延时96毫秒
  63.         左键单击
  64.         延时2000毫秒
  65.         调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  66.     循环结束
  67.     鼠标移到 tx+36 , ty+115
  68.     延时96毫秒
  69.     左键单击
  70.     延时3000毫秒
  71. 子程序结束,回到调用处
  72. 子程序 买剪刀
  73.     调用子程序 取消PK
  74.     tx=-1:ty=-1
  75.     如果表达式 (tx<0 and ty<0) 为真,则循环执行
  76.         调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  77.     循环结束
  78.     鼠标移到 tx+10 , ty+10
  79.     延时96毫秒
  80.     右键单击
  81.     延时1000毫秒
  82. 子程序结束,回到调用处
  83. 子程序 买弓箭
  84.     调用子程序 取消PK
  85.     调用子程序 检查数值
  86.     如果表达式 (ObjN(0)<nGongJian) 为真,则
  87.         调用子程序 打开购物窗口
  88.         tx=-1:ty=-1
  89.         如果表达式 (tx<0 and ty<0) 为真,则循环执行
  90.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  91.         循环结束
  92.         鼠标移到 tx+10 , ty+10
  93.         延时96毫秒
  94.         i=nGongJian-ObjN(0)
  95.         循环 i 遍
  96.             右键单击
  97.             延时2000毫秒
  98.         循环结束
  99.     条件结束
  100. 子程序结束,回到调用处