Else 
       
    End if
    
    If tomap = "城市1" Then 
     dm.MoveTo intX + 90,intY + 10
     Delay 100
        dm.LeftClick
        Delay 100
     ElseIf tomap = "城市2" Then
        dm.MoveTo intX + 90,intY + 35
     Delay 100
        dm.LeftClick
        Delay 100
     ElseIf tomap = "城市3" Then
        dm.MoveTo intX + 90,intY + 60
     Delay 100
        dm.LeftClick
        Delay 100 
      Else
        dm.MoveTo intX + 90,intY + 85
     Delay 100
        dm.LeftClick
        Delay 100  
      End If
      
    //场景延时
    Delay 5000
    
End Sub
//====================满商卖出商品脚本======================
Sub 满商卖出商品()

    Call 找财政官员()
    Delay 100
    
    //-------打开店铺-------
    Rem 打开店铺
    dm_ret = dm.FindStr(10, 100, 800, 600,"商人店铺","ffd555-180d08",1.0,intX,intY)
    If intX > 0 and intY > 0 Then
        dm.MoveTo intX + 5, intY + 8
        Delay 200
        dm.LeftClick 
        Delay 2000
    Else 
        Goto 打开店铺
    End If
    
    //-------判断价格-------  
    dm_ret = dm.FindPic(590, 5, 610, 30,"丑.bmp|辰.bmp|未.bmp|戌.bmp","00000",0.9,0,intX,intY)
    If intX >= 0 and intY >= 0 Then
       Goto 卖出商品 
    Else 
       Goto 打开店铺
    End If
   
    Rem 卖出商品
    //打开包裹ALT+A
    dm.KeyDown 18
    dm.KeyPress 65
    dm.KeyUp 18
    Delay 500
    //-------材料包裹-------   
    dm_ret = dm.FindStr(400, 100, 800, 600,"材料","fdeb78-000000",1.0,intX,intY)    
    If intX > 0 and intY > 0 Then
        dm.MoveTo intX + 15, intY + 6
        Delay 100
        dm.LeftClick 
        Delay 500
    Else
        Goto 卖出商品
    End If
    //-------遍历包裹，点击右键卖出-------
    Dim X
    Dim Y
    X = intX - 36
    Y = intY + 36
    
    dm.MoveTo X , Y
        Delay 50
        dm.RightClick 
        Delay 50
    dm.MoveTo X + 36, Y
        Delay 50
        dm.RightClick 
        Delay 50
    dm.MoveTo X + 72 , Y
        Delay 50
        dm.RightClick 
        Delay 50
    dm.MoveTo X + 108 , Y
        Delay 50
        dm.RightClick 
        Delay 50
    dm.MoveTo X + 144 , Y
        Delay 50
        dm.RightClick 
        Delay 50
    dm.MoveTo X , Y + 36
        Delay 50