ds: have blast happen earlier

of course this makes everything else harder

demosplash/NOTES

@@ -1,33 +1,24 @@
 
 TODO:
-	+ red underline on missing
-	+ glitch prevention finish
-	+ clear screen at begin on missing
 
 Music glitching:
-+ Demosplash
++ Demosplash -- generates 4 pages of music
-	gen 4 pages
++ Apple II intro -- plays 2 pages
-+ Apple II intro
++ Missing notice -- plays 2 pages
-	plays for 2 pages
++ opening_book   -- irq driven
-	(MILD GLITCH)
++ Starbase       -- irq driven (up to page $19)
-+ Missing notice
++ Escape         -- plays 4 pages  (depends on playback)
-
++ reading/end_book-- text (irq driven?)
-
+                    book plays 1 page 
-
++ credits	 -- plays 5 pages (could use more)
-
-
 
 
 TODO:
 	CYCLE:	Apple II intro
-		+ Remove keyboard pause
 	CYCLE:	MISSING notice
-		+ Add missing text
-		+ Autogen the active background code
 	PLAIN:	Hollowed out book
 		+ Meanwhile on a distant starbase, a prisoner
 			receives a mysterious package...
-		+ Draw this sequence
 	PLAIN:	STARBASE OOTW sequence
 		+ Update graphics
 		+ Update backgrounds

demosplash/starbase.s

@@ -14,7 +14,6 @@ starbase:
 	;=======================
 	; Run the "intro"
 	;=======================
-	; just us falling?
 
 	jsr	starbase_init
 

demosplash/starbase_action.s

@@ -12,7 +12,6 @@ starbase_init:
 	sta	CART_OUT
 	sta	LASER_OUT
 	sta	BLAST_OUT
-	sta	GUN_STATE
 	sta	GUN_FIRE
 	sta	NUM_DOORS
 	sta	ON_ELEVATOR
@@ -20,6 +19,9 @@ starbase_init:
 	lda	#1
 	sta	DIRECTION		; right
 
+	lda	#20			; start already charging
+	sta	GUN_STATE
+
 	lda	#100
 	sta	GUN_CHARGE
 

demosplash/starbase_keyboard.s

@@ -451,7 +451,8 @@ change_state_clear_gait:
 
 starbase_keypresses:
 	; in room 0
-	.byte	'L',180		; start charging laser, wait 180
+	; already charging, so do nothing
+	.byte	'.',80		; start charging laser, wait 180
 	.byte	'L',10		; release, blasting door, wait 2
 	.byte	'D',20		; walk right
 	.byte	'D',180		; run right