1.             如果表达式 (bjsound=1) 为真,则
  2.                 strSoundFile = "C:\WINDOWS\Media\Windows XP 启动.wav"
  3.                 Set objShell = CreateObject("Wscript.Shell")
  4.                 strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
  5.                 objShell.Run strCommand, 0, True
  6.             条件结束
  7.             如果表达式 (bjsound=2) 为真,则
  8.                 循环 4 遍
  9.                     响一声
  10.                     响一声
  11.                     响一声
  12.                 循环结束
  13.             条件结束
  14.             bg=now
  15.             输入文本 bg&">包包满了@.@！|||"
  16.             跳转到标记 bb结束
  17.         否则
  18.             跳转到标记 bb结束
  19.         条件结束
  20.     否则
  21.         按住<Alt>
  22.         延时200毫秒
  23.         按键<I>
  24.         延时200毫秒
  25.         弹起<Alt>
  26.         延时1000毫秒
  27.         跳转到标记 ckbb
  28.     条件结束
  29.     标记 bb结束
  30.     按住<Alt>
  31.     延时200毫秒
  32.     按键<I>
  33.     延时200毫秒
  34.     弹起<Alt>
  35. 子程序结束,回到调用处
  36. 子程序 换锄头
  37.     ctnum=ctnum+1
  38.     如果表达式 (ctnum>byongct) 为真,则
  39.         如果表达式 (bjsound=1) 为真,则
  40.             strSoundFile = "C:\WINDOWS\Media\Windows XP 启动.wav"
  41.             Set objShell = CreateObject("Wscript.Shell")
  42.             strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
  43.             objShell.Run strCommand, 0, True
  44.         条件结束
  45.         如果表达式 (bjsound=2) 为真,则
  46.             循环 4 遍
  47.                 响一声
  48.                 响一声
  49.                 响一声
  50.             循环结束
  51.         条件结束
  52.         bg=now
  53.         输入文本 bg&">没有备用锄头了@.@！|||"
  54.         跳转到标记 换锄头结束
  55.     条件结束
  56.     标记 检测背包是否打开
  57.     鼠标移到 zx , zy
  58.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
  59.     如果表达式 (bx>=0 and by>=0) 为真,则
  60.         鼠标移到 bx+17+70 , by+42
  61.         延时500毫秒
  62.         左键单击
  63.         延时200毫秒
  64.         鼠标移到 (bx-65)+ctnum*35 , by+67
  65.         延时500毫秒
  66.         左键双击
  67.         跳转到标记 换锄头结束
  68.     否则
  69.         按住<Alt>
  70.         延时200毫秒
  71.         按键<I>
  72.         延时200毫秒
  73.         弹起<Alt>
  74.         延时1000毫秒
  75.         跳转到标记 检测背包是否打开
  76.     条件结束
  77.     标记 换锄头结束
  78.     按住<Alt>
  79.     延时200毫秒
  80.     按键<I>
  81.     延时200毫秒
  82.     弹起<Alt>
  83. 子程序结束,回到调用处
  84. 子程序 回挂机点
  85.     延时200毫秒
  86.     按住<Alt>
  87.     延时200毫秒
  88.     按键<M>
  89.     延时200毫秒
  90.     弹起<Alt>
  91.     延时600毫秒
  92.     鼠标移到 gwzx , gwzy
  93.     延时400毫秒
  94.     右键单击
  95.     鼠标移到 zx-400 , zy
  96.     标记 检测人物是否已到达挂机点
  97.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
  98.     如果表达式 (px>=0 and py>=0) 为真,则
  99.         如果表达式 (abs(px-gwzx)<=10 and abs(py-gwzy)<=10) 为真,则
  100.             跳转到标记 回挂机点结束