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 500, 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 Exit Sub 
                End If
            End If
        End if
    End If
    //以上是找礼物的动作
    Delay 200
    LeftClick 1   //礼物的位置上单击
    Delay 200
    KeyPress 53, 1  //53是5的按键码
    Delay 80
    KeyPress "Enter", 1
    Delay 80
    KeyPress "Enter", 1
    Delay 100
    IfColor 600, 455, "7799AA", 0 Then
        Delay 100
        KeyPress "Esc", 1
        Delay 100
    Else 
        Delay 100
        IfColor 600,455,"7799AA",0 Then
            Delay 100
            KeyPress "Esc", 1
            Delay 100
        Else 
            Delay 100
            IfColor 600,455,"7799AA",0 Then
                Delay 100
                KeyPress "Esc", 1
                Delay 100
            Else 
                Delay 100
                IfColor 600,455,"7799AA",0 Then
                    Delay 100
                    KeyPress "Esc", 1
                    Delay 100
                Else 
                    Delay 100
                End If
            End If
        End If
    End If
    MoveTo 470, 433
    
    p = 次数 - 1
    q = 0
    
    While q < p
        Delay 点速
        IfColor 509, 437, "5A8CA4", 0 Then
            Delay 快点速
            MoveTo 520, 437
            Delay 快点速
            LeftClick 1
            Delay 快点速
        Else 
            Delay 点速
            KeyPress "Esc", 1
            Delay 点速
            IfColor 509, 437, "5A8CA4", 0 Then
                Delay 快点速
                MoveTo 520, 437
                Delay 快点速
                LeftClick 1
                Delay 快点速
        
            Else 
                Delay 点速
                KeyPress "Esc", 1
                Delay 点速
                IfColor 509, 437, "5A8CA4", 0 Then
                    Delay 快点速
                    MoveTo 520, 437
                    Delay 快点速
                    LeftClick 1
                    Delay 快点速
       
                Else 
                    Delay 点速
                    KeyPress "Esc", 1
                    Delay 快点速
                    IfColor 509, 437, "5A8CA4", 0 Then