mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 23:54:33 +00:00
ksp: update flight to handle thrusting
This commit is contained in:
parent
82e52ea8d5
commit
f1433c36b3
@ -1,19 +1,25 @@
|
|||||||
7000 HIMEM:8144
|
7000 HIMEM:8106
|
||||||
7020 POKE 232,208:POKE 233,31
|
7020 POKE 232,170:POKE 233,31
|
||||||
7030 FOR L=8144 TO 8175: READ B:POKE L,B:NEXT L
|
7030 FOR L=8106 TO 8175: READ B:POKE L,B:NEXT L
|
||||||
7035 HGR:ROT=0:SCALE=2
|
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$
|
7050 GET A$
|
||||||
7060 IF A$="Q" THEN END
|
7060 IF A$="Q" THEN END
|
||||||
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
|
||||||
|
7065 IF A$="Z" THEN TH=1
|
||||||
|
7067 IF A$="X" THEN TH=0
|
||||||
7070 IF R=64 THEN R=0
|
7070 IF R=64 THEN R=0
|
||||||
7072 IF R=-8 THEN R=56
|
7072 IF R=-8 THEN R=56
|
||||||
7075 XDRAW 1 AT 140,80
|
7075 XDRAW 1 AT 140,80
|
||||||
7080 ROT=R
|
7080 ROT=R
|
||||||
7085 GOTO 7040
|
7085 GOTO 7040
|
||||||
7090 END
|
7090 END
|
||||||
7100 DATA 1,0,4,0,219,36,36,44,44,44
|
7100 DATA 2,0,6,0,34,0,219,36,36,44
|
||||||
7101 DATA 53,53,53,54,54,54,54,63,63,45
|
7101 DATA 44,44,53,53,53,54,54,54,54,63
|
||||||
7102 DATA 46,46,62,63,63,39,37,37,63,36
|
7102 DATA 63,45,46,46,62,63,63,39,37,37
|
||||||
7103 DATA 36,0
|
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
|
||||||
|
@ -1,6 +1,8 @@
|
|||||||
# Number of shapes
|
# Number of shapes
|
||||||
1
|
2
|
||||||
#
|
####################
|
||||||
|
# 1-stage, no thrust
|
||||||
|
####################
|
||||||
START
|
START
|
||||||
# Get to edge
|
# Get to edge
|
||||||
NLT
|
NLT
|
||||||
@ -64,3 +66,87 @@ UP
|
|||||||
UP
|
UP
|
||||||
UP
|
UP
|
||||||
STOP
|
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
|
||||||
|
Loading…
Reference in New Issue
Block a user