diff --git a/ksp/TODO b/ksp/TODO index c59f9e88..cd6dd3bb 100644 --- a/ksp/TODO +++ b/ksp/TODO @@ -1,7 +1,7 @@ parachutes? Mun? -stars in background? EVA? auto-generated shape tabe for ship based on VAB choices more expressive kerbals atmospheric drag +support all four qudrants in space view diff --git a/ksp/flight.bas b/ksp/flight.bas index 03553986..c50ec467 100644 --- a/ksp/flight.bas +++ b/ksp/flight.bas @@ -5,15 +5,17 @@ 7030 FOR L=7925 TO 8175: READ B:POKE L,B:NEXT L 7032 HGR:ROT=0:SCALE=2:H=0:RA=0 7035 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000" -7036 HCOLOR=1:HPLOT 1,80 TO 247,80 +7036 HCOLOR=1:HPLOT 1,80 TO 132,80: HPLOT 148,80 TO 247,80 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 -7045 IF RA<1800 THEN HCOLOR=0:HPLOT 1,80+H TO 247,80+H:H=RA/20:HCOLOR=1:HPLOT 1,80+H TO 247,80+H -7046 IF RA<10000 AND CQ<>0 THEN GOSUB 7600 -7047 IF RA<10000 GOTO 7050 -7048 IF RA>10000 AND CQ<>1 THEN GOSUB 7700 -7050 GET A$ +7045 IF RA>1800 THEN GOTO 7053 +7045 HCOLOR=0:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H +7047 H=RA/20:HCOLOR=1:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H +7053 IF RA<10000 AND CQ<>0 THEN GOSUB 7600 +7054 IF RA<10000 GOTO 7058 +7055 IF RA>10000 AND CQ<>1 THEN GOSUB 7700 +7058 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 @@ -66,10 +68,12 @@ 7540 RETURN 7600 REM *** GROUND *** 7610 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000" +7615 XDRAW 1+(S*2)+TH AT 140,80 7620 CQ=0 7650 RETURN 7700 REM *** SPACE_UP *** 7710 PRINT CHR$(4);"BLOAD ORBIT_TOP.HGR,A$2000" +7715 XDRAW 1+(S*2)+TH AT 140,80 7720 CQ=1 7750 RETURN 8000 REM *** CRASH *** diff --git a/ksp/orbit_top.pcx b/ksp/orbit_top.pcx index 94130e9c..4a05dea6 100644 Binary files a/ksp/orbit_top.pcx and b/ksp/orbit_top.pcx differ