1.                 条件结束
  2.             条件结束
  3.         否则
  4.             如果 (lann,51) 的颜色不等于 #F86008 则
  5.                 //没打开就按键
  6.                 按住<Alt>
  7.                 延时10毫秒
  8.                 按键<E>
  9.                 延时10毫秒
  10.                 弹起<Alt>
  11.             否则
  12.             条件结束
  13.         条件结束
  14.     否则
  15.         //加血
  16.     条件结束
  17. 否则
  18. 条件结束
  19. 跳转到标记 一开始
  20. 脚本停止运行
  21. 标记 ====================以下为子程序========================
  22. 子程序 蓝，舍
  23.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
  24.     如果表达式 (x>=0 and y>=0) 为真,则
  25.         鼠标移到 x+10 , y+10
  26.         延时200毫秒
  27.         左键双击
  28.         延时500毫秒
  29.     否则
  30.         弹出窗口 请问您有 舍利子 吗?(停止运行)
  31.     脚本停止运行
  32. 条件结束
  33. 子程序结束,回到调用处
  34. 子程序 蓝，碧水
  35.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
  36.     如果表达式 (x>=0 and y>=0) 为真,则
  37.         鼠标移到 x+10 , y+10
  38.         延时200毫秒
  39.         左键双击
  40.         延时500毫秒
  41.     否则
  42.         弹出窗口 请问您有 碧水清茗 吗?(停止运行)
  43.     脚本停止运行
  44. 条件结束
  45. 子程序结束,回到调用处
  46. 子程序 羹
  47.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
  48.     如果表达式 (x>=0 and y>=0) 为真,则
  49.         鼠标移到 x+10 , y+10
  50.         延时200毫秒
  51.         左键双击
  52.         延时500毫秒
  53.     否则
  54.         弹出窗口 请问您有 蟹黄豆腐羹 吗?(停止运行)
  55.     脚本停止运行
  56. 条件结束
  57. 子程序结束,回到调用处
  58. 子程序 血，天元
  59.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
  60.     如果表达式 (x>=0 and y>=0) 为真,则
  61.         鼠标移到 x+10 , y+10
  62.         延时200毫秒
  63.         左键双击
  64.         延时500毫秒
  65.     否则
  66.         弹出窗口 请问您有 天元聚集丹 吗?(停止运行)
  67.     脚本停止运行
  68. 条件结束
  69. 子程序结束,回到调用处
  70. 子程序 血，鬼哭
  71.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
  72.     如果表达式 (x>=0 and y>=0) 为真,则
  73.         鼠标移到 x+10 , y+10
  74.         延时200毫秒
  75.         左键双击
  76.         延时500毫秒
  77.     否则
  78.         弹出窗口 请问您有 鬼枯滕 吗?(停止运行)
  79.     脚本停止运行
  80. 条件结束
  81. 子程序结束,回到调用处
  82. 子程序 血，饭
  83.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
  84.     如果表达式 (x>=0 and y>=0) 为真,则
  85.         鼠标移到 x+10 , y+10
  86.         延时200毫秒
  87.         左键双击
  88.         延时500毫秒
  89.     否则
  90.         弹出窗口 请问您有 扬州炒饭 吗?(停止运行)
  91.     脚本停止运行
  92. 条件结束
  93. 子程序结束,回到调用处