diff --git a/ksp/flight.bas b/ksp/flight.bas index cb41ace2..7e009a88 100644 --- a/ksp/flight.bas +++ b/ksp/flight.bas @@ -1,19 +1,25 @@ -7000 HIMEM:8144 -7020 POKE 232,208:POKE 233,31 -7030 FOR L=8144 TO 8175: READ B:POKE L,B:NEXT L +7000 HIMEM:8106 +7020 POKE 232,170:POKE 233,31 +7030 FOR L=8106 TO 8175: READ B:POKE L,B:NEXT L 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$ 7060 IF A$="Q" THEN END 7062 IF A$="A" 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 7072 IF R=-8 THEN R=56 7075 XDRAW 1 AT 140,80 7080 ROT=R 7085 GOTO 7040 7090 END -7100 DATA 1,0,4,0,219,36,36,44,44,44 -7101 DATA 53,53,53,54,54,54,54,63,63,45 -7102 DATA 46,46,62,63,63,39,37,37,63,36 -7103 DATA 36,0 +7100 DATA 2,0,6,0,34,0,219,36,36,44 +7101 DATA 44,44,53,53,53,54,54,54,54,63 +7102 DATA 63,45,46,46,62,63,63,39,37,37 +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 diff --git a/ksp/ship2.table b/ksp/ship2.table index 50373550..41fcba04 100644 --- a/ksp/ship2.table +++ b/ksp/ship2.table @@ -1,6 +1,8 @@ # Number of shapes -1 -# +2 +#################### +# 1-stage, no thrust +#################### START # Get to edge NLT @@ -64,3 +66,87 @@ UP UP UP 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