End If
/////////////////////////////////////////////////////
Loop


Rem 开始交易
Call 喊话初始化
Delay 1500
Call 交易喊话A
Delay 1000*ddsj
Call 物品检测
//MessageBox zj
rem 二
Call 输入金币
Delay 200
i2 = 0

Do  While 1
Call 确认交易框存在

If jyzt1 = 0 and jyzt2=0 Then 
Call 读取输入金币数
tempzj = tempzj * 1
//MessageBox tempzj

//MessageBox "循环开始赋值给tempzj"
Call 物品检测
//MessageBox zj
Delay 100	
If zj > tempzj or zj < tempzj Then 
	call 输入金币//MessageBox "物品变化了重新输入金币"
End If 
//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)
	If ok1 = 0 and ok2 = 0 Then 
		Goto 一
	End If
///////////////////////////////////////////
Delay 200
i2 = i2 + 1
If i2 > 100 Then 
	Call 取消所有
	goto 开始
End If
Else 
goto 开始
end if
loop

Rem 一
Call 读取输入金币数
tempzj = tempzj * 1
Call 物品检测
//MessageBox "上次："&tempzj & "这次："&zj
If zj > tempzj or zj < tempzj Then 
//MessageBox "数目不符合"
Goto 开始交易
Else 
Call 交易喊话B
Call 确认交易 
End If

Sub 物品检测

Dim dj(8) 
Dim STR(8)
gezii = 0
x1 = 69
x2 = 99
For 8
	
	 gezii = gezii + 1
	 STR(gezii) = dm.Ocr(x1, 174, x2, 182, "ffffff-000000", 1.0)
	 //MessageBox gezii&"|数量"&STR(gezii)
	 If STR(gezii) ="" Then 
	 Goto wpjc
	 End If
	x1 = x1 + 30
    x2 = x2 + 30 
Next

Rem wpjc
//MessageBox "循环次数"&gezii

x1 = 69
x2 = 99
xx1 = 69
xx2 = 99
dji = 1
stri = 1
zj = 0

danjia = "单价："
shuliang = "数量："
For gezii
lytx = 0
lyty = 0