Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

peasant: add "ESC Skips" message to intro

This commit is contained in:
Vince Weaver 2021-10-07 00:43:44 -04:00
parent cb9b61541d
commit 6060bb7a01
6 changed files with 35 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
games/peasant/intro.s
View File

@ -196,3 +196,25 @@ start_new_game:
.include "graphics/graphics_intro.inc"
.include "graphics/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

9
games/peasant/intro_cottage.s
View File

@ -55,14 +55,7 @@ cottage:
;===================
; print title
lda #<peasant_text
sta OUTL
lda #>peasant_text
sta OUTH
jsr hgr_put_string
; jsr hgr_save
jsr intro_print_title
;====================
; save background

11
games/peasant/intro_knight.s
View File

@ -32,15 +32,10 @@ knight:
jsr decompress_lzsa2_fast
lda #<peasant_text
sta OUTL
lda #>peasant_text
sta OUTH
jsr hgr_put_string
; jsr hgr_save
;==================
; print title line
jsr intro_print_title
; load priority to $400
; indirectly as we can't trash screen holes

12
games/peasant/intro_lake_e.s
View File

@ -47,16 +47,10 @@ lake_east:
jsr gr_copy_to_page1
;================
; print title line
lda #<peasant_text
sta OUTL
lda #>peasant_text
sta OUTH
jsr hgr_put_string
; jsr hgr_save
jsr intro_print_title
;====================
; save background

9
games/peasant/intro_lake_w.s
View File

@ -31,14 +31,11 @@ lake_west:
jsr decompress_lzsa2_fast
lda #<peasant_text
sta OUTL
lda #>peasant_text
sta OUTH
;================
; print title
jsr hgr_put_string
jsr intro_print_title
; jsr hgr_save
; load priority to $400
; indirectly as we can't trash screen holes

11
games/peasant/intro_river.s
View File

@ -32,15 +32,10 @@ river:
jsr decompress_lzsa2_fast
lda #<peasant_text
sta OUTL
lda #>peasant_text
sta OUTH
jsr hgr_put_string
; jsr hgr_save
;================
; print title
jsr intro_print_title
; load priority to $400