1.     MyArray = Split(XY, "|")
  2.     X = Clng(MyArray(0)): Y = Clng(MyArray(1))
  3.     如果表达式 (X>0 and Y>0) 为真,则
  4.         X=X-14:Y=Y-14
  5.     否则
  6.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  7.         如果表达式 (X>0 and Y>0) 为真,则
  8.             X=X-14:Y=Y-14
  9.         否则
  10.             q=q+1
  11.             跳转到标记 P
  12.         条件结束
  13.     条件结束
  14.     标记 qq
  15.     如果表达式 (r=1) 为真,则
  16.         bx=0:by=0:X=0:Y=0
  17.         跳转到标记 u8
  18.     条件结束
  19. 子程序结束,回到调用处
  20. 子程序 跳到目标点
  21.     如果表达式 (bx>580 or by<70 or by>420) 为真,则
  22.         如果表达式 (bx>580 and by<70) 为真,则
  23.             鼠标移到 bx-80 , by+50
  24.         条件结束
  25.         如果表达式 (bx>580 and by>70) 为真,则
  26.             鼠标移到 bx-80 , by
  27.         条件结束
  28.         如果表达式 (bx<580 and by<70) 为真,则
  29.             鼠标移到 bx , by+50
  30.         条件结束
  31.         如果表达式 (bx<580 and by>420) 为真,则
  32.             鼠标移到 bx , by-50
  33.         条件结束
  34.         如果表达式 (bx>580 and by>420) 为真,则
  35.             鼠标移到 bx-50 , by-50
  36.         条件结束
  37.     否则
  38.         鼠标移到 bx , by
  39.     条件结束
  40.     延时50毫秒
  41. 子程序结束,回到调用处
  42. 子程序 ManManYiDong
  43.     调用子程序 跳到目标点
  44.     调用子程序 游戏鼠标定位
  45.     标记 YiDong
  46.     PianYiX = X-bx
  47.     PianYiY = Y-by
  48.     如果表达式 (PianYiX>-4 and PianYiX<4) 为真,则
  49.         PianYiX =0
  50.     条件结束
  51.     如果表达式 (PianYiY>-4 and PianYiY<4) 为真,则
  52.         PianYiY =0
  53.     条件结束
  54.     如果表达式 (PianYiX<>0 or PianYiY<>0) 为真,则
  55.         YiDongX =0
  56.         YiDongY =0
  57.         如果表达式 (PianYiX<>0) 为真,则
  58.             YiDongX = -abs(PianYiX)/PianYiX
  59.         条件结束
  60.         如果表达式 (PianYiY<>0) 为真,则
  61.             YiDongY = -abs(PianYiY)/PianYiY
  62.         条件结束
  63.         鼠标相对移动 YiDongX , YiDongY
  64.         PianYiX = PianYiX + YiDongX
  65.         PianYiY = PianYiY + YiDongY
  66.         延时1毫秒
  67.         调用子程序 游戏鼠标定位
  68.         跳转到标记 YiDong
  69.         //Call MessageBox(x&"|"&y&"|"&bx&"|"&by)
  70.         延时30毫秒
  71.     条件结束
  72. 子程序结束,回到调用处