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

ksp: update flight to handle thrusting

Browse Source
This commit is contained in:
Vince Weaver 2016-05-26 12:00:17 -04:00
parent 82e52ea8d5
commit f1433c36b3
2 changed files with 102 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ksp/flight.bas
View File

@ -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

90
ksp/ship2.table
View File

@ -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