ksp: update flight to handle thrusting

This commit is contained in:
Vince Weaver 2016-05-26 12:00:17 -04:00
parent 82e52ea8d5
commit f1433c36b3
2 changed files with 102 additions and 10 deletions

View File

@ -1,19 +1,25 @@
7000 HIMEM:8144 7000 HIMEM:8106
7020 POKE 232,208:POKE 233,31 7020 POKE 232,170:POKE 233,31
7030 FOR L=8144 TO 8175: READ B:POKE L,B:NEXT L 7030 FOR L=8106 TO 8175: READ B:POKE L,B:NEXT L
7035 HGR:ROT=0:SCALE=2 7035 HGR:ROT=0:SCALE=2
7040 XDRAW 1 AT 140,80 7037 TH=0
7040 XDRAW TH+1 AT 140,80
7050 GET A$ 7050 GET A$
7060 IF A$="Q" THEN END 7060 IF A$="Q" THEN END
7062 IF A$="A" THEN R=R-8 7062 IF A$="A" THEN R=R-8
7063 IF A$="D" THEN R=R+8 7063 IF A$="D" THEN R=R+8
7065 IF A$="Z" THEN TH=1
7067 IF A$="X" THEN TH=0
7070 IF R=64 THEN R=0 7070 IF R=64 THEN R=0
7072 IF R=-8 THEN R=56 7072 IF R=-8 THEN R=56
7075 XDRAW 1 AT 140,80 7075 XDRAW 1 AT 140,80
7080 ROT=R 7080 ROT=R
7085 GOTO 7040 7085 GOTO 7040
7090 END 7090 END
7100 DATA 1,0,4,0,219,36,36,44,44,44 7100 DATA 2,0,6,0,34,0,219,36,36,44
7101 DATA 53,53,53,54,54,54,54,63,63,45 7101 DATA 44,44,53,53,53,54,54,54,54,63
7102 DATA 46,46,62,63,63,39,37,37,63,36 7102 DATA 63,45,46,46,62,63,63,39,37,37
7103 DATA 36,0 7103 DATA 63,36,36,0,219,36,36,44,44,44
7104 DATA 53,53,53,54,54,54,54,63,63,45
7105 DATA 46,46,62,63,63,45,45,62,54,62
7106 DATA 39,36,39,39,37,37,63,36,36,0

View File

@ -1,6 +1,8 @@
# Number of shapes # Number of shapes
1 2
# ####################
# 1-stage, no thrust
####################
START START
# Get to edge # Get to edge
NLT NLT
@ -64,3 +66,87 @@ UP
UP UP
UP UP
STOP STOP
####################
# 1-stage, thrusting
####################
START
# Get to edge
NLT
NLT
NLT
UP
UP
UP
UP
# Start on Capsule
UP
RT
UP
RT
UP
RT
RT
DN
RT
DN
RT
DN
# TANK AGAIN
DN
DN
DN
DN
# TANK TWO
DN
DN
DN
DN
LT
LT
LT
LT
RT
RT
# BELL
DN
RT
DN
RT
DN
LT
LT
LT
LT
LT
# FLAME
NRT
NRT
NRT
NRT
DN
LT
DN
DN
DN
LT
LT
UP
UP
UP
LT
UP
# Back to bell
LT
UP
RT
UP
RT
UP
# TANK AGAIN
LT
LT
UP
UP
UP
UP
STOP