1.             弹起 <Alt>
  2.             延时300毫秒
  3.             左键单击
  4.             延时100毫秒
  5.             鼠标移到 330 , 200
  6.             延时100毫秒
  7.             右键单击
  8.             如果表达式 (zb=3) 为真,则
  9.                 延时100毫秒
  10.                 按住 <Alt>
  11.                 按键 <D>
  12.                 弹起 <Alt>
  13.                 延时100毫秒
  14.             否则
  15.                 延时100毫秒
  16.                 按住 <Alt>
  17.                 按键 <A>
  18.                 弹起 <Alt>
  19.                 延时100毫秒
  20.             条件结束
  21.         条件结束
  22.     条件结束
  23. 子程序结束,回到调用处
  24. 子程序 找怪
  25.     标记 7
  26.     延时10毫秒
  27.     bx=330:by=252
  28.     调用子程序 跳到目标点
  29.     循环 2 遍
  30.         左键单击
  31.         调用子程序 验证
  32.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  33.         如果表达式 (x1>0 and y1>0) 为真,则
  34.             延时1000毫秒
  35.             调用子程序 抓宝宝
  36.             跳转到标记 6
  37.             延时100毫秒
  38.         条件结束
  39.         延时400毫秒
  40.     循环结束
  41.     延时100毫秒
  42.     bx=330:by=132
  43.     调用子程序 跳到目标点
  44.     循环 4 遍
  45.         左键单击
  46.         延时100毫秒
  47.         调用子程序 验证
  48.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  49.         如果表达式 (x1>0 and y1>0) 为真,则
  50.             延时1000毫秒
  51.             调用子程序 抓宝宝
  52.             跳转到标记 6
  53.         条件结束
  54.         延时400毫秒
  55.     循环结束
  56.     延时100毫秒
  57.     bx=98:by=370
  58.     调用子程序 跳到目标点
  59.     循环 4 遍
  60.         左键单击
  61.         延时100毫秒
  62.         调用子程序 验证
  63.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  64.         如果表达式 (x1>0 and y1>0) 为真,则
  65.             延时1000毫秒
  66.             调用子程序 抓宝宝
  67.             跳转到标记 6
  68.         条件结束
  69.         延时500毫秒
  70.     循环结束
  71.     延时100毫秒
  72.     bx=528:by=370
  73.     k=5
  74.     调用子程序 跳到目标点
  75.     循环 3 遍
  76.         左键单击
  77.         延时100毫秒
  78.         调用子程序 验证
  79.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  80.         如果表达式 (x1>0 and y1>0) 为真,则
  81.             延时1000毫秒
  82.             调用子程序 抓宝宝
  83.             跳转到标记 6
  84.         条件结束
  85.         延时500毫秒
  86.     循环结束
  87.     延时100毫秒
  88.     跳转到标记 7
  89. 子程序结束,回到调用处
  90. 子程序 游戏鼠标定位
  91.     q=0
  92.     标记 P
  93.     如果表达式 (q>3) 为真,则
  94.         跳转到标记 qq
  95.     条件结束
  96.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  97.     如果表达式 (x9>660 or y9<20 or x9<25 or y9>502) 为真,则
  98.         鼠标移到 330 , 200
  99.     条件结束
  100.     调用插件命令 XY = Color.FindMutiColor(0, 0, 620, 502, "5AFF9C", "5|7|633818", 0.6)