1. 子程序 清理窗口
  2.     调用子程序 取消PK
  3.     调用子程序 关闭宝宝
  4.     调用子程序 关闭窗口
  5.     调用子程序 检查数值
  6. 子程序结束,回到调用处
  7. 子程序 开始采集
  8.     //Gosub 清理窗口
  9.     按键<F12>
  10.     调用子程序 检查数值
  11.     pObj=ObjN(3):t2=Timer
  12.     //毛皮数量过多会出错.
  13.     如果表达式 (ObjN(0)>0 and ObjN(3)<985) 为真,则循环执行
  14.         按键#asc("7")
  15.         延时2000毫秒
  16.         按键#asc(keys(3))
  17.         t=Timer
  18.         如果表达式 (((Timer-t+86400) mod 86400)<30) 为真,则循环执行
  19.             延时500毫秒
  20.         循环结束
  21.         调用子程序 检查数值
  22.         如果表达式 (((Timer-t2+86400) mod 86400)>120) 为真,则
  23.             如果表达式 (ObjN(3)=pObj and ObjN(0)>0) 为真,则
  24.                 ObjN(0)=-1
  25.             否则
  26.                 pObj=ObjN(3)
  27.             条件结束
  28.             t2=Timer
  29.             调用子程序 取消PK
  30.             调用子程序 关闭宝宝
  31.         条件结束
  32.     循环结束
  33.     按键<Down>
  34. 子程序结束,回到调用处
  35. 子程序 打开背包
  36.     tx=-1:ty=-1
  37.     如果表达式 (tx<0 and ty<0) 为真,则循环执行
  38.         调用子程序 取消PK
  39.         调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  40.         如果表达式 (tx<0 and ty<0) 为真,则
  41.             按键#asc("B")
  42.             延时2000毫秒
  43.         条件结束
  44.     循环结束
  45. 子程序结束,回到调用处
  46. 子程序 卖裤子
  47.     保存鼠标位置
  48.     鼠标移到 cx+673 , cy+221
  49.     延时1000毫秒
  50.     恢复鼠标位置
  51.     tx=1:ty=1
  52.     如果表达式 (tx>0 and ty>0) 为真,则循环执行
  53.         调用子程序 取消PK
  54.         调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  55.         如果表达式 (tx>0 and ty>0) 为真,则
  56.             鼠标移到 tx+10 , ty+10
  57.             延时96毫秒
  58.             右键单击
  59.             延时1000毫秒
  60.         条件结束
  61.     循环结束
  62.     鼠标移到 346+cx , 209+cy
  63.     延时96毫秒
  64.     左键单击
  65.     延时1000毫秒
  66. 子程序结束,回到调用处
  67. 子程序 检查背包空格
  68.     调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  69.     如果表达式 (tx>0 and ty>0) 为真,则
  70.         isPacFull=0
  71.     否则
  72.         isPacFull=1
  73.     条件结束
  74. 子程序结束,回到调用处
  75. 子程序 开始制衣
  76.     调用子程序 关闭窗口
  77.     调用子程序 检查数值
  78.     如果表达式 (ObjN(2)<4) 为真,则
  79.         调用子程序 打开购物窗口
  80.         调用子程序 卖裤子
  81.         调用子程序 关闭窗口
  82.     条件结束
  83.     如果表达式 (ObjN(2)>3) 为真,则循环执行
  84.         按键#asc("8")
  85.         延时2000毫秒
  86.         按键#asc(keys(5))
  87.         延时1500毫秒
  88.         调用子程序 打开背包
  89.         tx=-1:ty=-1
  90.         如果表达式 (tx<0 and ty<0) 为真,则循环执行
  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.             延时128毫秒
  97.         循环结束
  98.         鼠标移到 tx , ty+10
  99.         延时128毫秒
  100.         左键单击