Select Case flag1
Case 0
  KeyPressS "Enter", 1
  Delay 50
  FindColor 60,398,92,407,"AADDEE",intX,intY
  If intX > 0
   KeyPressS "Z", 2
   Delay 20
   KeyPressS "1", 1
   Delay 20
   KeyPressS "Enter", 1
   flag1=1
  End if
Case 1
  KeyPressS "Enter", 1
  Delay 50
  FindColor 60,398,92,407,"AADDEE",intX,intY
  If intX > 0
   KeyPressS "Z", 3
   Delay 20
   KeyPressS "1", 1
   Delay 20
   KeyPressS "Enter", 1
   flag1=2
  End if
Case 2
  KeyPressS "Enter", 1
  Delay 50
  FindColor 60,398,92,407,"AADDEE",intX,intY
  If intX > 0
   KeyPressS "Z", 4
   Delay 20
   KeyPressS "1", 1
   Delay 20
   KeyPressS "Enter", 1
   flag1=0
  End If 
End Select
Call 等待交易
End sub






Sub 检查对方是否点交易()
For 10
  Delay 50  '修改这里时间
  IfColor 165,266,"BBFFFF",2 Then
   flag=1
   Exit For
  Else
   flag=0
  End If
Next

If flag=1 Then
//  MessageBox("对方已点交易")
  s=Plugin.GetSysInfo.GetDateTime()  
  a.writeline("")
  a.writeline("------------------------------")
  a.writeline("时间："&s)
  a.write("物品：")
   
  sum=0
  For m=0 to 45
   Call 找图并传递图片(物品(m),单价(m),图片位置(m))
  Next
  
  If sum1=sum
//   MessageBox("sum1=sum")
   Delay 500
   MoveTo 160,424
   Delay 1000
   LeftClick 4
   Delay 2000   
   LeftClick 2
   Delay 2000
   a.writeline("")
//   FindPic 299,111,347,140,"C:DNF图片\成功交易公告.bmp",0.6,intX,intY
//   If intX > 0 
   a.writeline("花费："&sum)
   a.close
   KeyPress "Enter", 1
   Goto s
  Else 
   a.writeline("物品变化，重新检测")
   a.close
   Goto s
  End If
Else
  Goto s
End If
End Sub
    

     
Sub 输入金币(数字串)
  For h=1 to 40