peasant: add some silly placeholders
This commit is contained in:
parent
16b7249b79
commit
825082d087
|
@ -46,33 +46,36 @@ trogdor_question:
|
|||
|
||||
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
|
||||
;=============================
|
||||
lda #0
|
||||
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
|
||||
|
||||
wrong:
|
||||
lda #<wrong_text
|
||||
sta OUTL
|
||||
lda #>wrong_text
|
||||
sta OUTH
|
||||
|
||||
jsr hgr_put_string
|
||||
jsr hgr_text_box
|
||||
|
||||
jsr wait_until_keypress
|
||||
|
||||
|
@ -116,6 +119,7 @@ forever:
|
|||
.include "hgr_rectangle.s"
|
||||
.include "hgr_input.s"
|
||||
.include "hgr_tables.s"
|
||||
.include "hgr_text_box.s"
|
||||
|
||||
.include "graphics_copy/copy_graphics.inc"
|
||||
|
||||
|
@ -126,8 +130,13 @@ score_text:
|
|||
.byte 0,2,"Score: 0 of 150",0
|
||||
|
||||
wrong_text:
|
||||
.byte 0,97,69, 0,184,109
|
||||
.byte 16,84,"WRONG!!!",0
|
||||
|
||||
correct_text:
|
||||
.byte 0,97,69, 0,184,109
|
||||
.byte 16,84,"CORRECT!",0
|
||||
|
||||
; 0123456789012345678901234567890123456789
|
||||
copy_protection_text:
|
||||
.byte 0,160,"Before proceeding, don thy red glasses",0
|
||||
|
|
|
@ -30,6 +30,7 @@ graphics.inc: \
|
|||
river.lzsa \
|
||||
knight.lzsa \
|
||||
waterfall.lzsa \
|
||||
inn.lzsa \
|
||||
todo.lzsa
|
||||
echo "cottage_lzsa: .incbin \"cottage.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 "knight_lzsa: .incbin \"knight.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
|
||||
|
||||
|
||||
|
@ -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
|
||||
$(LZSA) -r -f2 todo.hgr todo.lzsa
|
||||
|
||||
|
|
Binary file not shown.
After Width: | Height: | Size: 4.5 KiB |
|
@ -98,7 +98,7 @@ new_location:
|
|||
|
||||
; draw rectangle on bottom
|
||||
|
||||
jsr clear_bottom
|
||||
; jsr clear_bottom
|
||||
|
||||
jsr hgr_save
|
||||
|
||||
|
@ -282,7 +282,7 @@ parse_input:
|
|||
|
||||
parse_copy:
|
||||
cmp #'C'
|
||||
bne parse_version
|
||||
bne parse_look
|
||||
|
||||
; want copy
|
||||
lda #ENDING_COPY
|
||||
|
@ -290,6 +290,26 @@ parse_copy:
|
|||
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:
|
||||
cmp #'V'
|
||||
bne parse_help
|
||||
|
@ -352,6 +372,16 @@ version_message:
|
|||
.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:
|
||||
; draw rectangle
|
||||
|
@ -438,7 +468,7 @@ map_backgrounds_low:
|
|||
.byte <todo_lzsa ; 0
|
||||
.byte <todo_lzsa ; 1
|
||||
.byte <todo_lzsa ; 2
|
||||
.byte <todo_lzsa ; 3
|
||||
.byte <waterfall_lzsa ; 3 -- temp intentional bug
|
||||
.byte <waterfall_lzsa ; 4 -- waterfall
|
||||
.byte <todo_lzsa ; 5
|
||||
.byte <todo_lzsa ; 6
|
||||
|
@ -449,7 +479,7 @@ map_backgrounds_low:
|
|||
.byte <cottage_lzsa ; 11 -- cottage
|
||||
.byte <lake_w_lzsa ; 12 -- lake west
|
||||
.byte <lake_e_lzsa ; 13 -- lake east
|
||||
.byte <todo_lzsa ; 14
|
||||
.byte <inn_lzsa ; 14 -- inn
|
||||
.byte <todo_lzsa ; 15
|
||||
.byte <todo_lzsa ; 16
|
||||
.byte <todo_lzsa ; 17
|
||||
|
@ -471,13 +501,10 @@ map_backgrounds_hi:
|
|||
.byte >cottage_lzsa ; 11 -- cottage
|
||||
.byte >lake_w_lzsa ; 12 -- lake west
|
||||
.byte >lake_e_lzsa ; 13 -- lake east
|
||||
.byte >todo_lzsa ; 14
|
||||
.byte >inn_lzsa ; 14 -- inn
|
||||
.byte >todo_lzsa ; 15
|
||||
.byte >todo_lzsa ; 16
|
||||
.byte >todo_lzsa ; 17
|
||||
.byte >todo_lzsa ; 18
|
||||
.byte >todo_lzsa ; 19
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue