;============================================================================
; Faxanadu (U).nes
;
; PRG12 ($8000 - $bfff)
;============================================================================

.segment "PRG12"
.ORG $8000

[8000].byte $00; [0]:
[8001].byte $00; [1]:
[8002].byte $00; [2]:
[8003].byte $00; [3]:
[8004].byte $00; [4]:
[8005].byte $c0; [5]:
[8006].byte $bf; [6]:
[8007].byte $bf; [7]:
[8008].byte $bf; [8]:
[8009].byte $bf; [9]:
[800a].byte $bf; [10]:
[800b].byte $bf; [11]:
[800c].byte $bf; [12]:
[800d].byte $bf; [13]:
[800e].byte $bf; [14]:
[800f].byte $bf; [15]:
[8010].byte $bf; [16]:
[8011].byte $bf; [17]:
[8012].byte $bf; [18]:
[8013].byte $bf; [19]:
[8014].byte $bf; [20]:
[8015].byte $bf; [21]:
[8016].byte $cf; [22]:
[8017].byte $00; [23]:
[8018].byte $00; [24]:
[8019].byte $00; [25]:
[801a].byte $00; [26]:
[801b].byte $00; [27]:
[801c].byte $c0; [0]:
[801d].byte $bf; [1]:
[801e].byte $bf; [2]:
[801f].byte $bf; [3]:
[8020].byte $bf; [4]:
[8021].byte $ce; [5]:
[8022].byte $00; [6]:
[8023].byte $00; [7]:
[8024].byte $00; [8]:
[8025].byte $c8; [9]:
[8026].byte $00; [10]:
[8027].byte $00; [11]:
[8028].byte $00; [12]:
[8029].byte $be; [13]:
[802a].byte $b9; [14]:
[802b].byte $ac; [15]:
[802c].byte $b3; [16]:
[802d].byte $b4; [17]:
[802e].byte $00; [18]:
[802f].byte $00; [19]:
[8030].byte $bc; [20]:
[8031].byte $00; [21]:
[8032].byte $cd; [22]:
[8033].byte $bf; [23]:
[8034].byte $bf; [24]:
[8035].byte $bf; [25]:
[8036].byte $bf; [26]:
[8037].byte $cf; [27]:
[8038].byte $cb; [0]:
[8039].byte $00; [1]:
[803a].byte $c8; [2]:
[803b].byte $00; [3]:
[803c].byte $00; [4]:
[803d].byte $00; [5]:
[803e].byte $00; [6]:
[803f].byte $bc; [7]:
[8040].byte $cc; [8]:
[8041].byte $00; [9]:
[8042].byte $00; [10]:
[8043].byte $c1; [11]:
[8044].byte $c2; [12]:
[8045].byte $00; [13]:
[8046].byte $ab; [14]:
[8047].byte $ac; [15]:
[8048].byte $b3; [16]:
[8049].byte $b4; [17]:
[804a].byte $bc; [18]:
[804b].byte $00; [19]:
[804c].byte $00; [20]:
[804d].byte $00; [21]:
[804e].byte $00; [22]:
[804f].byte $00; [23]:
[8050].byte $00; [24]:
[8051].byte $00; [25]:
[8052].byte $00; [26]:
[8053].byte $cb; [27]:
[8054].byte $cb; [0]:
[8055].byte $00; [1]:
[8056].byte $01; [2]:
[8057].byte $02; [3]:
[8058].byte $03; [4]:
[8059].byte $00; [5]:
[805a].byte $00; [6]:
[805b].byte $00; [7]:
[805c].byte $00; [8]:
[805d].byte $00; [9]:
[805e].byte $d0; [10]:
[805f].byte $d1; [11]:
[8060].byte $d2; [12]:
[8061].byte $d0; [13]:
[8062].byte $ab; [14]:
[8063].byte $ac; [15]:
[8064].byte $b3; [16]:
[8065].byte $b4; [17]:
[8066].byte $c8; [18]:
[8067].byte $00; [19]:
[8068].byte $00; [20]:
[8069].byte $c8; [21]:
[806a].byte $00; [22]:
[806b].byte $00; [23]:
[806c].byte $9d; [24]:
[806d].byte $9e; [25]:
[806e].byte $9f; [26]:
[806f].byte $cb; [27]:
[8070].byte $cb; [0]:
[8071].byte $10; [1]:
[8072].byte $11; [2]:
[8073].byte $12; [3]:
[8074].byte $13; [4]:
[8075].byte $14; [5]:
[8076].byte $15; [6]:
[8077].byte $bc; [7]:
[8078].byte $00; [8]:
[8079].byte $d0; [9]:
[807a].byte $b5; [10]:
[807b].byte $b6; [11]:
[807c].byte $b7; [12]:
[807d].byte $b8; [13]:
[807e].byte $b6; [14]:
[807f].byte $b8; [15]:
[8080].byte $b3; [16]:
[8081].byte $b4; [17]:
[8082].byte $00; [18]:
[8083].byte $c8; [19]:
[8084].byte $00; [20]:
[8085].byte $9c; [21]:
[8086].byte $a0; [22]:
[8087].byte $a1; [23]:
[8088].byte $a2; [24]:
[8089].byte $a3; [25]:
[808a].byte $a4; [26]:
[808b].byte $cb; [27]:
[808c].byte $cb; [0]:
[808d].byte $20; [1]:
[808e].byte $21; [2]:
[808f].byte $22; [3]:
[8090].byte $23; [4]:
[8091].byte $24; [5]:
[8092].byte $25; [6]:
[8093].byte $26; [7]:
[8094].byte $27; [8]:
[8095].byte $c9; [9]:
[8096].byte $ca; [10]:
[8097].byte $c9; [11]:
[8098].byte $ca; [12]:
[8099].byte $ca; [13]:
[809a].byte $ca; [14]:
[809b].byte $ca; [15]:
[809c].byte $b3; [16]:
[809d].byte $b4; [17]:
[809e].byte $bc; [18]:
[809f].byte $2a; [19]:
[80a0].byte $2b; [20]:
[80a1].byte $a5; [21]:
[80a2].byte $a6; [22]:
[80a3].byte $a7; [23]:
[80a4].byte $a8; [24]:
[80a5].byte $a9; [25]:
[80a6].byte $aa; [26]:
[80a7].byte $cb; [27]:
[80a8].byte $cb; [0]:
[80a9].byte $30; [1]:
[80aa].byte $31; [2]:
[80ab].byte $32; [3]:
[80ac].byte $33; [4]:
[80ad].byte $34; [5]:
[80ae].byte $35; [6]:
[80af].byte $36; [7]:
[80b0].byte $37; [8]:
[80b1].byte $38; [9]:
[80b2].byte $39; [10]:
[80b3].byte $ad; [11]:
[80b4].byte $ad; [12]:
[80b5].byte $ae; [13]:
[80b6].byte $ad; [14]:
[80b7].byte $3e; [15]:
[80b8].byte $3f; [16]:
[80b9].byte $04; [17]:
[80ba].byte $05; [18]:
[80bb].byte $06; [19]:
[80bc].byte $07; [20]:
[80bd].byte $08; [21]:
[80be].byte $09; [22]:
[80bf].byte $0a; [23]:
[80c0].byte $00; [24]:
[80c1].byte $0b; [25]:
[80c2].byte $0c; [26]:
[80c3].byte $cb; [27]:
[80c4].byte $cb; [0]:
[80c5].byte $00; [1]:
[80c6].byte $00; [2]:
[80c7].byte $42; [3]:
[80c8].byte $43; [4]:
[80c9].byte $44; [5]:
[80ca].byte $45; [6]:
[80cb].byte $46; [7]:
[80cc].byte $47; [8]:
[80cd].byte $48; [9]:
[80ce].byte $49; [10]:
[80cf].byte $4a; [11]:
[80d0].byte $4b; [12]:
[80d1].byte $4c; [13]:
[80d2].byte $4d; [14]:
[80d3].byte $4e; [15]:
[80d4].byte $4f; [16]:
[80d5].byte $0d; [17]:
[80d6].byte $0e; [18]:
[80d7].byte $0f; [19]:
[80d8].byte $16; [20]:
[80d9].byte $17; [21]:
[80da].byte $18; [22]:
[80db].byte $19; [23]:
[80dc].byte $1a; [24]:
[80dd].byte $1b; [25]:
[80de].byte $00; [26]:
[80df].byte $cb; [27]:
[80e0].byte $cb; [0]:
[80e1].byte $00; [1]:
[80e2].byte $00; [2]:
[80e3].byte $52; [3]:
[80e4].byte $53; [4]:
[80e5].byte $54; [5]:
[80e6].byte $55; [6]:
[80e7].byte $56; [7]:
[80e8].byte $57; [8]:
[80e9].byte $58; [9]:
[80ea].byte $59; [10]:
[80eb].byte $5a; [11]:
[80ec].byte $5b; [12]:
[80ed].byte $5c; [13]:
[80ee].byte $5d; [14]:
[80ef].byte $5e; [15]:
[80f0].byte $5f; [16]:
[80f1].byte $1d; [17]:
[80f2].byte $1e; [18]:
[80f3].byte $1f; [19]:
[80f4].byte $28; [20]:
[80f5].byte $29; [21]:
[80f6].byte $2c; [22]:
[80f7].byte $2d; [23]:
[80f8].byte $2e; [24]:
[80f9].byte $2f; [25]:
[80fa].byte $00; [26]:
[80fb].byte $cb; [27]:
[80fc].byte $cb; [0]:
[80fd].byte $00; [1]:
[80fe].byte $bc; [2]:
[80ff].byte $62; [3]:
[8100].byte $63; [4]:
[8101].byte $64; [5]:
[8102].byte $65; [6]:
[8103].byte $66; [7]:
[8104].byte $67; [8]:
[8105].byte $68; [9]:
[8106].byte $69; [10]:
[8107].byte $6a; [11]:
[8108].byte $6b; [12]:
[8109].byte $6c; [13]:
[810a].byte $6d; [14]:
[810b].byte $6e; [15]:
[810c].byte $6f; [16]:
[810d].byte $3a; [17]:
[810e].byte $3b; [18]:
[810f].byte $3c; [19]:
[8110].byte $3d; [20]:
[8111].byte $40; [21]:
[8112].byte $41; [22]:
[8113].byte $50; [23]:
[8114].byte $51; [24]:
[8115].byte $60; [25]:
[8116].byte $00; [26]:
[8117].byte $cb; [27]:
[8118].byte $cb; [0]:
[8119].byte $00; [1]:
[811a].byte $00; [2]:
[811b].byte $72; [3]:
[811c].byte $73; [4]:
[811d].byte $74; [5]:
[811e].byte $75; [6]:
[811f].byte $76; [7]:
[8120].byte $77; [8]:
[8121].byte $78; [9]:
[8122].byte $79; [10]:
[8123].byte $7a; [11]:
[8124].byte $7b; [12]:
[8125].byte $7c; [13]:
[8126].byte $7d; [14]:
[8127].byte $7e; [15]:
[8128].byte $7f; [16]:
[8129].byte $61; [17]:
[812a].byte $70; [18]:
[812b].byte $71; [19]:
[812c].byte $80; [20]:
[812d].byte $90; [21]:
[812e].byte $91; [22]:
[812f].byte $92; [23]:
[8130].byte $93; [24]:
[8131].byte $00; [25]:
[8132].byte $00; [26]:
[8133].byte $cb; [27]:
[8134].byte $cb; [0]:
[8135].byte $00; [1]:
[8136].byte $81; [2]:
[8137].byte $82; [3]:
[8138].byte $83; [4]:
[8139].byte $84; [5]:
[813a].byte $85; [6]:
[813b].byte $86; [7]:
[813c].byte $83; [8]:
[813d].byte $88; [9]:
[813e].byte $89; [10]:
[813f].byte $83; [11]:
[8140].byte $8b; [12]:
[8141].byte $8c; [13]:
[8142].byte $8d; [14]:
[8143].byte $8e; [15]:
[8144].byte $8f; [16]:
[8145].byte $94; [17]:
[8146].byte $95; [18]:
[8147].byte $96; [19]:
[8148].byte $97; [20]:
[8149].byte $98; [21]:
[814a].byte $83; [22]:
[814b].byte $9a; [23]:
[814c].byte $9b; [24]:
[814d].byte $f3; [25]:
[814e].byte $ec; [26]:
[814f].byte $cb; [27]:
[8150].byte $cb; [0]:
[8151].byte $bc; [1]:
[8152].byte $00; [2]:
[8153].byte $00; [3]:
[8154].byte $bc; [4]:
[8155].byte $bc; [5]:
[8156].byte $bc; [6]:
[8157].byte $00; [7]:
[8158].byte $c1; [8]:
[8159].byte $d3; [9]:
[815a].byte $00; [10]:
[815b].byte $00; [11]:
[815c].byte $00; [12]:
[815d].byte $00; [13]:
[815e].byte $c4; [14]:
[815f].byte $c5; [15]:
[8160].byte $b3; [16]:
[8161].byte $b4; [17]:
[8162].byte $00; [18]:
[8163].byte $00; [19]:
[8164].byte $00; [20]:
[8165].byte $00; [21]:
[8166].byte $00; [22]:
[8167].byte $00; [23]:
[8168].byte $00; [24]:
[8169].byte $bc; [25]:
[816a].byte $00; [26]:
[816b].byte $cb; [27]:
[816c].byte $cb; [0]:
[816d].byte $bb; [1]:
[816e].byte $d3; [2]:
[816f].byte $d3; [3]:
[8170].byte $c6; [4]:
[8171].byte $c7; [5]:
[8172].byte $cf; [6]:
[8173].byte $d0; [7]:
[8174].byte $d1; [8]:
[8175].byte $b7; [9]:
[8176].byte $b8; [10]:
[8177].byte $00; [11]:
[8178].byte $c8; [12]:
[8179].byte $00; [13]:
[817a].byte $d4; [14]:
[817b].byte $b1; [15]:
[817c].byte $b3; [16]:
[817d].byte $b4; [17]:
[817e].byte $c8; [18]:
[817f].byte $00; [19]:
[8180].byte $c1; [20]:
[8181].byte $d3; [21]:
[8182].byte $00; [22]:
[8183].byte $00; [23]:
[8184].byte $d2; [24]:
[8185].byte $d3; [25]:
[8186].byte $c6; [26]:
[8187].byte $cb; [27]:
[8188].byte $cd; [0]:
[8189].byte $bf; [1]:
[818a].byte $bf; [2]:
[818b].byte $bf; [3]:
[818c].byte $cf; [4]:
[818d].byte $af; [5]:
[818e].byte $bf; [6]:
[818f].byte $b0; [7]:
[8190].byte $b0; [8]:
[8191].byte $af; [9]:
[8192].byte $bf; [10]:
[8193].byte $cf; [11]:
[8194].byte $c6; [12]:
[8195].byte $c7; [13]:
[8196].byte $99; [14]:
[8197].byte $8a; [15]:
[8198].byte $87; [16]:
[8199].byte $c3; [17]:
[819a].byte $bb; [18]:
[819b].byte $d0; [19]:
[819c].byte $d1; [20]:
[819d].byte $b7; [21]:
[819e].byte $b8; [22]:
[819f].byte $c0; [23]:
[81a0].byte $bf; [24]:
[81a1].byte $bf; [25]:
[81a2].byte $bf; [26]:
[81a3].byte $ce; [27]:
[81a4].byte $00; [0]:
[81a5].byte $00; [1]:
[81a6].byte $00; [2]:
[81a7].byte $00; [3]:
[81a8].byte $cd; [4]:
[81a9].byte $bf; [5]:
[81aa].byte $bf; [6]:
[81ab].byte $bf; [7]:
[81ac].byte $bf; [8]:
[81ad].byte $bf; [9]:
[81ae].byte $bf; [10]:
[81af].byte $bd; [11]:
[81b0].byte $af; [12]:
[81b1].byte $b2; [13]:
[81b2].byte $b2; [14]:
[81b3].byte $b0; [15]:
[81b4].byte $bd; [16]:
[81b5].byte $af; [17]:
[81b6].byte $bf; [18]:
[81b7].byte $b0; [19]:
[81b8].byte $bf; [20]:
[81b9].byte $af; [21]:
[81ba].byte $bf; [22]:
[81bb].byte $ce; [23]:
[81bc].byte $00; [24]:
[81bd].byte $00; [25]:
[81be].byte $00; [26]:
[81bf].byte $00; [27]:

;============================================================================
; Set the textbox coordinates and dimensions for an NPC.
;
; The textbox will always be set at:
;
;     X = 10
;     Width = 20
;     Height = 8
;
; If there's a portrait, or the player is high up on the screen:
;
;     Y = 16
;
; Otherwise, if the player is on the ground:
;
;     Y = 6
;
; INPUTS:
;     Player_PosY:
;         The Y position for the player.
;
;     Temp_0201:
;         The loaded IScript portrait ID.
;
; OUTPUTS:
;     TextBox_X:
;         The new X position of the textbox.
;
;     TextBox_Y:
;         The new Y position of the textbox.
;
;     TextBox_Width:
;         The new width of the textbox.
;
;     TextBox_Height:
;         The new height of the textbox.
;
; XREFS:
;     IScripts_CloseCurrentTextBox
;     TextBox_OpenForNPC
;============================================================================
[81c0]TextBox_SetCoordsForNPC:; [$81c0]
[81c0]LDA #$0a
[81c2]STA a:TextBox_X; Textbox X = 10
[81c5]LDA #$14
[81c7]STA a:TextBox_Width; Textbox width = 20
[81ca]LDA #$08
[81cc]STA a:TextBox_Height; Textbox height = 8


;
; Check if there's a portrait shown.
;
[81cf]LDA a:Temp_0201; Load the portrait ID from the IScript.
[81d2]BMI @_hasPortrait; If set, jump.


;
; There's no portrait. Set it based on the player's Y position.
;
; If the player is around the ground area, set it at Y = 6.
;
; If the player is higher up on the screen, move it downward to
; Y = 16 (same as the portrait).
;
[81d4]LDY #$06; Textbox Y = 6
[81d6]LDA Player_PosY; Check the player's Y position.
[81d8]CMP #$40; Is it >= 64?
[81da]BCS @_setYAndReturn; If so, jump to return.

[81dc]@_hasPortrait:; [$81dc]
[81dc]LDY #$10; Textbox Y = 16

[81de]@_setYAndReturn:; [$81de]
[81de]STY a:TextBox_Y; Set the textbox Y position.
[81e1]RTS

;============================================================================
; Open a textbox for NPC dialogue.
;
; This positions the textbox and fills it with temporary
; placeholder text in preparation for drawing the NPC's
; message text.
;
; INPUTS:
;     See falls through.
;
; OUTPUTS:
;     See falls through.
;
; CALLS:
;     TextBox_SetCoordsForNPC
;     TextBox_Open
;
; FALLS THROUGH:
;     IScripts_PositionAndFillPlaceholderText
;
; XREFS:
;     IScriptAction_ShowSellMenu
;     IScripts_Begin
;     Maybe_Shop_DrawTextBox
;============================================================================
[81e2]TextBox_OpenForNPC:; [$81e2]
[81e2]JSR TextBox_SetCoordsForNPC; Set textbox coordinates for an NPC dialogue.
[81e5]JSR TextBox_Open; Open the textbox.

;
; v-- Fall through --v
;

;============================================================================
; Position the text X/Y position in a textbox and fill with placeholder text.
;
; This is done in preparation for clearing out a textbox and
; removing it from the screen.
;
; INPUTS:
;     TextBox_X:
;         The textbox X position.
;
;     TextBox_Y:
;         The textbox Y position.
;
; OUTPUTS:
;     TextBox_ContentsX:
;         The text X position.
;
;     TextBox_ContentsY:
;         The text Y position.
;
; CALLS:
;     IScripts_FillPlaceholderText
;
; XREFS:
;     IScriptAction_AddInventoryItem
;     IScriptAction_ShowQuestionMessage
;============================================================================
[81e8]IScripts_PositionAndFillPlaceholderText:; [$81e8]
;
; Set the X position for text within the textbox.
;
[81e8]LDA a:TextBox_X; Load the textbox X.
[81eb]CLC
[81ec]ADC #$02; Add 2.
[81ee]STA TextBox_ContentsX; Set as the text draw X position.


;
; Set the Y position for text within the textbox.
;
[81f0]LDA a:TextBox_Y; Load the textbox Y.
[81f3]CLC
[81f4]ADC #$02; Add 2.
[81f6]STA TextBox_ContentsY; Set as the text draw Y position.


;
; Fill with placeholder text.
;
[81f8]JMP IScripts_FillPlaceholderText; Fill the textbox.

;============================================================================
; Close the opened textbox for the IScript.
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     None.
;
; CALLS:
;     TextBox_Close
;     TextBox_SetCoordsForNPC
;
; XREFS:
;     IScriptAction_EndScript
;============================================================================
[81fb]IScripts_CloseCurrentTextBox:; [$81fb]
[81fb]JSR TextBox_SetCoordsForNPC; Set textbox coordinates for an NPC dialogue.
[81fe]JMP TextBox_Close; Close the textbox.

;============================================================================
; Set the textbox coordinates for a portrait.
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TextBox_X:
;         The new X coordinate.
;
;     TextBox_Y:
;         The new Y coordinate.
;
;     TextBox_Width:
;         The new width.
;
;     TextBox_Height:
;         The new height.
;
; XREFS:
;     DEADCODE_TextBox_ClosePortrait
;     IScripts_OpenForPortrait
;============================================================================
[8201]TextBox_SetCoordsForPortrait:; [$8201]
[8201]LDA #$02
[8203]STA a:TextBox_X; X = 2
[8206]LDA #$0e
[8208]STA a:TextBox_Y; Y = 14
[820b]LDA #$08
[820d]STA a:TextBox_Width; Width = 8
[8210]LDA #$0a
[8212]STA a:TextBox_Height; Height = 10
[8215]RTS

;============================================================================
; Set the sprite X, Y position to the interior of the portrait frame.
;
; This position is relative to the top of the playable screen (below
; the HUD).
;
; INPUTS:
;     None
;
; OUTPUTS:
;     Arg_DrawSprite_PosX:
;         The X position to draw into (0x18)
;
;     Arg_DrawSprite_PosY:
;         The Y position to draw into (0x58)
;
; XREFS:
;     IScripts_UpdatePortraitAnimation
;============================================================================
[8216]IScripts_SetPortraitSpriteXY:; [$8216]
[8216]LDX #$18
[8218]STX Arg_DrawSprite_PosX; Draw X = 24
[821a]LDX #$58
[821c]STX Arg_DrawSprite_PosY; Draw Y = 88
[821e]RTS

;============================================================================
; Open a textbox frame for a portrait.
;
; This positions the textbox at the position and size
; for a portrait in preparation for drawing the portrait
; picture.
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     None.
;
; CALLS:
;     TextBox_SetCoordsForNPC
;     TextBox_SetCoordsForPortrait
;
; XREFS:
;     IScripts_Begin
;============================================================================
[821f]IScripts_OpenForPortrait:; [$821f]
[821f]JSR TextBox_SetCoordsForPortrait; Set textbox coordinates for the portrait.
[8222]JMP TextBox_Open; Open the textbox.

;============================================================================
; TODO: Document DEADCODE_TextBox_ClosePortrait
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;============================================================================
[8225]DEADCODE_TextBox_ClosePortrait:; [$8225]
[8225]JSR TextBox_SetCoordsForPortrait
[8228]JMP TextBox_Close

;============================================================================
; Close the textbox for both the portrait and textbox.
;
; This effectively closes both textboxes on the screen at
; once by taking the entire dimensions of both and replacing
; them with the screen's tiles.
;
; Based on the DEADCODE function above, this used to be split
; into portrait-specific and dialogue-specific textbox closing
; logic, but they likely determined this was faster or cheaper.
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TextBox_X:
;     TextBox_Y:
;     TextBox_Width:
;     TextBox_Height:
;         Clobbered.
;
; CALLS:
;     TextBox_Close
;
; XREFS:
;     IScriptAction_EndScript
;============================================================================
[822b]TextBox_ClearForPortraitAndText:; [$822b]
[822b]LDA #$02
[822d]STA a:TextBox_X; X = 2
[8230]LDA #$08
[8232]STA a:TextBox_Y; Y = 8
[8235]LDA #$1e
[8237]STA a:TextBox_Width; Width = 30
[823a]LDA #$14
[823c]STA a:TextBox_Height; Height = 20
[823f]JMP TextBox_Close; Close the textbox.

;============================================================================
; Begin running an IScript.
;
; This will start loading the IScript to run. Based on
; that script, this may display a portrait for an entity.
;
; Once loaded, a text window will be shown and the first
; action of the script will be executed.
;
; INPUTS:
;     A:
;         The entrypoint offset of the IScript to run.
;
;     ISCRIPT_ADDRS_U:
;     ISCRIPT_ADDRS_L:
;         The lookup table of IScript entrypoints.
;
; OUTPUTS:
;     IScriptOrCHRAddr:
;     IScriptOrCHRAddr+1:
;         The read address for the IScript.
;
;     Temp_0201:
;         The entity ID of the IScript, for portrait
;         display.
;
;     Temp_0200:
;         The IScript entrypoint index.
;
;     IScriptOffset:
;         The byte offset into the script.
;
; CALLS:
;     IScripts_LoadPortraitTiles
;     IScripts_OpenForPortrait
;     TextBox_OpenForNPC
;     IScripts_LoadByte
;
; XREFS:
;     Player_CheckHandlePressUpOnNPC
;     Game_UnlockDoorWithUsableItem
;     Player_PickUpBattleHelmet
;     Player_PickUpBattleSuit
;     Player_PickUpBlackOnyx
;     Player_PickUpDragonSlayer
;     Player_PickUpElixir
;     Player_PickUpGlove
;     Player_PickUpHourGlass
;     Player_PickUpMattock
;     Player_PickUpOintment
;     Player_PickUpRedPotion
;     Player_PickUpWingBoots
;     Player_UseHourGlass
;     Player_UseMattock
;     Player_UseRedPotion
;     Player_UseWingBoots
;============================================================================
[8242]IScripts_Begin:; [$8242]
;
; If this is 0xFF, map to the "Remember Your Mantra."
;
[8242]CMP #$ff; Compare the start offset to 0xFF.
[8244]BNE @_loadScript; If equal, jump.
[8246]LDA #$1f; Set the start offset to 0x1F.


;
; Load the script address from the table.
;
[8248]@_loadScript:; [$8248]
[8248]STA a:Temp_0200; Store the index temporarily.
[824b]TAX; X = A
[824c]LDA ISCRIPT_ADDRS_L,X; Load the lower byte of the IScript address.
[824f]STA IScriptOrCHRAddr; Store as the lower byte.
[8251]LDA ISCRIPT_ADDRS_U,X; Load the upper byte of the IScript address.
[8254]STA IScriptOrCHRAddr_U; Store as the upper byte.
[8256]LDY #$00; Y = 0 (start offset in the script).
[8258]LDA (IScriptOrCHRAddr),Y; Load the first byte of the script (portrait ID).
[825a]STA a:Temp_0201; Store it for the duration of the script.
[825d]BPL @_continueScript; If not a portrait ID, jump.


;
; Begin showing the portrait information.
;
[825f]AND #$7f; Keep the portrait ID bits.
[8261]JSR IScripts_LoadPortraitTiles; Draw the portrait image.
[8264]JSR IScripts_OpenForPortrait; Draw the portrait frame.

[8267]@_continueScript:; [$8267]
[8267]JSR TextBox_OpenForNPC; Open the text window.
[826a]LDA #$01
[826c]STA IScriptOffset; Set IScript offset to 1.

;
; v-- Fall through --v
;

;============================================================================
; Invoke the next action listed in an IScript.
;
; This will load the action byte, look up the action
; handler, and then run it. The handler will be
; responsible for loading any further bytes and
; advancing the script.
;
; INPUTS:
;     IScriptActions_U:
;     IScriptActions_L:
;         Address table for the IScript action handlers.
;
; OUTPUTS:
;     A:
;         Address of the handler, pushed to the stack.
;
; CALLS:
;     IScripts_LoadByte
;
; XREFS:
;     IScriptAction_AddGold
;     IScriptAction_AddInventoryItem
;     IScriptAction_ConsumeItem
;     IScriptAction_OpenShop
;     IScriptAction_SetQuestComplete
;     IScriptAction_SetSpawnPoint
;     IScriptAction_ShowMessage
;     IScriptAction_ShowPassword
;     IScriptAction_ShowQuestionMessage
;     IScriptAction_ShowSellMenu
;     IScriptAction_ShowUnskippableMessage
;     IScriptAction_SpendGold
;     IScripts_JumpToNextAddr
;     IScripts_SkipAddrAndInvoke
;     thunk_IScripts_InvokeNextAction
;============================================================================
[826e]IScripts_InvokeNextAction:; [$826e]
[826e]JSR IScripts_LoadByte; Load the script ID
[8271]TAX; Store the byte in X and load from the offset table.
[8272]LDA IScriptActions_U,X; Fetch the upper script offset
[8275]PHA; Push the upper offset to the stack
[8276]LDA IScriptActions_L,X; Fetch the lower script offset
[8279]PHA; Push the lower offset to the stack
[827a]RTS


;============================================================================
; Addresses for the IScript action handlers.
;
; XREFS:
;     IScripts_InvokeNextAction
;============================================================================

;
; XREFS:
;     IScripts_InvokeNextAction
;
[827b]IScriptActions_L:; [$827b]
[827b].byte $b3; [0]: End Script action

;
; XREFS:
;     IScripts_InvokeNextAction
;
[827c]IScriptActions_L_1_:; [$827c]
[827c].byte $c4; [1]: Show Unskippable Message action
[827d].byte $ee; [2]: Show Question Message action
[827e].byte $d8; [3]: Show Message action
[827f].byte $25; [4]: Check/Update Player Title action
[8280].byte $5a; [5]: Spend Gold action
[8281].byte $90; [6]: Set Spawn Point action
[8282].byte $9e; [7]: Add Inventory Item action
[8283].byte $d7; [8]: Open Shop action
[8284].byte $24; [9]: Add Gold action
[8285].byte $7f; [10]: Add MP action
[8286].byte $d0; [11]: If Quest Completed action
[8287].byte $f5; [12]: If Player Has Title action
[8288].byte $1e; [13]: If Player Has Gold action
[8289].byte $e5; [14]: Set Quest Complete action
[828a].byte $2f; [15]: Show Buy/Sell Menu action
[828b].byte $56; [16]: Consume Item action
[828c].byte $5f; [17]: Show Sell Menu action
[828d].byte $17; [18]: If Player Has Item action
[828e].byte $ae; [19]: Add HP action
[828f].byte $36; [20]: Show Password action
[8290].byte $ad; [21]: Finish Game action
[8291].byte $07; [22]: Show Message and If Dismissed action
[8292].byte $aa; [23]: Jump To Script Address action

;
; XREFS:
;     IScripts_InvokeNextAction
;
[8293]IScriptActions_U:; [$8293]
[8293].byte $82; [0]: End Script action

;
; XREFS:
;     IScripts_InvokeNextAction
;
[8294]IScriptActions_U_1_:; [$8294]
[8294].byte $82; [1]: Show Unskippable Message action
[8295].byte $82; [2]: Show Question Message action
[8296].byte $82; [3]: Show Message action
[8297].byte $87; [4]: Check/Update Player Title action
[8298].byte $83; [5]: Spend Gold action
[8299].byte $83; [6]: Set Spawn Point action
[829a].byte $83; [7]: Add Inventory Item action
[829b].byte $83; [8]: Open Shop action
[829c].byte $85; [9]: Add Gold action
[829d].byte $85; [10]: Add MP action
[829e].byte $85; [11]: If Quest Completed action
[829f].byte $85; [12]: If Player Has Title action
[82a0].byte $86; [13]: If Player Has Gold action
[82a1].byte $85; [14]: Set Quest Complete action
[82a2].byte $86; [15]: Show Buy/Sell Menu action
[82a3].byte $86; [16]: Consume Item action
[82a4].byte $86; [17]: Show Sell Menu action
[82a5].byte $87; [18]: If Player Has Item action
[82a6].byte $85; [19]: Add HP action
[82a7].byte $87; [20]: Show Password action
[82a8].byte $82; [21]: Finish Game action
[82a9].byte $83; [22]: Show Message and If Dismissed action
[82aa].byte $82; [23]: Jump To Script Address action

;============================================================================
; IScript Action $17: Jump to Address
;
; This will immediately jump to the specified address.
;
; Script Parameters:
;
;     1. Jump address (2 bytes)
;
; XREFS:
;     IScriptActions_L [$PRG12::8292]
;============================================================================
[82ab]IScriptAction_Jump:; [$82ab]
[82ab]JMP IScripts_JumpToNextAddr; Jump to the next address specified in the script.

;============================================================================
; IScript Action $15: Finish Game
;
; This will immediately finish the game, showing
; the outro screen and victory music.
;
; Script Parameters:
;     None.
;
; XREFS:
;     IScriptActions_L [$PRG12::8290]
;============================================================================
[82ae]IScriptAction_FinishGame:; [$82ae]
[82ae]JSR SplashAnimation_RunOutro; Show the outro animation.
[82b1]JMP Game_Init; Re-initialize the game.

;============================================================================
; IScript Action $00: End Script
;
; This will close the textbox, if one is opened, and
; finish processing the script.
;
; Script Parameters:
;     None.
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_ShowBuySellMenu
;     IScriptAction_ShowMessage
;     IScriptAction_ShowQuestionMessage
;     IScriptAction_ShowSellMenu
;     IScriptActions_L [$PRG12::827b]
;     IScripts_ShowFinalMessage
;============================================================================
[82b4]IScriptAction_EndScript:; [$82b4]
[82b4]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82b7]LDA a:Temp_0201; Load the portrait ID.
[82ba]BPL @_noPortrait; If a portrait ID is not set, jump.
[82bc]JSR IScripts_ClearPortraitImage; Clear the portrait image.
[82bf]JMP TextBox_ClearForPortraitAndText; Clear the portrait frame.

[82c2]@_noPortrait:; [$82c2]
[82c2]JMP IScripts_CloseCurrentTextBox; Clear the current textbox.

;============================================================================
; IScript Action $01: Show Unskippable Message
;
; Displays a message in a text box, with an optional
; portrait depending on the script's Entity ID.
;
; This message cannot be skipped by pressing the B
; button. It's used for important messages, like the
; game's intro.
;
; Script Parameters:
;
;     1. Message ID (1 byte)
;
; XREFS:
;     IScriptActions_L [$PRG12::827c]
;============================================================================
[82c5]IScriptAction_ShowUnskippableMessage:; [$82c5]
;
; Load the message to display.
;
[82c5]JSR IScripts_LoadByte; Load the next byte as the message ID.
[82c8]JSR Messages_Load; Load the message.


;
; Draw the characters one-by-one until the message is done.
;
[82cb]@_loop:; [$82cb]
[82cb]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82ce]JSR TextBox_ShowNextChar; Draw the next character in the textbox.
[82d1]JSR TextBox_CheckShouldContinue; Check if the message should continue.
[82d4]BCC @_loop; If so, loop.


;
; Done showing the textbox. Invoke the next action.
;
[82d6]JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; IScript Action $03: Show Message
;
; Displays a message in a text box, with an optional
; portrait depending on the script's Entity ID.
;
; This message can be skipped at any point by pressing
; the B button.
;
; Script Parameters:
;
;     1. Message ID (1 byte)
;
; XREFS:
;     IScriptActions_L [$PRG12::827e]
;============================================================================
[82d9]IScriptAction_ShowMessage:; [$82d9]
;
; Load the message to display.
;
[82d9]JSR IScripts_LoadByte; Load the next byte as the message ID.
[82dc]JSR Messages_Load; Load the message.


;
; Draw the characters one-by-one until the message is done.
;
[82df]@_loop:; [$82df]
[82df]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82e2]JSR TextBox_ShowNextChar; Draw the next character in the textbox.
[82e5]JSR TextBox_CheckShouldContinueOrDismissMessage; Check if the message is done or continued.
[82e8]BCS IScriptAction_EndScript; If dismissed, end the script.
[82ea]BNE @_loop; If not done, loop.


;
; Done showing the textbox. Invoke the next action.
;
[82ec]JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; IScript Action $02: Show Question Message
;
; Tihs displays a message in a text box, with an
; optional portrait depending on the script's Entity ID.
;
; The message will terminate with a flashing "?" at the
; bottom-center of the dialogue, indicating a question
; for the player.
;
; This message can be skipped at any point by pressing
; the B button.
;
; Script Parameters:
;
;     1. Message ID (1 byte)
;
; XREFS:
;     IScriptActions_L [$PRG12::827d]
;============================================================================
[82ef]IScriptAction_ShowQuestionMessage:; [$82ef]
[82ef]JSR IScripts_LoadByte; Load the message ID parameer.
[82f2]JSR Messages_Load; Load the message string.

[82f5]@_messageLoop:; [$82f5]
[82f5]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82f8]JSR TextBox_ShowNextChar; Show the next character in the textbox.
[82fb]JSR TextBox_CheckShouldContinueOrDismissQuestion; Check whether to continue or dismiss.
[82fe]BCS IScriptAction_EndScript; If dismissed, end the script.
[8300]BNE @_messageLoop; Else, if message text remains, loop.


;
; The message finished. Fill up the textbox with hidden
; placeholder text and move on to the next action.
;
[8302]JSR IScripts_PositionAndFillPlaceholderText
[8305]JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; IScript Action $16: Show Question Message then Check If Completed
;
; Tihs displays a message in a text box, with an
; optional portrait depending on the script's Entity ID.
;
; This message can be skipped at any point by pressing
; the B button.
;
; If the message is dismissed, continue on with the script.
;
; If the message completed, load the next address parameter
; and jump to it.
;
; This is not used in the shipped game.
;
; Script Parameters:
;
;     1. Message ID (1 byte)
;     2. Jump Address if Completed (2 bytes)
;
; XREFS:
;     IScriptActions_L [$PRG12::8291]
;============================================================================
[8308]IScriptAction_ShowQuestionMessageCheckIfDismissed:; [$8308]
[8308]JSR IScripts_LoadByte; Load the message ID parameer.
[830b]JSR Messages_Load; Load the message string.

[830e]@_messageLoop:; [$830e]
[830e]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[8311]JSR TextBox_ShowNextChar; Show the next character in the textbox.
[8314]JSR TextBox_CheckShouldContinueOrDismissQuestion; Check whether to continue or dismiss.
[8317]BCS @_messageDismissed; If dismissed, jump to continue this script.
[8319]BNE @_messageLoop; Else, if message text remains, loop.


;
; The message finished. Load the next parameter as an
; address and jump to it.
;
[831b]JMP IScripts_JumpToNextAddr; Else, if completed, jump to the next address specified in the script.


;
; The message was dismissed. Move on to the next action in
; this script.
;
[831e]@_messageDismissed:; [$831e]
[831e]JMP IScripts_SkipAddrAndInvoke; Invoke the next action in the script.

;============================================================================
; Progressively subtract gold from the player.
;
; This will subtract the code, animating the reduction
; of gold from the status screen.
;
; 10 gold will be subtracted at a time from the player.
; The values passed in will be used as a separate counter
; for how much gold is remaining to subtract.
;
; INPUTS:
;     Temp_0203:
;         Lower byte of the gold amount to subtract.
;
;     Temp_0203:
;         Upper byte of the gold amount to subtract.
;
; OUTPUTS:
;     Temp_Int24:
;     Temp_Int24+1:
;     Temp_0202:
;     Temp_0203:
;         Clobbered.
;
; CALLS:
;     IScripts_UpdatePortraitAnimation
;     Player_SubtractGold
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_SpendGold
;     IScripts_ProgressivelySubtractGold
;============================================================================
[8321]IScripts_ProgressivelySubtractGold:; [$8321]
[8321]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[8324]LDA a:Temp_0203; Load the upper byte of the gold amount.
[8327]BMI @_subtractLowerByte; If the upper byte is 0, jump.
[8329]ORA a:Temp_0202; OR with the lower byte.
[832c]BEQ @_subtractUpperByte; If neither has a value, jump.


;
; Subtract 10 from the counter of gold remaining to take.
; If at any point we underflow the lower byte, subtract 1
; from the upper byte.
;
[832e]LDA a:Temp_0202; Load the lower byte of gold.
[8331]SEC
[8332]SBC #$0a; Subtract 10.
[8334]STA a:Temp_0202; And store as the lower byte.
[8337]LDA a:Temp_0203; Load the upper byte of gold.
[833a]SBC #$00; If the lower is now < 0, subtract 1 from upper.
[833c]STA a:Temp_0203; And store it.


;
; Remove 10 gold from the player.
;
[833f]LDA #$0a; A = 10
[8341]STA Temp_Int24; Store as the lower byte to subtract.
[8343]LDA #$00; A = 0
[8345]STA Temp_Int24_M; Store as the upper byte to subtract.
[8347]JSR Player_SubtractGold; Subtract the gold from the player.
[834a]JMP IScripts_ProgressivelySubtractGold; And loop.

[834d]@_subtractUpperByte:; [$834d]
[834d]DEC a:Temp_0203; Subtract 1 from the upper byte.
[8350]LDA #$3c; Use 60 for the lower byte.
[8352]STA a:Temp_0202; And store it.

[8355]@_subtractLowerByte:; [$8355]
[8355]DEC a:Temp_0202; Subtract 1 from the lower byte.
[8358]BNE IScripts_ProgressivelySubtractGold; If not 0, loop.
[835a]RTS; Else, we're done. Return.

;============================================================================
; IScript Action $05: Spend Gold
;
; This takes the specified amount of gold away from the player.
;
; Script Parameters:
;
;     1. Gold amount (2 bytes)
;
; XREFS:
;     IScriptActions_L [$PRG12::8280]
;============================================================================
[835b]IScriptAction_SpendGold:; [$835b]
;
; Load the gold amount parameters for the script.
;
[835b]JSR IScripts_LoadByte; Load the lower byte of the gold amount.
[835e]STA a:Temp_0202; Store it.
[8361]JSR IScripts_LoadByte; Load the upper byte of the gold amount.
[8364]STA a:Temp_0203; Store it
[8367]LDA a:Temp_0202; Load the lower byte again.
[836a]STA Temp_Int24; Store it in Temp_Int24 for comparison.
[836c]LDA a:Temp_0203; Lower the upper byte again.
[836f]STA Temp_Int24_M; And store it in Temp_Int24 for comparison.


;
; Validate that there's enough money. If there is, spend
; it. If not, display an error message.
;
[8371]JSR IScripts_CheckEnoughMoney; Check if there's enough money to pay.
[8374]BCC IScripts_ShowNotEnoughMoney; If not, show the Not Enough Money message.
[8376]JSR IScripts_ProgressivelySubtractGold; Progressively subtract the gold, animating it.
[8379]JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; Show that the player doesn't have enough money.
;
; This will progressively show this in a textbox, and
; then end the script.
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     None.
;
; CALLS:
;     Messages_Load
;     IScripts_UpdatePortraitAnimation
;     TextBox_ShowNextChar
;     TextBox_CheckShouldContinueOrDismissMessage
;     IScriptAction_EndScript
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_SpendGold
;============================================================================
[837c]IScripts_ShowNotEnoughMoney:; [$837c]
;
; Display the Not Enough Money message.
;
[837c]LDA #$03; Set the message ID.

;
; v-- Fall through --v
;

;============================================================================
; Show a message for shop purposes, ending the script once finished.
;
; This will show the message and, once dismissed or completed,
; end the current IScript.
;
; INPUTS:
;     A:
;         The ID of the message to show.
;
; OUTPUTS:
;     None.
;
; CALLS:
;     IScriptAction_EndScript
;     IScripts_UpdatePortraitAnimation
;     Messages_Load
;     TextBox_ShowNextChar
;     TextBox_CheckShouldContinueOrDismissMessage
;
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_ShowSellMenu
;============================================================================
[837e]IScripts_ShowFinalMessage:; [$837e]
[837e]JSR Messages_Load; Load the message string.


;
; Progressively write the message.
;
[8381]@_messageLoop:; [$8381]
[8381]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[8384]JSR TextBox_ShowNextChar; Show the next character in the textbox.
[8387]JSR TextBox_CheckShouldContinueOrDismissMessage; Check whether to continue or dismiss.
[838a]BCS @_endScript; If dismissed, end the script.
[838c]BNE @_messageLoop; Else, if the message is not finished, loop.

[838e]@_endScript:; [$838e]
[838e]JMP IScriptAction_EndScript; End processing of the script.

;============================================================================
; IScript Action $06: Set Spawn Point
;
; Sets the spawn point to the specified temple ID.
;
; Only the furthest temple will be set. If backtracking,
; to an earlier spawn point, then ew spawn point will
; not be set.
;
; Script Parameters:
;
;     1. Temple ID (1 byte)
;
; XREFS:
;     IScriptActions_L [$PRG12::8281]
;============================================================================
[8391]IScriptAction_SetSpawnPoint:; [$8391]
[8391]JSR IScripts_LoadByte; Load the temple/area ID.
[8394]CMP a:TempleSpawnPoint; Compare against the current spawn point.
[8397]BCC @_nextAction; If the older spawn point is further in the game, don't update.
[8399]STA a:TempleSpawnPoint; Else, set the new spawn point.

[839c]@_nextAction:; [$839c]
[839c]JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; IScript Action $07: Adds an item with the specified ID to the player's
; inventory.
;
; This will show a textbox with the item's image and name,
; waiting for the player to press a button to dismiss it.
;
; Script Parameters:
;
;     1. Item ID (1 byte)
;
; XREFS:
;     IScriptActions_L [$PRG12::8282]
;============================================================================
[839f]IScriptAction_AddInventoryItem:; [$839f]
[839f]JSR IScripts_LoadByte; Load the item ID parameter.
[83a2]PHA; Push to the stack, twice.
[83a3]PHA
[83a4]JSR Player_AddToInventory; Add the item to the inventory.


;
; Begin showing the textbox indicating the added item.
;
; The text position will be inset 1 from the standard text
; position (2 blocks in from the textbox border), allowing
; room for the item image.
;
[83a7]JSR IScriptAction_AddInventoryItem_ClearTextBox; Clear the textbox and prepare for showing the item.
[83aa]LDX a:TextBox_X; X = Textbox X location.
[83ad]INX; X += 2
[83ae]INX
[83af]STX TextBox_ContentsX; Store as the text X position.
[83b1]LDX a:TextBox_Y; X = Textbox Y position.
[83b4]INX; X += 2
[83b5]INX
[83b6]STX TextBox_ContentsY; Store as the text Y position.


;
; Draw the item image and name in the textbox.
;
[83b8]PLA; Pull the item ID from the stack.
[83b9]LDX #$00; X = 0
[83bb]JSR TextBox_DrawItemImage; Draw the item image.
[83be]INC TextBox_ContentsY; Text Y position += 3
[83c0]INC TextBox_ContentsY
[83c2]INC TextBox_ContentsY
[83c4]PLA; Pull the item ID from the stack.
[83c5]JSR TextBox_DrawItemName; Draw the item name.


;
; Update any portrait and textbox terminators until a
; button is pressed.
;
[83c8]@_textboxLoop:; [$83c8]
[83c8]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[83cb]JSR TextBox_DrawUpArrowTerminatorSymbol; Draw the Up arrow terminator symbol.
[83ce]LDA Joy1_ChangedButtonMask; Load any changed controller buttons.
[83d0]BPL @_textboxLoop; If not pressed, loop.


;
; Prepare to clear out the textbox and then invoke the next
; action in the script.
;
[83d2]JSR IScripts_PositionAndFillPlaceholderText; Fill the textbox with invisible placeholder text.
[83d5]JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; IScript Action $08: Open Shop
;
; This will load an address for shop item data, and then
; display the items in a box.
;
; Script Parameters:
;
;     1. The address of the shop items (2 bytes)
;
; XREFS:
;     IScriptActions_L [$PRG12::8283]
;============================================================================
[83d8]IScriptAction_OpenShop:; [$83d8]
[83d8]LDA #$14; "What would you like?"
[83da]JSR Messages_Load

[83dd]@LAB_PRG12__83dd:; [$83dd]
[83dd]JSR IScripts_UpdatePortraitAnimation
[83e0]JSR TextBox_ShowNextChar
[83e3]JSR TextBox_CheckShouldContinueOrDismissMessage
[83e6]BCS @_endScript
[83e8]BNE @LAB_PRG12__83dd
[83ea]JSR IScripts_LoadByte
[83ed]STA Temp_Int24; Probably shop inventory table
[83ef]JSR IScripts_LoadByte
[83f2]STA Temp_Int24_M
[83f4]JSR Shop_Populate
[83f7]JSR Shop_Draw
[83fa]JSR IScripts_WaitForMenuInput
[83fd]BCC @LAB_PRG12__8402

[83ff]@_endScript:; [$83ff]
[83ff]JMP IScriptAction_EndScript

[8402]@LAB_PRG12__8402:; [$8402]
[8402]JSR Shop_GetPlayerHasSelectedItem
[8405]BCS @LAB_PRG12__8469
[8407]LDX a:Menu_CursorPos
[840a]LDA DataArray,X
[840d]CMP #$80
[840f]BEQ @LAB_PRG12__8439
[8411]CMP #$81
[8413]BEQ @LAB_PRG12__8439
[8415]CMP #$82
[8417]BEQ @LAB_PRG12__8439
[8419]CMP #$83
[841b]BEQ @LAB_PRG12__8439
[841d]CMP #$92
[841f]BEQ @LAB_PRG12__8439
[8421]CMP #$8a
[8423]BEQ @LAB_PRG12__8439
[8425]CMP #$93
[8427]BEQ @LAB_PRG12__8439
[8429]CMP #$94
[842b]BEQ @LAB_PRG12__8439
[842d]JSR Player_GetInventoryIndexForItem
[8430]TAX
[8431]LDA NumberOfWeapons,X; Number of weapons in the player's inventory.
[8434]CMP MAX_INVENTORY_SLOTS,X
[8437]BEQ @LAB_PRG12__8469

[8439]@LAB_PRG12__8439:; [$8439]
[8439]LDX a:Menu_CursorPos
[843c]LDA ShopItemCostsL,X
[843f]STA Temp_Int24
[8441]STA a:Temp_0202
[8444]LDA ShopItemCostsU,X
[8447]STA Temp_Int24_M
[8449]STA a:Temp_0203
[844c]JSR IScripts_CheckEnoughMoney
[844f]BCS @LAB_PRG12__8457
[8451]JSR Maybe_Shop_DrawTextBox
[8454]JMP IScripts_ShowNotEnoughMoney

[8457]@LAB_PRG12__8457:; [$8457]
[8457]LDX a:Menu_CursorPos
[845a]LDA DataArray,X
[845d]JSR Player_AddToInventory
[8460]JSR IScripts_ProgressivelySubtractGold
[8463]JSR Maybe_Shop_DrawTextBox
[8466]JMP IScripts_InvokeNextAction

[8469]@LAB_PRG12__8469:; [$8469]
[8469]JSR Maybe_Shop_DrawTextBox
[846c]LDA #$06
[846e]JMP IScripts_ShowFinalMessage

;============================================================================
; TODO: Document Maybe_Shop_DrawTextBox
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_OpenShop
;============================================================================
[8471]Maybe_Shop_DrawTextBox:; [$8471]
[8471]JSR IScripts_UpdatePortraitAnimation
[8474]JSR IScripts_UpdatePortraitAnimation
[8477]JSR TextBox_Close
[847a]JMP TextBox_OpenForNPC

;
; XREFS:
;     IScriptAction_OpenShop
;     Player_AddToInventory
;
[847d]MAX_INVENTORY_SLOTS:; [$847d]
[847d].byte $04; [0]: Max weapons
[847e].byte $04; [1]: Max armor
[847f].byte $04; [2]: Max shields
[8480].byte $04; [3]: Max spells
[8481].byte $08; [4]: Max consumable items

;============================================================================
; TODO: Document Shop_GetPlayerHasSelectedItem
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     C
;
; XREFS:
;     IScriptAction_OpenShop
;============================================================================
[8482]Shop_GetPlayerHasSelectedItem:; [$8482]
[8482]LDX a:Menu_CursorPos
[8485]LDA DataArray,X
[8488]BPL @LAB_PRG12__84bf
[848a]LDX #$00
[848c]CMP #$80
[848e]BEQ @LAB_PRG12__84b5
[8490]INX
[8491]CMP #$81
[8493]BEQ @LAB_PRG12__84b5
[8495]INX
[8496]CMP #$82
[8498]BEQ @LAB_PRG12__84b5
[849a]INX
[849b]CMP #$83
[849d]BEQ @LAB_PRG12__84b5
[849f]INX
[84a0]CMP #$92
[84a2]BEQ @LAB_PRG12__84b5
[84a4]INX
[84a5]CMP #$8a
[84a7]BEQ @LAB_PRG12__84b5
[84a9]INX
[84aa]CMP #$93
[84ac]BEQ @LAB_PRG12__84b5
[84ae]INX
[84af]CMP #$94
[84b1]BEQ @LAB_PRG12__84b5

[84b3]@LAB_PRG12__84b3:; [$84b3]
[84b3]CLC
[84b4]RTS

[84b5]@LAB_PRG12__84b5:; [$84b5]
[84b5]LDA a:SpecialItems
[84b8]AND BYTE_ARRAY_PRG12__84e5,X
[84bb]BEQ @LAB_PRG12__84b3

[84bd]@LAB_PRG12__84bd:; [$84bd]
[84bd]SEC
[84be]RTS

[84bf]@LAB_PRG12__84bf:; [$84bf]
[84bf]PHA
[84c0]JSR Player_GetInventoryIndexForItem
[84c3]TAX
[84c4]LDA INVENTORY_CATEGORY_L,X
[84c7]STA Temp_Int24
[84c9]LDA INVENTORY_CATEGORY_U,X
[84cc]STA Temp_Int24_M
[84ce]PLA
[84cf]AND #$1f
[84d1]CMP SelectedWeapon,X
[84d4]BEQ @LAB_PRG12__84bd
[84d6]LDY NumberOfWeapons,X
[84d9]BEQ @LAB_PRG12__84b3
[84db]DEY

[84dc]@LAB_PRG12__84dc:; [$84dc]
[84dc]CMP (Temp_Int24),Y
[84de]BEQ @LAB_PRG12__84bd
[84e0]DEY
[84e1]BPL @LAB_PRG12__84dc
[84e3]CLC
[84e4]RTS

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84e5]BYTE_ARRAY_PRG12__84e5:; [$84e5]
[84e5].byte $80; [0]:

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84e6]BYTE_ARRAY_PRG12__84e5_1_:; [$84e6]
[84e6].byte $40; [1]:

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84e7]BYTE_ARRAY_PRG12__84e5_2_:; [$84e7]
[84e7].byte $20; [2]:

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84e8]BYTE_ARRAY_PRG12__84e5_3_:; [$84e8]
[84e8].byte $10; [3]:

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84e9]BYTE_ARRAY_PRG12__84e5_4_:; [$84e9]
[84e9].byte $08; [4]:

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84ea]BYTE_ARRAY_PRG12__84e5_5_:; [$84ea]
[84ea].byte $04; [5]:

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84eb]BYTE_ARRAY_PRG12__84e5_6_:; [$84eb]
[84eb].byte $02; [6]:

;
; XREFS:
;     Shop_GetPlayerHasSelectedItem
;
[84ec]BYTE_ARRAY_PRG12__84e5_7_:; [$84ec]
[84ec].byte $01; [7]:

;============================================================================
; TODO: Document IScripts_WaitForMenuInput
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     C
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_ShowSellMenu
;     IScripts_WaitForMenuInput
;============================================================================
[84ed]IScripts_WaitForMenuInput:; [$84ed]
[84ed]JSR IScripts_UpdatePortraitAnimation
[84f0]JSR Menu_UpdateAndDraw
[84f3]LDA Joy1_ChangedButtonMask
[84f5]BMI @_returnFalse
[84f7]ASL A
[84f8]BMI @_returnTrue
[84fa]JMP IScripts_WaitForMenuInput

[84fd]@_returnFalse:; [$84fd]
[84fd]CLC
[84fe]RTS

[84ff]@_returnTrue:; [$84ff]
[84ff]SEC
[8500]RTS

;============================================================================
; Populate the items in the menu.
;
; This will take the menus stored in the address indicated
; in Temp_Int24 and Temp_Int24+1. It will
; loop through
; these, adding the items and costs to the menu state.
;
; INPUTS:
;     Temp_Int24:
;     Temp_Int24+1:
;         The address of the menu items to load.
;
; OUTPUTS:
;     Arg_StringsCount:
;         Position of the last menu item.
;
;     Menu_CursorPos:
;         Start position of the cursor (0).
;
;     DataArray:
;         The populated list of items.
;
;     ShopItemCostsL:
;     ShopItemCostsU:
;         The populated costs for each item.
;
; XREFS:
;     IScriptAction_OpenShop
;============================================================================
[8501]Shop_Populate:; [$8501]
[8501]LDY #$00; Y = 0 (loop counter)
[8503]LDX #$00; X = 0 (menu position counter)
[8505]STX a:Menu_CursorPos; Cusor position = 0


;
; Fetch the menu item at this index.
;
[8508]@_populateLoop:; [$8508]
[8508]LDA (Temp_Int24),Y; A = Menu item at Y.


;
; Check if we're on the last item.
;
[850a]CMP #$ff; Check if it's 0xFF (the menu terminator).
[850c]BEQ @_finish; If so, we're done.


;
; Store the item.
;
[850e]STA DataArray,X; Store the item in the menu.
[8511]INY; Y++


;
; Store the cost.
;
[8512]LDA (Temp_Int24),Y; Load the lower byte of the item cost.
[8514]STA ShopItemCostsL,X; Store it.
[8517]INY; Y++
[8518]LDA (Temp_Int24),Y; Load the upper byte of the item cost.
[851a]STA ShopItemCostsU,X; Store it.


;
; Increment our counters.
;
[851d]INY; Y++
[851e]INX; X++
[851f]BNE @_populateLoop; If we're not done, loop.

[8521]@_finish:; [$8521]
[8521]STX a:Arg_StringsCount; Set the last menu position.
[8524]RTS

;============================================================================
; IScript action to add gold.
;
; This will load the lower and middle bytes of gold and
; progressively fill up the player's gold counter.
;
; It will then invoke the next action in the script.
;
; XREFS:
;     IScriptActions_L [$PRG12::8284]
;============================================================================
[8525]IScriptAction_AddGold:; [$8525]
[8525]JSR IScripts_LoadByte; Load the lower byte for the gold amount.
[8528]STA a:Temp_0202; Store it.
[852b]JSR IScripts_LoadByte; Load the upper byte for the gold amount.
[852e]STA a:Temp_0203; Store it.
[8531]JSR IScripts_ProgressivelyAddGold; Progressively add gold.
[8534]JMP IScripts_InvokeNextAction; Invoke the next action.

;============================================================================
; TODO: Document IScripts_ProgressivelyAddGold
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_AddGold
;     IScriptAction_ShowSellMenu
;     IScripts_ProgressivelyAddGold
;============================================================================
[8537]IScripts_ProgressivelyAddGold:; [$8537]
[8537]JSR IScripts_UpdatePortraitAnimation
[853a]LDA a:Temp_0203
[853d]BMI @LAB_PRG12__856e
[853f]ORA a:Temp_0202
[8542]BEQ @LAB_PRG12__8566
[8544]JSR IScripts_PlayGoldChangeSound
[8547]LDA a:Temp_0202
[854a]SEC
[854b]SBC #$0a
[854d]STA a:Temp_0202
[8550]LDA a:Temp_0203
[8553]SBC #$00
[8555]STA a:Temp_0203
[8558]LDA #$0a
[855a]STA Temp_Int24
[855c]LDA #$00
[855e]STA Temp_Int24_M
[8560]JSR Player_AddGold
[8563]JMP IScripts_ProgressivelyAddGold

[8566]@LAB_PRG12__8566:; [$8566]
[8566]DEC a:Temp_0203
[8569]LDA #$3c
[856b]STA a:Temp_0202

[856e]@LAB_PRG12__856e:; [$856e]
[856e]DEC a:Temp_0202
[8571]BNE IScripts_ProgressivelyAddGold
[8573]RTS

;============================================================================
; Play the gold change sound every 7 ticks.
;
; INPUTS:
;     InterruptCounter:
;         The interrupt counter to control timing of sounds.
;
; OUTPUTS:
;     None
;
; XREFS:
;     IScripts_ProgressivelyAddGold
;============================================================================
[8574]IScripts_PlayGoldChangeSound:; [$8574]
[8574]LDA InterruptCounter; Load the interrupt counter.
[8576]AND #$03; Check if we're ready to play a sound.
[8578]BNE @_return; If not, return.


;
; We're ready to play the sound.
;
[857a]LDA #$19; 0x19 == Change gold amount sound
[857c]JSR Sound_PlayEffect; Play the sound.

[857f]@_return:; [$857f]
[857f]RTS

;============================================================================
; IScript action for adding MP.
;
; This will read the first byte as the MP amount.
;
; If this is under the MP cap, it will begin the process of
; progressively adding MP to the user, animating filling up
; the HP.
;
; XREFS:
;     IScriptActions_L [$PRG12::8285]
;============================================================================
[8580]IScriptAction_AddMP:; [$8580]
[8580]JSR IScripts_LoadByte; Load the MP amount from the script.
[8583]STA a:IScript_HPOrMPValueToAdd; Store in the variable to fill MP up to.
[8586]LDA a:Player_MP; Load the currently-added MP value we're filling from.
[8589]CMP #$50; Compare to the cap.
[858b]BCS thunk_IScripts_InvokeNextAction; If at or over, we're done. Jump to invoke the next action.

[858d]@_fillLoop:; [$858d]
[858d]JSR IScripts_UpdatePortraitAnimation
[8590]JSR IScripts_PlayFillingSound; Play the sound for filling a bit of MP.
[8593]LDX a:Player_MP; X = Remaining value to add.
[8596]INX; X++
[8597]TXA; A = X
[8598]JSR Player_SetMP; Set the current mana points.
[859b]DEC a:IScript_HPOrMPValueToAdd; Decrement the remaining value to add.
[859e]BNE @_fillLoop; If we're not done, loop.

;
; v-- Fall through --v
;

;============================================================================
; Thunk for invoking the next IScript action.
;
; This is here so that other code can jump to it cleanly.
;
; XREFS:
;     IScriptAction_AddHP
;     IScriptAction_AddMP
;============================================================================
[85a0]thunk_IScripts_InvokeNextAction:; [$85a0]
[85a0]JMP IScripts_InvokeNextAction

;============================================================================
; Play a sound when filling the HP or MP bar.
;
; This will play every 7 ticks.
;
; INPUTS:
;     None
;
; OUTPUTS:
;     None
;
; XREFS:
;     IScriptAction_AddHP
;     IScriptAction_AddMP
;============================================================================
[85a3]IScripts_PlayFillingSound:; [$85a3]
[85a3]LDA InterruptCounter
[85a5]AND #$03
[85a7]BNE RETURN_85AE
[85a9]LDA #$13
[85ab]JSR Sound_PlayEffect

;
; XREFS:
;     IScripts_PlayFillingSound
;
[85ae]RETURN_85AE:; [$85ae]
[85ae]RTS

;============================================================================
; IScript action for adding HP.
;
; This will read the first byte as the HP amount.
;
; If this is under the HP cap, it will begin the process of
; progressively adding HP to the user, animating filling up
; the HP.
;
; NOTE: If you look at the last couple instructions, it may
;       seem it's falling through to
;       IScriptAction_IfQuestCompleted.
;
;       This does not happen. The combination of BEQ and BNE
;       ensures we jump to an IScripts_InvokeNextAction
;       and
;       ends.
;
; XREFS:
;     IScriptActions_L [$PRG12::828e]
;============================================================================
[85af]IScriptAction_AddHP:; [$85af]
[85af]JSR IScripts_LoadByte; Load the HP value to add.
[85b2]STA a:IScript_HPOrMPValueToAdd; Store in the variable to fill HP up to.
[85b5]LDA a:Temp_AddedHPValue; Load the currently-added HP value we're filling from.
[85b8]CMP #$50; Compare against the cap of 80.
[85ba]BCS thunk_IScripts_InvokeNextAction; If over, we're done. Invoke the next action.

[85bc]@_fillLoop:; [$85bc]
[85bc]JSR IScripts_UpdatePortraitAnimation
[85bf]JSR IScripts_PlayFillingSound; Play the sound for filling a bit of HP.
[85c2]LDX a:Temp_AddedHPValue; X = Remaining value to add
[85c5]INX; X++
[85c6]TXA; A = X
[85c7]JSR UI_DrawPlayerHPValue; Draw the next bit of health.
[85ca]DEC a:IScript_HPOrMPValueToAdd; Decrement the remaining amount to add.
[85cd]BNE @_fillLoop; If there's more to add, loop.
[85cf]BEQ thunk_IScripts_InvokeNextAction; Else, invoke the next action.

;
; X-- Does not fall through -- Terminates at branches above --X
;

;============================================================================
; IScript action for a conditional check based on completed quests.
;
; This will read the next byte representing a quest index.
;
; If the player has completed the quests in the bitmask,
; this will read the next 2-byte address and jump to the
; script at that location.
;
; If they have not completed the quests, this will skip the
; address and invoke the following action.
;
; NOTE: This only checks the 3 least-significant bits of the
;       quests bitmask.
;
; XREFS:
;     IScriptActions_L [$PRG12::8286]
;============================================================================
[85d1]IScriptAction_IfQuestCompleted:; [$85d1]
[85d1]JSR IScripts_LoadByte; Load the next byte as the quest index into our table.
[85d4]TAX; X = result
[85d5]LDA a:Quests; Load the current player quests.
[85d8]AND ISCRIPTS_QUEST_BITS-1,X; AND it to the bitmask at the given index.
[85db]BNE @_hasQuestCompleted
[85dd]JMP IScripts_SkipAddrAndInvoke; Skip 2 bytes and invoke the following action.

[85e0]@_hasQuestCompleted:; [$85e0]
[85e0]JMP IScripts_JumpToNextAddr

[85e3]ISCRIPTS_QUEST_BITS:; [$85e3]
[85e3].byte $01,$02,$04; [$85e3] byte

;============================================================================
; IScript action for marking a quest as complete.
;
; This will read the next byte as a quest bitmask value
; and set it.
;
; It will then invoke the following action.
;
; XREFS:
;     IScriptActions_L [$PRG12::8289]
;============================================================================
[85e6]IScriptAction_SetQuestComplete:; [$85e6]
[85e6]JSR IScripts_LoadByte; Load the next byte as the quest index into our table.
[85e9]TAX; X = result
[85ea]LDA a:Quests; Load the current player quests.
[85ed]ORA ISCRIPTS_QUEST_BITS-1,X; OR it with the bit for this index.
[85f0]STA a:Quests; Store as the new quests bitmask.
[85f3]JMP IScripts_InvokeNextAction; Invoke the next action.

;============================================================================
; IScript action for a conditional check based on a player title.
;
; This will read the next byte as a player title.
;
; If the player has reached that title, this will read
; the next 2-byte address and jump to the script at that
; location.
;
; If not, this will skip the 2 bytes and invoke the
; following action.
;
; XREFS:
;     IScriptActions_L [$PRG12::8287]
;============================================================================
[85f6]IScriptAction_IfPlayerHasTitle:; [$85f6]
[85f6]JSR IScripts_LoadByte; Load the next byte as the player title to check.
[85f9]CMP a:PlayerTitle; Compare to the current player title.
[85fc]BEQ IScripts_JumpToNextAddr; If <=, jump to the script address in the next argument.
[85fe]BCC IScripts_JumpToNextAddr
[8600]JMP IScripts_SkipAddrAndInvoke; Else, skip the address and invoke the next action.

;============================================================================
; Jump to the next address found in an IScript.
;
; This will read the next 2-byte address and jump to the
; script at that location.
;
; INPUTS:
;     None
;
; OUTPUTS:
;     None
;
; XREFS:
;     IScriptAction_CheckUpdatePlayerTitle
;     IScriptAction_IfPlayerHasGold
;     IScriptAction_IfPlayerHasItem
;     IScriptAction_IfPlayerHasTitle
;     IScriptAction_IfQuestCompleted
;     IScriptAction_Jump
;     IScriptAction_ShowBuySellMenu
;     IScriptAction_ShowQuestionMessageCheckIfDismissed
;============================================================================
[8603]IScripts_JumpToNextAddr:; [$8603]
;
; Load the next two event bytes and use that as the
; address for the next event to invoke.
;
; The logic here is doing a bit more than it has to.
; It loads the lower byte, push it, then pop it, then
; store it. It should just store it.
;
[8603]JSR IScripts_LoadByte; Load the next byte as the lower byte of the script address.
[8606]PHA; Push to the stack.
[8607]JSR IScripts_LoadByte; Load the next byte as the upper byte of the script address.
[860a]STA IScriptOrCHRAddr_U; Store it.
[860c]PLA; Pop the lower byte.
[860d]STA IScriptOrCHRAddr; Store it.
[860f]LDA #$00; A = 0.
[8611]STA IScriptOffset; Store as the new script offset.
[8613]JMP IScripts_InvokeNextAction; Invoke the action at that address

;============================================================================
; Skip the next 2-byte address and invoke the next IScript action.
;
; XREFS:
;     IScriptAction_CheckUpdatePlayerTitle
;     IScriptAction_IfPlayerHasGold
;     IScriptAction_IfPlayerHasItem
;     IScriptAction_IfPlayerHasTitle
;     IScriptAction_IfQuestCompleted
;     IScriptAction_ShowBuySellMenu
;     IScriptAction_ShowQuestionMessageCheckIfDismissed
;============================================================================
[8616]IScripts_SkipAddrAndInvoke:; [$8616]
[8616]JSR IScripts_LoadByte; Load 2 bytes and throw them out.
[8619]JSR IScripts_LoadByte
[861c]JMP IScripts_InvokeNextAction; Invoke the next action.

;============================================================================
; IScript action for a conditional check based on gold.
;
; If the player has any gold, the next 2-byte address will
; be read and this will jump to the script at that location.
;
; If the player has no gold, the next 2 bytes will be skipped
; and the following action will be invoked.
;
; XREFS:
;     IScriptActions_L [$PRG12::8288]
;============================================================================
[861f]IScriptAction_IfPlayerHasGold:; [$861f]
[861f]LDA a:Gold; Load the lower byte of the player's gold.
[8622]ORA a:Gold_M; OR with the medium byte.
[8625]ORA a:Gold_U; And the upper byte.
[8628]BNE @_hasGold; If there's any value set, jump.
[862a]JMP IScripts_SkipAddrAndInvoke; Else, skip the next 2 bytes and invoke the following action.

[862d]@_hasGold:; [$862d]
[862d]JMP IScripts_JumpToNextAddr; The player has gold, so jump to the next listed address.

;============================================================================
; IScript action for showing the Buy/Sell menu.
;
; This will first display the "Come here to buy or sell?"
; message. It'll listen for a choice.
;
; If the player chose "Buy", the next 2-byte address will
; be read from the script and this will jump to that
; address.
;
; If the player chose "Sell", this will skip the address
; and execute the next script action.
;
; XREFS:
;     IScriptActions_L [$PRG12::828a]
;============================================================================
[8630]IScriptAction_ShowBuySellMenu:; [$8630]
;
; Display the next "Come here to buy or sell?" message.
;
[8630]LDA #$10; 0x10 == "Did you come here to buy and sell?"
[8632]JSR IScripts_LoadAndShowMessage; Load and show that message in its entirety.


;
; Set 2 strings for the menu.
;
[8635]LDA #$02; Queue 2 strings to draw.
[8637]STA a:Arg_StringsCount; Set it.


;
; Set the start cursor position to Buy.
;
[863a]LDA #$00; Set the start cursor position to 0.
[863c]STA a:Menu_CursorPos


;
; Render the menu and wait for button changes.
;
[863f]@_loop:; [$863f]
[863f]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[8642]JSR Menu_UpdateAndDraw; Update and draw the menu.
[8645]LDA Joy1_ChangedButtonMask; Load the changed button mask.
[8647]BMI @_choiceMade; If the A button was pressed, jump.


;
; Check any button presses since the last iteration.
;
[8649]ASL A; Increment the bit to check in the button mask.
[864a]BPL @_loop; If any other button was pressed, loop.


;
; End the script.
;
[864c]JMP IScriptAction_EndScript


;
; Perform the next action based on the choice.
;
[864f]@_choiceMade:; [$864f]
[864f]LDA a:Menu_CursorPos; Check the cursor position.
[8652]BEQ IScripts_JumpToNextAddr; If it's the first item, jump to the next address in the script.
[8654]JMP IScripts_SkipAddrAndInvoke; Else, skip the address and invoke the next action.

;============================================================================
; IScript action for consuming a player's item.
;
; This will load the next byte as an inventory item type
; and remove it from the player's inventory.
;
; It will then invoke the next action in the script.
;
; XREFS:
;     IScriptActions_L [$PRG12::828b]
;============================================================================
[8657]IScriptAction_ConsumeItem:; [$8657]
[8657]JSR IScripts_LoadByte; Load the next byte as the item ID.
[865a]JSR Player_RemoveItem; Remove the item from the player's inventory.
[865d]JMP IScripts_InvokeNextAction; Invoke the next action.

;============================================================================
; TODO: Document IScriptAction_ShowSellMenu
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptActions_L [$PRG12::828c]
;============================================================================
[8660]IScriptAction_ShowSellMenu:; [$8660]
[8660]JSR IScripts_LoadByte
[8663]STA Temp_Int24
[8665]JSR IScripts_LoadByte
[8668]STA Temp_Int24_M
[866a]LDA #$00
[866c]STA a:Arg_StringsCount
[866f]LDX #$04

[8671]@LAB_PRG12__8671:; [$8671]
[8671]LDY NumberOfWeapons,X
[8674]BEQ @LAB_PRG12__86b7
[8676]TXA
[8677]PHA
[8678]JSR Player_GetInventoryBitForIndex
[867b]STA a:Maybe_Shop_InventoryBitmask
[867e]LDA INVENTORY_CATEGORY_L,X
[8681]STA Temp_Int24_U
[8683]LDA INVENTORY_CATEGORY_U,X
[8686]STA Maybe_Temp4
[8688]DEY

[8689]@LAB_PRG12__8689:; [$8689]
[8689]TYA
[868a]PHA
[868b]LDA (Temp_Int24_U),Y
[868d]ORA a:Maybe_Shop_InventoryBitmask
[8690]TAX
[8691]JSR IScripts_SellMenu_Something8704
[8694]BNE @LAB_PRG12__86b0
[8696]LDX a:Arg_StringsCount
[8699]STA DataArray,X
[869c]INY
[869d]LDA (Temp_Int24),Y
[869f]STA ShopItemCostsL,X
[86a2]INY
[86a3]LDA (Temp_Int24),Y
[86a5]LSR A
[86a6]ROR ShopItemCostsL,X
[86a9]STA ShopItemCostsU,X
[86ac]INX
[86ad]STX a:Arg_StringsCount

[86b0]@LAB_PRG12__86b0:; [$86b0]
[86b0]PLA
[86b1]TAY
[86b2]DEY
[86b3]BPL @LAB_PRG12__8689
[86b5]PLA
[86b6]TAX

[86b7]@LAB_PRG12__86b7:; [$86b7]
[86b7]INX
[86b8]CPX #$05
[86ba]BNE @LAB_PRG12__8671
[86bc]LDA a:Arg_StringsCount
[86bf]BNE @LAB_PRG12__86c6
[86c1]LDA #$12
[86c3]JMP IScripts_ShowFinalMessage

[86c6]@LAB_PRG12__86c6:; [$86c6]
[86c6]LDA #$13
[86c8]JSR Messages_Load

[86cb]@LAB_PRG12__86cb:; [$86cb]
[86cb]JSR IScripts_UpdatePortraitAnimation
[86ce]JSR TextBox_ShowNextChar
[86d1]JSR TextBox_CheckShouldContinueOrDismissMessage
[86d4]BCS @_endScript
[86d6]BNE @LAB_PRG12__86cb
[86d8]JSR Shop_Draw
[86db]JSR IScripts_WaitForMenuInput
[86de]BCS @_endScript
[86e0]LDX a:Menu_CursorPos
[86e3]LDA ShopItemCostsL,X
[86e6]STA a:Temp_0202
[86e9]LDA ShopItemCostsU,X
[86ec]STA a:Temp_0203
[86ef]LDA DataArray,X
[86f2]JSR Player_RemoveItem
[86f5]JSR IScripts_ProgressivelyAddGold
[86f8]JSR TextBox_Close
[86fb]JSR TextBox_OpenForNPC
[86fe]JMP IScripts_InvokeNextAction

[8701]@_endScript:; [$8701]
[8701]JMP IScriptAction_EndScript

;============================================================================
; TODO: Document IScripts_SellMenu_Something8704
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_ShowSellMenu
;============================================================================
[8704]IScripts_SellMenu_Something8704:; [$8704]
[8704]LDY #$00

[8706]@_loop:; [$8706]
[8706]LDA (Temp_Int24),Y
[8708]CMP #$ff
[870a]BEQ @LAB_PRG12__8716
[870c]TXA
[870d]CMP (Temp_Int24),Y
[870f]BEQ @_return
[8711]INY
[8712]INY
[8713]INY
[8714]BNE @_loop

[8716]@LAB_PRG12__8716:; [$8716]
[8716]TAX

[8717]@_return:; [$8717]
[8717]RTS

;============================================================================
; IScript Action $12: If Player Has Item.
;
; This will load the next byte as an inventory item type.
;
; If the player has the item, the next 2-byte address will
; be loaded and this will jump to that address.
;
; If the item is not in the inventory, the address will
; be skipped and the following action will be invoked.
;
; Script Parameters:
;
;     1. Item ID (1 byte)
;     2. Jump address (2 bytes)
;
; XREFS:
;     IScriptActions_L [$PRG12::828d]
;============================================================================
[8718]IScriptAction_IfPlayerHasItem:; [$8718]
[8718]JSR IScripts_LoadByte; Load the next byte as the item ID.
[871b]JSR Player_LacksItem; Check if the player lacks this item.
[871e]BCC @_invokeElse; If they have it, jump.


;
; The player does not have the item.
;
[8720]JMP IScripts_SkipAddrAndInvoke; Skip the next 2 bytes and invoke the following action.


;
; The player has the item.
;
[8723]@_invokeElse:; [$8723]
[8723]JMP IScripts_JumpToNextAddr; Jump to the next address in the script.

;============================================================================
; IScript Action $04: Check and Update Player Title
;
; If the player was eligible for a new title, their title
; will be increased and the next 2-byte address in the
; script be loaded and this will jump to that address.
;
; If not, the address will be skipped and the next action
; will be invoked.
;
; Script Parameters:
;
;     1. If-Updated Jump Address (2 bytes)
;
; XREFS:
;     IScriptActions_L [$PRG12::827f]
;============================================================================
[8726]IScriptAction_CheckUpdatePlayerTitle:; [$8726]
[8726]LDA a:NextPlayerTitle; Load the next player title.
[8729]CMP a:PlayerTitle; Compare against the current title.
[872c]BEQ @_invokeElse; If they're the same, jump.


;
; The player title is not a match. Update it.
;
[872e]STA a:PlayerTitle; Advance the player title.
[8731]JMP IScripts_JumpToNextAddr; Read the next 2 bytes as an address and jump to it.


;
; The player already has that title.
;
[8734]@_invokeElse:; [$8734]
[8734]JMP IScripts_SkipAddrAndInvoke; Skip the next 2 bytes and invoke the following action.

;============================================================================
; IScript Action $14: Show Password
;
; This is used when interacting with Gurus. The current
; state of the game will be encoded as a password and
; displayed.
;
; Script Parameters:
;     None.
;
; XREFS:
;     IScriptActions_L [$PRG12::828f]
;============================================================================
[8737]IScriptAction_ShowPassword:; [$8737]
[8737]JSR Password_GenerateStateAndReset; Generate the password state.
[873a]JSR TextBox_ClearPasswordSize; Clear the textbox.
[873d]LDA #$00
[873f]STA a:IScripts_Unused_207; DEADCODE: Set to 0.

[8742]@_charLoop:; [$8742]
[8742]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[8745]JSR PasswordScreen_ShowNextChar; Show the next character in the password.
[8748]BCC @_charLoop; If not done, loop.

[874a]@_portraitLoop:; [$874a]
[874a]JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[874d]JSR TextBox_DrawUpArrowTerminatorSymbol; Draw the Up Arrow in the textbox.
[8750]LDA Joy1_ChangedButtonMask; A = Changed button mask
[8752]BPL @_portraitLoop; If not dismissed, loop.
[8754]JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; Show the next character of a password.
;
; This will fetch the next 6 bits of a password and look
; that up in the character display lookup table.
;
; INPUTS:
;     PASSWORD_ENTERED_CHARS
;         The lookup table of characters.
;
; OUTPUTS:
;     C:
;         1 if finished with the password.
;         0 if there are characters remaining.
;
; CALLS:
;     Password_GetNext6Bits
;     TextBox_ShowMessage
;
; XREFS:
;     IScriptAction_ShowPassword
;============================================================================
[8757]PasswordScreen_ShowNextChar:; [$8757]
[8757]JSR Password_GetNext6Bits; Get the next 6 bits of password state for the character offset.
[875a]PHP; Push flags to stack.
[875b]TAY; Y = A (index)
[875c]LDA PASSWORD_ENTERED_CHARS,Y; A = character at index Y
[875f]JSR TextBox_ShowMessage; Show the character in the textbox.
[8762]PLP; Pop flags.
[8763]RTS


;============================================================================
; List of password characters by index.
;
; XREFS:
;     PasswordScreen_DrawAtCursorPosition
;     PasswordScreen_ShowNextChar
;============================================================================

;
; XREFS:
;     PasswordScreen_DrawAtCursorPosition
;     PasswordScreen_ShowNextChar
;
[8764]PASSWORD_ENTERED_CHARS:; [$8764]
[8764].byte "ABCDEFGH"; [$8764] char
[876c].byte "IJKLMNOP"; [$876c] char
[8774].byte "QRSTUVWX"; [$8774] char
[877c].byte "YZabcdef"; [$877c] char
[8784].byte "ghijklmn"; [$8784] char
[878c].byte "opqrstuv"; [$878c] char
[8794].byte "wxyz0123"; [$8794] char
[879c].byte "456789,?"; [$879c] char

;============================================================================
; Load the next byte from the IScript.
;
; This will load the byte and update the offset.
;
; If the offset wraps around from 0xFF to 0, the upper
; bound of the address will wrap.
;
; INPUTS:
;     IScriptOrCHRAddr:
;         The start address of the script to read from.
;
;     IScriptOffset:
;         The offset within the script.
;
; OUTPUTS:
;     A:
;         The resulting byte.
;
; XREFS:
;     IScriptAction_AddGold
;     IScriptAction_AddHP
;     IScriptAction_AddInventoryItem
;     IScriptAction_AddMP
;     IScriptAction_ConsumeItem
;     IScriptAction_IfPlayerHasItem
;     IScriptAction_IfPlayerHasTitle
;     IScriptAction_IfQuestCompleted
;     IScriptAction_OpenShop
;     IScriptAction_SetQuestComplete
;     IScriptAction_SetSpawnPoint
;     IScriptAction_ShowMessage
;     IScriptAction_ShowQuestionMessage
;     IScriptAction_ShowQuestionMessageCheckIfDismissed
;     IScriptAction_ShowSellMenu
;     IScriptAction_ShowUnskippableMessage
;     IScriptAction_SpendGold
;     IScripts_InvokeNextAction
;     IScripts_JumpToNextAddr
;     IScripts_SkipAddrAndInvoke
;============================================================================
[87a4]IScripts_LoadByte:; [$87a4]
[87a4]LDY IScriptOffset; Y = current event offset
[87a6]LDA (IScriptOrCHRAddr),Y; A = byte in the script at the offset
[87a8]INY; Y++
[87a9]BNE @_incOffset; If byte is not 0, update event and return.


;
; The offset wrapped from 0xFF to 0. Update the upper byte
; of the script address for the next read.
;
[87ab]INC IScriptOrCHRAddr_U; Increment the address

[87ad]@_incOffset:; [$87ad]
[87ad]STY IScriptOffset; Set new offset

;
; XREFS:
;     IScripts_UpdatePortraitAnimation
;
[87af]RETURN_87AF:; [$87af]
[87af]RTS