1.     //LANN=蓝处始坐标
  2.     如果 (lann,51) 的颜色不等于 #F86008 则
  3.         跳转到标记 出去加红
  4.     否则
  5.         跳转到标记 满的
  6.     条件结束
  7.     标记 出去加红
  8.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"yj.bmp",0.8,x,y)
  9.     如果表达式 (x>=0 and y>=0) 为真,则
  10.         鼠标移到 x , y
  11.         延时100毫秒
  12.         左键单击
  13.     否则
  14.     条件结束
  15.     延时500毫秒
  16.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"yj.bmp",0.8,x,y)
  17.     如果表达式 (x>=0 and y>=0) 为真,则
  18.         鼠标移到 x , y+30*4+10*2+10
  19.         延时100毫秒
  20.         左键单击
  21.     否则
  22.     条件结束
  23.     延时1000毫秒
  24.     循环 3 遍
  25.         按键<Tab>
  26.         延时100毫秒
  27.         鼠标移到 401 , 401
  28.         延时100毫秒
  29.         左键单击
  30.         延时2000毫秒
  31.         按键<Tab>
  32.         延时1000毫秒
  33.     循环结束
  34.     按键<F9>
  35.     延时1000毫秒
  36.     鼠标移到 334 , 220
  37.     延时500毫秒
  38.     左键单击
  39.     延时500毫秒
  40.     ////////////////////人物
  41.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"yj.bmp",0.8,x,y)
  42.     如果表达式 (x>=0 and y>=0) 为真,则
  43.         鼠标移到 x , y+30*4+10*2+10
  44.         延时100毫秒
  45.         左键单击
  46.     否则
  47.     条件结束
  48.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"yj.bmp",0.8,x,y)
  49.     如果表达式 (x>=0 and y>=0) 为真,则
  50.         鼠标移到 x , y+30*4+10*2+10*5
  51.         延时100毫秒
  52.         左键单击
  53.         延时500毫秒
  54.         鼠标移到 x , y+30*4+10*2+10*2+10
  55.         延时100毫秒
  56.         左键单击
  57.         延时500毫秒
  58.         右键单击
  59.     否则
  60.     条件结束
  61.     ////////////////////宠物
  62.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"yj.bmp",0.8,x,y)
  63.     如果表达式 (x>=0 and y>=0) 为真,则
  64.         鼠标移到 x , y+100*2-10
  65.         延时100毫秒
  66.         左键单击
  67.     条件结束
  68.     延时500毫秒
  69.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"yj.bmp",0.8,x,y)
  70.     如果表达式 (x>=0 and y>=0) 为真,则
  71.         鼠标移到 x-10 , y+100*2-10
  72.         延时100毫秒
  73.         左键单击
  74.         延时100毫秒
  75.         右键单击
  76.     条件结束
  77.     /////////////回
  78.     循环 3 遍
  79.         按键<Tab>
  80.         延时500毫秒
  81.         鼠标移到 267 , 352
  82.         延时100毫秒
  83.         左键单击
  84.         延时1000毫秒
  85.         按键<Tab>
  86.     循环结束
  87.     //回到镜妖
  88.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(0,0,1023,767,"yj.bmp",0.8,x,y)
  89.     如果表达式 (x>=0 and y>=0) 为真,则
  90.         鼠标移到 x+20*2 , y+50*2+10*3+10+9
  91.         延时500毫秒
  92.         左键单击
  93.         延时500毫秒
  94.     条件结束
  95.     //jin tu fang wu
  96. 子程序结束,回到调用处