KeyPress "Space", 1
    Delay 800
    KeyPress "Space", 1
    Delay 800
Else
Goto B4
End If
Rem B6
IfColor 846,98,"7BF7EF",0 Then
    KeyPress "Space", 1
    Delay 80
    KeyDown "Up", 1
    Delay 80
    KeyUp "Right", 1
    Delay 80
    KeyDown "Left", 1
    Rem B5
    IfColor 805,102,"E7E7EF",0 Then
    KeyUp "Up", 1
        Delay 70
        KeyPress "Space", 1
        Delay 600
Else
    Goto B5
End If
Else
Goto B6
End If
Rem B7
IfColor 795,107,"7BF7DE",0 Then
KeyPress "Space", 1
Else
Goto B7
End If
Rem B8
IfColor 805,109,"73F7F7",0 Then
KeyPress "Space", 1
    Delay 80
    KeyUp "Left", 1
    Delay 80
    KeyDown "Up", 1
            Delay 100
Else
Goto B8
End If
Rem B9
IfColor 805,102,"EFEBEF",0 Then
    Delay 200
    KeyUp "Up", 1
    Delay 100
    KeyPress "Up", 1
Else
Goto B9
End If
        Call DT()
End If
Else
    KeyPress "M", 1
    Delay 1000
//146
    IfColor 471,467,"29F3EF",0 Then
        KeyPress "M", 1
        Delay 100
    //一号洞
KeyDown "Left", 1
Rem A1
IfColor 817,142,"73F7DE",0 Then
KeyUp "Left", 1
Else
    Goto A1
End If
Delay 100
For 5
KeyPress "Space", 1
Delay 720
Next
KeyDown "Left", 1
Delay 80
KeyPress "Space", 1
Delay 80
KeyUp "Left", 1
Delay 720
For 8
KeyDown "Right", 1
Delay 80
KeyPress "Space", 1
Delay 80
KeyUp "Right", 1
Delay 700
Next
KeyDown "Right", 1
Rem A2
IfColor 831,100,"73F7FF",0 Then
KeyPress "Space", 1
    Delay 300
    KeyUp "Right", 1
    Delay 400
Else
Goto A2
End If