1.     调用插件命令 Hong8=DBsoft.OCR(0,331,584,353,593,0,1,11,1,1,"FFFF00",0,0,0)
  2.     延时300毫秒
  3.     //读取蓝药数量
  4.     调用插件命令 Lan7=DBsoft.OCR(0,293,584,319,593,0,1,11,1,1,"FFFF00",0,0,0)
  5.     延时500毫秒
  6.     //红小于60 蓝小于30 回城小于2 就买
  7.     如果表达式 (hong8<=60 or lan7<=30 or hu0<=2) 为真,则
  8.         调用子程序 钱
  9.         标记 杂货店
  10.         延时500毫秒
  11.         //移动到阪泉杂货
  12.         按键<Tab>
  13.         延时300毫秒
  14.         鼠标移到 566 , 254
  15.         延时300毫秒
  16.         左键单击
  17.         延时300毫秒
  18.         按键<Tab>
  19.         延时100毫秒
  20.         调用子程序 当前坐标
  21.         inputx=212:inputy=198:t1=now:gamex1=cint(gamex1):gamey1=cint(gamey1)
  22.         //移动延时
  23.         延时10000毫秒
  24.         调用子程序 移动
  25.         调用外部VBScript子程序 call 在屏幕区域里查找图形(0,0,1280,1024,"Attachment:\lian.bmp",0.9,lx,ly)
  26.         如果表达式 (DX>=0 and dy>=0) 为真,则
  27.             延时100毫秒
  28.             鼠标移到 dx , dy+60
  29.             延时300毫秒
  30.             右键单击
  31.             延时300毫秒
  32.             鼠标移到 585 , 230
  33.             延时500毫秒
  34.             左键单击
  35.             延时1500毫秒
  36.             //买红
  37.             如果表达式 (cint(hong8)<cint(hong)) 为真,则
  38.                 鼠标移到 88 , 189
  39.                 延时1000毫秒
  40.                 左键单击
  41.                 延时300毫秒
  42.                 鼠标移到 246 , 445
  43.                 延时300毫秒
  44.                 左键单击
  45.                 延时300毫秒
  46.                 按键<BackSpace>
  47.                 延时300毫秒
  48.                 //a=180-hong8
  49.                 输入文本 cstr(cint(Hong)-cint(hong8))
  50.                 延时300毫秒
  51.                 鼠标移到 237 , 475
  52.                 延时300毫秒
  53.                 左键单击
  54.                 延时32毫秒
  55.             条件结束
  56.             //买蓝
  57.             如果表达式 (cint(lan7)<cint(lan)) 为真,则
  58.                 鼠标移到 88 , 229
  59.                 延时300毫秒
  60.                 左键单击
  61.                 延时300毫秒
  62.                 鼠标移到 246 , 445
  63.                 延时300毫秒
  64.                 左键单击
  65.                 延时300毫秒
  66.                 按键<BackSpace>
  67.                 延时300毫秒
  68.                 输入文本 cstr(cint(Lan)-cint(lan7))
  69.                 延时300毫秒
  70.                 鼠标移到 237 , 475
  71.                 延时300毫秒
  72.                 左键单击
  73.                 延时32毫秒
  74.             条件结束
  75.             //买回
  76.             如果表达式 (cint(hu0)<30) 为真,则
  77.                 鼠标移到 55 , 269
  78.                 延时300毫秒
  79.                 左键单击
  80.                 延时300毫秒
  81.                 鼠标移到 246 , 445
  82.                 延时300毫秒
  83.                 左键单击
  84.                 延时300毫秒
  85.                 按键<BackSpace>
  86.                 延时300毫秒
  87.                 输入文本 cstr(30-cint(Hu0))
  88.                 延时300毫秒
  89.                 鼠标移到 237 , 475
  90.                 延时300毫秒
  91.                 左键单击
  92.             条件结束
  93.             //结束购买
  94.             延时300毫秒
  95.             鼠标移到 289 , 118
  96.             左键单击
  97.             延时300毫秒
  98.             //关闭包裹
  99.             按键<B>
  100.             延时300毫秒