; note this is around 2k ;===================== ; show inventory ;===================== show_inventory: lda #0 sta INVENTORY_X sta INVENTORY_Y ;==================== ; draw text box 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 hgr_partial_save jsr draw_box ;=================== ; draw main text lda #inventory_message sta OUTH jsr disp_put_string ;=============== ; left column lda #28 sta CURSOR_Y ldy #0 lda #1 sta INVENTORY_MASK left_column_loop: lda #4 sta CURSOR_X tya pha lda INVENTORY_MASK and INVENTORY_1 beq left_questionmarks left_have_item: clc lda left_item_offsets,Y adc #item_strings jmp left_print_item left_questionmarks: lda #unknown_string left_print_item: sta OUTH jsr disp_one_line lda CURSOR_Y clc adc #8 sta CURSOR_Y asl INVENTORY_MASK pla tay iny cpy #8 bne left_column_loop ; extra for riches ;================ ; right column lda #28 sta CURSOR_Y ldy #0 right_column_loop: lda #23 sta CURSOR_X tya pha clc lda right_item_offsets,Y adc #item_strings sta OUTH jsr disp_one_line lda CURSOR_Y clc adc #8 sta CURSOR_Y pla tay iny cpy #8 bne right_column_loop jsr wait_until_keypress rts ;====================== ; text ;====================== ; ; Note, greyed out could maybe print ---- for strikethrough ; printed after description .byte "You no longer has this item.",0 .byte "Hit return to go back to list",0 ; first is only printed if have in inventory, though still can inventory_message: .byte 5,106," Press return for description",13 .byte "Press ESC or Backspace to exit",0 ;==================== ; Inventory Strings ;==================== unknown_string: .byte "???",0 left_item_offsets: .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) right_item_offsets: .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) item_strings: item_arrow: .byte "arrow",0 item_baby: .byte "baby",0 item_kerrek_belt: .byte "kerrek belt",0 item_chicken_feed: .byte "chicken feed",0 item_funbow: .byte "SuprTime FunBow TM",0 ; should be Super, makes column too wide item_monster_mask: .byte "monster maskus",0 item_pebbles: .byte "pebbles",0 item_pills: .byte "pills",0 item_riches: .byte "riches",0 item_robe: .byte "robe",0 item_soda: .byte "soda",0 item_meatball_sub: .byte "meatball sub",0 item_super_trinket: .byte "super trinket",0 item_troghelmet: .byte "TrogHelmet",0 item_trogshield: .byte "TrogShield",0 item_trogsword: .byte "TrogSword",0 item_impossible: .byte "???",0 item_shirt: .byte "shirt",0 ; arrow arrow_description: .byte "Boy, you sure know how to pick",13 .byte "em! This arrow's kinda pointy even!!",0 ; baby baby_description: .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 kerrek_belt_description: .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 chicken_feed_description: .byte "Woah! Gold nuggets! Oh",13 .byte "wait...This is just chicken",13 .byte "feed. Crap.",0 ; SuperTime FunBow TM .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 .byte "Man, those pagans sure can make",13 .byte "a freaky lookin mask when they",13 .byte "want to. It's like those theatre",13 .byte "masks' evil uncle or something",0 ; pebbles .byte "Woah! Gray chicken feed! Oh",13 .byte "wait... those are just pebbles.",13 .byte "Heavier than they look, though.",0 ; pills .byte "The innkeeper's medication says",13 .byte "it's supposed to tread ",34,"general",13 .byte "oldness. May cause checkers",13 .byte "playing, hiked-up pants, and",13 .byte "overall pee smell.",34,0 ; riches .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 .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 .byte "A full bottle of popular soda.",0 ; meatball sub .byte "A piping hot meatball sub fresh",13 .byte "from the bottom of a dingy old",13 .byte "well. All you need is a bag of",13 .byte "chips and you've got a combo",13 .byte "meal!",0 ; super trinket .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 .byte "The TrogHelmet is not screwing",13 .byte "around. It's a serious helmet.",13 .byte "It also protects against",13 .byte "harmful UV rays.",0 ; TrogShield .byte "Behold the TrogSheild! No",13 .byte "seriously, behold it. There's",13 .byte "no way Trogdor's fire breath can",13 .byte "penetrate this thing.",0 ; TrogSword .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 ; ??? ; t-shirt .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