Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 00:30:31 +00:00
Code Issues Projects Releases Wiki Activity

ksp: better space

Browse Source
This commit is contained in:
Vince Weaver 2016-05-26 14:28:17 -04:00
parent 416db063a6
commit 46c446433b
3 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ksp/TODO
View File

@ -1,7 +1,7 @@
parachutes? parachutes?
Mun? Mun?
stars in background?
EVA? EVA?
auto-generated shape tabe for ship based on VAB choices auto-generated shape tabe for ship based on VAB choices
more expressive kerbals more expressive kerbals
atmospheric drag atmospheric drag
support all four qudrants in space view

16
ksp/flight.bas
View File

@ -5,15 +5,17 @@
7030 FOR L=7925 TO 8175: READ B:POKE L,B:NEXT L 7030 FOR L=7925 TO 8175: READ B:POKE L,B:NEXT L
7032 HGR:ROT=0:SCALE=2:H=0:RA=0 7032 HGR:ROT=0:SCALE=2:H=0:RA=0
7035 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000" 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 7037 HCOLOR=3:HPLOT 110,110 TO 110,60:HPLOT TO 130,60: HPLOT 110,70 TO 130,70
7039 TH=0:S=2 7039 TH=0:S=2
7040 XDRAW 1+(S*2)+TH AT 140,80 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 7045 IF RA>1800 THEN GOTO 7053
7046 IF RA<10000 AND CQ<>0 THEN GOSUB 7600 7045 HCOLOR=0:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
7047 IF RA<10000 GOTO 7050 7047 H=RA/20:HCOLOR=1:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
7048 IF RA>10000 AND CQ<>1 THEN GOSUB 7700 7053 IF RA<10000 AND CQ<>0 THEN GOSUB 7600
7050 GET A$ 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 7060 IF A$="Q" THEN END
7061 XDRAW 1+(S*2)+TH AT 140,80 7061 XDRAW 1+(S*2)+TH AT 140,80
7062 IF A$="A" THEN R=R-8 7062 IF A$="A" THEN R=R-8
@ -66,10 +68,12 @@
7540 RETURN 7540 RETURN
7600 REM *** GROUND *** 7600 REM *** GROUND ***
7610 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000" 7610 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000"
7615 XDRAW 1+(S*2)+TH AT 140,80
7620 CQ=0 7620 CQ=0
7650 RETURN 7650 RETURN
7700 REM *** SPACE_UP *** 7700 REM *** SPACE_UP ***
7710 PRINT CHR$(4);"BLOAD ORBIT_TOP.HGR,A$2000" 7710 PRINT CHR$(4);"BLOAD ORBIT_TOP.HGR,A$2000"
7715 XDRAW 1+(S*2)+TH AT 140,80
7720 CQ=1 7720 CQ=1
7750 RETURN 7750 RETURN
8000 REM *** CRASH *** 8000 REM *** CRASH ***

BIN
ksp/orbit_top.pcx
View File

Binary file not shown.