mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-26 05:54:45 +00:00
peasant: add some more graphics
This commit is contained in:
parent
fe51c1cb38
commit
2bd8125bba
@ -56,7 +56,9 @@ PEASANT: peasant.o
|
|||||||
ld65 -o PEASANT peasant.o -C $(LINKER_SCRIPTS)/apple2_6000.inc
|
ld65 -o PEASANT peasant.o -C $(LINKER_SCRIPTS)/apple2_6000.inc
|
||||||
|
|
||||||
peasant.o: peasant.s graphics/graphics.inc \
|
peasant.o: peasant.s graphics/graphics.inc \
|
||||||
directions.s cottage.s lake_w.s lake_e.s river.s knight.s
|
title.s directions.s \
|
||||||
|
cottage.s lake_w.s lake_e.s river.s knight.s \
|
||||||
|
ending.s
|
||||||
ca65 -o peasant.o peasant.s -l peasant.lst
|
ca65 -o peasant.o peasant.s -l peasant.lst
|
||||||
|
|
||||||
###
|
###
|
||||||
|
@ -27,5 +27,42 @@ cottage:
|
|||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
peasant_text:
|
||||||
.byte 25,2,"Peasant's Quest",0
|
.byte 25,2,"Peasant's Quest",0
|
||||||
|
|
||||||
|
|
||||||
|
cottage_text1:
|
||||||
|
.byte 0,0,"YOU are Rather Dashing, a",0
|
||||||
|
.byte 0,0,"humble peasant living in",0
|
||||||
|
.byte 0,0,"the peasant kingdom of",0
|
||||||
|
.byte 0,0,"Peasantry.",0
|
||||||
|
|
||||||
|
; wait a few seconds
|
||||||
|
|
||||||
|
cottage_text2:
|
||||||
|
.byte 0,0,"You return home from a",0
|
||||||
|
.byte 0,0,"vacation on Scalding Lake",0
|
||||||
|
.byte 0,0,"only to find that TROGDOR",0
|
||||||
|
.byte 0,0,"THE BURNINATOR has",0
|
||||||
|
.byte 0,0,"burninated your thatched",0
|
||||||
|
.byte 0,0,"roof cottage along with all",0
|
||||||
|
.byte 0,0,"your goods and services.",0
|
||||||
|
|
||||||
|
; wait a few seconds, then start walking toward cottage
|
||||||
|
|
||||||
|
cottage_text3:
|
||||||
|
.byte 0,0,"With nothing left to lose,",0
|
||||||
|
.byte 0,0,"you swear to get revenge on",0
|
||||||
|
.byte 0,0,"the Wingaling Dragon in the",0
|
||||||
|
.byte 0,0,"name of burninated peasants",0
|
||||||
|
.byte 0,0,"everywhere.",0
|
||||||
|
|
||||||
|
; Walk to edge of screen
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
50
games/peasant/ending.s
Normal file
50
games/peasant/ending.s
Normal file
@ -0,0 +1,50 @@
|
|||||||
|
; o/~ Bread is a good time for me o/~
|
||||||
|
|
||||||
|
;************************
|
||||||
|
; Ending
|
||||||
|
;************************
|
||||||
|
ending:
|
||||||
|
lda #<(trogdor_lzsa)
|
||||||
|
sta getsrc_smc+1
|
||||||
|
lda #>(trogdor_lzsa)
|
||||||
|
sta getsrc_smc+2
|
||||||
|
|
||||||
|
lda #$40
|
||||||
|
|
||||||
|
jsr decompress_lzsa2_fast
|
||||||
|
|
||||||
|
lda #<peasant_text
|
||||||
|
sta OUTL
|
||||||
|
lda #>peasant_text
|
||||||
|
sta OUTH
|
||||||
|
|
||||||
|
jsr hgr_put_string
|
||||||
|
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
lda #<(game_over_lzsa)
|
||||||
|
sta getsrc_smc+1
|
||||||
|
lda #>(game_over_lzsa)
|
||||||
|
sta getsrc_smc+2
|
||||||
|
|
||||||
|
lda #$40
|
||||||
|
|
||||||
|
jsr decompress_lzsa2_fast
|
||||||
|
|
||||||
|
lda #<peasant_text
|
||||||
|
sta OUTL
|
||||||
|
lda #>peasant_text
|
||||||
|
sta OUTH
|
||||||
|
|
||||||
|
jsr hgr_put_string
|
||||||
|
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -15,7 +15,9 @@ graphics.inc: \
|
|||||||
lake_e.lzsa \
|
lake_e.lzsa \
|
||||||
lake_w.lzsa \
|
lake_w.lzsa \
|
||||||
river.lzsa \
|
river.lzsa \
|
||||||
knight.lzsa
|
knight.lzsa \
|
||||||
|
trogdor.lzsa \
|
||||||
|
game_over.lzsa
|
||||||
echo "title_lzsa: .incbin \"peasant_title.lzsa\"" > graphics.inc
|
echo "title_lzsa: .incbin \"peasant_title.lzsa\"" > graphics.inc
|
||||||
echo "tips_lzsa: .incbin \"tips.lzsa\"" >> graphics.inc
|
echo "tips_lzsa: .incbin \"tips.lzsa\"" >> graphics.inc
|
||||||
echo "cottage_lzsa: .incbin \"cottage.lzsa\"" >> graphics.inc
|
echo "cottage_lzsa: .incbin \"cottage.lzsa\"" >> graphics.inc
|
||||||
@ -23,6 +25,8 @@ graphics.inc: \
|
|||||||
echo "lake_e_lzsa: .incbin \"lake_e.lzsa\"" >> graphics.inc
|
echo "lake_e_lzsa: .incbin \"lake_e.lzsa\"" >> graphics.inc
|
||||||
echo "river_lzsa: .incbin \"river.lzsa\"" >> graphics.inc
|
echo "river_lzsa: .incbin \"river.lzsa\"" >> graphics.inc
|
||||||
echo "knight_lzsa: .incbin \"knight.lzsa\"" >> graphics.inc
|
echo "knight_lzsa: .incbin \"knight.lzsa\"" >> graphics.inc
|
||||||
|
echo "trogdor_lzsa: .incbin \"trogdor.lzsa\"" >> graphics.inc
|
||||||
|
echo "game_over_lzsa: .incbin \"game_over.lzsa\"" >> graphics.inc
|
||||||
|
|
||||||
|
|
||||||
###
|
###
|
||||||
@ -89,6 +93,23 @@ knight.lzsa: knight.hgr
|
|||||||
knight.hgr: knight.png
|
knight.hgr: knight.png
|
||||||
$(PNG2HGR) knight.png > knight.hgr
|
$(PNG2HGR) knight.png > knight.hgr
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
trogdor.lzsa: trogdor.hgr
|
||||||
|
$(LZSA) -r -f2 trogdor.hgr trogdor.lzsa
|
||||||
|
|
||||||
|
trogdor.hgr: trogdor.png
|
||||||
|
$(PNG2HGR) trogdor.png > trogdor.hgr
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
game_over.lzsa: game_over.hgr
|
||||||
|
$(LZSA) -r -f2 game_over.hgr game_over.lzsa
|
||||||
|
|
||||||
|
game_over.hgr: game_over.png
|
||||||
|
$(PNG2HGR) game_over.png > game_over.hgr
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
###
|
###
|
||||||
|
BIN
games/peasant/graphics/game_over.png
Normal file
BIN
games/peasant/graphics/game_over.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 957 B |
BIN
games/peasant/graphics/trogdor.png
Normal file
BIN
games/peasant/graphics/trogdor.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 20 KiB |
@ -24,3 +24,13 @@ knight:
|
|||||||
jsr wait_until_keypress
|
jsr wait_until_keypress
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
; continues displaying previous message
|
||||||
|
|
||||||
|
; stops as approach knight
|
||||||
|
|
||||||
|
knight_message1:
|
||||||
|
.byte 0,0,"OK go for it.",0
|
||||||
|
|
||||||
|
|
||||||
|
@ -24,3 +24,13 @@ lake_east:
|
|||||||
jsr wait_until_keypress
|
jsr wait_until_keypress
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; walk sideways, near corner
|
||||||
|
|
||||||
|
lake_e_message1:
|
||||||
|
.byte 0,0,"That's a nice looking lake.",0
|
||||||
|
|
||||||
|
; nearly hit head on sign, it goes away, walk off screen
|
||||||
|
|
||||||
|
@ -24,3 +24,13 @@ lake_west:
|
|||||||
jsr wait_until_keypress
|
jsr wait_until_keypress
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
; same message as end of cottage
|
||||||
|
|
||||||
|
; walk halfway across the screen
|
||||||
|
|
||||||
|
lake_w_message1:
|
||||||
|
.byte 0,0,"You head east toward the",0
|
||||||
|
.byte 0,0,"mountain atop which TROGDOR lives.",0
|
||||||
|
|
||||||
|
; walk to edge
|
||||||
|
@ -34,16 +34,7 @@ hgr_display:
|
|||||||
; Title
|
; Title
|
||||||
;************************
|
;************************
|
||||||
|
|
||||||
lda #<(title_lzsa)
|
jsr title
|
||||||
sta getsrc_smc+1
|
|
||||||
lda #>(title_lzsa)
|
|
||||||
sta getsrc_smc+2
|
|
||||||
|
|
||||||
lda #$40
|
|
||||||
|
|
||||||
jsr decompress_lzsa2_fast
|
|
||||||
|
|
||||||
jsr wait_until_keypress
|
|
||||||
|
|
||||||
|
|
||||||
;************************
|
;************************
|
||||||
@ -83,6 +74,13 @@ hgr_display:
|
|||||||
|
|
||||||
jsr knight
|
jsr knight
|
||||||
|
|
||||||
|
;************************
|
||||||
|
; Ending
|
||||||
|
;************************
|
||||||
|
|
||||||
|
jsr ending
|
||||||
|
|
||||||
|
|
||||||
forever:
|
forever:
|
||||||
jmp forever
|
jmp forever
|
||||||
|
|
||||||
@ -90,12 +88,14 @@ forever:
|
|||||||
.include "decompress_fast_v2.s"
|
.include "decompress_fast_v2.s"
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
||||||
|
.include "title.s"
|
||||||
.include "directions.s"
|
.include "directions.s"
|
||||||
.include "cottage.s"
|
.include "cottage.s"
|
||||||
.include "lake_w.s"
|
.include "lake_w.s"
|
||||||
.include "lake_e.s"
|
.include "lake_e.s"
|
||||||
.include "river.s"
|
.include "river.s"
|
||||||
.include "knight.s"
|
.include "knight.s"
|
||||||
|
.include "ending.s"
|
||||||
|
|
||||||
.include "hgr_font.s"
|
.include "hgr_font.s"
|
||||||
|
|
||||||
|
@ -24,3 +24,12 @@ river:
|
|||||||
jsr wait_until_keypress
|
jsr wait_until_keypress
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
; walk up a bit
|
||||||
|
|
||||||
|
river_message1:
|
||||||
|
.byte 0,0,"You can start playing in a",0
|
||||||
|
.byte 0,0,"second here.",0
|
||||||
|
|
||||||
|
; walks behind tree
|
||||||
|
19
games/peasant/title.s
Normal file
19
games/peasant/title.s
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
; o/~ Burnintating the Peasants o/~
|
||||||
|
|
||||||
|
|
||||||
|
;************************
|
||||||
|
; Title
|
||||||
|
;************************
|
||||||
|
title:
|
||||||
|
lda #<(title_lzsa)
|
||||||
|
sta getsrc_smc+1
|
||||||
|
lda #>(title_lzsa)
|
||||||
|
sta getsrc_smc+2
|
||||||
|
|
||||||
|
lda #$40
|
||||||
|
|
||||||
|
jsr decompress_lzsa2_fast
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
rts
|
Loading…
Reference in New Issue
Block a user