2021-08-29 05:07:16 +00:00
|
|
|
; note this is around 2k
|
|
|
|
|
|
|
|
|
|
;=====================
|
|
|
|
|
; show inventory
|
|
|
|
|
;=====================
|
|
|
|
|
show_inventory:
|
|
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
lda #0
|
2021-08-31 19:46:22 +00:00
|
|
|
sta INVENTORY_Y
|
|
|
|
|
|
2021-09-01 04:39:25 +00:00
|
|
|
;=================
|
|
|
|
|
; save bg
|
|
|
|
|
|
|
|
|
|
lda #20
|
|
|
|
|
sta BOX_Y1
|
|
|
|
|
lda #135
|
|
|
|
|
sta BOX_Y2
|
|
|
|
|
|
|
|
|
|
jsr hgr_partial_save
|
|
|
|
|
|
|
|
|
|
|
2021-08-31 05:15:12 +00:00
|
|
|
;====================
|
|
|
|
|
; draw text box
|
2021-09-01 04:39:25 +00:00
|
|
|
draw_inv_box:
|
2021-08-29 05:07:16 +00:00
|
|
|
|
2021-08-31 05:15:12 +00:00
|
|
|
lda #0
|
|
|
|
|
sta BOX_X1H
|
|
|
|
|
lda #14
|
|
|
|
|
sta BOX_X1L
|
|
|
|
|
lda #20
|
|
|
|
|
sta BOX_Y1
|
|
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
|
sta BOX_X2H
|
|
|
|
|
lda #5 ; ?
|
|
|
|
|
sta BOX_X2L
|
|
|
|
|
lda #135
|
|
|
|
|
sta BOX_Y2
|
|
|
|
|
|
|
|
|
|
jsr draw_box
|
|
|
|
|
|
|
|
|
|
;===================
|
|
|
|
|
; draw main text
|
2021-09-01 04:39:25 +00:00
|
|
|
draw_inv_text:
|
2021-08-31 05:15:12 +00:00
|
|
|
lda #<inventory_message
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>inventory_message
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
jsr disp_put_string
|
|
|
|
|
|
2021-09-03 04:05:06 +00:00
|
|
|
|
|
|
|
|
lda #<press_esc_message
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>press_esc_message
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
jsr disp_put_string
|
|
|
|
|
|
|
|
|
|
|
2021-08-31 19:46:22 +00:00
|
|
|
;===============
|
2021-09-02 03:27:06 +00:00
|
|
|
; draw text
|
2021-09-02 03:54:30 +00:00
|
|
|
;===============
|
2021-08-31 05:15:12 +00:00
|
|
|
|
|
|
|
|
lda #28
|
|
|
|
|
sta CURSOR_Y
|
|
|
|
|
|
|
|
|
|
ldy #0
|
2021-09-02 03:27:06 +00:00
|
|
|
|
|
|
|
|
inv_reset_mask:
|
2021-08-31 19:46:22 +00:00
|
|
|
lda #1
|
|
|
|
|
sta INVENTORY_MASK
|
2021-08-31 05:15:12 +00:00
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
draw_inv_loop:
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
cpy #9
|
|
|
|
|
bcs right_column ; bge
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
left_column:
|
2021-08-31 05:15:12 +00:00
|
|
|
lda #4
|
2021-09-02 03:27:06 +00:00
|
|
|
bne done_column ; bra
|
|
|
|
|
right_column:
|
|
|
|
|
lda #23
|
|
|
|
|
done_column:
|
2021-08-31 05:15:12 +00:00
|
|
|
sta CURSOR_X
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
pha
|
|
|
|
|
|
2021-09-04 04:50:33 +00:00
|
|
|
jsr have_item_y
|
2021-09-02 03:27:06 +00:00
|
|
|
|
|
|
|
|
beq questionmarks
|
|
|
|
|
|
2021-09-04 04:50:33 +00:00
|
|
|
we_have_item:
|
2021-08-31 05:15:12 +00:00
|
|
|
clc
|
2021-09-02 03:27:06 +00:00
|
|
|
lda item_offsets,Y
|
2021-08-31 05:15:12 +00:00
|
|
|
adc #<item_strings
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #0
|
|
|
|
|
adc #>item_strings
|
2021-09-02 03:54:30 +00:00
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
jmp print_item
|
2021-08-31 19:46:22 +00:00
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
questionmarks:
|
2021-08-31 19:46:22 +00:00
|
|
|
lda #<unknown_string
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>unknown_string
|
|
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
print_item:
|
2021-08-31 05:15:12 +00:00
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
jsr disp_one_line
|
|
|
|
|
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
lda CURSOR_Y ; incrememnt cursor location
|
2021-08-31 05:15:12 +00:00
|
|
|
clc
|
|
|
|
|
adc #8
|
2021-09-02 03:27:06 +00:00
|
|
|
|
|
|
|
|
cmp #100
|
|
|
|
|
bne inv_cursory_good
|
|
|
|
|
lda #28
|
|
|
|
|
inv_cursory_good:
|
2021-08-31 05:15:12 +00:00
|
|
|
sta CURSOR_Y
|
|
|
|
|
|
2021-08-31 19:46:22 +00:00
|
|
|
asl INVENTORY_MASK
|
|
|
|
|
|
2021-08-31 05:15:12 +00:00
|
|
|
pla
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-08-31 05:15:12 +00:00
|
|
|
tay
|
|
|
|
|
iny
|
|
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
tya
|
|
|
|
|
and #$7
|
|
|
|
|
beq inv_reset_mask
|
2021-08-31 05:15:12 +00:00
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
cpy #18
|
|
|
|
|
bne draw_inv_loop
|
2021-08-31 19:46:22 +00:00
|
|
|
|
2021-09-02 03:54:30 +00:00
|
|
|
;=================
|
|
|
|
|
; draw strikeouts
|
|
|
|
|
;=================
|
2021-09-04 05:48:35 +00:00
|
|
|
draw_strikeouts:
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
draw_strikeouts_loop:
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
jsr lost_item_y
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
bcs draw_strikeouts_continue
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; actually strike it out
|
|
|
|
|
tya
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda #$7f
|
|
|
|
|
sta overwrite_char_smc+1
|
|
|
|
|
|
|
|
|
|
lda invert_smc1+1
|
|
|
|
|
eor #$7f
|
|
|
|
|
sta invert_smc1+1
|
|
|
|
|
|
|
|
|
|
jsr overwrite_entry
|
|
|
|
|
|
|
|
|
|
lda invert_smc1+1
|
|
|
|
|
eor #$7f
|
|
|
|
|
sta invert_smc1+1
|
|
|
|
|
|
|
|
|
|
lda #$20
|
|
|
|
|
sta overwrite_char_smc+1
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
draw_strikeouts_continue:
|
|
|
|
|
iny
|
|
|
|
|
cpy #18
|
|
|
|
|
bne draw_strikeouts_loop
|
|
|
|
|
|
2021-08-31 19:46:22 +00:00
|
|
|
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-02 05:11:45 +00:00
|
|
|
;=======================
|
|
|
|
|
; draw initial highlight
|
|
|
|
|
;=======================
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-02 05:11:45 +00:00
|
|
|
ldy INVENTORY_Y
|
|
|
|
|
jsr overwrite_entry
|
2021-08-31 05:15:12 +00:00
|
|
|
|
2021-09-02 03:54:30 +00:00
|
|
|
;===========================
|
|
|
|
|
; handle inventory keypress
|
|
|
|
|
;===========================
|
2021-08-31 05:15:12 +00:00
|
|
|
|
2021-09-01 04:39:25 +00:00
|
|
|
handle_inv_keypress:
|
|
|
|
|
|
2021-09-04 04:50:33 +00:00
|
|
|
;================
|
|
|
|
|
; draw item
|
|
|
|
|
|
|
|
|
|
jsr draw_inv_sprite
|
|
|
|
|
|
2021-09-01 04:39:25 +00:00
|
|
|
lda KEYPRESS
|
|
|
|
|
bpl handle_inv_keypress ; no keypress
|
|
|
|
|
|
|
|
|
|
bit KEYRESET ; clear keyboard strobe
|
|
|
|
|
|
2021-09-02 05:11:45 +00:00
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
;=================
|
|
|
|
|
; erase old
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-02 05:11:45 +00:00
|
|
|
ldy INVENTORY_Y
|
|
|
|
|
jsr overwrite_entry
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
and #$7f ; clear top bit
|
2021-09-01 04:39:25 +00:00
|
|
|
|
|
|
|
|
cmp #27
|
2021-09-03 04:31:15 +00:00
|
|
|
beq urgh_done ; ESCAPE
|
2021-09-01 04:39:25 +00:00
|
|
|
cmp #$7f
|
2021-09-03 04:31:15 +00:00
|
|
|
bne inv_check_down ; DELETE
|
|
|
|
|
|
|
|
|
|
urgh_done:
|
|
|
|
|
jmp done_inv_keypress
|
2021-09-01 04:39:25 +00:00
|
|
|
|
|
|
|
|
inv_check_down:
|
|
|
|
|
cmp #$0A
|
|
|
|
|
beq inv_handle_down
|
|
|
|
|
cmp #'S'
|
|
|
|
|
bne inv_check_up
|
|
|
|
|
inv_handle_down:
|
2021-09-02 05:11:45 +00:00
|
|
|
|
|
|
|
|
ldx INVENTORY_Y
|
|
|
|
|
cpx #8
|
|
|
|
|
beq inv_down_wrap
|
|
|
|
|
cpx #17
|
|
|
|
|
beq inv_down_wrap
|
|
|
|
|
|
|
|
|
|
inx
|
|
|
|
|
|
|
|
|
|
jmp inv_down_done
|
|
|
|
|
inv_down_wrap:
|
|
|
|
|
txa
|
|
|
|
|
sec
|
|
|
|
|
sbc #8
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
inv_down_done:
|
|
|
|
|
stx INVENTORY_Y
|
2021-09-01 04:39:25 +00:00
|
|
|
jmp inv_done_moving
|
|
|
|
|
|
|
|
|
|
inv_check_up:
|
|
|
|
|
cmp #$0B
|
|
|
|
|
beq inv_handle_up
|
|
|
|
|
cmp #'W'
|
|
|
|
|
bne inv_check_left_right
|
|
|
|
|
inv_handle_up:
|
2021-09-02 05:11:45 +00:00
|
|
|
|
|
|
|
|
ldx INVENTORY_Y
|
|
|
|
|
beq inv_up_wrap
|
|
|
|
|
cpx #9
|
|
|
|
|
beq inv_up_wrap
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
jmp inv_up_done
|
|
|
|
|
|
|
|
|
|
inv_up_wrap:
|
|
|
|
|
txa
|
|
|
|
|
clc
|
|
|
|
|
adc #8
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
inv_up_done:
|
|
|
|
|
stx INVENTORY_Y
|
2021-09-01 04:39:25 +00:00
|
|
|
jmp inv_done_moving
|
|
|
|
|
|
2021-09-02 05:11:45 +00:00
|
|
|
|
2021-09-01 04:39:25 +00:00
|
|
|
inv_check_left_right:
|
|
|
|
|
cmp #$15
|
|
|
|
|
beq inv_handle_left_right
|
|
|
|
|
cmp #'D'
|
|
|
|
|
beq inv_handle_left_right
|
|
|
|
|
cmp #$08
|
|
|
|
|
beq inv_handle_left_right
|
|
|
|
|
cmp #'A'
|
|
|
|
|
bne inv_check_return
|
|
|
|
|
inv_handle_left_right:
|
2021-09-02 05:11:45 +00:00
|
|
|
lda INVENTORY_Y
|
|
|
|
|
clc
|
|
|
|
|
adc #9
|
|
|
|
|
cmp #18
|
|
|
|
|
bcc inv_lr_good
|
|
|
|
|
sec
|
|
|
|
|
sbc #18
|
|
|
|
|
|
|
|
|
|
inv_lr_good:
|
|
|
|
|
sta INVENTORY_Y
|
2021-09-01 04:39:25 +00:00
|
|
|
jmp inv_done_moving
|
|
|
|
|
|
|
|
|
|
inv_check_return:
|
2021-09-04 04:50:33 +00:00
|
|
|
jsr have_item
|
|
|
|
|
beq inv_done_moving
|
|
|
|
|
|
2021-09-03 04:05:06 +00:00
|
|
|
jsr show_item
|
|
|
|
|
jmp draw_inv_box
|
2021-09-01 04:39:25 +00:00
|
|
|
|
|
|
|
|
inv_done_moving:
|
|
|
|
|
|
|
|
|
|
;================
|
2021-09-02 05:11:45 +00:00
|
|
|
; draw new
|
|
|
|
|
ldy INVENTORY_Y
|
|
|
|
|
jsr overwrite_entry
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-03 04:31:15 +00:00
|
|
|
;================
|
2021-09-04 04:50:33 +00:00
|
|
|
; repeat
|
|
|
|
|
|
|
|
|
|
jmp handle_inv_keypress
|
|
|
|
|
|
|
|
|
|
done_inv_keypress:
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
2021-09-03 04:31:15 +00:00
|
|
|
|
2021-09-04 04:50:33 +00:00
|
|
|
;==================
|
|
|
|
|
; have_item
|
|
|
|
|
;==================
|
|
|
|
|
; do we have Inventory Y
|
|
|
|
|
; ZERO if no
|
|
|
|
|
; not zero if yes
|
|
|
|
|
have_item:
|
2021-09-04 04:30:47 +00:00
|
|
|
ldy INVENTORY_Y
|
2021-09-04 04:50:33 +00:00
|
|
|
have_item_y:
|
|
|
|
|
tya
|
|
|
|
|
and #$3
|
|
|
|
|
tax
|
|
|
|
|
lda masks,X
|
|
|
|
|
sta INVENTORY_MASK
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr ; Y/8
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
lda INVENTORY_1,X
|
|
|
|
|
and INVENTORY_MASK
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
2021-09-04 05:48:35 +00:00
|
|
|
;==================
|
|
|
|
|
; lost_item
|
|
|
|
|
;==================
|
|
|
|
|
; do we no longer have Inventory Y
|
|
|
|
|
; CC if no
|
|
|
|
|
; CS if yes
|
|
|
|
|
lost_item:
|
|
|
|
|
ldy INVENTORY_Y
|
|
|
|
|
lost_item_y:
|
|
|
|
|
tya
|
|
|
|
|
and #$7
|
|
|
|
|
tax
|
|
|
|
|
lda masks,X
|
|
|
|
|
sta INVENTORY_MASK
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr ; Y/8
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
lda INVENTORY_1_GONE,X
|
|
|
|
|
and INVENTORY_MASK
|
|
|
|
|
beq really_gone
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
really_gone:
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2021-09-04 04:50:33 +00:00
|
|
|
;=======================
|
|
|
|
|
; draw inventory sprite
|
|
|
|
|
;=======================
|
|
|
|
|
draw_inv_sprite:
|
2021-09-03 04:31:15 +00:00
|
|
|
|
2021-09-04 04:50:33 +00:00
|
|
|
jsr have_item
|
|
|
|
|
|
|
|
|
|
bne do_draw_inv_sprite
|
|
|
|
|
|
|
|
|
|
no_draw_inv_sprite:
|
|
|
|
|
lda #<no_sprite
|
|
|
|
|
sta INL
|
|
|
|
|
lda #>no_sprite
|
|
|
|
|
jmp done_draw_inv_sprite
|
|
|
|
|
|
|
|
|
|
do_draw_inv_sprite:
|
2021-09-04 04:30:47 +00:00
|
|
|
lda inv_sprite_table_low,Y
|
2021-09-03 04:31:15 +00:00
|
|
|
sta INL
|
2021-09-04 04:30:47 +00:00
|
|
|
lda inv_sprite_table_high,Y
|
2021-09-04 04:50:33 +00:00
|
|
|
done_draw_inv_sprite:
|
2021-09-03 04:31:15 +00:00
|
|
|
sta INH
|
|
|
|
|
|
|
|
|
|
lda #18
|
|
|
|
|
sta CURSOR_X
|
|
|
|
|
lda #88
|
|
|
|
|
sta CURSOR_Y
|
|
|
|
|
|
|
|
|
|
jsr hgr_draw_sprite_2x16
|
|
|
|
|
|
2021-08-29 05:07:16 +00:00
|
|
|
rts
|
|
|
|
|
|
2021-09-01 04:39:25 +00:00
|
|
|
|
2021-09-03 04:05:06 +00:00
|
|
|
;====================
|
|
|
|
|
;====================
|
|
|
|
|
; show item
|
|
|
|
|
;====================
|
|
|
|
|
;====================
|
|
|
|
|
show_item:
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta BOX_X1H
|
|
|
|
|
lda #14
|
|
|
|
|
sta BOX_X1L
|
|
|
|
|
lda #20
|
|
|
|
|
sta BOX_Y1
|
|
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
|
sta BOX_X2H
|
|
|
|
|
lda #5 ; ?
|
|
|
|
|
sta BOX_X2L
|
|
|
|
|
lda #135
|
|
|
|
|
sta BOX_Y2
|
|
|
|
|
|
|
|
|
|
jsr draw_box
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
lda #<item_message
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>item_message
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
jsr disp_put_string
|
|
|
|
|
|
|
|
|
|
lda #<press_esc_message
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>press_esc_message
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
jsr disp_put_string
|
|
|
|
|
|
|
|
|
|
ldy INVENTORY_Y
|
|
|
|
|
|
|
|
|
|
lda descriptions_low,Y
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda descriptions_high,Y
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
lda #4
|
|
|
|
|
sta CURSOR_X
|
|
|
|
|
lda #32
|
|
|
|
|
sta CURSOR_Y
|
|
|
|
|
|
|
|
|
|
jsr disp_put_string_cursor
|
|
|
|
|
|
2021-09-04 05:48:35 +00:00
|
|
|
;==========================
|
|
|
|
|
; print no longer message
|
|
|
|
|
|
|
|
|
|
jsr lost_item
|
|
|
|
|
bcs skip_no_longer
|
|
|
|
|
|
|
|
|
|
lda #<no_longer_message
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>no_longer_message
|
|
|
|
|
sta OUTH
|
|
|
|
|
jsr disp_put_string
|
|
|
|
|
|
|
|
|
|
skip_no_longer:
|
|
|
|
|
|
|
|
|
|
;=======================
|
|
|
|
|
; display sprite
|
|
|
|
|
|
2021-09-04 04:50:33 +00:00
|
|
|
jsr draw_inv_sprite
|
2021-09-03 04:05:06 +00:00
|
|
|
|
|
|
|
|
|
2021-09-04 05:48:35 +00:00
|
|
|
|
2021-09-03 04:05:06 +00:00
|
|
|
handle_item_keypress:
|
|
|
|
|
|
|
|
|
|
lda KEYPRESS
|
|
|
|
|
bpl handle_item_keypress ; no keypress
|
|
|
|
|
|
|
|
|
|
bit KEYRESET ; clear keyboard strobe
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
2021-08-29 05:07:16 +00:00
|
|
|
;======================
|
|
|
|
|
; text
|
|
|
|
|
;======================
|
|
|
|
|
;
|
|
|
|
|
; Note, greyed out could maybe print ---- for strikethrough
|
|
|
|
|
|
|
|
|
|
; printed after description
|
2021-09-03 04:05:06 +00:00
|
|
|
no_longer_message:
|
2021-09-04 05:48:35 +00:00
|
|
|
.byte 4,86,"You no longer has this item.",0
|
2021-09-03 04:05:06 +00:00
|
|
|
|
|
|
|
|
item_message:
|
|
|
|
|
.byte 5,106,"Hit RETURN to go back to list",0
|
2021-08-29 05:07:16 +00:00
|
|
|
|
|
|
|
|
; first is only printed if have in inventory, though still can
|
2021-08-31 05:15:12 +00:00
|
|
|
inventory_message:
|
2021-09-03 04:05:06 +00:00
|
|
|
.byte 6,106,"Press RETURN for description",0
|
|
|
|
|
press_esc_message:
|
|
|
|
|
.byte 6,115,"Press ESC or DELETE to exit",0
|
2021-08-29 05:07:16 +00:00
|
|
|
|
|
|
|
|
;====================
|
|
|
|
|
; Inventory Strings
|
|
|
|
|
;====================
|
|
|
|
|
|
2021-08-31 05:15:12 +00:00
|
|
|
unknown_string:
|
|
|
|
|
.byte "???",0
|
|
|
|
|
|
2021-09-02 03:27:06 +00:00
|
|
|
item_offsets:
|
2021-08-31 05:15:12 +00:00
|
|
|
.byte (item_arrow-item_strings)
|
|
|
|
|
.byte (item_baby-item_strings)
|
|
|
|
|
.byte (item_kerrek_belt-item_strings)
|
|
|
|
|
.byte (item_chicken_feed-item_strings)
|
|
|
|
|
.byte (item_funbow-item_strings)
|
|
|
|
|
.byte (item_monster_mask-item_strings)
|
|
|
|
|
.byte (item_pebbles-item_strings)
|
|
|
|
|
.byte (item_pills-item_strings)
|
2021-09-02 03:27:06 +00:00
|
|
|
.byte (item_riches-item_strings)
|
2021-08-31 05:15:12 +00:00
|
|
|
.byte (item_robe-item_strings)
|
|
|
|
|
.byte (item_soda-item_strings)
|
|
|
|
|
.byte (item_meatball_sub-item_strings)
|
|
|
|
|
.byte (item_super_trinket-item_strings)
|
|
|
|
|
.byte (item_troghelmet-item_strings)
|
|
|
|
|
.byte (item_trogshield-item_strings)
|
|
|
|
|
.byte (item_trogsword-item_strings)
|
|
|
|
|
.byte (item_impossible-item_strings)
|
2021-09-02 03:27:06 +00:00
|
|
|
.byte (item_shirt-item_strings)
|
2021-08-31 05:15:12 +00:00
|
|
|
|
2021-09-02 03:54:30 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
item_string_lens:
|
|
|
|
|
.byte 5 ; arrow
|
|
|
|
|
.byte 4 ; baby
|
|
|
|
|
.byte 11 ; kerrek belt
|
|
|
|
|
.byte 12 ; chicken feed
|
|
|
|
|
.byte 18 ; SuprTime FunBow TM
|
|
|
|
|
.byte 14 ; monster maskus
|
|
|
|
|
.byte 7 ; pebbles
|
|
|
|
|
.byte 5 ; pills
|
|
|
|
|
.byte 6 ; riches
|
|
|
|
|
.byte 4 ; robe
|
|
|
|
|
.byte 4 ; soda
|
|
|
|
|
.byte 12 ; meatball sub
|
|
|
|
|
.byte 13 ; super trinket
|
|
|
|
|
.byte 10 ; TrogHelmet
|
|
|
|
|
.byte 10 ; TrogShield
|
|
|
|
|
.byte 9 ; TrogSword
|
|
|
|
|
.byte 3 ; ???
|
|
|
|
|
.byte 5 ; shirt
|
|
|
|
|
|
2021-08-31 05:15:12 +00:00
|
|
|
item_strings:
|
|
|
|
|
|
|
|
|
|
item_arrow:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "arrow",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_baby:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "baby",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_kerrek_belt:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "kerrek belt",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_chicken_feed:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "chicken feed",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_funbow:
|
|
|
|
|
.byte "SuprTime FunBow TM",0 ; should be Super, makes column too wide
|
|
|
|
|
item_monster_mask:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "monster maskus",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_pebbles:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "pebbles",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_pills:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "pills",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_riches:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "riches",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_robe:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "robe",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_soda:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "soda",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_meatball_sub:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "meatball sub",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_super_trinket:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "super trinket",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_troghelmet:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "TrogHelmet",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_trogshield:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "TrogShield",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_trogsword:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "TrogSword",0
|
2021-08-31 05:15:12 +00:00
|
|
|
item_impossible:
|
|
|
|
|
.byte "???",0
|
|
|
|
|
item_shirt:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "shirt",0
|
|
|
|
|
|
2021-09-03 04:05:06 +00:00
|
|
|
descriptions_low:
|
|
|
|
|
.byte <arrow_description
|
|
|
|
|
.byte <baby_description
|
|
|
|
|
.byte <kerrek_belt_description
|
|
|
|
|
.byte <chicken_feed_description
|
|
|
|
|
.byte <funbow_description
|
|
|
|
|
.byte <monster_maskus_description
|
|
|
|
|
.byte <pebbles_description
|
|
|
|
|
.byte <pills_description
|
|
|
|
|
.byte <riches_description
|
|
|
|
|
.byte <robe_description
|
|
|
|
|
.byte <soda_description
|
|
|
|
|
.byte <meatball_sub_description
|
|
|
|
|
.byte <super_trinket_description
|
|
|
|
|
.byte <troghelmet_description
|
|
|
|
|
.byte <trogshield_description
|
|
|
|
|
.byte <trogsword_description
|
|
|
|
|
.byte <map_description
|
|
|
|
|
.byte <tshirt_description
|
|
|
|
|
|
|
|
|
|
descriptions_high:
|
|
|
|
|
.byte >arrow_description
|
|
|
|
|
.byte >baby_description
|
|
|
|
|
.byte >kerrek_belt_description
|
|
|
|
|
.byte >chicken_feed_description
|
|
|
|
|
.byte >funbow_description
|
|
|
|
|
.byte >monster_maskus_description
|
|
|
|
|
.byte >pebbles_description
|
|
|
|
|
.byte >pills_description
|
|
|
|
|
.byte >riches_description
|
|
|
|
|
.byte >robe_description
|
|
|
|
|
.byte >soda_description
|
|
|
|
|
.byte >meatball_sub_description
|
|
|
|
|
.byte >super_trinket_description
|
|
|
|
|
.byte >troghelmet_description
|
|
|
|
|
.byte >trogshield_description
|
|
|
|
|
.byte >trogsword_description
|
|
|
|
|
.byte >map_description
|
|
|
|
|
.byte >tshirt_description
|
|
|
|
|
|
|
|
|
|
|
2021-08-29 05:07:16 +00:00
|
|
|
; arrow
|
2021-08-31 05:15:12 +00:00
|
|
|
arrow_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Boy, you sure know how to pick",13
|
2021-09-03 04:05:06 +00:00
|
|
|
.byte "em! This arrow's kinda pointy",13
|
|
|
|
|
.byte "even!!",0
|
2021-08-29 05:07:16 +00:00
|
|
|
|
|
|
|
|
; baby
|
2021-08-31 05:15:12 +00:00
|
|
|
baby_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Awww! Peasant babies are",13
|
|
|
|
|
.byte "adorable. No wonder they fetch",13
|
|
|
|
|
.byte "such a pretty penny on the black",13
|
|
|
|
|
.byte "market.",0
|
|
|
|
|
|
|
|
|
|
; kerrek belt
|
2021-08-31 05:15:12 +00:00
|
|
|
kerrek_belt_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Phew! This thing stinks like all",13
|
|
|
|
|
.byte "getout. Why couldn't the Kerrek",13
|
|
|
|
|
.byte "have kidnapped a hot wench or",13
|
|
|
|
|
.byte "something that you coulda saved?",0
|
|
|
|
|
|
|
|
|
|
; chicken feed
|
2021-08-31 05:15:12 +00:00
|
|
|
chicken_feed_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Woah! Gold nuggets! Oh",13
|
|
|
|
|
.byte "wait...This is just chicken",13
|
|
|
|
|
.byte "feed. Crap.",0
|
|
|
|
|
|
|
|
|
|
; SuperTime FunBow TM
|
2021-09-01 04:39:25 +00:00
|
|
|
funbow_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "This is a pretty fancy bow.",13
|
|
|
|
|
.byte "You're suprised those shady",13
|
|
|
|
|
.byte "archers give away such decent",13
|
|
|
|
|
.byte "prizes. You half-expected gold",13
|
|
|
|
|
.byte "fish in a bag.",0
|
|
|
|
|
|
|
|
|
|
; monster maskus
|
2021-09-01 04:39:25 +00:00
|
|
|
monster_maskus_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Man, those pagans sure can make",13
|
|
|
|
|
.byte "a freaky lookin mask when they",13
|
2021-09-03 04:05:06 +00:00
|
|
|
.byte "want to. It's like those theatre",13
|
|
|
|
|
.byte "masks' evil uncle or something.",0
|
2021-08-29 05:07:16 +00:00
|
|
|
|
|
|
|
|
; pebbles
|
2021-09-01 04:39:25 +00:00
|
|
|
pebbles_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Woah! Gray chicken feed! Oh",13
|
|
|
|
|
.byte "wait... those are just pebbles.",13
|
|
|
|
|
.byte "Heavier than they look, though.",0
|
|
|
|
|
|
|
|
|
|
; pills
|
2021-09-01 04:39:25 +00:00
|
|
|
pills_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "The innkeeper's medication says",13
|
2021-09-03 04:05:06 +00:00
|
|
|
.byte "it's supposed to treat ",34,"general",13
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "oldness. May cause checkers",13
|
|
|
|
|
.byte "playing, hiked-up pants, and",13
|
|
|
|
|
.byte "overall pee smell.",34,0
|
|
|
|
|
|
|
|
|
|
; riches
|
2021-09-01 04:39:25 +00:00
|
|
|
riches_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Riches, dude. Riches. That",13
|
|
|
|
|
.byte "peasant lady totally has to",13
|
|
|
|
|
.byte "share some of this with you,",13
|
|
|
|
|
.byte "right? At least that shiny,",13
|
|
|
|
|
.byte "clawed sceptre thing.",0
|
|
|
|
|
|
|
|
|
|
; robe
|
2021-09-01 04:39:25 +00:00
|
|
|
robe_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "A propa peasant robe. It smells",13
|
|
|
|
|
.byte "freshly washed and has the",13
|
|
|
|
|
.byte "initials 'N.N' sewn onto the",13
|
|
|
|
|
.byte "tag.",0
|
|
|
|
|
|
|
|
|
|
; soda
|
2021-09-01 04:39:25 +00:00
|
|
|
soda_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "A full bottle of popular soda.",0
|
|
|
|
|
|
|
|
|
|
; meatball sub
|
2021-09-01 04:39:25 +00:00
|
|
|
meatball_sub_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "A piping hot meatball sub fresh",13
|
|
|
|
|
.byte "from the bottom of a dingy old",13
|
2021-09-03 04:05:06 +00:00
|
|
|
.byte "well. All you need is a bag of",13
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "chips and you've got a combo",13
|
|
|
|
|
.byte "meal!",0
|
|
|
|
|
|
|
|
|
|
; super trinket
|
2021-09-01 04:39:25 +00:00
|
|
|
super_trinket_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "This super trinket is weird. It",13
|
|
|
|
|
.byte "looks like it could either kill",13
|
|
|
|
|
.byte "you or make you the hit of your",13
|
|
|
|
|
.byte "Christmas party.",0
|
|
|
|
|
|
|
|
|
|
; TrogHelmet
|
2021-09-03 04:05:06 +00:00
|
|
|
troghelmet_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "The TrogHelmet is not screwing",13
|
2021-09-03 04:05:06 +00:00
|
|
|
.byte "around. It's a serious helmet.",13
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "It also protects against",13
|
|
|
|
|
.byte "harmful UV rays.",0
|
|
|
|
|
|
|
|
|
|
; TrogShield
|
2021-09-03 04:05:06 +00:00
|
|
|
trogshield_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "Behold the TrogSheild! No",13
|
2021-09-03 04:05:06 +00:00
|
|
|
.byte "seriously, behold it. There's",13
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "no way Trogdor's fire breath can",13
|
|
|
|
|
.byte "penetrate this thing.",0
|
|
|
|
|
|
|
|
|
|
; TrogSword
|
2021-09-03 04:05:06 +00:00
|
|
|
trogsword_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "The TrogSword is for real.",13
|
|
|
|
|
.byte "Hands-down the coolest item in",13
|
|
|
|
|
.byte "this whole game. You can't wait",13
|
|
|
|
|
.byte "to lop off that beefy arm of",13
|
|
|
|
|
.byte "Trogdor's with this guy.",0
|
|
|
|
|
|
|
|
|
|
; ???
|
2021-09-03 04:05:06 +00:00
|
|
|
map_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
|
|
|
|
|
; t-shirt
|
2021-09-03 04:05:06 +00:00
|
|
|
tshirt_description:
|
2021-08-29 05:07:16 +00:00
|
|
|
.byte "This has got to be your favorite",13
|
|
|
|
|
.byte "T-Shirt ever. Oh, the times you",13
|
|
|
|
|
.byte "had at Scalding Lake. Canoeing,",13
|
|
|
|
|
.byte "fishing, stoning heathens. What",13
|
|
|
|
|
.byte "a Blast!",0
|
|
|
|
|
|
2021-09-02 05:11:45 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
;========================
|
|
|
|
|
; overwrite entry
|
|
|
|
|
;========================
|
|
|
|
|
; Y = which
|
|
|
|
|
|
|
|
|
|
overwrite_entry:
|
|
|
|
|
|
2021-09-04 05:48:35 +00:00
|
|
|
; lda #$7f
|
|
|
|
|
; sta invert_smc1+1
|
|
|
|
|
|
|
|
|
|
lda invert_smc1+1
|
|
|
|
|
eor #$7f
|
2021-09-02 05:11:45 +00:00
|
|
|
sta invert_smc1+1
|
|
|
|
|
|
|
|
|
|
overwrite_set_mask:
|
|
|
|
|
|
|
|
|
|
;==============
|
|
|
|
|
; set X
|
|
|
|
|
|
|
|
|
|
cpy #9
|
|
|
|
|
bcs overwrite_right_column ; bge
|
|
|
|
|
|
|
|
|
|
overwrite_left_column:
|
|
|
|
|
lda #4
|
|
|
|
|
sta CURSOR_X
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
|
|
|
|
|
jmp overwrite_done_column
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
overwrite_right_column:
|
|
|
|
|
lda #23
|
|
|
|
|
sta CURSOR_X
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
sec
|
|
|
|
|
sbc #9
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
overwrite_done_column:
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
clc
|
|
|
|
|
adc #28
|
|
|
|
|
|
|
|
|
|
sta CURSOR_Y
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
|
2021-09-04 05:48:35 +00:00
|
|
|
;===================
|
|
|
|
|
; check if have item
|
2021-09-02 05:11:45 +00:00
|
|
|
|
2021-09-04 05:48:35 +00:00
|
|
|
jsr have_item_y
|
2021-09-02 05:11:45 +00:00
|
|
|
|
|
|
|
|
beq overwrite_not_have
|
|
|
|
|
|
|
|
|
|
overwrite_have:
|
|
|
|
|
ldx item_string_lens,Y
|
|
|
|
|
bne overwrite_have_loop
|
|
|
|
|
|
|
|
|
|
overwrite_not_have:
|
|
|
|
|
ldx #3
|
|
|
|
|
|
|
|
|
|
overwrite_have_loop:
|
|
|
|
|
txa
|
|
|
|
|
pha
|
2021-09-04 05:48:35 +00:00
|
|
|
overwrite_char_smc:
|
2021-09-02 05:11:45 +00:00
|
|
|
lda #$20
|
|
|
|
|
jsr hgr_put_char_cursor
|
|
|
|
|
inc CURSOR_X
|
|
|
|
|
pla
|
|
|
|
|
tax
|
|
|
|
|
dex
|
|
|
|
|
bne overwrite_have_loop
|
|
|
|
|
|
|
|
|
|
|
2021-09-04 05:48:35 +00:00
|
|
|
; lda #$00
|
|
|
|
|
; sta invert_smc1+1
|
|
|
|
|
|
|
|
|
|
lda invert_smc1+1
|
|
|
|
|
eor #$7f
|
2021-09-02 05:11:45 +00:00
|
|
|
sta invert_smc1+1
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
masks:
|
|
|
|
|
.byte $01,$02,$04,$08, $10,$20,$40,$80
|
2021-09-03 04:31:15 +00:00
|
|
|
|
|
|
|
|
no_sprite:
|
|
|
|
|
.byte $7f,$7f,$7f,$7f,$7f,$7f,$7f,$7f
|
|
|
|
|
.byte $7f,$7f,$7f,$7f,$7f,$7f,$7f,$7f
|
|
|
|
|
.byte $7f,$7f,$7f,$7f,$7f,$7f,$7f,$7f
|
|
|
|
|
.byte $7f,$7f,$7f,$7f,$7f,$7f,$7f,$7f
|
|
|
|
|
|
2021-09-04 04:30:47 +00:00
|
|
|
inv_sprite_table_low:
|
|
|
|
|
.byte <arrow_sprite
|
|
|
|
|
.byte <baby_sprite
|
|
|
|
|
.byte <kerrek_belt_sprite
|
|
|
|
|
.byte <chicken_feed_sprite
|
|
|
|
|
.byte <bow_sprite
|
|
|
|
|
.byte <mask_sprite
|
|
|
|
|
.byte <pebbles_sprite
|
|
|
|
|
.byte <pills_sprite
|
|
|
|
|
.byte <riches_sprite
|
|
|
|
|
.byte <robe_sprite
|
|
|
|
|
.byte <soda_sprite
|
|
|
|
|
.byte <sub_sprite
|
|
|
|
|
.byte <trinket_sprite
|
|
|
|
|
.byte <troghelm_sprite
|
|
|
|
|
.byte <trogshield_sprite
|
|
|
|
|
.byte <trogsword_sprite
|
|
|
|
|
.byte <no_sprite
|
|
|
|
|
.byte <tshirt_sprite
|
|
|
|
|
|
|
|
|
|
inv_sprite_table_high:
|
|
|
|
|
.byte >arrow_sprite
|
|
|
|
|
.byte >baby_sprite
|
|
|
|
|
.byte >kerrek_belt_sprite
|
|
|
|
|
.byte >chicken_feed_sprite
|
|
|
|
|
.byte >bow_sprite
|
|
|
|
|
.byte >mask_sprite
|
|
|
|
|
.byte >pebbles_sprite
|
|
|
|
|
.byte >pills_sprite
|
|
|
|
|
.byte >riches_sprite
|
|
|
|
|
.byte >robe_sprite
|
|
|
|
|
.byte >soda_sprite
|
|
|
|
|
.byte >sub_sprite
|
|
|
|
|
.byte >trinket_sprite
|
|
|
|
|
.byte >troghelm_sprite
|
|
|
|
|
.byte >trogshield_sprite
|
|
|
|
|
.byte >trogsword_sprite
|
|
|
|
|
.byte >no_sprite
|
|
|
|
|
.byte >tshirt_sprite
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.include "sprites/inventory_sprites.inc"
|
2021-09-03 04:31:15 +00:00
|
|
|
|
|
|
|
|
.include "hgr_2x16_sprite.s"
|
