diff --git a/ksp/TODO b/ksp/TODO index 0c92708b..2118016d 100644 --- a/ksp/TODO +++ b/ksp/TODO @@ -3,3 +3,4 @@ Mun? stars in background? EVA? auto-generated shape tabe for ship based on VAB choices +more expressive kerbals diff --git a/ksp/flight.bas b/ksp/flight.bas index f8c9e753..7d194890 100644 --- a/ksp/flight.bas +++ b/ksp/flight.bas @@ -1,15 +1,20 @@ 7000 HIMEM:7925 7020 POKE 232,245:POKE 233,30 7030 FOR L=7925 TO 8175: READ B:POKE L,B:NEXT L -7035 HGR:ROT=0:SCALE=2 -7037 TH=0:S=2 +7032 HGR:ROT=0:SCALE=2:H=80:RA=0 +7035 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000" +7036 HCOLOR=1:HPLOT 1,H TO 279,H +7037 HCOLOR=3:HPLOT 110,110 TO 110,60:HPLOT TO 130,60: HPLOT 110,70 TO 130,70 +7039 TH=0:S=2 7040 XDRAW 1+(S*2)+TH AT 140,80 7050 GET A$ 7060 IF A$="Q" THEN END 7061 XDRAW 1+(S*2)+TH AT 140,80 7062 IF A$="A" THEN R=R-8 7063 IF A$="D" THEN R=R+8 +7064 IF A$="C" THEN GOTO 8000 7065 IF A$="Z" THEN TH=1 +7066 IF A$="V" THEN RA=RA+100 7067 IF A$="X" THEN TH=0 7068 IF A$=" " THEN S=S-1:XX=PEEK(-16336) 7070 IF R=64 THEN R=0 @@ -18,29 +23,38 @@ 7080 ROT=R 7085 GOTO 7040 7090 END -7100 DATA 6,0,14,0,42,0,77,0,113,0 -7101 DATA 156,0,200,0,219,36,36,44,44,44 -7102 DATA 53,53,53,54,54,54,54,63,63,45 -7103 DATA 46,46,62,63,63,39,37,37,63,36 -7104 DATA 36,0,219,36,36,44,44,44,53,53 -7105 DATA 53,54,54,54,54,63,63,45,46,46 -7106 DATA 62,63,127,73,62,54,62,39,36,39 -7107 DATA 39,37,37,63,36,36,0,219,36,36 -7108 DATA 36,36,44,44,44,53,53,53,54,54 -7109 DATA 54,54,54,54,54,54,63,63,45,46 -7110 DATA 46,62,63,63,39,37,37,63,36,36 -7111 DATA 36,36,0,219,36,36,36,36,44,44 -7112 DATA 44,53,53,53,54,54,54,54,54,54 -7113 DATA 54,54,63,63,45,46,46,62,63,127 -7114 DATA 73,62,54,62,39,36,39,39,37,37 -7115 DATA 63,36,36,36,36,0,219,36,36,36 -7116 DATA 36,36,36,44,44,44,53,53,53,54 -7117 DATA 54,54,54,54,54,54,54,54,54,54 -7118 DATA 54,63,63,45,46,46,62,63,63,39 -7119 DATA 37,37,63,36,36,36,36,36,36,0 -7120 DATA 219,36,36,36,36,36,36,44,44,44 -7121 DATA 53,53,53,54,54,54,54,54,54,54 -7122 DATA 54,54,54,54,54,63,63,45,46,46 -7123 DATA 62,63,127,73,62,54,62,39,36,39 -7124 DATA 39,37,37,63,36,36,36,36,36,36 -7125 DATA 0 +7200 DATA 6,0,14,0,42,0,77,0,113,0 +7201 DATA 156,0,200,0,219,36,36,44,44,44 +7202 DATA 53,53,53,54,54,54,54,63,63,45 +7203 DATA 46,46,62,63,63,39,37,37,63,36 +7204 DATA 36,0,219,36,36,44,44,44,53,53 +7205 DATA 53,54,54,54,54,63,63,45,46,46 +7206 DATA 62,63,127,73,62,54,62,39,36,39 +7207 DATA 39,37,37,63,36,36,0,219,36,36 +7208 DATA 36,36,44,44,44,53,53,53,54,54 +7209 DATA 54,54,54,54,54,54,63,63,45,46 +7210 DATA 46,62,63,63,39,37,37,63,36,36 +7211 DATA 36,36,0,219,36,36,36,36,44,44 +7212 DATA 44,53,53,53,54,54,54,54,54,54 +7213 DATA 54,54,63,63,45,46,46,62,63,127 +7214 DATA 73,62,54,62,39,36,39,39,37,37 +7215 DATA 63,36,36,36,36,0,219,36,36,36 +7216 DATA 36,36,36,44,44,44,53,53,53,54 +7217 DATA 54,54,54,54,54,54,54,54,54,54 +7218 DATA 54,63,63,45,46,46,62,63,63,39 +7219 DATA 37,37,63,36,36,36,36,36,36,0 +7220 DATA 219,36,36,36,36,36,36,44,44,44 +7221 DATA 53,53,53,54,54,54,54,54,54,54 +7222 DATA 54,54,54,54,54,63,63,45,46,46 +7223 DATA 62,63,127,73,62,54,62,39,36,39 +7224 DATA 39,37,37,63,36,36,36,36,36,36 +7225 DATA 0 +8000 REM *** CRASH *** +8010 SCALE=3 +8020 FOR I=0 TO 64 STEP 8: ROT=I:XDRAW 1+(S*2)+TH AT 140,80: XX=PEEK(-16336):NEXT I +8030 FOR I=1 TO 50 +8040 X=INT(RND(1)*80)+1:Y=INT(RND(1)*80)+1 +8050 C=INT(RND(1)*7)+1:HCOLOR=C +8060 HPLOT 140,80 TO 100+X,40+Y +8070 XX=PEEK(-16336) +8080 NEXT I