mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-16 07:29:29 +00:00
peasant: add some silly placeholders
This commit is contained in:
parent
16b7249b79
commit
825082d087
|
@ -46,33 +46,36 @@ trogdor_question:
|
||||||
|
|
||||||
jsr hgr_input
|
jsr hgr_input
|
||||||
|
|
||||||
|
; check for right results ("Doug the dino")
|
||||||
|
|
||||||
|
lda input_buffer
|
||||||
|
cmp #'D'
|
||||||
|
bne wrong
|
||||||
|
|
||||||
|
lda #<correct_text
|
||||||
|
sta OUTL
|
||||||
|
lda #>correct_text
|
||||||
|
sta OUTH
|
||||||
|
|
||||||
|
jsr hgr_text_box
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
lda #LOAD_PEASANT
|
||||||
|
sta WHICH_LOAD
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
;=============================
|
;=============================
|
||||||
; draw WRONG! box
|
; draw WRONG! box
|
||||||
;=============================
|
;=============================
|
||||||
lda #0
|
wrong:
|
||||||
sta BOX_X1H
|
|
||||||
lda #97
|
|
||||||
sta BOX_X1L
|
|
||||||
lda #69
|
|
||||||
sta BOX_Y1
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
sta BOX_X2H
|
|
||||||
lda #184
|
|
||||||
sta BOX_X2L
|
|
||||||
lda #109
|
|
||||||
sta BOX_Y2
|
|
||||||
|
|
||||||
jsr draw_box
|
|
||||||
|
|
||||||
; print WRONG! at 16, 84
|
|
||||||
|
|
||||||
lda #<wrong_text
|
lda #<wrong_text
|
||||||
sta OUTL
|
sta OUTL
|
||||||
lda #>wrong_text
|
lda #>wrong_text
|
||||||
sta OUTH
|
sta OUTH
|
||||||
|
|
||||||
jsr hgr_put_string
|
jsr hgr_text_box
|
||||||
|
|
||||||
jsr wait_until_keypress
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
@ -116,6 +119,7 @@ forever:
|
||||||
.include "hgr_rectangle.s"
|
.include "hgr_rectangle.s"
|
||||||
.include "hgr_input.s"
|
.include "hgr_input.s"
|
||||||
.include "hgr_tables.s"
|
.include "hgr_tables.s"
|
||||||
|
.include "hgr_text_box.s"
|
||||||
|
|
||||||
.include "graphics_copy/copy_graphics.inc"
|
.include "graphics_copy/copy_graphics.inc"
|
||||||
|
|
||||||
|
@ -126,8 +130,13 @@ score_text:
|
||||||
.byte 0,2,"Score: 0 of 150",0
|
.byte 0,2,"Score: 0 of 150",0
|
||||||
|
|
||||||
wrong_text:
|
wrong_text:
|
||||||
|
.byte 0,97,69, 0,184,109
|
||||||
.byte 16,84,"WRONG!!!",0
|
.byte 16,84,"WRONG!!!",0
|
||||||
|
|
||||||
|
correct_text:
|
||||||
|
.byte 0,97,69, 0,184,109
|
||||||
|
.byte 16,84,"CORRECT!",0
|
||||||
|
|
||||||
; 0123456789012345678901234567890123456789
|
; 0123456789012345678901234567890123456789
|
||||||
copy_protection_text:
|
copy_protection_text:
|
||||||
.byte 0,160,"Before proceeding, don thy red glasses",0
|
.byte 0,160,"Before proceeding, don thy red glasses",0
|
||||||
|
|
|
@ -30,6 +30,7 @@ graphics.inc: \
|
||||||
river.lzsa \
|
river.lzsa \
|
||||||
knight.lzsa \
|
knight.lzsa \
|
||||||
waterfall.lzsa \
|
waterfall.lzsa \
|
||||||
|
inn.lzsa \
|
||||||
todo.lzsa
|
todo.lzsa
|
||||||
echo "cottage_lzsa: .incbin \"cottage.lzsa\"" > graphics.inc
|
echo "cottage_lzsa: .incbin \"cottage.lzsa\"" > graphics.inc
|
||||||
echo "lake_w_lzsa: .incbin \"lake_w.lzsa\"" >> graphics.inc
|
echo "lake_w_lzsa: .incbin \"lake_w.lzsa\"" >> graphics.inc
|
||||||
|
@ -37,6 +38,7 @@ 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 "waterfall_lzsa: .incbin \"waterfall.lzsa\"" >> graphics.inc
|
echo "waterfall_lzsa: .incbin \"waterfall.lzsa\"" >> graphics.inc
|
||||||
|
echo "inn_lzsa: .incbin \"inn.lzsa\"" >> graphics.inc
|
||||||
echo "todo_lzsa: .incbin \"todo.lzsa\"" >> graphics.inc
|
echo "todo_lzsa: .incbin \"todo.lzsa\"" >> graphics.inc
|
||||||
|
|
||||||
|
|
||||||
|
@ -114,6 +116,14 @@ waterfall.hgr: waterfall.png
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
|
inn.lzsa: inn.hgr
|
||||||
|
$(LZSA) -r -f2 inn.hgr inn.lzsa
|
||||||
|
|
||||||
|
inn.hgr: inn.png
|
||||||
|
$(PNG2HGR) inn.png > inn.hgr
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
todo.lzsa: todo.hgr
|
todo.lzsa: todo.hgr
|
||||||
$(LZSA) -r -f2 todo.hgr todo.lzsa
|
$(LZSA) -r -f2 todo.hgr todo.lzsa
|
||||||
|
|
||||||
|
|
BIN
games/peasant/graphics/inn.png
Normal file
BIN
games/peasant/graphics/inn.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 4.5 KiB |
|
@ -98,7 +98,7 @@ new_location:
|
||||||
|
|
||||||
; draw rectangle on bottom
|
; draw rectangle on bottom
|
||||||
|
|
||||||
jsr clear_bottom
|
; jsr clear_bottom
|
||||||
|
|
||||||
jsr hgr_save
|
jsr hgr_save
|
||||||
|
|
||||||
|
@ -282,7 +282,7 @@ parse_input:
|
||||||
|
|
||||||
parse_copy:
|
parse_copy:
|
||||||
cmp #'C'
|
cmp #'C'
|
||||||
bne parse_version
|
bne parse_look
|
||||||
|
|
||||||
; want copy
|
; want copy
|
||||||
lda #ENDING_COPY
|
lda #ENDING_COPY
|
||||||
|
@ -290,6 +290,26 @@ parse_copy:
|
||||||
jmp done_parse_message
|
jmp done_parse_message
|
||||||
|
|
||||||
|
|
||||||
|
parse_look:
|
||||||
|
cmp #'L'
|
||||||
|
bne parse_talk
|
||||||
|
|
||||||
|
lda #<fake_error1
|
||||||
|
sta OUTL
|
||||||
|
lda #>fake_error1
|
||||||
|
jmp finish_parse_message
|
||||||
|
|
||||||
|
|
||||||
|
parse_talk:
|
||||||
|
cmp #'T'
|
||||||
|
bne parse_version
|
||||||
|
|
||||||
|
lda #<fake_error2
|
||||||
|
sta OUTL
|
||||||
|
lda #>fake_error2
|
||||||
|
jmp finish_parse_message
|
||||||
|
|
||||||
|
|
||||||
parse_version:
|
parse_version:
|
||||||
cmp #'V'
|
cmp #'V'
|
||||||
bne parse_help
|
bne parse_help
|
||||||
|
@ -352,6 +372,16 @@ version_message:
|
||||||
.byte "version 0.2",0
|
.byte "version 0.2",0
|
||||||
|
|
||||||
|
|
||||||
|
fake_error1:
|
||||||
|
.byte 0,43,24, 0,253,82
|
||||||
|
.byte 8,41,"?SYNTAX ERROR IN 1020",13
|
||||||
|
.byte "]",127,0
|
||||||
|
|
||||||
|
fake_error2:
|
||||||
|
.byte 0,43,24, 0,253,82
|
||||||
|
.byte 8,41,"?UNDEF'D STATEMENT ERROR",13
|
||||||
|
.byte "]",127,0
|
||||||
|
|
||||||
|
|
||||||
clear_bottom:
|
clear_bottom:
|
||||||
; draw rectangle
|
; draw rectangle
|
||||||
|
@ -438,7 +468,7 @@ map_backgrounds_low:
|
||||||
.byte <todo_lzsa ; 0
|
.byte <todo_lzsa ; 0
|
||||||
.byte <todo_lzsa ; 1
|
.byte <todo_lzsa ; 1
|
||||||
.byte <todo_lzsa ; 2
|
.byte <todo_lzsa ; 2
|
||||||
.byte <todo_lzsa ; 3
|
.byte <waterfall_lzsa ; 3 -- temp intentional bug
|
||||||
.byte <waterfall_lzsa ; 4 -- waterfall
|
.byte <waterfall_lzsa ; 4 -- waterfall
|
||||||
.byte <todo_lzsa ; 5
|
.byte <todo_lzsa ; 5
|
||||||
.byte <todo_lzsa ; 6
|
.byte <todo_lzsa ; 6
|
||||||
|
@ -449,7 +479,7 @@ map_backgrounds_low:
|
||||||
.byte <cottage_lzsa ; 11 -- cottage
|
.byte <cottage_lzsa ; 11 -- cottage
|
||||||
.byte <lake_w_lzsa ; 12 -- lake west
|
.byte <lake_w_lzsa ; 12 -- lake west
|
||||||
.byte <lake_e_lzsa ; 13 -- lake east
|
.byte <lake_e_lzsa ; 13 -- lake east
|
||||||
.byte <todo_lzsa ; 14
|
.byte <inn_lzsa ; 14 -- inn
|
||||||
.byte <todo_lzsa ; 15
|
.byte <todo_lzsa ; 15
|
||||||
.byte <todo_lzsa ; 16
|
.byte <todo_lzsa ; 16
|
||||||
.byte <todo_lzsa ; 17
|
.byte <todo_lzsa ; 17
|
||||||
|
@ -471,13 +501,10 @@ map_backgrounds_hi:
|
||||||
.byte >cottage_lzsa ; 11 -- cottage
|
.byte >cottage_lzsa ; 11 -- cottage
|
||||||
.byte >lake_w_lzsa ; 12 -- lake west
|
.byte >lake_w_lzsa ; 12 -- lake west
|
||||||
.byte >lake_e_lzsa ; 13 -- lake east
|
.byte >lake_e_lzsa ; 13 -- lake east
|
||||||
.byte >todo_lzsa ; 14
|
.byte >inn_lzsa ; 14 -- inn
|
||||||
.byte >todo_lzsa ; 15
|
.byte >todo_lzsa ; 15
|
||||||
.byte >todo_lzsa ; 16
|
.byte >todo_lzsa ; 16
|
||||||
.byte >todo_lzsa ; 17
|
.byte >todo_lzsa ; 17
|
||||||
.byte >todo_lzsa ; 18
|
.byte >todo_lzsa ; 18
|
||||||
.byte >todo_lzsa ; 19
|
.byte >todo_lzsa ; 19
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user