Rem F2   
IfColor 831,100,"73F7FF",0 Then  
KeyPress "Space", 1   
    Delay 300   
    KeyUp "Right", 1   
    Delay 400   
    KeyPress "Space", 1   
    Delay 700   
KeyPress "Space", 1   
    Delay 700   
Else  
Goto F2   
End If  
For 2   
KeyDown "Right", 1   
Delay 70   
KeyPress "Space", 1   
Delay 70   
KeyUp "Right", 1   
    Delay 640   
Next  
KeyDown "Right", 1   
Rem F3   
IfColor 836,160,"8CF7D6",0 Then  
KeyPress "Space", 1   
    Delay 50   
    KeyDown "Up", 1   
    Else  
Goto F3   
End If  
Rem F4   
IfColor 866,106,"73F7FF",0 Then  
KeyUp "Up", 1   
Else  
Goto F4   
End If  
Rem F5   
IfColor 898,126,"E7E7EF",0 Then  
KeyUp "Right", 1   
    Delay 80   
    KeyDown "Left", 1   
    Delay 80   
    KeyDown "Down", 1   
Else  
Goto F5   
End If  
Rem F6   
IfColor 891,127,"E7E7EF",0 Then  
    Delay 200   
KeyPress "Space", 1   
Else  
Goto F6   
End If  
Rem F7   
IfColor 886,127,"E7E7EF",0 Then  
    Delay 100   
    KeyUp "Left", 1   
    Delay 60   
KeyPress "Space", 1   
    Delay 60   
    KeyDown "Right", 1   
Else  
Goto F7   
End If  
Rem F8   
IfColor 887,127,"E7E3EF",0 Then  
Delay 100   
    KeyUp "Right", 1   
    Delay 100   
    KeyPress "Space", 1   
    Delay 100   
    KeyDown "Left", 1   
    Delay 100   
    KeyUp "Down", 1   
Else  
Goto F8   
End If  
Rem F9   
IfColor 851,159,"421",0 Then  
KeyUp "Left", 1   
    Delay 80   
    KeyPress "Space", 1   
    Delay 720   
        KeyPress "Space", 1   
    Delay 720   
   KeyPress "Space", 1   
    Delay 900   
    KeyPress "Up", 1   
Else  
Goto F9   
End If  
            Call DT()   
End If  
End If  
    Delay 100   
End If  
//进洞后子程序   
Sub DT()   
Delay 1500   
    IfColor 781,106,"6B7173",0 Then