Sub 开始送(人物, 点人物x, 点人物y, 材料,次数)
	
    Call 走路("W",20)
    FindPic 0,0,1024,768,人物,0.9,intX,intY
    If intX > 0 And intY > 0 Then
        ax = intX + 点人物x
        ay = intY + 点人物y
        MoveTo ax,ay  //人物名字下面位置
    End If
    Delay  100
    LeftClick 1 //人物名字下面位置 点击
    Delay  100
    IfColor ax+45,ay+4,"80808",0 Then
        MoveTo ax+40, ay+40 //人物选单里面的对话选项
        Delay 100
        LeftClick 1 //人物选单里面的对话选项 点击
        Delay  100
    Else
        Delay 100
        IfColor ax+45,ay+4,"80808",0 Then
            MoveTo ax+40, ay+40
            Delay 200
            LeftClick 1
            Delay  100
        Else
            Delay 100
            IfColor ax+45,ay+4,"80808",0 Then
                MoveTo ax+40, ay+40
                Delay 200
                LeftClick 1
                Delay  100
            Else
                Delay 100
                IfColor ax+45,ay+4,"80808",0 Then
                    MoveTo ax+40, ay+40
                    Delay 200
                    LeftClick 1
                    Delay  100
                End If
            End If
        End If
    End If
    Delay 100
    
    IfColor 600, 455, "7799AA", 0 Then
        Delay 50
        KeyPress "Esc", 1
        Delay 50
    Else 
        Delay 100
        IfColor 600, 455, "7799AA", 0 Then
            Delay 50
            KeyPress "Esc", 1
            Delay 50
        Else 
            Delay 100
            IfColor 600, 455, "7799AA", 0 Then
                Delay 50
                KeyPress "Esc", 1
                Delay 50
            Else 
                Delay 100
                IfColor 600, 455, "7799AA", 0 Then
                    Delay 50
                    KeyPress "Esc", 1
                    Delay 50
                Else 
                    Delay 100
                End If
            End If
        End If
    End If
    FindPic 0,0,1024,768,"Attachment:\赠送礼物.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX + 10, intY + 10
        Delay  100
        LeftClick 2 //赠送礼物
        Delay 200
    End If
    
    //以上是点了赠送礼物之后的动作
    Delay 100
    FindPic 0,0,1024,768,材料,0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Delay 50
        MoveTo intX+5, intY+5
    Else 
        Delay 100
        MoveTo 400, 195   //消耗品栏
        Delay 100
        LeftClick 2
        Delay 100
        FindPic 0,0,1024,768,材料,0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Delay 100
            MoveTo intX+5, intY+5
        Else 
            Delay 100
            MoveTo 450, 195   //消耗品栏