Rem a1
 
  jbs = dm.Ocr(158, 264, 295, 303, "ffe3ab-000000", 1.0) //再次输入时确保金币框里边没有钱
          If jbs > 0 Then //jbs确保再次输入时 金币框里数字为0
 	          Call Plugin.Window.Active(Hwnd)
 	          KeyPress "BackSpace", 2
              Delay 20
             Goto a1    //对金币框进行初始 回到标记a1
           End If
 
	For 6
		KeyPress "BackSpace", 1
		Delay 50
	Next
	    i=1
     For len(zj)
        anjian=Mid(zj,i,1)
        KeyDown asc(anjian),1
        Delay 20
        KeyUp asc(anjian),1
        i=i+1
        Delay 50
     Next  //输入钱数
 Do  While 1
 jbdqx = 0
jbqdy = 0

 dm_ret = dm.FindPic(176,270,217,321,"c:\材料字库\金币确定.bmp","000000",0.9,0,jbX,jbY)
If jbqdX > 0 And jbqdY > 0 Then
MoveTo jbqdX, jbqdY
//MessageBox "zhaodao"
Delay 300
LeftClick 1
Delay 200
MoveTo 5, 5
Delay 300
End If
jbdqx = 0
jbqdy = 0
dm_ret = dm.FindPic(176,270,217,321,"c:\材料字库\金币确定.bmp","000000",0.9,0,jbX,jbY)
If jbdqx >0 and jbqdy > 0 Then 

	Else
	Exit Do
End If
Loop
	
	
End Sub



Sub 喊话初始化
	
	  fj = 0
   fj = dm.Ocr(38,389,125,426,"eeddaa-000000",1.0)
    
    If fj = 99999 Then 
    ifj = 0
    Call 交易请求检查
    Call 交易请求检查xp
    
    KeyPress "Enter", 1
    End If    //发言 附近检测 每次喊话前的准备工作
	
	
	
End Sub




Sub 交易喊话A



KeyPress "Enter", 1
Delay 100
KeyPress "A", 1
Delay 50
KeyPress "A", 1
Delay 50

KeyPress "Space", 1
Delay 50
KeyPress "Enter", 1

	
End Sub

Sub 交易喊话B

KeyPress "Enter", 1
Delay 100
KeyPress "C", 1
Delay 50
KeyPress "C", 1
Delay 50
KeyPress "Space", 1