dos33fsprogs/games/peasant/intro.s

; Peasant's Quest Intro Sequence

; by Vince `deater` Weaver	vince@deater.net

; with apologies to everyone

.include "hardware.inc"
.include "zp.inc"

.include "qload.inc"
.include "music.inc"

peasant_quest_intro:

	lda	#0
	sta	ESC_PRESSED

	jsr	hgr_make_tables

	jsr	hgr2


	;*******************************
	; restart music, only drum loop
	;******************************

	lda	SOUND_STATUS
	and	#SOUND_MOCKINGBOARD
	beq	mockingboard_notfound

	; hack! modify the PT3 file to ignore the latter half

	lda	#$ff			; end after 4 patterns
	sta	PT3_LOC+$C9+$4

	lda	#$0			; set LOOP to 0
	sta	PT3_LOC+$66

	jsr	pt3_init_song

	cli
mockingboard_notfound:

	;************************
	; Cottage
	;************************

	jsr	cottage

	lda	ESC_PRESSED
	bne	escape_handler

	;************************
	; Lake West
	;************************

	jsr	lake_west

	lda	ESC_PRESSED
	bne	escape_handler

	;************************
	; Lake East
	;************************

	jsr	lake_east

	lda	ESC_PRESSED
	bne	escape_handler

	;************************
	; River
	;************************

	jsr	river

	lda	ESC_PRESSED
	bne	escape_handler

	;************************
	; Knight
	;************************

	jsr knight

	;************************
	; Start actual game
	;************************

	jsr	draw_peasant

	; wait a bit

	lda	#10
	jsr	wait_a_bit

escape_handler:

	;==========================
	; disable music

	lda	SOUND_STATUS
	and	#SOUND_MOCKINGBOARD
	beq	mockingboard_notfound2

	sei				; turn off music
	jsr	clear_ay_both		; clear AY state

	jsr	mockingboard_disable_interrupt
mockingboard_notfound2:


	;=============================
	; start new game
	;=============================

	jmp	start_new_game

.include "new_game.s"


;.include "wait_keypress.s"

.include "intro_cottage.s"
.include "intro_lake_w.s"
.include "intro_lake_e.s"
.include "intro_river.s"
.include "intro_knight.s"

.include "draw_peasant.s"

;.include "decompress_fast_v2.s"
;.include "hgr_font.s"
;.include "draw_box.s"
;.include "hgr_rectangle.s"
;.include "hgr_1x28_sprite.s"
;.include "hgr_partial_save.s"
;.include "hgr_input.s"
;.include "hgr_tables.s"
;.include "hgr_text_box.s"
;.include "hgr_hgr2.s"

.include "hgr_1x5_sprite.s"


.include "gr_copy.s"

.include "wait.s"
.include "wait_a_bit.s"

.include "graphics_peasantry/graphics_intro.inc"

.include "graphics_peasantry/priority_intro.inc"

skip_text:
        .byte 0,2,"ESC Skips",0

	;===================
        ; print title
intro_print_title:
	lda	#<peasant_text
	sta	OUTL
	lda	#>peasant_text
	sta	OUTH

	jsr	hgr_put_string

	lda	#<skip_text
	sta	OUTL
	lda	#>skip_text
	sta	OUTH

	jmp	hgr_put_string		; tail call
peasant: split game off from intro 2021-08-15 03:31:00 +00:00			`; Peasant's Quest Intro Sequence`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
			; by Vince `deater` Weaver vince@deater.net

			`; with apologies to everyone`

			`.include "hardware.inc"`
peasant: split off title from main exe 2021-08-12 01:45:31 +00:00			`.include "zp.inc"`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: move qload earlier and re-enable savefile support 2021-08-14 20:01:36 +00:00			`.include "qload.inc"`
peasant: move music playing to the language card this was a huge pain also had to remove all calls to the firmware 2021-09-26 02:44:07 +00:00			`.include "music.inc"`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: split game off from intro 2021-08-15 03:31:00 +00:00			`peasant_quest_intro:`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00			`lda #0`
			`sta ESC_PRESSED`

peasant: initial text box support 2021-08-12 02:07:33 +00:00			`jsr hgr_make_tables`

peasant: move music playing to the language card this was a huge pain also had to remove all calls to the firmware 2021-09-26 02:44:07 +00:00			`jsr hgr2`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00

peasant: clean up music 2021-08-13 01:01:05 +00:00			`;*******************************`
			`; restart music, only drum loop`
			`;******************************`

peasant: fix to work on machines w/o mockingboard wasn't properly wrapping all cases 2021-09-30 04:57:00 +00:00			`lda SOUND_STATUS`
			`and #SOUND_MOCKINGBOARD`
			`beq mockingboard_notfound`

peasant: clean up music 2021-08-13 01:01:05 +00:00			`; hack! modify the PT3 file to ignore the latter half`

			`lda #$ff ; end after 4 patterns`
			`sta PT3_LOC+$C9+$4`

			`lda #$0 ; set LOOP to 0`
			`sta PT3_LOC+$66`

			`jsr pt3_init_song`

			`cli`
peasant: fix to work on machines w/o mockingboard wasn't properly wrapping all cases 2021-09-30 04:57:00 +00:00			`mockingboard_notfound:`
peasant: clean up music 2021-08-13 01:01:05 +00:00
peasant: yet another silly project 2021-08-09 05:21:58 +00:00			`;************************`
			`; Cottage`
			`;************************`

peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00			`jsr cottage`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00			`lda ESC_PRESSED`
			`bne escape_handler`

peasant: yet another silly project 2021-08-09 05:21:58 +00:00			`;************************`
			`; Lake West`
			`;************************`

peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00			`jsr lake_west`
peasant: update graphics hgr is evil 2021-08-10 18:05:41 +00:00
peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00			`lda ESC_PRESSED`
			`bne escape_handler`

peasant: yet another silly project 2021-08-09 05:21:58 +00:00			`;************************`
			`; Lake East`
			`;************************`

peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00			`jsr lake_east`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00			`lda ESC_PRESSED`
			`bne escape_handler`

peasant: yet another silly project 2021-08-09 05:21:58 +00:00			`;************************`
			`; River`
			`;************************`

peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00			`jsr river`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00			`lda ESC_PRESSED`
			`bne escape_handler`

peasant: yet another silly project 2021-08-09 05:21:58 +00:00			`;************************`
			`; Knight`
			`;************************`

peasant: add opening animation 2021-08-11 03:43:30 +00:00			`jsr knight`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: add some more graphics 2021-08-11 23:29:47 +00:00			`;************************`
peasant: split game off from intro 2021-08-15 03:31:00 +00:00			`; Start actual game`
peasant: add some more graphics 2021-08-11 23:29:47 +00:00			`;************************`

peasant: only save part of hires screen trying to avoid peasant flicker, seems to be improved 2021-08-16 05:31:49 +00:00			`jsr draw_peasant`

peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00			`; wait a bit`

			`lda #10`
			`jsr wait_a_bit`

			`escape_handler:`

peasant: fix to work on machines w/o mockingboard wasn't properly wrapping all cases 2021-09-30 04:57:00 +00:00			`;==========================`
			`; disable music`

			`lda SOUND_STATUS`
			`and #SOUND_MOCKINGBOARD`
			`beq mockingboard_notfound2`

peasant: split game off from intro 2021-08-15 03:31:00 +00:00			`sei ; turn off music`
			`jsr clear_ay_both ; clear AY state`

peasant: hook up trogdor speech 2021-09-17 23:18:38 +00:00			`jsr mockingboard_disable_interrupt`
peasant: fix to work on machines w/o mockingboard wasn't properly wrapping all cases 2021-09-30 04:57:00 +00:00			`mockingboard_notfound2:`
peasant: split game off from intro 2021-08-15 03:31:00 +00:00
peasant: fixing up things for release 2021-10-04 02:46:24 +00:00

peasant: peasantry too big, split up in 4 pieces 2021-08-18 04:29:23 +00:00			`;=============================`
			`; start new game`
			`;=============================`
peasant: add some more graphics 2021-08-11 23:29:47 +00:00
peasant: move inventory to language card 2021-10-17 23:58:14 +00:00			`jmp start_new_game`
peasant: peasantry too big, split up in 4 pieces 2021-08-18 04:29:23 +00:00
peasant: move inventory to language card 2021-10-17 23:58:14 +00:00			`.include "new_game.s"`
peasant: peasantry too big, split up in 4 pieces 2021-08-18 04:29:23 +00:00

peasant: move loadsave to qload saves space, also needed if we are going to move parse_text high 2021-10-21 03:21:00 +00:00			`;.include "wait_keypress.s"`
peasant: yet another silly project 2021-08-09 05:21:58 +00:00
peasant: rename all the rest tested it seems to work again 2021-08-14 19:01:59 +00:00			`.include "intro_cottage.s"`
			`.include "intro_lake_w.s"`
			`.include "intro_lake_e.s"`
			`.include "intro_river.s"`
			`.include "intro_knight.s"`
peasant: update graphics hgr is evil 2021-08-10 18:05:41 +00:00
peasant: split out the draw peasant routine 2021-08-14 17:48:02 +00:00			`.include "draw_peasant.s"`

peasant: move inventory to language card 2021-10-17 23:58:14 +00:00			`;.include "decompress_fast_v2.s"`
peasant: move most hgr routines to qload also, escaping a $ in a Makefile is trickier than you'd think 2021-09-26 19:41:43 +00:00			`;.include "hgr_font.s"`
			`;.include "draw_box.s"`
			`;.include "hgr_rectangle.s"`
peasant: settle on 1x28 vs 7x28 for name of sprite routines 2021-10-05 04:13:31 +00:00			`;.include "hgr_1x28_sprite.s"`
peasant: move most hgr routines to qload also, escaping a $ in a Makefile is trickier than you'd think 2021-09-26 19:41:43 +00:00			`;.include "hgr_partial_save.s"`
			`;.include "hgr_input.s"`
			`;.include "hgr_tables.s"`
			`;.include "hgr_text_box.s"`
			`;.include "hgr_hgr2.s"`

peasant: bubbles in lake 2021-08-12 18:07:19 +00:00			`.include "hgr_1x5_sprite.s"`
peasant: move most hgr routines to qload also, escaping a $ in a Makefile is trickier than you'd think 2021-09-26 19:41:43 +00:00
peasant: use lookup table for HPOSN not sure if it's that noticable 2021-08-13 00:36:32 +00:00
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times 2021-10-02 18:43:58 +00:00			`.include "gr_copy.s"`

peasant: move music playing to the language card this was a huge pain also had to remove all calls to the firmware 2021-09-26 02:44:07 +00:00			`.include "wait.s"`
peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00			`.include "wait_a_bit.s"`
peasant: hook up the text generation 2021-08-10 05:09:35 +00:00
peasant: rename graphics directory needless churn is fun 2021-10-13 01:18:40 +00:00			`.include "graphics_peasantry/graphics_intro.inc"`
peasant: hook up trogdor speech 2021-09-17 23:18:38 +00:00
peasant: rename graphics directory needless churn is fun 2021-10-13 01:18:40 +00:00			`.include "graphics_peasantry/priority_intro.inc"`
peasant: add "ESC Skips" message to intro 2021-10-07 04:43:44 +00:00
			`skip_text:`
			`.byte 0,2,"ESC Skips",0`

			`;===================`
			`; print title`
			`intro_print_title:`
			`lda #<peasant_text`
			`sta OUTL`
			`lda #>peasant_text`
			`sta OUTH`

			`jsr hgr_put_string`

			`lda #<skip_text`
			`sta OUTL`
			`lda #>skip_text`
			`sta OUTH`

			`jmp hgr_put_string ; tail call`