x2 = x2 + 30


	
Next



//MessageBox "jieshu"

	
	
End Sub




Sub 站街喊话
Call Plugin.Window.Active(Hwnd)
   srcs= 2  //输入次数，srcs=2 是初始化 输入两次
  For hhjs  //喊话次数
	Hwnd = Plugin.Window.Find(0, "地下城与勇士")
	Call Plugin.Window.Active(Hwnd)

	Call 喊话初始化
	Call 交易请求检查
	Call 交易请求检查xp
			KeyPress "Enter", 1
    Call 附近检测
    ifj = ifj + 1    
    Delay 300
	For srcs //输入次数，按多少次键
		KeyPress "E", 1
        Delay 30
        
	Next
     srcs = srcs + 1
     Delay 200
      KeyPress "Space", 1
     Delay 200
     Call 交易请求检查
     Call 交易请求检查xp
          KeyPress "Enter", 1
   If fkw = true Then 
   	Call 移动
   End If
    Delay hhjg  //喊话间隔，hhjg
 Next	
End Sub

Sub 交易请求检查  //找图确定
  ddmm=dm.FindPic( 0,0,640,440,"C:\材料字库\是.bmp","000000",0.9,0,jjqqX,jjqqY )
   If jjqqX > 0 And jjqqY > 0 Then
    MoveTo jjqqX+5, jjqqY+5
    Delay 50
    LeftClick 1
    Delay 500
    MoveTo 5,5
     Delay 3000
    Call 确认交易框存在
    If jyzt1 = 0 and jyzt2=0 Then
      Goto 开始交易
     End If
   End If

End Sub
Sub 交易请求检查xp

FindPic 0,0,640,640,"Attachment:\是.bmp",0.9,jjqqX,jjqqY
If jjqqX > 0 And jjqqY > 0 Then
MoveTo jjqqx, jjqqy
Delay 50
LeftClick 1
Delay 500
    MoveTo 5,5
     Delay 3000
    Call 确认交易框存在
    If jyzt1 = 0 and jyzt2=0 Then
      Goto 开始交易
     End If
End If

	
End Sub
	

Sub 交易请求检查2//找点确定
Delay 100
	jycx1 = dm.CmpColor(537,285, "ffffff-000000", 0.9)
	jycx2 = dm.CmpColor(556,290, "ffffff-000000", 0.9)
	jycx3 = dm.CmpColor(518,404, "ddc58d-000000", 0.9)
	
	MessageBox jycx1
	
If jycx1=0 and jycx2=0 and jycx3=0 Then
   MoveTo 518, 404
   Delay 400
   LeftClick 2
End If	
Delay 500