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

.segment "PRG12"
.reloc

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


;
; Check if there's a portrait shown.
;
[81cf]ad 01 02LDA a:Temp_0201; Load the portrait ID from the IScript.
[81d2]30 08BMI @_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]a0 06LDY #$06; Textbox Y = 6
[81d6]a5 a1LDA Player_PosY; Check the player's Y position.
[81d8]c9 40CMP #$40; Is it >= 64?
[81da]b0 02BCS @_setYAndReturn; If so, jump to return.

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

[81de]@_setYAndReturn:
[81de]8c 09 02STY a:TextBox_Y; Set the textbox Y position.
[81e1]60RTS

;============================================================================
; 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]20 c0 81JSR TextBox_SetCoordsForNPC; Set textbox coordinates for an NPC dialogue.
[81e5]20 f1 8eJSR 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:
;
; Set the X position for text within the textbox.
;
[81e8]ad 08 02LDA a:TextBox_X; Load the textbox X.
[81eb]18CLC
[81ec]69 02ADC #$02; Add 2.
[81ee]85 eaSTA TextBox_ContentsX; Set as the text draw X position.


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


;
; Fill with placeholder text.
;
[81f8]4c 10 99JMP 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]20 c0 81JSR TextBox_SetCoordsForNPC; Set textbox coordinates for an NPC dialogue.
[81fe]4c 02 90JMP 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]a9 02LDA #$02
[8203]8d 08 02STA a:TextBox_X; X = 2
[8206]a9 0eLDA #$0e
[8208]8d 09 02STA a:TextBox_Y; Y = 14
[820b]a9 08LDA #$08
[820d]8d 0a 02STA a:TextBox_Width; Width = 8
[8210]a9 0aLDA #$0a
[8212]8d 0b 02STA a:TextBox_Height; Height = 10
[8215]60RTS

;============================================================================
; 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]a2 18LDX #$18
[8218]86 27STX Arg_DrawSprite_PosX; Draw X = 24
[821a]a2 58LDX #$58
[821c]86 28STX Arg_DrawSprite_PosY; Draw Y = 88
[821e]60RTS

;============================================================================
; 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]20 01 82JSR TextBox_SetCoordsForPortrait; Set textbox coordinates for the portrait.
[8222]4c f1 8eJMP TextBox_Open; Open the textbox.

;============================================================================
; DEADCODE: Close a portrait textbox.
;============================================================================
[8225]DEADCODE_TextBox_ClosePortrait:
[8225]20 01 82JSR TextBox_SetCoordsForPortrait
[8228]4c 02 90JMP 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.
;
; NOTE:
;     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]a9 02LDA #$02
[822d]8d 08 02STA a:TextBox_X; X = 2
[8230]a9 08LDA #$08
[8232]8d 09 02STA a:TextBox_Y; Y = 8
[8235]a9 1eLDA #$1e
[8237]8d 0a 02STA a:TextBox_Width; Width = 30
[823a]a9 14LDA #$14
[823c]8d 0b 02STA a:TextBox_Height; Height = 20
[823f]4c 02 90JMP 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:
;
; If this is 0xFF, map to the "Remember Your Mantra."
;
[8242]c9 ffCMP #$ff; Compare the start offset to 0xFF.
[8244]d0 02BNE @_loadScript; If equal, jump.
[8246]a9 1fLDA #$1f; Set the start offset to 0x1F.


;
; Load the script address from the table.
;
[8248]@_loadScript:
[8248]8d 00 02STA a:Temp_0200; Store the index temporarily.
[824b]aaTAX; X = A
[824c]bd 6b 9fLDA a:ISCRIPT_ADDRS_L,X; Load the lower byte of the IScript address.
[824f]85 dbSTA IScriptOrCHRAddr; Store as the lower byte.
[8251]bd 03 a0LDA a:ISCRIPT_ADDRS_U,X; Load the upper byte of the IScript address.
[8254]85 dcSTA IScriptOrCHRAddr_U; Store as the upper byte.
[8256]a0 00LDY #$00; Y = 0 (start offset in the script).
[8258]b1 dbLDA (IScriptOrCHRAddr),Y; Load the first byte of the script (portrait ID).
[825a]8d 01 02STA a:Temp_0201; Store it for the duration of the script.
[825d]10 08BPL @_continueScript; If not a portrait ID, jump.


;
; Begin showing the portrait information.
;
[825f]29 7fAND #$7f; Keep the portrait ID bits.
[8261]20 4d f2JSR IScripts_LoadPortraitTiles; Draw the portrait image.
[8264]20 1f 82JSR IScripts_OpenForPortrait; Draw the portrait frame.

[8267]@_continueScript:
[8267]20 e2 81JSR TextBox_OpenForNPC; Open the text window.
[826a]a9 01LDA #$01
[826c]85 ddSTA 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]20 a4 87JSR IScripts_LoadByte; Load the script ID
[8271]aaTAX; Store the byte in X and load from the offset table.
[8272]bd 93 82LDA a:IScriptActions_U,X; Fetch the upper script offset
[8275]48PHA; Push the upper offset to the stack
[8276]bd 7b 82LDA a:IScriptActions_L,X; Fetch the lower script offset
[8279]48PHA; Push the lower offset to the stack
[827a]60RTS


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

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

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

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

;
; XREFS:
;     IScripts_InvokeNextAction
;
[8294]IScriptActions_U_1_:
[8294]82.byte $82; [1]: Show Unskippable Message action
[8295]82.byte $82; [2]: Show Question Message action
[8296]82.byte $82; [3]: Show Message action
[8297]87.byte $87; [4]: Check/Update Player Title action
[8298]83.byte $83; [5]: Spend Gold action
[8299]83.byte $83; [6]: Set Spawn Point action
[829a]83.byte $83; [7]: Add Inventory Item action
[829b]83.byte $83; [8]: Open Shop action
[829c]85.byte $85; [9]: Add Gold action
[829d]85.byte $85; [10]: Add MP action
[829e]85.byte $85; [11]: If Quest Completed action
[829f]85.byte $85; [12]: If Player Has Title action
[82a0]86.byte $86; [13]: If Player Has Gold action
[82a1]85.byte $85; [14]: Set Quest Complete action
[82a2]86.byte $86; [15]: Show Buy/Sell Menu action
[82a3]86.byte $86; [16]: Consume Item action
[82a4]86.byte $86; [17]: Show Sell Menu action
[82a5]87.byte $87; [18]: If Player Has Item action
[82a6]85.byte $85; [19]: Add HP action
[82a7]87.byte $87; [20]: Show Password action
[82a8]82.byte $82; [21]: Finish Game action
[82a9]83.byte $83; [22]: Show Message and If Dismissed action
[82aa]82.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]4c 03 86JMP 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]20 32 a9JSR SplashAnimation_RunOutro; Show the outro animation.
[82b1]4c 13 c9JMP 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]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82b7]ad 01 02LDA a:Temp_0201; Load the portrait ID.
[82ba]10 06BPL @_noPortrait; If a portrait ID is not set, jump.
[82bc]20 81 f2JSR IScripts_ClearPortraitImage; Clear the portrait image.
[82bf]4c 2b 82JMP TextBox_ClearForPortraitAndText; Clear the portrait frame.

[82c2]@_noPortrait:
[82c2]4c fb 81JMP 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:
;
; Load the message to display.
;
[82c5]20 a4 87JSR IScripts_LoadByte; Load the next byte as the message ID.
[82c8]20 f5 f3JSR Messages_Load; Load the message.


;
; Draw the characters one-by-one until the message is done.
;
[82cb]@_loop:
[82cb]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82ce]20 66 f4JSR TextBox_ShowNextChar; Draw the next character in the textbox.
[82d1]20 2a 99JSR TextBox_CheckShouldContinue; Check if the message should continue.
[82d4]90 f5BCC @_loop; If so, loop.


;
; Done showing the textbox. Invoke the next action.
;
[82d6]4c 6e 82JMP 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:
;
; Load the message to display.
;
[82d9]20 a4 87JSR IScripts_LoadByte; Load the next byte as the message ID.
[82dc]20 f5 f3JSR Messages_Load; Load the message.


;
; Draw the characters one-by-one until the message is done.
;
[82df]@_writeLoop:
[82df]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82e2]20 66 f4JSR TextBox_ShowNextChar; Draw the next character in the textbox.
[82e5]20 56 99JSR TextBox_CheckShouldContinueOrDismissMessage; Check if the message is done or continued.


;
; Check if the player has dismissed the message by pressing B,
; or if the message has finished.
;
[82e8]b0 caBCS IScriptAction_EndScript; If dismissed (C=1), end the script.
[82ea]d0 f3BNE @_writeLoop; If not done writing (Z=1), loop.


;
; Done showing the textbox. Invoke the next action.
;
[82ec]4c 6e 82JMP 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]20 a4 87JSR IScripts_LoadByte; Load the message ID parameer.
[82f2]20 f5 f3JSR Messages_Load; Load the message string.

[82f5]@_messageLoop:
[82f5]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[82f8]20 66 f4JSR TextBox_ShowNextChar; Show the next character in the textbox.
[82fb]20 80 99JSR TextBox_CheckShouldContinueOrDismissQuestion; Check whether to continue or dismiss.
[82fe]b0 b4BCS IScriptAction_EndScript; If dismissed (C=1), end the script.
[8300]d0 f3BNE @_messageLoop; Else, if message text remains (Z=1), loop.


;
; The message finished. Fill up the textbox with hidden
; placeholder text and move on to the next action.
;
[8302]20 e8 81JSR IScripts_PositionAndFillPlaceholderText
[8305]4c 6e 82JMP 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]20 a4 87JSR IScripts_LoadByte; Load the message ID parameer.
[830b]20 f5 f3JSR Messages_Load; Load the message string.

[830e]@_messageLoop:
[830e]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[8311]20 66 f4JSR TextBox_ShowNextChar; Show the next character in the textbox.
[8314]20 80 99JSR TextBox_CheckShouldContinueOrDismissQuestion; Check whether to continue or dismiss.
[8317]b0 05BCS @_messageDismissed; If dismissed (C=1), jump to continue this script.
[8319]d0 f3BNE @_messageLoop; Else, if message text remains (Z=1), loop.


;
; The message finished. Load the next parameter as an
; address and jump to it.
;
[831b]4c 03 86JMP 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]4c 16 86JMP 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]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[8324]ad 03 02LDA a:Temp_0203; Load the upper byte of the gold amount.
[8327]30 2cBMI @_subtractLowerByte; If the upper byte is 0, jump.
[8329]0d 02 02ORA a:Temp_0202; OR with the lower byte.
[832c]f0 1fBEQ @_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]ad 02 02LDA a:Temp_0202; Load the lower byte of gold.
[8331]38SEC
[8332]e9 0aSBC #$0a; Subtract 10.
[8334]8d 02 02STA a:Temp_0202; And store as the lower byte.
[8337]ad 03 02LDA a:Temp_0203; Load the upper byte of gold.
[833a]e9 00SBC #$00; If the lower is now < 0, subtract 1 from upper.
[833c]8d 03 02STA a:Temp_0203; And store it.


;
; Remove 10 gold from the player.
;
[833f]a9 0aLDA #$0a; A = 10
[8341]85 ecSTA Temp_Int24; Store as the lower byte to subtract.
[8343]a9 00LDA #$00; A = 0
[8345]85 edSTA Temp_Int24_M; Store as the upper byte to subtract.
[8347]20 a5 f9JSR Player_SubtractGold; Subtract the gold from the player.
[834a]4c 21 83JMP IScripts_ProgressivelySubtractGold; And loop.

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

[8355]@_subtractLowerByte:
[8355]ce 02 02DEC a:Temp_0202; Subtract 1 from the lower byte.
[8358]d0 c7BNE IScripts_ProgressivelySubtractGold; If not 0, loop.
[835a]60RTS; 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:
;
; Load the gold amount parameters for the script.
;
[835b]20 a4 87JSR IScripts_LoadByte; Load the lower byte of the gold amount.
[835e]8d 02 02STA a:Temp_0202; Store it.
[8361]20 a4 87JSR IScripts_LoadByte; Load the upper byte of the gold amount.
[8364]8d 03 02STA a:Temp_0203; Store it
[8367]ad 02 02LDA a:Temp_0202; Load the lower byte again.
[836a]85 ecSTA Temp_Int24; Store it in Temp_Int24 for comparison.
[836c]ad 03 02LDA a:Temp_0203; Lower the upper byte again.
[836f]85 edSTA 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]20 dc 87JSR IScripts_CheckEnoughMoney; Check if there's enough money to pay.
[8374]90 06BCC IScripts_ShowNotEnoughMoney; If not, show the Not Enough Money message.
[8376]20 21 83JSR IScripts_ProgressivelySubtractGold; Progressively subtract the gold, animating it.
[8379]4c 6e 82JMP 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:
;
; Display the Not Enough Money message.
;
[837c]a9 03LDA #$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]20 f5 f3JSR Messages_Load; Load the message string.


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

[838e]@_endScript:
[838e]4c b4 82JMP 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]20 a4 87JSR IScripts_LoadByte; Load the temple/area ID.
[8394]cd 39 04CMP a:TempleSpawnPoint; Compare against the current spawn point.
[8397]90 03BCC @_nextAction; If the older spawn point is further in the game, don't update.
[8399]8d 39 04STA a:TempleSpawnPoint; Else, set the new spawn point.

[839c]@_nextAction:
[839c]4c 6e 82JMP 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]20 a4 87JSR IScripts_LoadByte; Load the item ID parameter.
[83a2]48PHA; Push to the stack, twice.
[83a3]48PHA
[83a4]20 f7 9aJSR 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]20 c1 8eJSR IScriptAction_AddInventoryItem_ClearTextBox; Clear the textbox and prepare for showing the item.
[83aa]ae 08 02LDX a:TextBox_X; X = Textbox X location.
[83ad]e8INX; X += 2
[83ae]e8INX
[83af]86 eaSTX TextBox_ContentsX; Store as the text X position.
[83b1]ae 09 02LDX a:TextBox_Y; X = Textbox Y position.
[83b4]e8INX; X += 2
[83b5]e8INX
[83b6]86 ebSTX TextBox_ContentsY; Store as the text Y position.


;
; Draw the item image and name in the textbox.
;
[83b8]68PLA; Pull the item ID from the stack.
[83b9]a2 00LDX #$00; X = 0
[83bb]20 58 8cJSR TextBox_DrawItemImage; Draw the item image.
[83be]e6 ebINC TextBox_ContentsY; Text Y position += 3
[83c0]e6 ebINC TextBox_ContentsY
[83c2]e6 ebINC TextBox_ContentsY
[83c4]68PLA; Pull the item ID from the stack.
[83c5]20 36 8cJSR TextBox_DrawItemName; Draw the item name.


;
; Update any portrait and textbox terminators until a
; button is pressed.
;
[83c8]@_textboxLoop:
[83c8]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[83cb]20 be 99JSR TextBox_DrawUpArrowTerminatorSymbol; Draw the Up arrow terminator symbol.
[83ce]a5 19LDA Joy1_ChangedButtonMask; Load any changed controller buttons.
[83d0]10 f6BPL @_textboxLoop; If not pressed, loop.


;
; Prepare to clear out the textbox and then invoke the next
; action in the script.
;
[83d2]20 e8 81JSR IScripts_PositionAndFillPlaceholderText; Fill the textbox with invisible placeholder text.
[83d5]4c 6e 82JMP 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]a9 14LDA #$14; "What would you like?"
[83da]20 f5 f3JSR Messages_Load; Load the message.

[83dd]@LAB_PRG12__83dd:
[83dd]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[83e0]20 66 f4JSR TextBox_ShowNextChar; Show the next character in the textbox.
[83e3]20 56 99JSR TextBox_CheckShouldContinueOrDismissMessage; Check whether to continue displaying the message or if the user pressed to dismiss.
[83e6]b0 17BCS @_endScript; If they pressed to dismiss, end the script.
[83e8]d0 f3BNE @LAB_PRG12__83dd
[83ea]20 a4 87JSR IScripts_LoadByte
[83ed]85 ecSTA Temp_Int24; Probably shop inventory table
[83ef]20 a4 87JSR IScripts_LoadByte
[83f2]85 edSTA Temp_Int24_M
[83f4]20 01 85JSR Shop_Populate
[83f7]20 f8 99JSR Shop_Draw
[83fa]20 ed 84JSR IScripts_WaitForMenuInput
[83fd]90 03BCC @LAB_PRG12__8402

[83ff]@_endScript:
[83ff]4c b4 82JMP IScriptAction_EndScript

[8402]@LAB_PRG12__8402:
[8402]20 82 84JSR Shop_GetPlayerHasSelectedItem
[8405]b0 62BCS @LAB_PRG12__8469
[8407]ae 1e 02LDX a:Menu_CursorPos
[840a]bd 20 02LDA a:DataArray,X
[840d]c9 80CMP #$80
[840f]f0 28BEQ @LAB_PRG12__8439
[8411]c9 81CMP #$81
[8413]f0 24BEQ @LAB_PRG12__8439
[8415]c9 82CMP #$82
[8417]f0 20BEQ @LAB_PRG12__8439
[8419]c9 83CMP #$83
[841b]f0 1cBEQ @LAB_PRG12__8439
[841d]c9 92CMP #$92
[841f]f0 18BEQ @LAB_PRG12__8439
[8421]c9 8aCMP #$8a
[8423]f0 14BEQ @LAB_PRG12__8439
[8425]c9 93CMP #$93
[8427]f0 10BEQ @LAB_PRG12__8439
[8429]c9 94CMP #$94
[842b]f0 0cBEQ @LAB_PRG12__8439
[842d]20 85 f7JSR Player_GetInventoryIndexForItem
[8430]aaTAX
[8431]bd c2 03LDA a:NumberOfWeapons,X; Number of weapons in the player's inventory.
[8434]dd 7d 84CMP a:MAX_INVENTORY_SLOTS,X
[8437]f0 30BEQ @LAB_PRG12__8469

[8439]@LAB_PRG12__8439:
[8439]ae 1e 02LDX a:Menu_CursorPos
[843c]bd 28 02LDA a:ShopItemCostsL,X
[843f]85 ecSTA Temp_Int24
[8441]8d 02 02STA a:Temp_0202
[8444]bd 30 02LDA a:ShopItemCostsU,X
[8447]85 edSTA Temp_Int24_M
[8449]8d 03 02STA a:Temp_0203
[844c]20 dc 87JSR IScripts_CheckEnoughMoney
[844f]b0 06BCS @LAB_PRG12__8457
[8451]20 71 84JSR Maybe_Shop_DrawTextBox
[8454]4c 7c 83JMP IScripts_ShowNotEnoughMoney

[8457]@LAB_PRG12__8457:
[8457]ae 1e 02LDX a:Menu_CursorPos
[845a]bd 20 02LDA a:DataArray,X
[845d]20 f7 9aJSR Player_AddToInventory
[8460]20 21 83JSR IScripts_ProgressivelySubtractGold
[8463]20 71 84JSR Maybe_Shop_DrawTextBox
[8466]4c 6e 82JMP IScripts_InvokeNextAction

[8469]@LAB_PRG12__8469:
[8469]20 71 84JSR Maybe_Shop_DrawTextBox
[846c]a9 06LDA #$06
[846e]4c 7e 83JMP IScripts_ShowFinalMessage

;============================================================================
; TODO: Document Maybe_Shop_DrawTextBox
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_OpenShop
;============================================================================
[8471]Maybe_Shop_DrawTextBox:
[8471]20 b0 87JSR IScripts_UpdatePortraitAnimation
[8474]20 b0 87JSR IScripts_UpdatePortraitAnimation
[8477]20 02 90JSR TextBox_Close
[847a]4c e2 81JMP TextBox_OpenForNPC

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

;============================================================================
; TODO: Document Shop_GetPlayerHasSelectedItem
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     C
;
; XREFS:
;     IScriptAction_OpenShop
;============================================================================
[8482]Shop_GetPlayerHasSelectedItem:
[8482]ae 1e 02LDX a:Menu_CursorPos
[8485]bd 20 02LDA a:DataArray,X
[8488]10 35BPL @LAB_PRG12__84bf
[848a]a2 00LDX #$00
[848c]c9 80CMP #$80
[848e]f0 25BEQ @LAB_PRG12__84b5
[8490]e8INX
[8491]c9 81CMP #$81
[8493]f0 20BEQ @LAB_PRG12__84b5
[8495]e8INX
[8496]c9 82CMP #$82
[8498]f0 1bBEQ @LAB_PRG12__84b5
[849a]e8INX
[849b]c9 83CMP #$83
[849d]f0 16BEQ @LAB_PRG12__84b5
[849f]e8INX
[84a0]c9 92CMP #$92
[84a2]f0 11BEQ @LAB_PRG12__84b5
[84a4]e8INX
[84a5]c9 8aCMP #$8a
[84a7]f0 0cBEQ @LAB_PRG12__84b5
[84a9]e8INX
[84aa]c9 93CMP #$93
[84ac]f0 07BEQ @LAB_PRG12__84b5
[84ae]e8INX
[84af]c9 94CMP #$94
[84b1]f0 02BEQ @LAB_PRG12__84b5

[84b3]@LAB_PRG12__84b3:
[84b3]18CLC
[84b4]60RTS

[84b5]@LAB_PRG12__84b5:
[84b5]ad 2c 04LDA a:SpecialItems
[84b8]3d e5 84AND a:BYTE_ARRAY_PRG12__84e5,X
[84bb]f0 f6BEQ @LAB_PRG12__84b3

[84bd]@LAB_PRG12__84bd:
[84bd]38SEC
[84be]60RTS

[84bf]@LAB_PRG12__84bf:
[84bf]48PHA
[84c0]20 85 f7JSR Player_GetInventoryIndexForItem
[84c3]aaTAX
[84c4]bd 29 9bLDA a:INVENTORY_CATEGORY_L,X
[84c7]85 ecSTA Temp_Int24
[84c9]bd 2e 9bLDA a:INVENTORY_CATEGORY_U,X
[84cc]85 edSTA Temp_Int24_M
[84ce]68PLA
[84cf]29 1fAND #$1f
[84d1]dd bd 03CMP a:SelectedWeapon,X
[84d4]f0 e7BEQ @LAB_PRG12__84bd
[84d6]bc c2 03LDY a:NumberOfWeapons,X
[84d9]f0 d8BEQ @LAB_PRG12__84b3
[84db]88DEY

[84dc]@LAB_PRG12__84dc:
[84dc]d1 ecCMP (Temp_Int24),Y
[84de]f0 ddBEQ @LAB_PRG12__84bd
[84e0]88DEY
[84e1]10 f9BPL @LAB_PRG12__84dc
[84e3]18CLC
[84e4]60RTS

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

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

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

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

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

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

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

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

;============================================================================
; TODO: Document IScripts_WaitForMenuInput
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     C
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_ShowSellMenu
;     IScripts_WaitForMenuInput
;============================================================================
[84ed]IScripts_WaitForMenuInput:
[84ed]20 b0 87JSR IScripts_UpdatePortraitAnimation; Update the portrait animation.
[84f0]20 56 90JSR Menu_UpdateAndDraw; Update and draw the menu.
[84f3]a5 19LDA Joy1_ChangedButtonMask; Load the controller 1 button mask.
[84f5]30 06BMI @_returnFalse; If "A" is pressed, jump to return false.
[84f7]0aASL A; Shift "B" into bit 7.
[84f8]30 05BMI @_returnTrue; If "B" is pressed, jump to return true.
[84fa]4c ed 84JMP IScripts_WaitForMenuInput; Loop.

[84fd]@_returnFalse:
[84fd]18CLC
[84fe]60RTS

[84ff]@_returnTrue:
[84ff]38SEC
[8500]60RTS

;============================================================================
; 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]a0 00LDY #$00; Y = 0 (loop counter)
[8503]a2 00LDX #$00; X = 0 (menu position counter)
[8505]8e 1e 02STX a:Menu_CursorPos; Cusor position = 0


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


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


;
; Store the item.
;
[850e]9d 20 02STA a:DataArray,X; Store the item in the menu.
[8511]c8INY; Y++


;
; Store the cost.
;
[8512]b1 ecLDA (Temp_Int24),Y; Load the lower byte of the item cost.
[8514]9d 28 02STA a:ShopItemCostsL,X; Store it.
[8517]c8INY; Y++
[8518]b1 ecLDA (Temp_Int24),Y; Load the upper byte of the item cost.
[851a]9d 30 02STA a:ShopItemCostsU,X; Store it.


;
; Increment our counters.
;
[851d]c8INY; Y++
[851e]e8INX; X++
[851f]d0 e7BNE @_populateLoop; If we're not done, loop.

[8521]@_finish:
[8521]8e 1f 02STX a:Arg_StringsCount; Set the last menu position.
[8524]60RTS

;============================================================================
; 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]20 a4 87JSR IScripts_LoadByte; Load the lower byte for the gold amount.
[8528]8d 02 02STA a:Temp_0202; Store it.
[852b]20 a4 87JSR IScripts_LoadByte; Load the upper byte for the gold amount.
[852e]8d 03 02STA a:Temp_0203; Store it.
[8531]20 37 85JSR IScripts_ProgressivelyAddGold; Progressively add gold.
[8534]4c 6e 82JMP 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]20 b0 87JSR IScripts_UpdatePortraitAnimation
[853a]ad 03 02LDA a:Temp_0203
[853d]30 2fBMI @LAB_PRG12__856e
[853f]0d 02 02ORA a:Temp_0202
[8542]f0 22BEQ @LAB_PRG12__8566
[8544]20 74 85JSR IScripts_PlayGoldChangeSound
[8547]ad 02 02LDA a:Temp_0202
[854a]38SEC
[854b]e9 0aSBC #$0a
[854d]8d 02 02STA a:Temp_0202
[8550]ad 03 02LDA a:Temp_0203
[8553]e9 00SBC #$00
[8555]8d 03 02STA a:Temp_0203
[8558]a9 0aLDA #$0a
[855a]85 ecSTA Temp_Int24
[855c]a9 00LDA #$00
[855e]85 edSTA Temp_Int24_M
[8560]20 c1 f9JSR Player_AddGold
[8563]4c 37 85JMP IScripts_ProgressivelyAddGold

[8566]@LAB_PRG12__8566:
[8566]ce 03 02DEC a:Temp_0203
[8569]a9 3cLDA #$3c
[856b]8d 02 02STA a:Temp_0202

[856e]@LAB_PRG12__856e:
[856e]ce 02 02DEC a:Temp_0202
[8571]d0 c4BNE IScripts_ProgressivelyAddGold
[8573]60RTS

;============================================================================
; 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]a5 1aLDA InterruptCounter; Load the interrupt counter.
[8576]29 03AND #$03; Check if we're ready to play a sound.
[8578]d0 05BNE @_return; If not, return.


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

[857f]@_return:
[857f]60RTS

;============================================================================
; 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]20 a4 87JSR IScripts_LoadByte; Load the MP amount from the script.
[8583]8d 06 02STA a:IScript_HPOrMPValueToAdd; Store in the variable to fill MP up to.
[8586]ad 9a 03LDA a:Player_MP; Load the currently-added MP value we're filling from.
[8589]c9 50CMP #$50; Compare to the cap.
[858b]b0 13BCS thunk_IScripts_InvokeNextAction; If at or over, we're done. Jump to invoke the next action.

[858d]@_fillLoop:
[858d]20 b0 87JSR IScripts_UpdatePortraitAnimation
[8590]20 a3 85JSR IScripts_PlayFillingSound; Play the sound for filling a bit of MP.
[8593]ae 9a 03LDX a:Player_MP; X = Remaining value to add.
[8596]e8INX; X++
[8597]8aTXA; A = X
[8598]20 85 faJSR Player_SetMP; Set the current mana points.
[859b]ce 06 02DEC a:IScript_HPOrMPValueToAdd; Decrement the remaining value to add.
[859e]d0 edBNE @_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]4c 6e 82JMP 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]a5 1aLDA InterruptCounter
[85a5]29 03AND #$03
[85a7]d0 05BNE RETURN_85AE
[85a9]a9 13LDA #$13
[85ab]20 e4 d0JSR Sound_PlayEffect

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

;============================================================================
; 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]20 a4 87JSR IScripts_LoadByte; Load the HP value to add.
[85b2]8d 06 02STA a:IScript_HPOrMPValueToAdd; Store in the variable to fill HP up to.
[85b5]ad 99 03LDA a:Temp_AddedHPValue; Load the currently-added HP value we're filling from.
[85b8]c9 50CMP #$50; Compare against the cap of 80.
[85ba]b0 e4BCS thunk_IScripts_InvokeNextAction; If over, we're done. Invoke the next action.

[85bc]@_fillLoop:
[85bc]20 b0 87JSR IScripts_UpdatePortraitAnimation
[85bf]20 a3 85JSR IScripts_PlayFillingSound; Play the sound for filling a bit of HP.
[85c2]ae 99 03LDX a:Temp_AddedHPValue; X = Remaining value to add
[85c5]e8INX; X++
[85c6]8aTXA; A = X
[85c7]20 75 faJSR UI_DrawPlayerHPValue; Draw the next bit of health.
[85ca]ce 06 02DEC a:IScript_HPOrMPValueToAdd; Decrement the remaining amount to add.
[85cd]d0 edBNE @_fillLoop; If there's more to add, loop.
[85cf]f0 cfBEQ 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]20 a4 87JSR IScripts_LoadByte; Load the next byte as the quest index into our table.
[85d4]aaTAX; X = result
[85d5]ad 2d 04LDA a:Quests; Load the current player quests.
[85d8]3d e2 85AND a:ISCRIPTS_QUEST_BITS-1,X; AND it to the bitmask at the given index.
[85db]d0 03BNE @_hasQuestCompleted
[85dd]4c 16 86JMP IScripts_SkipAddrAndInvoke; Skip 2 bytes and invoke the following action.

[85e0]@_hasQuestCompleted:
[85e0]4c 03 86JMP IScripts_JumpToNextAddr

[85e3]ISCRIPTS_QUEST_BITS:
[85e3]01 02 04.byte $01,$02,$04; 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]20 a4 87JSR IScripts_LoadByte; Load the next byte as the quest index into our table.
[85e9]aaTAX; X = result
[85ea]ad 2d 04LDA a:Quests; Load the current player quests.
[85ed]1d e2 85ORA a:ISCRIPTS_QUEST_BITS-1,X; OR it with the bit for this index.
[85f0]8d 2d 04STA a:Quests; Store as the new quests bitmask.
[85f3]4c 6e 82JMP 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]20 a4 87JSR IScripts_LoadByte; Load the next byte as the player title to check.
[85f9]cd 37 04CMP a:PlayerTitle; Compare to the current player title.
[85fc]f0 05BEQ IScripts_JumpToNextAddr; If <=, jump to the script address in the next argument.
[85fe]90 03BCC IScripts_JumpToNextAddr
[8600]4c 16 86JMP 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:
;
; 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]20 a4 87JSR IScripts_LoadByte; Load the next byte as the lower byte of the script address.
[8606]48PHA; Push to the stack.
[8607]20 a4 87JSR IScripts_LoadByte; Load the next byte as the upper byte of the script address.
[860a]85 dcSTA IScriptOrCHRAddr_U; Store it.
[860c]68PLA; Pop the lower byte.
[860d]85 dbSTA IScriptOrCHRAddr; Store it.
[860f]a9 00LDA #$00; A = 0.
[8611]85 ddSTA IScriptOffset; Store as the new script offset.
[8613]4c 6e 82JMP 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]20 a4 87JSR IScripts_LoadByte; Load 2 bytes and throw them out.
[8619]20 a4 87JSR IScripts_LoadByte
[861c]4c 6e 82JMP 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]ad 92 03LDA a:Gold; Load the lower byte of the player's gold.
[8622]0d 93 03ORA a:Gold_M; OR with the medium byte.
[8625]0d 94 03ORA a:Gold_U; And the upper byte.
[8628]d0 03BNE @_hasGold; If there's any value set, jump.
[862a]4c 16 86JMP IScripts_SkipAddrAndInvoke; Else, skip the next 2 bytes and invoke the following action.

[862d]@_hasGold:
[862d]4c 03 86JMP 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:
;
; Display the next "Come here to buy or sell?" message.
;
[8630]a9 10LDA #$10; 0x10 == "Did you come here to buy and sell?"
[8632]20 e9 f3JSR IScripts_LoadAndShowMessage; Load and show that message in its entirety.


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


;
; Set the start cursor position to Buy.
;
[863a]a9 00LDA #$00; Set the start cursor position to 0.
[863c]8d 1e 02STA a:Menu_CursorPos


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


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


;
; End the script.
;
[864c]4c b4 82JMP IScriptAction_EndScript


;
; Perform the next action based on the choice.
;
[864f]@_choiceMade:
[864f]ad 1e 02LDA a:Menu_CursorPos; Check the cursor position.
[8652]f0 afBEQ IScripts_JumpToNextAddr; If it's the first item, jump to the next address in the script.
[8654]4c 16 86JMP 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]20 a4 87JSR IScripts_LoadByte; Load the next byte as the item ID.
[865a]20 6a 9aJSR Player_RemoveItem; Remove the item from the player's inventory.
[865d]4c 6e 82JMP IScripts_InvokeNextAction; Invoke the next action.

;============================================================================
; TODO: Document IScriptAction_ShowSellMenu
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptActions_L [$PRG12::828c]
;============================================================================
[8660]IScriptAction_ShowSellMenu:
[8660]20 a4 87JSR IScripts_LoadByte
[8663]85 ecSTA Temp_Int24
[8665]20 a4 87JSR IScripts_LoadByte
[8668]85 edSTA Temp_Int24_M
[866a]a9 00LDA #$00
[866c]8d 1f 02STA a:Arg_StringsCount
[866f]a2 04LDX #$04

[8671]@LAB_PRG12__8671:
[8671]bc c2 03LDY a:NumberOfWeapons,X
[8674]f0 41BEQ @LAB_PRG12__86b7
[8676]8aTXA
[8677]48PHA
[8678]20 8b f7JSR Player_GetInventoryBitForIndex
[867b]8d 05 02STA a:Maybe_Shop_InventoryBitmask
[867e]bd 29 9bLDA a:INVENTORY_CATEGORY_L,X
[8681]85 eeSTA Temp_Int24_U
[8683]bd 2e 9bLDA a:INVENTORY_CATEGORY_U,X
[8686]85 efSTA Temp_0xEF
[8688]88DEY

[8689]@LAB_PRG12__8689:
[8689]98TYA
[868a]48PHA
[868b]b1 eeLDA (Temp_Int24_U),Y
[868d]0d 05 02ORA a:Maybe_Shop_InventoryBitmask
[8690]aaTAX
[8691]20 04 87JSR IScripts_SellMenu_Something8704
[8694]d0 1aBNE @LAB_PRG12__86b0
[8696]ae 1f 02LDX a:Arg_StringsCount
[8699]9d 20 02STA a:DataArray,X
[869c]c8INY
[869d]b1 ecLDA (Temp_Int24),Y
[869f]9d 28 02STA a:ShopItemCostsL,X
[86a2]c8INY
[86a3]b1 ecLDA (Temp_Int24),Y
[86a5]4aLSR A
[86a6]7e 28 02ROR a:ShopItemCostsL,X
[86a9]9d 30 02STA a:ShopItemCostsU,X
[86ac]e8INX
[86ad]8e 1f 02STX a:Arg_StringsCount

[86b0]@LAB_PRG12__86b0:
[86b0]68PLA
[86b1]a8TAY
[86b2]88DEY
[86b3]10 d4BPL @LAB_PRG12__8689
[86b5]68PLA
[86b6]aaTAX

[86b7]@LAB_PRG12__86b7:
[86b7]e8INX
[86b8]e0 05CPX #$05
[86ba]d0 b5BNE @LAB_PRG12__8671
[86bc]ad 1f 02LDA a:Arg_StringsCount
[86bf]d0 05BNE @LAB_PRG12__86c6
[86c1]a9 12LDA #$12
[86c3]4c 7e 83JMP IScripts_ShowFinalMessage

[86c6]@LAB_PRG12__86c6:
[86c6]a9 13LDA #$13
[86c8]20 f5 f3JSR Messages_Load

[86cb]@LAB_PRG12__86cb:
[86cb]20 b0 87JSR IScripts_UpdatePortraitAnimation
[86ce]20 66 f4JSR TextBox_ShowNextChar
[86d1]20 56 99JSR TextBox_CheckShouldContinueOrDismissMessage
[86d4]b0 2bBCS @_endScript
[86d6]d0 f3BNE @LAB_PRG12__86cb
[86d8]20 f8 99JSR Shop_Draw
[86db]20 ed 84JSR IScripts_WaitForMenuInput
[86de]b0 21BCS @_endScript
[86e0]ae 1e 02LDX a:Menu_CursorPos
[86e3]bd 28 02LDA a:ShopItemCostsL,X
[86e6]8d 02 02STA a:Temp_0202
[86e9]bd 30 02LDA a:ShopItemCostsU,X
[86ec]8d 03 02STA a:Temp_0203
[86ef]bd 20 02LDA a:DataArray,X
[86f2]20 6a 9aJSR Player_RemoveItem
[86f5]20 37 85JSR IScripts_ProgressivelyAddGold
[86f8]20 02 90JSR TextBox_Close
[86fb]20 e2 81JSR TextBox_OpenForNPC
[86fe]4c 6e 82JMP IScripts_InvokeNextAction

[8701]@_endScript:
[8701]4c b4 82JMP IScriptAction_EndScript