- 注释:MessageBox tempzj
- 注释:MessageBox "循环开始赋值给tempzj"
- 调用 物品检测
- 注释:MessageBox zj
- 延时 100 毫秒
- 如果 zj > tempzj 或者 zj < tempzj 则
- (语句无法识别,可能有错误): call 输入金币//MessageBox "物品变化了重新输入金币"
- 条件结束
- 注释:x1=147:y1=262:x2=187:y2=282 //交易ok坐标
- 注释:///////////////////////////////////找ok
- 令 ok1 = dm.CmpColor(162,262,"ffff88-000000",0.9)
- 令 ok2 = dm.CmpColor(174,263,"ffee88-000000",0.9)
- 如果 ok1 = 0 并且 ok2 = 0 则
- 跳转到标记 一
- 条件结束
- 注释://///////////////////////////////////////
- 延时 200 毫秒
- 令 i2 = i2 + 1
- 如果 i2 > 100 则
- 调用 取消所有
- 跳转到标记 开始
- 条件结束
- 否则
- 跳转到标记 开始
- 条件结束
- 循环结束
- 标记 一
- 调用 读取输入金币数
- 令 tempzj = tempzj * 1
- 调用 物品检测
- 注释:MessageBox "上次:"&tempzj & "这次:"&zj
- 如果 zj > tempzj 或者 zj < tempzj 则
- 注释:MessageBox "数目不符合"
- 跳转到标记 开始交易
- 否则
- 调用 交易喊话B
- 调用 确认交易
- 条件结束
- 子程序 物品检测
- 定义变量 dj(8)
- 定义变量 STR(8)
- 令 gezii = 0
- 令 x1 = 69
- 令 x2 = 99
- 循环 8 次
- 令 gezii = gezii + 1
- 令 STR(gezii) = dm.Ocr(x1,174,x2,182,"ffffff-000000",1.0)
- 注释:MessageBox gezii&"|数量"&STR(gezii)
- 如果 STR(gezii) = "" 则
- 跳转到标记 wpjc(子程序 物品检测)
- 条件结束
- 令 x1 = x1 + 30
- 令 x2 = x2 + 30
- 循环结束
- 标记 wpjc(子程序 物品检测)
- 注释:MessageBox "循环次数"&gezii
- 令 x1 = 69
- 令 x2 = 99
- 令 xx1 = 69
- 令 xx2 = 99
- 令 dji = 1
- 令 stri = 1
- 令 zj = 0
- 令 danjia = "单价:"
- 令 shuliang = "数量:"
- 循环 gezii 次
- 令 lytx = 0
- 令 lyty = 0
- 令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\炉岩碳.bmp","000000",0.9,0,lytX,lytY)
- 如果 ddmm = 0 则
- 跳转到标记 sl(子程序 物品检测)
- 条件结束
- 令 bsxjkx = 0
- 令 bsxjky = 0
- 令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\白色小晶块.bmp",0.9,bsxjkX,bsxjkY)
- 如果 ddmm = 0 则
- 跳转到标记 sl(子程序 物品检测)
- 条件结束
- 令 hsxjkx = 0
- 令 hsxjky = 0
- 令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\黑色小晶块.bmp","000000",0.9,0,hsxjkX,hsxjkY)
- 如果 ddmm = 0 则
- 跳转到标记 sl(子程序 物品检测)
- 条件结束
- 令 hongsexx = 0
- 令 hongsexy = 0
- 令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\红色小晶块.bmp","000000",0.9,0,hongsexx,hongsey)
- 如果 ddmm = 0 则
- 跳转到标记 sl(子程序 物品检测)
- 弹出窗口 "zhaodaohongse "
- 条件结束
- 令 lsxjkx = 0
- 令 lsxjky = 0
- 令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\蓝色小晶块.bmp","000000",0.9,0,lsxjkX,lsxjkY)
- 如果 ddmm = 0 则
- 跳转到标记 sl(子程序 物品检测)
- 条件结束
- 令 wsxjkx = 0
- 令 wsxjky = 0
- 令 ddmm = dm.FindPic(xx1,170,xx2,203,"C:\材料字库\无色小晶块.bmp","000000",0.9,0,wsxjkX,wsxjkY)