1.     条件结束
  2.     如果表达式 (JumpPoint=3) 为真,则
  3.         跳转到标记 跳转点制皮
  4.     条件结束
  5. 条件结束
  6. 如果表达式 (ObjN(0)=0 or ObjN(3)>200) 为真,则
  7.     跳转到标记 跳转点制皮
  8. 条件结束
  9. 跳转到标记 初始化完成
  10. //-------------------------- 子程序 主体 --------------------
  11. 子程序 走到指定坐标
  12.     调用子程序 读取坐标
  13.     dx=abs(walktop(0)-pxy(0)):dy=abs(walktop(1)-pxy(1))
  14.     如果表达式 ((dx>1 or dy>1)) 为真,则循环执行
  15.         如果表达式 (abs(walktop(1)-pxy(1))>1) 为真,则
  16.             如果表达式 (walktop(1)>pxy(1)) 为真,则
  17.                 tk=38
  18.             否则
  19.                 tK=40
  20.             条件结束
  21.         否则
  22.             如果表达式 (abs(walktop(0)-pxy(0))>1) 为真,则
  23.                 如果表达式 (walktop(0)>pxy(0)) 为真,则
  24.                     tK=39
  25.                 否则
  26.                     tK=37
  27.                 条件结束
  28.             条件结束
  29.         条件结束
  30.         按住#tk
  31.         延时500毫秒
  32.         弹起#tk
  33.         调用子程序 取消PK
  34.         调用子程序 读取坐标
  35.         dx=abs(walktop(0)-pxy(0)):dy=abs(walktop(1)-pxy(1))
  36.     循环结束
  37. 子程序结束,回到调用处
  38. 子程序 走到采集点
  39.     mark=0
  40.     如果表达式 (mark=0) 为真,则循环执行
  41.         调用子程序 点击采集点
  42.         t=Timer
  43.         如果表达式 (((Timer-t+86400) mod 86400)<tToGet and mark=0) 为真,则循环执行
  44.             调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  45.             如果表达式 (tx>0 and ty>0) 为真,则
  46.                 延时500毫秒
  47.                 按住<Down>
  48.                 延时500毫秒
  49.                 弹起<Down>
  50.                 延时100毫秒
  51.                 按键#asc(keys(3))
  52.                 延时500毫秒
  53.                 按键#asc(keys(3))
  54.                 延时256毫秒
  55.                 mark=1
  56.             条件结束
  57.             调用子程序 取消PK
  58.             延时100毫秒
  59.         循环结束
  60.         如果表达式 (mark=0) 为真,则
  61.             调用子程序 取消PK
  62.             调用子程序 读取坐标
  63.             dx=abs(2476-pxy(0)):dy=abs(1733-pxy(1))
  64.             如果表达式 (dx<30 and dy<30) 为真,则
  65.                 WalkToP(0)=2476:WalkToP(1)=1733
  66.                 调用子程序 走到指定坐标
  67.                 调用外部VBScript子程序 在屏幕区域里查找图形(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
  68.                 如果表达式 (tx>0 and ty>0) 为真,则
  69.                     mark=1
  70.                 条件结束
  71.             否则
  72.                 tToGet=30
  73.             条件结束
  74.         条件结束
  75.     循环结束
  76.     tToGet=160
  77. 子程序结束,回到调用处
  78. 子程序 检查数值
  79.     调用子程序 取消PK
  80.     tx=cx+372:ty=cy+723:i=0:ptx=tx:pty=ty:clfont="E0E0E0"
  81.     循环 4 遍
  82.         ObjN(i)=0:k=1
  83.         循环 3 遍
  84.             调用子程序 读取单个数字
  85.             ObjN(i)=ObjN(i)+num*k
  86.             k=k*10
  87.             如果表达式 (((num mod 2)=1 and num<>7) or num=0) 为真,则
  88.                 tx=tx-9
  89.             否则
  90.                 如果表达式 (num=4) 为真,则
  91.                     tx=tx-11
  92.                 否则
  93.                     tx=tx-10
  94.                 条件结束
  95.             条件结束
  96.         循环结束
  97.         i=i+1
  98.         tx=ptx+43*i
  99.     循环结束
  100. 子程序结束,回到调用处