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