Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-07-13 22:29:14 +00:00
Code Issues Projects Releases Wiki Activity

ksp: add explosions

Browse Source
This commit is contained in:
Vince Weaver 2016-05-26 13:16:46 -04:00
parent dab7f1a5c3
commit b7b2e8043a
2 changed files with 43 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ksp/TODO
View File

@ -3,3 +3,4 @@ Mun?
stars in background? 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

70
ksp/flight.bas
View File

@ -1,15 +1,20 @@
7000 HIMEM:7925 7000 HIMEM:7925
7020 POKE 232,245:POKE 233,30 7020 POKE 232,245:POKE 233,30
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
7035 HGR:ROT=0:SCALE=2 7032 HGR:ROT=0:SCALE=2:H=80:RA=0
7037 TH=0:S=2 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 7040 XDRAW 1+(S*2)+TH AT 140,80
7050 GET A$ 7050 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
7063 IF A$="D" 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 7065 IF A$="Z" THEN TH=1
7066 IF A$="V" THEN RA=RA+100
7067 IF A$="X" THEN TH=0 7067 IF A$="X" THEN TH=0
7068 IF A$=" " THEN S=S-1:XX=PEEK(-16336) 7068 IF A$=" " THEN S=S-1:XX=PEEK(-16336)
7070 IF R=64 THEN R=0 7070 IF R=64 THEN R=0
@ -18,29 +23,38 @@
7080 ROT=R 7080 ROT=R
7085 GOTO 7040 7085 GOTO 7040
7090 END 7090 END
7100 DATA 6,0,14,0,42,0,77,0,113,0 7200 DATA 6,0,14,0,42,0,77,0,113,0
7101 DATA 156,0,200,0,219,36,36,44,44,44 7201 DATA 156,0,200,0,219,36,36,44,44,44
7102 DATA 53,53,53,54,54,54,54,63,63,45 7202 DATA 53,53,53,54,54,54,54,63,63,45
7103 DATA 46,46,62,63,63,39,37,37,63,36 7203 DATA 46,46,62,63,63,39,37,37,63,36
7104 DATA 36,0,219,36,36,44,44,44,53,53 7204 DATA 36,0,219,36,36,44,44,44,53,53
7105 DATA 53,54,54,54,54,63,63,45,46,46 7205 DATA 53,54,54,54,54,63,63,45,46,46
7106 DATA 62,63,127,73,62,54,62,39,36,39 7206 DATA 62,63,127,73,62,54,62,39,36,39
7107 DATA 39,37,37,63,36,36,0,219,36,36 7207 DATA 39,37,37,63,36,36,0,219,36,36
7108 DATA 36,36,44,44,44,53,53,53,54,54 7208 DATA 36,36,44,44,44,53,53,53,54,54
7109 DATA 54,54,54,54,54,54,63,63,45,46 7209 DATA 54,54,54,54,54,54,63,63,45,46
7110 DATA 46,62,63,63,39,37,37,63,36,36 7210 DATA 46,62,63,63,39,37,37,63,36,36
7111 DATA 36,36,0,219,36,36,36,36,44,44 7211 DATA 36,36,0,219,36,36,36,36,44,44
7112 DATA 44,53,53,53,54,54,54,54,54,54 7212 DATA 44,53,53,53,54,54,54,54,54,54
7113 DATA 54,54,63,63,45,46,46,62,63,127 7213 DATA 54,54,63,63,45,46,46,62,63,127
7114 DATA 73,62,54,62,39,36,39,39,37,37 7214 DATA 73,62,54,62,39,36,39,39,37,37
7115 DATA 63,36,36,36,36,0,219,36,36,36 7215 DATA 63,36,36,36,36,0,219,36,36,36
7116 DATA 36,36,36,44,44,44,53,53,53,54 7216 DATA 36,36,36,44,44,44,53,53,53,54
7117 DATA 54,54,54,54,54,54,54,54,54,54 7217 DATA 54,54,54,54,54,54,54,54,54,54
7118 DATA 54,63,63,45,46,46,62,63,63,39 7218 DATA 54,63,63,45,46,46,62,63,63,39
7119 DATA 37,37,63,36,36,36,36,36,36,0 7219 DATA 37,37,63,36,36,36,36,36,36,0
7120 DATA 219,36,36,36,36,36,36,44,44,44 7220 DATA 219,36,36,36,36,36,36,44,44,44
7121 DATA 53,53,53,54,54,54,54,54,54,54 7221 DATA 53,53,53,54,54,54,54,54,54,54
7122 DATA 54,54,54,54,54,63,63,45,46,46 7222 DATA 54,54,54,54,54,63,63,45,46,46
7123 DATA 62,63,127,73,62,54,62,39,36,39 7223 DATA 62,63,127,73,62,54,62,39,36,39
7124 DATA 39,37,37,63,36,36,36,36,36,36 7224 DATA 39,37,37,63,36,36,36,36,36,36
7125 DATA 0 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