tfv: add story graphics

games/tfv/Makefile

@@ -18,7 +18,7 @@ tfv.dsk:	$(DOS33) HELLO LOADER TFV_CREDITS TFV_TITLE TFV_FLYING TFV_WORLD
 	$(DOS33) -y tfv.dsk SAVE A HELLO
 	$(DOS33) -y tfv.dsk BSAVE -a 0x1000 LOADER
 	$(DOS33) -y tfv.dsk BSAVE -a 0x4000 TFV_CREDITS
-	$(DOS33) -y tfv.dsk BSAVE -a 0x2000 TFV_TITLE
+	$(DOS33) -y tfv.dsk BSAVE -a 0x4000 TFV_TITLE
 	$(DOS33) -y tfv.dsk BSAVE -a 0x2000 TFV_FLYING
 	$(DOS33) -y tfv.dsk BSAVE -a 0x2000 TFV_WORLD
 
@@ -48,7 +48,7 @@ TFV_CREDITS:	credits.o
 ###
 
 TFV_TITLE:	tfv_title.o
-	ld65 -o TFV_TITLE tfv_title.o -C ../../linker_scripts/apple2_2000.inc
+	ld65 -o TFV_TITLE tfv_title.o -C ../../linker_scripts/apple2_4000.inc
 
 tfv_title.o:	tfv_title.s zp.inc \
 	gr_vlin.s tfv_opener.s \

games/tfv/graphics_title/Makefile

@@ -2,25 +2,38 @@ include ../../../Makefile.inc
 
 PNG2RLE = ../../../utils/gr-utils/png2rle
 PNG2GR = ../../../utils/gr-utils/png2gr
+PNG2HGR = ../../../utils/hgr-utils/png2hgr
 LZSA = ~/research/lzsa/lzsa/lzsa
 B2D = ../../../utils/bmp2dhr/b2d
 
-all:	tfv_title.inc planets_warwick.hgr
-
-planets_warwick_hgr:	planets_warwick.bmp
-	$(B2D)
+all:	tfv_title.inc
 
 
 tfv_title.inc:	\
-	title.lzsa
+	title.lzsa tfv_story.lzsa
 	echo "title_lzsa: .incbin \"title.lzsa\"" > tfv_title.inc
+	echo "tfv_story_lzsa: .incbin \"tfv_story.lzsa\"" >> tfv_title.inc
 
-%.gr:	%.png
-	$(PNG2GR) $< $@
 
-%.lzsa:	%.gr
-	$(LZSA) -r -f2 $< $@
+###
+
+tfv_story.lzsa:	tfv_story.hgr
+	$(LZSA) -r -f2 tfv_story.hgr tfv_story.lzsa
+
+tfv_story.hgr:	tfv_story.png
+	$(PNG2HGR) tfv_story.png > tfv_story.hgr
+
+###
+
+title.lzsa:	title.gr
+	$(LZSA) -r -f2 title.gr title.lzsa
+
+title.gr:	title.png
+	$(PNG2GR) title.png title.gr
+
+###
+
 
 clean:	
-	rm -f *~ tfv_title.inc
+	rm -f *~ tfv_title.inc *.lzsa *.gr *.hgr
 

games/tfv/loader.s

@@ -82,7 +82,11 @@ which_load_loop:
 
 	lda	WHICH_LOAD
 	cmp	#LOAD_CREDITS
-	bne	load_other
+	beq	load_credits
+	cmp	#LOAD_TITLE
+	beq	load_credits
+
+	jmp	load_other
 
 load_credits:
 	lda	#<$4000

games/tfv/tfv_title.s

@@ -112,6 +112,26 @@ title_new_game:
 
 	jsr	enter_name
 
+
+	;=================================
+	; display story
+
+	lda     #<(tfv_story_lzsa)
+        sta     getsrc_smc+1
+	lda     #>(tfv_story_lzsa)
+	sta	getsrc_smc+2
+
+	lda	#$20
+
+	jsr     decompress_lzsa2_fast
+
+	bit	SET_GR
+	bit	HIRES
+
+	jsr	wait_until_keypressed
+
+
+
 	; Initial starting values
 	lda	#$1
 	sta	HERO_LEVEL