1.         by=y3
  2.         //Call MessageBox(x3&"|"&y3&"|"&bx&"|"&by)
  3.         调用子程序 ManManYiDong
  4.         延时100毫秒
  5.         右键单击
  6.         延时1000毫秒
  7.     条件结束
  8. 子程序结束,回到调用处
  9. 子程序 技能
  10.     标记 6
  11.     如果表达式 (kh1=1) 为真,则
  12.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  13.         如果表达式 (x1>0 and y1>0) 为真,则
  14.             如果表达式 (r=1) 为真,则
  15.                 调用子程序 抓宝宝
  16.                 跳转到标记 1000
  17.             条件结束
  18.             如果表达式 (RS1=10) 为真,则
  19.                 按住 <Alt>
  20.                 按键 <Q>
  21.                 弹起 <Alt>
  22.                 延时30毫秒
  23.                 按住 <Alt>
  24.                 按键 <Q>
  25.                 弹起 <Alt>
  26.                 延时30毫秒
  27.             条件结束
  28.             如果表达式 (RS1=11) 为真,则
  29.                 按住 <Alt>
  30.                 按键 <A>
  31.                 弹起 <Alt>
  32.                 延时30毫秒
  33.                 按住 <Alt>
  34.                 按键 <A>
  35.                 弹起 <Alt>
  36.                 延时30毫秒
  37.             条件结束
  38.             如果表达式 (RS1=12) 为真,则
  39.                 按住 <Alt>
  40.                 按键 <Q>
  41.                 弹起 <Alt>
  42.                 延时30毫秒
  43.                 按住 <Alt>
  44.                 按键 <A>
  45.                 弹起 <Alt>
  46.                 延时30毫秒
  47.             条件结束
  48.             如果表达式 (RS1=13) 为真,则
  49.                 按住 <Alt>
  50.                 按键 <D>
  51.                 弹起 <Alt>
  52.                 延时30毫秒
  53.                 按住 <Alt>
  54.                 按键 <Q>
  55.                 弹起 <Alt>
  56.                 延时30毫秒
  57.             条件结束
  58.             如果表达式 (RS1=14) 为真,则
  59.                 按住 <Alt>
  60.                 按键 <A>
  61.                 弹起 <Alt>
  62.                 延时30毫秒
  63.                 按住 <Alt>
  64.                 按键 <Q>
  65.                 弹起 <Alt>
  66.                 延时30毫秒
  67.             条件结束
  68.             延时100毫秒
  69.         条件结束
  70.         延时100毫秒
  71.     条件结束
  72.     延时100毫秒
  73.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  74.     如果表达式 (x1>0 and y1>0) 为真,则
  75.         循环 10 遍
  76.             响一声
  77.         循环结束
  78.         延时100毫秒
  79.     条件结束
  80.     标记 1000
  81. 子程序结束,回到调用处
  82. 子程序 杀怪
  83.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,650,502,"Attachment:\宝箱.bmp",0.9,x0,y0)
  84.     如果表达式 (x1>0 and y1>0) 为真,则
  85.         调用子程序 技能
  86.     条件结束
  87. 子程序结束,回到调用处
  88. 子程序 抓宝宝
  89.     如果表达式 (zb=1 or zb=3) 为真,则
  90.         调用插件命令 yu = Color.FindMutiColor(0, 0, 620, 502, "6BDF52", "-6|1|6BDF52,0|1|6BDF52,5|1|6BDF52,-4|4|6BDF52,3|4|6BDF52,-3|8|6BDF52,0|8|6BDF52,3|11|6BDF52,4|11|6BDF52,-5|13|6BDF52,5|13|6BDF52", 0.8)
  91.         MyArray = Split(yu, "|")
  92.         y= Clng(MyArray(0)): u = Clng(MyArray(1))
  93.         如果表达式 (y>0 and u>0) 为真,则
  94.             r=1
  95.             bx=y-15:by=u-40
  96.             延时10毫秒
  97.             调用子程序 ManManYiDong
  98.             延时500毫秒
  99.             按住 <Alt>
  100.             按键 <G>