1.             注释：MessageBox tempzj
  2.             注释：MessageBox "循环开始赋值给tempzj"
  3.             调用 物品检测
  4.             注释：MessageBox zj
  5.             延时 100 毫秒
  6.             如果 zj > tempzj 或者 zj < tempzj 则
  7.                 (语句无法识别，可能有错误): call 输入金币//MessageBox "物品变化了重新输入金币"
  8.             条件结束
  9.             注释：x1=147:y1=262:x2=187:y2=282 //交易ok坐标
  10.             注释：///////////////////////////////////找ok
  11.             令 ok1 = dm.CmpColor(162,262,"ffff88-000000",0.9)
  12.             令 ok2 = dm.CmpColor(174,263,"ffee88-000000",0.9)
  13.             如果 ok1 = 0 并且 ok2 = 0 则
  14.                 跳转到标记 一
  15.             条件结束
  16.             注释：/////////////////////////////////////////
  17.             延时 200 毫秒
  18.             令 i2 = i2 + 1
  19.             如果 i2 > 100 则
  20.                 调用 取消所有
  21.                 跳转到标记 开始
  22.             条件结束
  23.         否则
  24.             跳转到标记 开始
  25.         条件结束
  26.     循环结束
  27.     标记 一
  28.     调用 读取输入金币数
  29.     令 tempzj = tempzj * 1
  30.     调用 物品检测
  31.     注释：MessageBox "上次："&tempzj & "这次："&zj
  32.     如果 zj > tempzj 或者 zj < tempzj 则
  33.         注释：MessageBox "数目不符合"
  34.         跳转到标记 开始交易
  35.     否则
  36.         调用 交易喊话B
  37.         调用 确认交易
  38.     条件结束
  39.     子程序 物品检测
  40.         定义变量 dj(8)
  41.         定义变量 STR(8)
  42.         令 gezii = 0
  43.         令 x1 = 69
  44.         令 x2 = 99
  45.         循环 8 次
  46.             令 gezii = gezii + 1
  47.             令 STR(gezii) = dm.Ocr(x1,174,x2,182,"ffffff-000000",1.0)
  48.             注释：MessageBox gezii&"|数量"&STR(gezii)
  49.             如果 STR(gezii) = "" 则
  50.                 跳转到标记 wpjc(子程序 物品检测)
  51.             条件结束
  52.             令 x1 = x1 + 30
  53.             令 x2 = x2 + 30
  54.         循环结束
  55.         标记 wpjc(子程序 物品检测)
  56.         注释：MessageBox "循环次数"&gezii
  57.         令 x1 = 69
  58.         令 x2 = 99
  59.         令 xx1 = 69
  60.         令 xx2 = 99
  61.         令 dji = 1
  62.         令 stri = 1
  63.         令 zj = 0
  64.         令 danjia = "单价："
  65.         令 shuliang = "数量："
  66.         循环 gezii 次
  67.             令 lytx = 0
  68.             令 lyty = 0
  69.             令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\炉岩碳.bmp","000000",0.9,0,lytX,lytY)
  70.             如果 ddmm = 0 则
  71.                 跳转到标记 sl(子程序 物品检测)
  72.             条件结束
  73.             令 bsxjkx = 0
  74.             令 bsxjky = 0
  75.             令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\白色小晶块.bmp",0.9,bsxjkX,bsxjkY)
  76.             如果 ddmm = 0 则
  77.                 跳转到标记 sl(子程序 物品检测)
  78.             条件结束
  79.             令 hsxjkx = 0
  80.             令 hsxjky = 0
  81.             令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\黑色小晶块.bmp","000000",0.9,0,hsxjkX,hsxjkY)
  82.             如果 ddmm = 0 则
  83.                 跳转到标记 sl(子程序 物品检测)
  84.             条件结束
  85.             令 hongsexx = 0
  86.             令 hongsexy = 0
  87.             令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\红色小晶块.bmp","000000",0.9,0,hongsexx,hongsey)
  88.             如果 ddmm = 0 则
  89.                 跳转到标记 sl(子程序 物品检测)
  90.                 弹出窗口 "zhaodaohongse "
  91.             条件结束
  92.             令 lsxjkx = 0
  93.             令 lsxjky = 0
  94.             令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\蓝色小晶块.bmp","000000",0.9,0,lsxjkX,lsxjkY)
  95.             如果 ddmm = 0 则
  96.                 跳转到标记 sl(子程序 物品检测)
  97.             条件结束
  98.             令 wsxjkx = 0
  99.             令 wsxjky = 0
  100.             令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\无色小晶块.bmp","000000",0.9,0,wsxjkX,wsxjkY)