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

peasant: more trogdor timing

This commit is contained in:
Vince Weaver 2021-09-17 19:52:27 -04:00
parent 74c93ace2d
commit fe36253ad6
2 changed files with 97 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
games/peasant/sprites/Makefile
View File

@ -61,15 +61,15 @@ ending_sprites.inc: end_sprites.png boat_sprites.png
trogdor_sprites.inc: trogdor_sprites.png
$(HGR_SPRITE) -l dashing0_sprite trogdor_sprites.png 14 6 20 45 > trogdor_sprites.inc
$(HGR_SPRITE) -l dashing1_sprite trogdor_sprites.png 28 6 34 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -l dashing2_sprite trogdor_sprites.png 42 6 48 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -l dashing3_sprite trogdor_sprites.png 56 6 62 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -l dashing4_sprite trogdor_sprites.png 70 6 76 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -l dashing5_sprite trogdor_sprites.png 84 6 90 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -l dashing6_sprite trogdor_sprites.png 98 6 104 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -l dashing7_sprite trogdor_sprites.png 112 6 118 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -l dashing8_sprite trogdor_sprites.png 126 6 132 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing0_sprite trogdor_sprites.png 14 6 20 45 > trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing1_sprite trogdor_sprites.png 28 6 34 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing2_sprite trogdor_sprites.png 42 6 48 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing3_sprite trogdor_sprites.png 56 6 62 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing4_sprite trogdor_sprites.png 70 6 76 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing5_sprite trogdor_sprites.png 84 6 90 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing6_sprite trogdor_sprites.png 98 6 104 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing7_sprite trogdor_sprites.png 112 6 118 45 >> trogdor_sprites.inc
$(HGR_SPRITE) -s -l dashing8_sprite trogdor_sprites.png 126 6 132 45 >> trogdor_sprites.inc
clean:
rm -f *~ inventory_sprites.inc ending_sprites.inc trogdor_sprites.inc

88
games/peasant/trogdor.s
View File

@ -39,6 +39,22 @@ trogdor_cave:
jsr decompress_lzsa2_fast
;======================
; draw rather dashing
lda #12
sta CURSOR_X
lda #142
sta CURSOR_Y
lda #<dashing0_sprite
sta INL
lda #>dashing0_sprite
sta INH
jsr hgr_draw_sprite
jsr update_top
jsr wait_until_keypress
@ -135,6 +151,21 @@ trogdor_open:
jsr decompress_lzsa2_fast
;======================
; draw rather dashing
lda #12
sta CURSOR_X
lda #142
sta CURSOR_Y
lda #<dashing0_sprite
sta INL
lda #>dashing0_sprite
sta INH
jsr hgr_draw_sprite
jsr update_top
; jsr wait_until_keypress
@ -209,6 +240,48 @@ burninate_loop:
jsr update_top
;======================
; draw rather dashing
lda #12
sta CURSOR_X
lda #142
sta CURSOR_Y
lda #1
sta BABY_COUNT
dashing_loop:
ldy BABY_COUNT
lda dashing_progress_l,Y
sta INL
lda dashing_progress_h,Y
sta INH
jsr hgr_draw_sprite
lda #220
jsr WAIT
ldy BABY_COUNT
cpy #7
bne no_boom
lda #64
sta speaker_duration
lda #NOTE_C3
sta speaker_frequency
jsr speaker_beep
no_boom:
inc BABY_COUNT
lda BABY_COUNT
cmp #9
bne dashing_loop
; collapse with boom
;==================
@ -272,6 +345,8 @@ peasant_text:
.include "speaker_beeps.s"
.include "hgr_sprite.s"
.include "ssi263_simple_speech.s"
.include "trogdor_speech.s"
@ -318,3 +393,16 @@ update_top:
jsr print_score
rts
dashing_progress_l:
.byte <dashing0_sprite,<dashing1_sprite,<dashing2_sprite
.byte <dashing3_sprite,<dashing4_sprite,<dashing5_sprite
.byte <dashing6_sprite,<dashing7_sprite,<dashing8_sprite
dashing_progress_h:
.byte >dashing0_sprite,>dashing1_sprite,>dashing2_sprite
.byte >dashing3_sprite,>dashing4_sprite,>dashing5_sprite
.byte >dashing6_sprite,>dashing7_sprite,>dashing8_sprite