1.         按住`
  2.         延时100毫秒
  3.         // 紫裝
  4.         调用外部VBScript子程序 Shape=GetCursorShape(0)
  5.         如果表达式 (x2>=0 and y2>=70) 为真,则
  6.             j=0
  7.             循环 6 遍
  8.                 k=0
  9.                 循环 6 遍
  10.                     鼠标移到 x2+30-k*5 , y2+30-j*5
  11.                     调用外部VBScript子程序 Shape=GetCursorShape(0)
  12.                     如果表达式 (Shape=0) 为真,则
  13.                         鼠标相对移动 0 , 25
  14.                         左键单击
  15.                         延时50毫秒
  16.                         左键单击
  17.                         循环 20 遍
  18.                             延时50毫秒
  19.                             按键<Space>
  20.                         循环结束
  21.                     否则如果(Shape=978197372)为真,则
  22.                         调用子程序 CheckMon
  23.                     条件结束
  24.                     k=k+1
  25.                     延时5毫秒
  26.                 循环结束
  27.                 j=j+1
  28.             循环结束
  29.         否则
  30.             如果表达式 (GetBaoVar=1) 为真,则
  31.                 // 先撿後面
  32.                 调用外部VBScript子程序 Shape=GetCursorShape(0)
  33.                 如果表达式 (x2>=0 and y2>=394) 为真,则
  34.                     j=0
  35.                     循环 6 遍
  36.                         k=0
  37.                         循环 6 遍
  38.                             鼠标移到 x2+30-k*5 , y2+30-j*5
  39.                             调用外部VBScript子程序 Shape=GetCursorShape(0)
  40.                             如果表达式 (Shape=0) 为真,则
  41.                                 鼠标相对移动 0 , -20
  42.                                 左键单击
  43.                                 延时50毫秒
  44.                                 左键单击
  45.                                 循环 10 遍
  46.                                     延时50毫秒
  47.                                     按键<Space>
  48.                                 循环结束
  49.                             否则如果(Shape=978197372)为真,则
  50.                                 调用子程序 CheckMon
  51.                             条件结束
  52.                             k=k+1
  53.                             延时5毫秒
  54.                         循环结束
  55.                         j=j+1
  56.                     循环结束
  57.                 否则
  58.                     // 撿中間
  59.                     调用外部VBScript子程序 Shape=GetCursorShape(0)
  60.                     如果表达式 (x2>=0 and y2>=166) 为真,则
  61.                         j=0
  62.                         循环 6 遍
  63.                             k=0
  64.                             循环 6 遍
  65.                                 鼠标移到 x2+30-k*5 , y2+30-j*5
  66.                                 调用外部VBScript子程序 Shape=GetCursorShape(0)
  67.                                 如果表达式 (Shape=0) 为真,则
  68.                                     鼠标相对移动 0 , 25
  69.                                     左键单击
  70.                                     延时50毫秒
  71.                                     左键单击
  72.                                     循环 10 遍
  73.                                         延时50毫秒
  74.                                         按键<Space>
  75.                                     循环结束
  76.                                 否则如果(Shape=978197372)为真,则
  77.                                     调用子程序 CheckMon
  78.                                 条件结束
  79.                                 k=k+1
  80.                                 延时5毫秒
  81.                             循环结束
  82.                             j=j+1
  83.                         循环结束
  84.                     否则
  85.                         // 撿前面
  86.                         调用外部VBScript子程序 Shape=GetCursorShape(0)
  87.                         如果表达式 (x2>=175 and y2>=70) 为真,则
  88.                             j=0
  89.                             循环 6 遍
  90.                                 k=0
  91.                                 循环 6 遍
  92.                                     鼠标移到 x2+30-k*5 , y2+30-j*5
  93.                                     调用外部VBScript子程序 Shape=GetCursorShape(0)
  94.                                     如果表达式 (Shape=0) 为真,则
  95.                                         鼠标相对移动 0 , 25
  96.                                         左键单击
  97.                                         延时50毫秒
  98.                                         左键单击
  99.                                         循环 10 遍
  100.                                             延时50毫秒