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

BASE $8000

hex 00 00 00 00 00 c0 bf bf bf bf bf bf bf bf bf bf; [$8000] undefined
hex bf bf bf bf bf bf cf 00 00 00 00 00 c0 bf bf bf; [$8010] undefined
hex bf ce 00 00 00 c8 00 00 00 be b9 ac b3 b4 00 00; [$8020] undefined
hex bc 00 cd bf bf bf bf cf cb 00 c8 00 00 00 00 bc; [$8030] undefined
hex cc 00 00 c1 c2 00 ab ac b3 b4 bc 00 00 00 00 00; [$8040] undefined
hex 00 00 00 cb cb 00 01 02 03 00 00 00 00 00 d0 d1; [$8050] undefined
hex d2 d0 ab ac b3 b4 c8 00 00 c8 00 00 9d 9e 9f cb; [$8060] undefined
hex cb 10 11 12 13 14 15 bc 00 d0 b5 b6 b7 b8 b6 b8; [$8070] undefined
hex b3 b4 00 c8 00 9c a0 a1 a2 a3 a4 cb cb 20 21 22; [$8080] undefined
hex 23 24 25 26 27 c9 ca c9 ca ca ca ca b3 b4 bc 2a; [$8090] undefined
hex 2b a5 a6 a7 a8 a9 aa cb cb 30 31 32 33 34 35 36; [$80a0] undefined
hex 37 38 39 ad ad ae ad 3e 3f 04 05 06 07 08 09 0a; [$80b0] undefined
hex 00 0b 0c cb cb 00 00 42 43 44 45 46 47 48 49 4a; [$80c0] undefined
hex 4b 4c 4d 4e 4f 0d 0e 0f 16 17 18 19 1a 1b 00 cb; [$80d0] undefined
hex cb 00 00 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e; [$80e0] undefined
hex 5f 1d 1e 1f 28 29 2c 2d 2e 2f 00 cb cb 00 bc 62; [$80f0] undefined
hex 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 3a 3b 3c; [$8100] undefined
hex 3d 40 41 50 51 60 00 cb cb 00 00 72 73 74 75 76; [$8110] undefined
hex 77 78 79 7a 7b 7c 7d 7e 7f 61 70 71 80 90 91 92; [$8120] undefined
hex 93 00 00 cb cb 00 81 82 83 84 85 86 83 88 89 83; [$8130] undefined
hex 8b 8c 8d 8e 8f 94 95 96 97 98 83 9a 9b f3 ec cb; [$8140] undefined
hex cb bc 00 00 bc bc bc 00 c1 d3 00 00 00 00 c4 c5; [$8150] undefined
hex b3 b4 00 00 00 00 00 00 00 bc 00 cb cb bb d3 d3; [$8160] undefined
hex c6 c7 cf d0 d1 b7 b8 00 c8 00 d4 b1 b3 b4 c8 00; [$8170] undefined
hex c1 d3 00 00 d2 d3 c6 cb cd bf bf bf cf af bf b0; [$8180] undefined
hex b0 af bf cf c6 c7 99 8a 87 c3 bb d0 d1 b7 b8 c0; [$8190] undefined
hex bf bf bf ce 00 00 00 00 cd bf bf bf bf bf bf bd; [$81a0] undefined
hex af b2 b2 b0 bd af bf b0 bf af bf ce 00 00 00 00; [$81b0] undefined

;============================================================================
; TODO: Document GetTextBoxCoordinates
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG12__81fb
;     OpenTextWindow
;============================================================================
GetTextBoxCoordinates:; [$81c0]
LDA #$0a
STA a:TextBox_X
LDA #$14
STA a:TextBox_Width
LDA #$08
STA a:TextBox_Height
LDA a:Temp_0201
BMI @LAB_PRG12__81dc
LDY #$06
LDA Player_PosY
CMP #$40
BCS @LAB_PRG12__81de

@LAB_PRG12__81dc:; [$81dc]
LDY #$10

@LAB_PRG12__81de:; [$81de]
STY a:TextBox_Y
RTS

;============================================================================
; TODO: Document OpenTextWindow
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_ShowSellMenu
;     IScripts_Begin
;     Maybe_Shop_DrawTextBox
;============================================================================
OpenTextWindow:; [$81e2]
JSR GetTextBoxCoordinates
JSR TextBox_Maybe_Draw

;
; v-- Fall through --v
;

;============================================================================
; TODO: Document IScripts_Something_81E8
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_AddInventoryItem
;     IScriptAction_ShowQuestionMessage
;============================================================================
IScripts_Something_81E8:; [$81e8]
LDA a:TextBox_X
CLC
ADC #$02
STA TextBox_TextX
LDA a:TextBox_Y
CLC
ADC #$02
STA TextBox_TextY
JMP IScripts_Something_9910

;============================================================================
; TODO: Document FUN_PRG12__81fb
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_EndScript
;============================================================================
FUN_PRG12__81fb:; [$81fb]
JSR GetTextBoxCoordinates
JMP Maybe_Draw_Textbox

;============================================================================
; TODO: Document Portrait_SetCoords
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     DEADCODE
;     Portrait_Show
;============================================================================
Portrait_SetCoords:; [$8201]
LDA #$02
STA a:TextBox_X
LDA #$0e
STA a:TextBox_Y
LDA #$08
STA a:TextBox_Width
LDA #$0a
STA a:TextBox_Height
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:
;     Maybe_Arg_CurrentSprite_PosX:
;         The X position to draw into (0x18)
;
;     Maybe_Arg_CurrentSprite_PosY:
;         The Y position to draw into (0x58)
;
; XREFS:
;     IScripts_UpdatePortraitAnimation
;============================================================================
Portrait_SetInnerSpriteXY:; [$8216]
LDX #$18
STX Maybe_Arg_CurrentSprite_PosX
LDX #$58
STX Maybe_Arg_CurrentSprite_PosY
RTS

;============================================================================
; TODO: Document Portrait_Show
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScripts_Begin
;============================================================================
Portrait_Show:; [$821f]
JSR Portrait_SetCoords
JMP TextBox_Maybe_Draw

;============================================================================
; TODO: Document DEADCODE
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;============================================================================
DEADCODE:; [$8225]
JSR Portrait_SetCoords
JMP Maybe_Draw_Textbox

;============================================================================
; TODO: Document Portrait_Clear
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_EndScript
;============================================================================
Portrait_Clear:; [$822b]
LDA #$02
STA a:TextBox_X
LDA #$08
STA a:TextBox_Y
LDA #$1e
STA a:TextBox_Width
LDA #$14
STA a:TextBox_Height
JMP Maybe_Draw_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:
;     #$dc:
;         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:
;     FUN_PRG15_MIRROR__f24d
;     Portrait_Show
;     OpenTextWindow
;     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
;============================================================================
IScripts_Begin:; [$8242]
;
; If this is 0xFF, map to the "Remember Your Mantra."
;
CMP #$ff
BNE @LAB_PRG12__8248
LDA #$1f

@LAB_PRG12__8248:; [$8248]
STA a:Temp_0200
TAX
LDA #$9f6b,X
STA IScriptOrCHRAddr
LDA #$a003,X
STA IScriptOrCHRAddr.U
LDY #$00
LDA (IScriptOrCHRAddr),Y
STA a:Temp_0201
BPL @_notDoubleWindow

;
; Begin showing the portrait information.
;
AND #$7f
JSR #$f24d
JSR Portrait_Show

@_notDoubleWindow:; [$8267]
JSR OpenTextWindow
LDA #$01
STA IScriptOffset

;
; 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
;============================================================================
IScripts_InvokeNextAction:; [$826e]
JSR IScripts_LoadByte; Load the script ID
TAX; Store the byte in X and load from the offset table.
LDA #$8293,X; Fetch the upper script offset
PHA; Push the upper offset to the stack
LDA #$827b,X; Fetch the lower script offset
PHA; Push the lower offset to the stack
RTS


;============================================================================
; Addresses for the IScript action handlers.
;============================================================================

;
; XREFS:
;     IScripts_InvokeNextAction
;
IScriptActions_L:; [$827b]
db $b3; [0]:

;
; XREFS:
;     IScripts_InvokeNextAction
;
IScriptActions_L_1_:; [$827c]
db $c4; [1]:
db $ee; [2]:
db $d8; [3]:
db $25; [4]:
db $5a; [5]:
db $90; [6]:
db $9e; [7]:
db $d7; [8]:
db $24; [9]:
db $7f; [10]:
db $d0; [11]:
db $f5; [12]:
db $1e; [13]:
db $e5; [14]:
db $2f; [15]:
db $56; [16]:
db $5f; [17]:
db $17; [18]:
db $ae; [19]:
db $36; [20]:
db $ad; [21]:
db $07; [22]:
db $aa; [23]:

;
; XREFS:
;     IScripts_InvokeNextAction
;
IScriptActions_U:; [$8293]
db $82; [0]:

;
; XREFS:
;     IScripts_InvokeNextAction
;
IScriptActions_U_1_:; [$8294]
db $82; [1]:
db $82; [2]:
db $82; [3]:
db $87; [4]:
db $83; [5]:
db $83; [6]:
db $83; [7]:
db $83; [8]:
db $85; [9]:
db $85; [10]:
db $85; [11]:
db $85; [12]:
db $86; [13]:
db $85; [14]:
db $86; [15]:
db $86; [16]:
db $86; [17]:
db $87; [18]:
db $85; [19]:
db $87; [20]:
db $82; [21]:
db $83; [22]:
db $82; [23]:

;============================================================================
; 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]
;============================================================================
IScriptAction_Jump:; [$82ab]
JMP IScripts_JumpToNextAddr

;============================================================================
; 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]
;============================================================================
IScriptAction_FinishGame:; [$82ae]
JSR SplashAnimation_RunOutro
JMP #$c913

;============================================================================
; 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]
;     Shop_ShowMessage
;============================================================================
IScriptAction_EndScript:; [$82b4]
JSR IScripts_UpdatePortraitAnimation
LDA a:Temp_0201
BPL @LAB_PRG12__82c2
JSR #$f281
JMP Portrait_Clear

@LAB_PRG12__82c2:; [$82c2]
JMP FUN_PRG12__81fb

;============================================================================
; 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]
;============================================================================
IScriptAction_ShowUnskippableMessage:; [$82c5]
JSR IScripts_LoadByte; Load the next byte as the message ID.
JSR #$f3f5; Load the message.

@LAB_PRG12__82cb:; [$82cb]
JSR IScripts_UpdatePortraitAnimation
JSR #$f466
JSR IScripts_Something_992A
BCC @LAB_PRG12__82cb
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]
;============================================================================
IScriptAction_ShowMessage:; [$82d9]
JSR IScripts_LoadByte
JSR #$f3f5

@LAB_PRG12__82df:; [$82df]
JSR IScripts_UpdatePortraitAnimation
JSR #$f466
JSR Shop_Something_9956
BCS IScriptAction_EndScript
BNE @LAB_PRG12__82df
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]
;============================================================================
IScriptAction_ShowQuestionMessage:; [$82ef]
JSR IScripts_LoadByte
JSR #$f3f5

@_waitForInput:; [$82f5]
JSR IScripts_UpdatePortraitAnimation
JSR #$f466
JSR IScripts_Something_9980
BCS IScriptAction_EndScript
BNE @_waitForInput
JSR IScripts_Something_81E8
JMP IScripts_InvokeNextAction; Invoke the next action in the script.

;============================================================================
; TODO: Document IScriptAction_22
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptActions_L [$PRG12::8291]
;============================================================================
IScriptAction_22:; [$8308]
JSR IScripts_LoadByte
JSR #$f3f5

@LAB_PRG12__830e:; [$830e]
JSR IScripts_UpdatePortraitAnimation
JSR #$f466
JSR IScripts_Something_9980
BCS @LAB_PRG12__831e
BNE @LAB_PRG12__830e
JMP IScripts_JumpToNextAddr; Invoke the next action in the script.

@LAB_PRG12__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.
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     Temp_Int24:
;     #$ed:
;     Temp_0202:
;     Temp_0203:
;         Clobbered.
;
; CALLS:
;     IScripts_UpdatePortraitAnimation
;     Player_SubtractGold
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_SpendGold
;     IScripts_ProgressivelySubtractGold
;============================================================================
IScripts_ProgressivelySubtractGold:; [$8321]
JSR IScripts_UpdatePortraitAnimation
LDA a:Temp_0203
BMI @LAB_PRG12__8355
ORA a:Temp_0202
BEQ @LAB_PRG12__834d
LDA a:Temp_0202
SEC
SBC #$0a
STA a:Temp_0202
LDA a:Temp_0203
SBC #$00
STA a:Temp_0203
LDA #$0a
STA Temp_Int24
LDA #$00
STA Temp_Int24.M
JSR #$f9a5
JMP IScripts_ProgressivelySubtractGold

@LAB_PRG12__834d:; [$834d]
DEC a:Temp_0203
LDA #$3c; '<'
STA a:Temp_0202

@LAB_PRG12__8355:; [$8355]
DEC a:Temp_0202
BNE IScripts_ProgressivelySubtractGold
RTS

;============================================================================
; 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]
;============================================================================
IScriptAction_SpendGold:; [$835b]
;
; Load the gold amount parameters for the script.
;
JSR IScripts_LoadByte; Load the lower byte of the gold amount.
STA a:Temp_0202; Store it.
JSR IScripts_LoadByte; Load the upper byte of the gold amount.
STA a:Temp_0203; Store it
LDA a:Temp_0202; Load the lower byte again.
STA Temp_Int24; Store it in Temp_Int24 for comparison.
LDA a:Temp_0203; Lower the upper byte again.
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.
;
JSR IScripts_CheckEnoughMoney; Check if there's enough money to pay.
BCC Shop_ShowNotEnoughMoney; If not, show the Not Enough Money message.
JSR IScripts_ProgressivelySubtractGold; Progressively subtract the gold, animating it.
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
;     Shop_Something_9956
;     IScriptAction_EndScript
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_SpendGold
;============================================================================
Shop_ShowNotEnoughMoney:; [$837c]
;
; Display the Not Enough Money message.
;
LDA #$03; Set the message ID.

;
; v-- Fall through --v
;

;============================================================================
; TODO: Document Shop_ShowMessage
;
; INPUTS:
;     A
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_ShowSellMenu
;============================================================================
Shop_ShowMessage:; [$837e]
JSR #$f3f5; And load the message.

;
; Progressively write the message.
;
@LAB_PRG12__8381:; [$8381]
JSR IScripts_UpdatePortraitAnimation
JSR #$f466
JSR Shop_Something_9956
BCS @LAB_PRG12__838e
BNE @LAB_PRG12__8381

@LAB_PRG12__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]
;============================================================================
IScriptAction_SetSpawnPoint:; [$8391]
JSR IScripts_LoadByte; Load the temple/area ID.
CMP a:TempleSpawnPoint; Compare against the current spawn point.
BCC @_nextAction; If the older spawn point is further in the game, don't update.
STA a:TempleSpawnPoint; Else, set the new spawn point.

@_nextAction:; [$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.
;
; Script Parameters:
;
;     1. Item ID (1 byte)
;
; XREFS:
;     IScriptActions_L [$PRG12::8282]
;============================================================================
IScriptAction_AddInventoryItem:; [$839f]
JSR IScripts_LoadByte; Load the item ID parameter.
PHA; Push to the stack, twice.
PHA
JSR Player_AddToInventory; Add the item to the inventory.

;
; Begin showing the textbox indicating the added item.
;
JSR IScriptAction_AddItem_Something8EC1
LDX a:TextBox_X
INX
INX
STX TextBox_TextX
LDX a:TextBox_Y
INX
INX
STX TextBox_TextY
PLA
LDX #$00
JSR Maybe_DrawItemName
INC TextBox_TextY
INC TextBox_TextY
INC TextBox_TextY
PLA
JSR Maybe_DrawItemTitle

@LAB_PRG12__83c8:; [$83c8]
JSR IScripts_UpdatePortraitAnimation
JSR IScripts_Something_SetXYAndOffset_99be
LDA Joy1_ChangedButtonMask; Key pressed by the player:

Bit 0: Right
Bit 1: Left
Bit 2: Down
Bit 3: Up
Bit 4: Start
Bit 5: Select
Bit 6: B
Bit 7: A
BPL @LAB_PRG12__83c8
JSR IScripts_Something_81E8
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]
;============================================================================
IScriptAction_OpenShop:; [$83d8]
LDA #$14; "What would you like?"
JSR #$f3f5

@LAB_PRG12__83dd:; [$83dd]
JSR IScripts_UpdatePortraitAnimation
JSR #$f466
JSR Shop_Something_9956
BCS @_endScript
BNE @LAB_PRG12__83dd
JSR IScripts_LoadByte
STA Temp_Int24; Probably shop inventory table
JSR IScripts_LoadByte
STA Temp_Int24.M
JSR Shop_Populate
JSR Shop_Draw
JSR FUN_PRG12__84ed
BCC @LAB_PRG12__8402

@_endScript:; [$83ff]
JMP IScriptAction_EndScript

@LAB_PRG12__8402:; [$8402]
JSR Something_ShopCursorInventory
BCS @LAB_PRG12__8469
LDX a:Menu_CursorPos
LDA Temp_DataArray,X
CMP #$80
BEQ @LAB_PRG12__8439
CMP #$81
BEQ @LAB_PRG12__8439
CMP #$82
BEQ @LAB_PRG12__8439
CMP #$83
BEQ @LAB_PRG12__8439
CMP #$92
BEQ @LAB_PRG12__8439
CMP #$8a
BEQ @LAB_PRG12__8439
CMP #$93
BEQ @LAB_PRG12__8439
CMP #$94
BEQ @LAB_PRG12__8439
JSR #$f785
TAX
LDA NumberOfWeapons,X; Number of weapons in the player's inventory.
CMP #$847d,X
BEQ @LAB_PRG12__8469

@LAB_PRG12__8439:; [$8439]
LDX a:Menu_CursorPos
LDA ShopItemCostsL,X
STA Temp_Int24
STA a:Temp_0202
LDA ShopItemCostsU,X
STA Temp_Int24.M
STA a:Temp_0203
JSR IScripts_CheckEnoughMoney
BCS @LAB_PRG12__8457
JSR Maybe_Shop_DrawTextBox
JMP Shop_ShowNotEnoughMoney

@LAB_PRG12__8457:; [$8457]
LDX a:Menu_CursorPos
LDA Temp_DataArray,X
JSR Player_AddToInventory
JSR IScripts_ProgressivelySubtractGold
JSR Maybe_Shop_DrawTextBox
JMP IScripts_InvokeNextAction

@LAB_PRG12__8469:; [$8469]
JSR Maybe_Shop_DrawTextBox
LDA #$06
JMP Shop_ShowMessage

;============================================================================
; TODO: Document Maybe_Shop_DrawTextBox
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_OpenShop
;============================================================================
Maybe_Shop_DrawTextBox:; [$8471]
JSR IScripts_UpdatePortraitAnimation
JSR IScripts_UpdatePortraitAnimation
JSR Maybe_Draw_Textbox
JMP OpenTextWindow

;
; XREFS:
;     IScriptAction_OpenShop
;     Player_AddToInventory
;
MAX_INVENTORY_SLOTS:; [$847d]
db $04; [0]: Max weapons
db $04; [1]: Max armor
db $04; [2]: Max shields
db $04; [3]: Max spells
db $08; [4]: Max consumable items

;============================================================================
; TODO: Document Something_ShopCursorInventory
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     A
;
; XREFS:
;     IScriptAction_OpenShop
;============================================================================
Something_ShopCursorInventory:; [$8482]
LDX a:Menu_CursorPos
LDA Temp_DataArray,X
BPL @LAB_PRG12__84bf
LDX #$00
CMP #$80
BEQ @LAB_PRG12__84b5
INX
CMP #$81
BEQ @LAB_PRG12__84b5
INX
CMP #$82
BEQ @LAB_PRG12__84b5
INX
CMP #$83
BEQ @LAB_PRG12__84b5
INX
CMP #$92
BEQ @LAB_PRG12__84b5
INX
CMP #$8a
BEQ @LAB_PRG12__84b5
INX
CMP #$93
BEQ @LAB_PRG12__84b5
INX
CMP #$94
BEQ @LAB_PRG12__84b5

@LAB_PRG12__84b3:; [$84b3]
CLC
RTS

@LAB_PRG12__84b5:; [$84b5]
LDA a:SpecialItems
AND #$84e5,X
BEQ @LAB_PRG12__84b3

@LAB_PRG12__84bd:; [$84bd]
SEC
RTS

@LAB_PRG12__84bf:; [$84bf]
PHA
JSR #$f785
TAX
LDA #$9b29,X
STA Temp_Int24
LDA #$9b2e,X
STA Temp_Int24.M
PLA
AND #$1f
CMP SelectedWeapon,X
BEQ @LAB_PRG12__84bd
LDY NumberOfWeapons,X
BEQ @LAB_PRG12__84b3
DEY

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

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5:; [$84e5]
db $80; [0]:

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5_1_:; [$84e6]
db $40; [1]:

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5_2_:; [$84e7]
db $20; [2]:

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5_3_:; [$84e8]
db $10; [3]:

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5_4_:; [$84e9]
db $08; [4]:

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5_5_:; [$84ea]
db $04; [5]:

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5_6_:; [$84eb]
db $02; [6]:

;
; XREFS:
;     Something_ShopCursorInventory
;
BYTE_ARRAY_PRG12__84e5_7_:; [$84ec]
db $01; [7]:

;============================================================================
; TODO: Document FUN_PRG12__84ed
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     C
;
; XREFS:
;     FUN_PRG12__84ed
;     IScriptAction_OpenShop
;     IScriptAction_ShowSellMenu
;============================================================================
FUN_PRG12__84ed:; [$84ed]
JSR IScripts_UpdatePortraitAnimation
JSR Menu_Draw
LDA Joy1_ChangedButtonMask
BMI @_returnFalse
ASL A
BMI @_returnTrue
JMP FUN_PRG12__84ed

@_returnFalse:; [$84fd]
CLC
RTS

@_returnTrue:; [$84ff]
SEC
RTS

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

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

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

;
; Store the item.
;
STA Temp_DataArray,X; Store the item in the menu.
INY; Y++

;
; Store the cost.
;
LDA (Temp_Int24),Y; Load the lower byte of the item cost.
STA ShopItemCostsL,X; Store it.
INY; Y++
LDA (Temp_Int24),Y; Load the upper byte of the item cost.
STA ShopItemCostsU,X; Store it.

;
; Increment our counters.
;
INY; Y++
INX; X++
BNE @_populateLoop; If we're not done, loop.

@_finish:; [$8521]
STX a:Menu_LastPos; Set the last menu position.
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]
;============================================================================
IScriptAction_AddGold:; [$8525]
JSR IScripts_LoadByte; Load the lower byte for the gold amount.
STA a:Temp_0202; Store it.
JSR IScripts_LoadByte; Load the upper byte for the gold amount.
STA a:Temp_0203; Store it.
JSR IScripts_ProgressivelyAddGold; Progressively add gold.
JMP IScripts_InvokeNextAction; Invoke the next action.

;============================================================================
; TODO: Document IScripts_ProgressivelyAddGold
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_AddGold
;     IScriptAction_ShowSellMenu
;     IScripts_ProgressivelyAddGold
;============================================================================
IScripts_ProgressivelyAddGold:; [$8537]
JSR IScripts_UpdatePortraitAnimation
LDA a:Temp_0203
BMI @LAB_PRG12__856e
ORA a:Temp_0202
BEQ @LAB_PRG12__8566
JSR IScripts_PlayGoldChangeSound
LDA a:Temp_0202
SEC
SBC #$0a
STA a:Temp_0202
LDA a:Temp_0203
SBC #$00
STA a:Temp_0203
LDA #$0a
STA Temp_Int24
LDA #$00
STA Temp_Int24.M
JSR #$f9c1
JMP IScripts_ProgressivelyAddGold

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

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

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

;
; We're ready to play the sound.
;
LDA #$19; Play the sound.
JSR #$d0e4

@_return:; [$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]
;============================================================================
IScriptAction_AddMP:; [$8580]
JSR IScripts_LoadByte; Load the MP amount from the script.
STA a:IScript_HPOrMPValueToAdd; Store in the variable to fill MP up to.
LDA a:Player_MP; Load the currently-added MP value we're filling from.
CMP #$50; Compare to the cap.
BCS thunk_IScripts_InvokeNextAction; If at or over, we're done. Jump to invoke the next action.

@_fillLoop:; [$858d]
JSR IScripts_UpdatePortraitAnimation
JSR IScripts_PlayFillingSound; Play the sound for filling a bit of MP.
LDX a:Player_MP; X = Remaining value to add.
INX; X++
TXA; A = X
JSR #$fa85; Set the current mana points.
DEC a:IScript_HPOrMPValueToAdd; Decrement the remaining value to add.
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
;============================================================================
thunk_IScripts_InvokeNextAction:; [$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
;============================================================================
IScripts_PlayFillingSound:; [$85a3]
LDA InterruptCounter
AND #$03
BNE @LAB_PRG12__85ae
LDA #$13
JSR #$d0e4

@LAB_PRG12__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]
;============================================================================
IScriptAction_AddHP:; [$85af]
JSR IScripts_LoadByte; Load the HP value to add.
STA a:IScript_HPOrMPValueToAdd; Store in the variable to fill HP up to.
LDA a:Temp_AddedHPValue; Load the currently-added HP value we're filling from.
CMP #$50; Compare against the cap of 80.
BCS thunk_IScripts_InvokeNextAction; If over, we're done. Invoke the next action.

@_fillLoop:; [$85bc]
JSR IScripts_UpdatePortraitAnimation
JSR IScripts_PlayFillingSound; Play the sound for filling a bit of HP.
LDX a:Temp_AddedHPValue; X = Remaining value to add
INX; X++
TXA; A = X
JSR #$fa75; Draw the next bit of health.
DEC a:IScript_HPOrMPValueToAdd; Decrement the remaining amount to add.
BNE @_fillLoop; If there's more to add, loop.
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]
;============================================================================
IScriptAction_IfQuestCompleted:; [$85d1]
JSR IScripts_LoadByte; Load the next byte as the quest.
TAX; X = A
LDA a:Quests; Load the current player quests.
AND #$85e2,X; AND it to the bitmask at the given index.
BNE @_hasQuestCompleted
JMP IScripts_SkipAddrAndInvoke; Skip 2 bytes and invoke the following action.

@_hasQuestCompleted:; [$85e0]
JMP IScripts_JumpToNextAddr

;
; XREFS:
;     IScriptAction_SetQuestComplete
;
ISCRIPTS_QUEST_BITS:; [$85e3]
db $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]
;============================================================================
IScriptAction_SetQuestComplete:; [$85e6]
JSR IScripts_LoadByte
TAX
LDA a:Quests
ORA #$85e2,X
STA a:Quests
JMP IScripts_InvokeNextAction

;============================================================================
; 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]
;============================================================================
IScriptAction_IfPlayerHasTitle:; [$85f6]
JSR IScripts_LoadByte
CMP a:PlayerTitle
BEQ IScripts_JumpToNextAddr
BCC IScripts_JumpToNextAddr
JMP IScripts_SkipAddrAndInvoke

;============================================================================
; 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_22
;     IScriptAction_CheckUpdatePlayerTitle
;     IScriptAction_IfPlayerHasGold
;     IScriptAction_IfPlayerHasItem
;     IScriptAction_IfPlayerHasTitle
;     IScriptAction_IfQuestCompleted
;     IScriptAction_Jump
;     IScriptAction_ShowBuySellMenu
;============================================================================
IScripts_JumpToNextAddr:; [$8603]
;
; Load the next two event bytes and use that as the
; address for the next event to invoke.
;
JSR IScripts_LoadByte
PHA
JSR IScripts_LoadByte
STA IScriptOrCHRAddr.U
PLA
STA IScriptOrCHRAddr
LDA #$00
STA IScriptOffset
JMP IScripts_InvokeNextAction

;============================================================================
; Skip the next 2-byte address and invoke the next IScript action.
;
; XREFS:
;     IScriptAction_22
;     IScriptAction_CheckUpdatePlayerTitle
;     IScriptAction_IfPlayerHasGold
;     IScriptAction_IfPlayerHasItem
;     IScriptAction_IfPlayerHasTitle
;     IScriptAction_IfQuestCompleted
;     IScriptAction_ShowBuySellMenu
;============================================================================
IScripts_SkipAddrAndInvoke:; [$8616]
JSR IScripts_LoadByte
JSR IScripts_LoadByte
JMP IScripts_InvokeNextAction

;============================================================================
; 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]
;============================================================================
IScriptAction_IfPlayerHasGold:; [$861f]
LDA a:Gold
ORA a:Gold_M
ORA a:Gold_U
BNE @_hasGold
JMP IScripts_SkipAddrAndInvoke

@_hasGold:; [$862d]
JMP IScripts_JumpToNextAddr

;============================================================================
; 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]
;============================================================================
IScriptAction_ShowBuySellMenu:; [$8630]
;
; Display the next "Come here to buy or sell?" message.
;
LDA #$10
JSR #$f3e9

;
; Set the last menu item position to point to Sell.
;
LDA #$02; Set the last position to 2.
STA a:Menu_LastPos

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

;
; Render the menu and wait for button changes.
;
@_loop:; [$863f]
JSR IScripts_UpdatePortraitAnimation
JSR Menu_Draw
LDA Joy1_ChangedButtonMask; Load the changed button mask.
BMI @_choiceMade; If the A button was pressed, jump.

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

;
; End the script.
;
JMP IScriptAction_EndScript

;
; Perform the next action based on the choice.
;
@_choiceMade:; [$864f]
LDA a:Menu_CursorPos; Check the cursor position.
BEQ IScripts_JumpToNextAddr; If it's the first item, jump to the next address in the script.
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]
;============================================================================
IScriptAction_ConsumeItem:; [$8657]
JSR IScripts_LoadByte
JSR Player_RemoveItem
JMP IScripts_InvokeNextAction

;============================================================================
; TODO: Document IScriptAction_ShowSellMenu
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptActions_L [$PRG12::828c]
;============================================================================
IScriptAction_ShowSellMenu:; [$8660]
JSR IScripts_LoadByte
STA Temp_Int24
JSR IScripts_LoadByte
STA Temp_Int24.M
LDA #$00
STA a:Menu_LastPos
LDX #$04

@LAB_PRG12__8671:; [$8671]
LDY NumberOfWeapons,X
BEQ @LAB_PRG12__86b7
TXA
PHA
JSR #$f78b
STA a:Maybe_Shop_InventoryBitmask
LDA #$9b29,X
STA Temp_Int24.U
LDA #$9b2e,X
STA Maybe_Temp4
DEY

@LAB_PRG12__8689:; [$8689]
TYA
PHA
LDA (#$ee),Y
ORA a:Maybe_Shop_InventoryBitmask
TAX
JSR IScripts_SellMenu_Something8704
BNE @LAB_PRG12__86b0
LDX a:Menu_LastPos
STA Temp_DataArray,X
INY
LDA (Temp_Int24),Y
STA ShopItemCostsL,X
INY
LDA (Temp_Int24),Y
LSR A
ROR ShopItemCostsL,X
STA ShopItemCostsU,X
INX
STX a:Menu_LastPos

@LAB_PRG12__86b0:; [$86b0]
PLA
TAY
DEY
BPL @LAB_PRG12__8689
PLA
TAX

@LAB_PRG12__86b7:; [$86b7]
INX
CPX #$05
BNE @LAB_PRG12__8671
LDA a:Menu_LastPos
BNE @LAB_PRG12__86c6
LDA #$12
JMP Shop_ShowMessage

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

@LAB_PRG12__86cb:; [$86cb]
JSR IScripts_UpdatePortraitAnimation
JSR #$f466
JSR Shop_Something_9956
BCS @_endScript
BNE @LAB_PRG12__86cb
JSR Shop_Draw
JSR FUN_PRG12__84ed
BCS @_endScript
LDX a:Menu_CursorPos
LDA ShopItemCostsL,X
STA a:Temp_0202
LDA ShopItemCostsU,X
STA a:Temp_0203
LDA Temp_DataArray,X
JSR Player_RemoveItem
JSR IScripts_ProgressivelyAddGold
JSR Maybe_Draw_Textbox
JSR OpenTextWindow
JMP IScripts_InvokeNextAction

@_endScript:; [$8701]
JMP IScriptAction_EndScript

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

@LAB_PRG12__8706:; [$8706]
LDA (Temp_Int24),Y
CMP #$ff
BEQ @LAB_PRG12__8716
TXA
CMP (Temp_Int24),Y
BEQ @_return
INY
INY
INY
BNE @LAB_PRG12__8706

@LAB_PRG12__8716:; [$8716]
TAX

@_return:; [$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]
;============================================================================
IScriptAction_IfPlayerHasItem:; [$8718]
JSR IScripts_LoadByte
JSR Player_LacksItem
BCC @_invokeElse
JMP IScripts_SkipAddrAndInvoke

@_invokeElse:; [$8723]
JMP IScripts_JumpToNextAddr

;============================================================================
; 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]
;============================================================================
IScriptAction_CheckUpdatePlayerTitle:; [$8726]
LDA a:NextPlayerTitle
CMP a:PlayerTitle
BEQ @_invokeElse
STA a:PlayerTitle
JMP IScripts_JumpToNextAddr

@_invokeElse:; [$8734]
JMP IScripts_SkipAddrAndInvoke

;============================================================================
; 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]
;============================================================================
IScriptAction_ShowPassword:; [$8737]
JSR Password_GenerateStateAndReset; Generate the password state.
JSR #$f434; Clear the textbox.
LDA #$00
STA a:IScripts_Unused_207

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

@_portraitLoop:; [$874a]
JSR IScripts_UpdatePortraitAnimation
JSR IScripts_Something_SetXYAndOffset_99be
LDA Joy1_ChangedButtonMask; A = Changed button mask
BPL @_portraitLoop; If not dismissed, loop.
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
;============================================================================
PasswordScreen_ShowNextChar:; [$8757]
JSR Password_GetNext6Bits; Get the next 6 bits of password state for the character offset.
PHP; Push flags to stack.
TAY; Y = A (index)
LDA #$8764,Y; A = character at index Y
JSR #$f4ff; Show the character in the textbox.
PLP; Pop flags.
RTS


;============================================================================
; List of password characters by index.
;============================================================================

;
; XREFS:
;     PasswordScreen_Maybe_WriteCharAtCursor
;     PasswordScreen_ShowNextChar
;
PASSWORD_ENTERED_CHARS:; [$8764]
db "ABCDEFGHIJKLMNOP"; [$8764] char
db "QRSTUVWXYZabcdef"; [$8774] char
db "ghijklmnopqrstuv"; [$8784] char
db "wxyz0123456789,?"; [$8794] 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_22
;     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_ShowSellMenu
;     IScriptAction_ShowUnskippableMessage
;     IScriptAction_SpendGold
;     IScripts_InvokeNextAction
;     IScripts_JumpToNextAddr
;     IScripts_SkipAddrAndInvoke
;============================================================================
IScripts_LoadByte:; [$87a4]
LDY IScriptOffset; Y = current event offset
LDA (IScriptOrCHRAddr),Y; A = byte in the script at the offset
INY; Y++
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.
;
INC IScriptOrCHRAddr.U; Increment the address

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

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

;============================================================================
; TODO: Document IScripts_UpdatePortraitAnimation
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG12__84ed
;     IScriptAction_22
;     IScriptAction_AddHP
;     IScriptAction_AddInventoryItem
;     IScriptAction_AddMP
;     IScriptAction_EndScript
;     IScriptAction_OpenShop
;     IScriptAction_ShowBuySellMenu
;     IScriptAction_ShowMessage
;     IScriptAction_ShowPassword
;     IScriptAction_ShowQuestionMessage
;     IScriptAction_ShowSellMenu
;     IScriptAction_ShowUnskippableMessage
;     IScripts_ProgressivelyAddGold
;     IScripts_ProgressivelySubtractGold
;     Maybe_Shop_DrawTextBox
;     Shop_ShowMessage
;============================================================================
IScripts_UpdatePortraitAnimation:; [$87b0]
JSR #$ca25
JSR #$cb47
JSR #$dc46
LDA a:Temp_0201
BPL RETURN_87AF
JMP @LAB_PRG12__87c1

@LAB_PRG12__87c1:; [$87c1]
LDA a:MessageID
BEQ @LAB_PRG12__87d4
LDA a:TextBox_MessageEnded
BNE @LAB_PRG12__87d4
LDA InterruptCounter
LSR A
LSR A
LSR A
AND #$03
BPL @LAB_PRG12__87d6

@LAB_PRG12__87d4:; [$87d4]
LDA #$00

@LAB_PRG12__87d6:; [$87d6]
JSR Portrait_SetInnerSpriteXY
JMP #$f29b

;============================================================================
; Check if the user has enough money.
;
; This will determine a result based on the values stored
; in GoldMRequired and GoldLRequired.
;
; If Gold_U is at all set, it's assumed the player has
; enough money, because all checks are under this amount.
;
; Else, if Gold_M has more than the requested amount, or
; is equal and Gold_L has more, then the player has enough.
;
; INPUTS:
;     Temp_Int24:
;     #$ed:
;         The amount of gold required for a true result.
;
;     Gold:
;     Gold_M:
;     Gold_U:
;         The amount of gold the player has.
;
; OUTPUTS:
;     C:
;         1 if the player has enough gold.
;         0 if the player does not.;
;
; XREFS:
;     IScriptAction_OpenShop
;     IScriptAction_SpendGold
;============================================================================
IScripts_CheckEnoughMoney:; [$87dc]
;
; Check the upper byte of the gold.
;
LDA a:Gold_U; Load the upper byte of the player's gold amount.
CMP #$00; Is it 0?
BNE @_return; If no, return. CMP set Carry as our result.

;
; Check the middle byte of the gold.
;
LDA a:Gold_M; Load the middle byte of the player's gold amount.
CMP Temp_Int24.M; Compare to the required amount.
BNE @_return; If not 0, return. CMP set Carry as our result.

;
; Check the lower byte of the gold.
;
LDA a:Gold; Load the lower byte of the gold amount.
CMP Temp_Int24; Compare to get our final result as the Carry flag.

@_return:; [$87ef]
RTS

;============================================================================
; TODO: Document TextBox_GetCursorXForTileX1
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     A
;
; XREFS:
;     FUN_PRG12__9075
;============================================================================
TextBox_GetCursorXForTileX1:; [$87f0]
LDA a:TextBox_X; Load the left coordinate.
ASL A; Multiply by 8.
ASL A
ASL A
RTS

;============================================================================
; TODO: Document TextBox_GetCursorYForTileY2
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     A
;
; XREFS:
;     FUN_PRG12__9075
;============================================================================
TextBox_GetCursorYForTileY2:; [$87f7]
LDA a:TextBox_Y; Load the bottom coordinate.
ASL A; Multiply by 8.
ASL A
ASL A
RTS

;============================================================================
; TODO: Document FUN_PRG12__87fe
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     A
;
; XREFS:
;     FUN_PRG12__880e
;     Maybe_Draw_Textbox_Something8F51
;============================================================================
FUN_PRG12__87fe:; [$87fe]
LDA TextBox_TextY
ASL A
ASL A
AND #$f8
STA Temp_Int24.M
LDA TextBox_TextX
LSR A
ORA Temp_Int24.M
STA Temp_Int24.M
RTS

;============================================================================
; TODO: Document FUN_PRG12__880e
;
; INPUTS:
;     A
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Maybe_Draw_Textbox_Something8F51
;============================================================================
FUN_PRG12__880e:; [$880e]
STA Temp_Int24
JSR FUN_PRG12__87fe
TAX
LDA TextBox_TextY
LSR A
BCS @LAB_PRG12__8842
LDA TextBox_TextX
LSR A
BCS @LAB_PRG12__882f
LDA Something_ValuesToDraw,X
AND #$fc
STA Temp_Int24.M
LDA Temp_Int24
AND #$03
ORA Temp_Int24.M
STA Something_ValuesToDraw,X
RTS

@LAB_PRG12__882f:; [$882f]
LDA Something_ValuesToDraw,X
AND #$f3
STA Temp_Int24.M
LDA Temp_Int24
ASL A
ASL A
AND #$0c
ORA Temp_Int24.M
STA Something_ValuesToDraw,X
RTS

@LAB_PRG12__8842:; [$8842]
LDA TextBox_TextX
LSR A
BCS @LAB_PRG12__885c
LDA Something_ValuesToDraw,X
AND #$cf
STA Temp_Int24.M
LDA Temp_Int24
ASL A
ASL A
ASL A
ASL A
AND #$30
ORA Temp_Int24.M
STA Something_ValuesToDraw,X
RTS

@LAB_PRG12__885c:; [$885c]
LDA Something_ValuesToDraw,X
AND #$3f
STA Temp_Int24.M
LDA Temp_Int24
ASL A
ASL A
ASL A
ASL A
ASL A
ASL A
AND #$c0
ORA Temp_Int24.M
STA Something_ValuesToDraw,X
RTS

PLAYER_TOP_MENU_ITEM_STRINGS:; [$8873]
db $06,"WEAPON         "; [$8873] char
db $05,"ARMOR          "; [$8883] char
db $06,"SHIELD         "; [$8893] char
db $05,"MAGIC          "; [$88a3] char
db $04,"ITEM           "; [$88b3] char
db $06,"PLAYER         "; [$88c3] char

PLAYER_STATUS_MENU_STRINGS:; [$88d3]
db $09,"    RANK:      "; [$88d3] char
db $09,"NEXT EXP:      "; [$88e3] char
db $09,"WEAPON:        "; [$88f3] char
db $09," ARMOR:        "; [$8903] char
db $09,"SHIELD:        "; [$8913] char
db $09," MAGIC:        "; [$8923] char
db $09,"  ITEM:        "; [$8933] char
db $09,"NOVICE         "; [$8943] char
db $09,"ASPIRANT       "; [$8953] char
db $09,"BATTLER        "; [$8963] char
db $09,"FIGHTER        "; [$8973] char
db $09,"ADEPT          "; [$8983] char
db $09,"CHEVALIER      "; [$8993] char
db $09,"VETERAN        "; [$89a3] char
db $09,"WARRIOR        "; [$89b3] char
db $09,"SWORDMAN       "; [$89c3] char
db $09,"HERO           "; [$89d3] char
db $09,"SOLDIER        "; [$89e3] char
db $09,"MYRMIDON       "; [$89f3] char
db $09,"CHAMPION       "; [$8a03] char
db $09,"SUPERHERO      "; [$8a13] char
db $09,"PALADIN        "; [$8a23] char
db $09,"LORD           "; [$8a33] char
db $09,"NO WEAPON      "; [$8a43] char
db $09,"NO ARMOR       "; [$8a53] char
db $09,"NO SHIELD      "; [$8a63] char
db $09,"NO MAGIC       "; [$8a73] char
db $09,"NO ITEM        "; [$8a83] char

;============================================================================
; TODO: Document UI_ShowPlayerMenu
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     GameLoop_CheckShowPlayerMenu
;============================================================================
UI_ShowPlayerMenu:; [$8a93]
LDA #$06
STA a:Menu_LastPos
LDA #$00
STA a:Menu_CursorPos
LDA #$02
STA a:TextBox_X
LDA #$06
STA a:TextBox_Y
LDA #$0a
STA a:TextBox_Width
LDA #$0e
STA a:TextBox_Height
LDA #$18
JSR #$d0e4
JSR TextBox_Maybe_Draw
LDA #$73
STA Temp_Int24
LDA #$88
STA Temp_Int24.M
LDX #$00
STX a:Temp_DataArray
INX
STX a:Temp_DataArray_1_
INX
STX a:Temp_DataArray_2_
INX
STX a:Temp_DataArray_3_
INX
STX a:Temp_DataArray_4_
INX
STX a:Temp_DataArray_5_
JSR Shop_DrawItemStrings

@LAB_PRG12__8add:; [$8add]
JSR #$ca25
JSR #$cb47
JSR Menu_Draw
LDA Joy1_ChangedButtonMask
BMI @LAB_PRG12__8af0
ASL A
BPL @LAB_PRG12__8add
JMP Maybe_Draw_Textbox

@LAB_PRG12__8af0:; [$8af0]
LDX a:Menu_CursorPos
CPX #$05
BNE @LAB_PRG12__8afa
JMP PlayerMenu_Maybe_ShowStatus

@LAB_PRG12__8afa:; [$8afa]
LDA #$04
STA a:TextBox_X
LDA #$08
STA a:TextBox_Y
LDA #$14
STA a:TextBox_Width
LDA #$12
STA a:TextBox_Height
JSR TextBox_Maybe_Draw
LDX a:Menu_CursorPos
STX a:PlayerMenu_SelectedInventory
LDA NumberOfWeapons,X
BNE @LAB_PRG12__8b4f
LDA a:TextBox_X
CLC
ADC #$02
STA TextBox_TextX
LDA a:TextBox_Y
CLC
ADC #$02
STA TextBox_TextY
JSR #$f804
LDA #$43
STA Temp_Int24
LDA #$8a
STA Temp_Int24.M
LDA a:Menu_CursorPos
JSR #$f78c
TAY
JSR Strings_Draw

@LAB_PRG12__8b41:; [$8b41]
JSR #$ca25
JSR #$cb47
LDA Joy1_ChangedButtonMask
ASL A
BPL @LAB_PRG12__8b41
JMP FUN_PRG12__8bed

@LAB_PRG12__8b4f:; [$8b4f]
STA a:Menu_LastPos
LDA #$9b29,X
STA Temp_Int24
LDA #$9b2e,X
STA Temp_Int24.M
LDY #$00

@LAB_PRG12__8b5e:; [$8b5e]
LDA (Temp_Int24),Y
STA Temp_DataArray,Y
INY
CPY a:Menu_LastPos
BNE @LAB_PRG12__8b5e
JSR FUN_PRG12__8c04
LDA #$00
STA a:Menu_CursorPos

;============================================================================
; TODO: Document FUN_PRG12__8b71
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG12__8b71
;     FUN_PRG12__8be5
;============================================================================
FUN_PRG12__8b71:; [$8b71]
JSR #$ca25
JSR #$cb47
JSR Menu_Draw
LDA Joy1_ChangedButtonMask
BMI @LAB_PRG12__8b83
ASL A
BMI FUN_PRG12__8bed
BPL FUN_PRG12__8b71

@LAB_PRG12__8b83:; [$8b83]
LDA a:Area_CurrentArea
CMP #$04
BEQ FUN_PRG12__8be5
LDA a:PlayerMenu_SelectedInventory
CMP #$03
BCS FUN_PRG12__8bce
LDA a:SelectedWeapon
CMP #$03
BEQ FUN_PRG12__8be5
LDX a:Menu_CursorPos
LDA Temp_DataArray,X
CMP #$03
BNE FUN_PRG12__8bce
LDA #$03
JSR Player_LacksItem
BCS FUN_PRG12__8be5
LDA #$23
JSR Player_LacksItem
BCS FUN_PRG12__8be5
LDA #$43
JSR Player_LacksItem
BCS FUN_PRG12__8be5
LDA #$08
JSR #$d0e4
LDA #$03
JSR Player_Equip
LDA #$23
JSR Player_Equip
LDA #$43
JSR Player_Equip
JMP FUN_PRG12__8bed

;============================================================================
; TODO: Document FUN_PRG12__8bce
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG12__8b71
;============================================================================
FUN_PRG12__8bce:; [$8bce]
LDA #$08
JSR #$d0e4
LDX a:Menu_CursorPos
LDA a:PlayerMenu_SelectedInventory
JSR #$f78b
ORA Temp_DataArray,X
JSR Player_Equip
JMP FUN_PRG12__8bed

;============================================================================
; TODO: Document FUN_PRG12__8be5
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG12__8b71
;============================================================================
FUN_PRG12__8be5:; [$8be5]
LDA #$0d
JSR #$d0e4
JMP FUN_PRG12__8b71

;============================================================================
; TODO: Document FUN_PRG12__8bed
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG12__8b71
;     FUN_PRG12__8bce
;     UI_ShowPlayerMenu
;============================================================================
FUN_PRG12__8bed:; [$8bed]
LDA #$02
STA a:TextBox_X
LDA #$06
STA a:TextBox_Y
LDA #$16
STA a:TextBox_Width
LDA #$14
STA a:TextBox_Height
JMP Maybe_Draw_Textbox

;============================================================================
; TODO: Document FUN_PRG12__8c04
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     UI_ShowPlayerMenu
;============================================================================
FUN_PRG12__8c04:; [$8c04]
LDA a:TextBox_Y
STA TextBox_TextY
LDX #$00

@LAB_PRG12__8c0b:; [$8c0b]
TXA
PHA
INC TextBox_TextY
LDY a:TextBox_X
INY
INY
STY TextBox_TextX
LDA a:PlayerMenu_SelectedInventory
JSR #$f78b
ORA Temp_DataArray,X
PHA
JSR Maybe_DrawItemName
PLA
INC TextBox_TextY
INC TextBox_TextX
INC TextBox_TextX
JSR Maybe_DrawItemTitle
PLA
TAX
INX
CPX a:Menu_LastPos
BNE @LAB_PRG12__8c0b
RTS

;============================================================================
; TODO: Document Maybe_DrawItemTitle
;
; INPUTS:
;     A
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG12__8c04
;     IScriptAction_AddInventoryItem
;     PlayerMenu_Maybe_ShowStatus
;     Shop_Draw
;============================================================================
Maybe_DrawItemTitle:; [$8c36]
PHA
PHA
JSR #$f804
PLA
JSR #$f785
TAX
LDA #$9b33,X
STA Temp_Int24
LDA #$9b38,X
STA Temp_Int24.M
PLA
AND #$1f
JSR #$f78c
BCC @LAB_PRG12__8c54
INC Temp_Int24.M

@LAB_PRG12__8c54:; [$8c54]
TAY
JMP Strings_Draw

;============================================================================
; TODO: Document Maybe_DrawItemName
;
; INPUTS:
;     A
;     X
;     Y
;
; OUTPUTS:
;     A
;
; XREFS:
;     FUN_PRG12__8c04
;     IScriptAction_AddInventoryItem
;     PlayerMenu_Maybe_ShowStatus
;     Shop_Draw
;============================================================================
Maybe_DrawItemName:; [$8c58]
STA Temp_Int24
TYA
PHA
TXA
PHA
LDA #$00
STA PPU_TargetAddr
TXA
PHA
PHA
LSR A
ROR PPU_TargetAddr
LSR A
ROR PPU_TargetAddr
ADC #$14
STA PPU_TargetAddr.U
LDA Temp_Int24
JSR #$fc18
JSR #$f804
LDA #$02
JSR #$cfdc
PLA
ASL A
ASL A
ADC #$40
JSR #$f845
CLC
ADC #$01
JSR #$f845
STX PPUBuffer_UpperBounds
JSR #$f826
LDA #$02
JSR #$cfdc
PLA
ASL A
ASL A
ADC #$42
JSR #$f845
CLC
ADC #$01
JSR #$f845
STX PPUBuffer_UpperBounds
PLA
TAX
PLA
TAY
RTS

;============================================================================
; Equip an item from the inventory.
;
; INPUTS:
;     A:
;         The inventory item, with bits indicating the inventory.
;
; OUTPUTS:
;     None
;
; XREFS:
;     FUN_PRG12__8b71
;     FUN_PRG12__8bce
;============================================================================
Player_Equip:; [$8ca9]
;
; Calculate the target inventory and store the old and
; new items temporary.
;
STA a:Temp_EquipingItem; Store the item that we're equipping.
JSR #$f785; Compute the inventory index of the item.
TAX; Set X = the inventory index we computed
LDA SelectedWeapon,X; Get the current item in the target inventory.
STA a:Temp_PrevInventoryItem; Store the old item we're unequipping.

;
; Unequip the old item.
;
LDA a:Temp_EquipingItem
JSR Player_RemoveItem; Unequip the old item.
LDA a:Temp_PrevInventoryItem; Load back the previous item.

;
; Only add to the inventory if we didn't already have one.
;
BMI @_inInventory; Branch if we don't need to add to the inventory.
LDA a:Temp_EquipingItem; Load the item we're equipping.
AND #$e0; Clear out all but the inventory bits.
ORA a:Temp_PrevInventoryItem; Add the item's value.
JSR Player_AddToInventory; Now add to the inventory.

@_inInventory:; [$8ccc]
LDA a:Temp_EquipingItem

;
; Set the normalized value within the inventory.
;
JSR #$f785; Calculate the inventory slot again.
TAY; Set Y = inventory slot
LDA a:Temp_EquipingItem; Set A = new item
AND #$1f; Clear out the inventory bits, yielding the item value.
DEY
BEQ @_isArmor; Check if it's armor.
DEY
BEQ @_isShield; Check if it's a shield.
DEY
BEQ @_isMagic; Check if it's magic.
DEY
BEQ @_isItem; Check if it's an item.

;
; Inventory 0 (weapons)
;
JMP #$edec; Set the current weapon.

;
; Inventory 1 (armor)
;
@_isArmor:; [$8ce7]
JMP #$ee05; Set the current armor.

;
; Inventory 2 (shield)
;
@_isShield:; [$8cea]
JMP #$ee0d; Set the current shield.

;
; Inventory 3 (magic)
;
@_isMagic:; [$8ced]
JMP Player_SetMagic; Set the current magic.

;
; Inventory 4 (normal items)
;
@_isItem:; [$8cf0]
JMP #$fc0b; Set the current item.

;============================================================================
; Set the player's current magic spell.
;
; INPUTS:
;     A:
;         The magic spell to set.
;
; OUTPUTS:
;     SelectedMagic:
;         The updated magic spell.
;
; XREFS:
;     Player_Equip
;============================================================================
Player_SetMagic:; [$8cf3]
STA a:SelectedMagic; Store the provided A value as the selected magic.
RTS

;============================================================================
; Return whether the player lacks an item in the inventory.
;
; This will inspect the inventory bits of the item (the 3
; most significant bits), using the remaining bits as the
; value of the item in the inventory.
;
; INPUTS:
;     A:
;         The item index with inventory bits to check.
;
; OUTPUTS:
;     C:
;         1 if the item is not in the inventory.
;         0 if it is.
;
; XREFS:
;     FUN_PRG12__8b71
;     IScriptAction_IfPlayerHasItem
;============================================================================
Player_LacksItem:; [$8cf7]
;
; Check if this is a special item.
;
; Each special item type will be converted into an index in
; the SPECIAL_ITEMS_BITMASKS lookup table.
;
; If the matching bit is set, the item exists, so return false.
;
LDX #$00; X will be our lookup table index.
CMP #$80; Check Ring of Elf.
BEQ @_specialItemMatched
INX; X++
CMP #$81; Check Ring of Ruby.
BEQ @_specialItemMatched
INX; X++
CMP #$82; Check Ring of Dworf.
BEQ @_specialItemMatched
INX; X++
CMP #$83; Check Demon's Ring.
BEQ @_specialItemMatched
INX; X++
CMP #$92; Check Elixir.
BEQ @_specialItemMatched
INX; X++
CMP #$8a; Check Magical Rod.
BEQ @_specialItemMatched
INX; X++
CMP #$93; Check Pendant.
BEQ @_specialItemMatched
INX; X++
CMP #$94; Check Black Onyx.
BEQ @_specialItemMatched
PHA; Push the item value on the stack.
JSR #$f785; Get the inventory for the item.
TAY; Set Y = inventory.
LDA #$9b29,Y
STA Temp_Int24
LDA #$9b2e,Y
STA Temp_Int24.M

;
; Check if this item is currently equipped.
;
; If so, we'll be returning false (we don't lack it).
;
PLA; Pull the item into A
AND #$1f; Clear out the inventory bits, leaving the item value.
CMP SelectedWeapon,Y; Get the inventory index from Y.
BEQ @_returnFalse; If this item is currently set, return false.

;
; Check the number of items in the target inventory.
;
; If the number is 0, we definitely lack the item.
;
LDX NumberOfWeapons,Y; Set X = inventory item count.
BEQ @_returnTrue; If 0, we lack the item.

;
; Loop through all items in the inventory to see if
; we have this item.
;
LDY #$00; Set Y = 0 for the loop counter

;
; Check the item at the address to see if it matches this one.
;
; If so, we don't lack the item.
;
@_checkInventoryLoop:; [$8d3e]
CMP (Temp_Int24),Y; Check the inventory address at this index.
BEQ @_returnFalse; If it's a match, we don't lack the item. Return false.
INY; Y++.
DEX; Reduce the number of items left to check.
BNE @_checkInventoryLoop; Next loop.

;
; The item could not be found. The player lacks the item.
;
@_returnTrue:; [$8d46]
SEC; Set for a true result.
RTS

@_specialItemMatched:; [$8d48]
LDA a:SpecialItems; Load the player's Special Items bitmask.
AND #$8d52,X; Clear the bit for the matched item.
BEQ @_returnTrue

@_returnFalse:; [$8d50]
CLC; Clear for a false result.
RTS

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS:; [$8d52]
db $80; [0]: Ring of Elf

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS_1_:; [$8d53]
db $40; [1]: Ring of Ruby

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS_2_:; [$8d54]
db $20; [2]: Ring of Dworf

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS_3_:; [$8d55]
db $10; [3]: Demon's Ring

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS_4_:; [$8d56]
db $08; [4]: Elixir

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS_5_:; [$8d57]
db $04; [5]: Magical Rod

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS_6_:; [$8d58]
db $02; [6]: Pendant

;
; XREFS:
;     Player_LacksItem
;
SPECIAL_ITEMS_BITMASKS_7_:; [$8d59]
db $01; [7]: Black Onyx

;============================================================================
; TODO: Document PlayerMenu_Maybe_ShowStatus
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     UI_ShowPlayerMenu
;============================================================================
PlayerMenu_Maybe_ShowStatus:; [$8d5a]
LDA #$04
STA a:TextBox_X
LDA #$08
STA a:TextBox_Y
LDA #$1a
STA a:TextBox_Width
LDA #$10
STA a:TextBox_Height
JSR TextBox_Maybe_Draw
LDA #$07
STA a:Menu_LastPos
LDA #$d3
STA Temp_Int24
LDA #$88
STA Temp_Int24.M
LDX #$00
STX a:Temp_DataArray
INX
STX a:Temp_DataArray_1_
INX
STX a:Temp_DataArray_2_
INX
STX a:Temp_DataArray_3_
INX
STX a:Temp_DataArray_4_
INX
STX a:Temp_DataArray_5_
INX
STX a:Temp_DataArray_6_
JSR Shop_DrawItemStrings
LDA a:TextBox_X
CLC
ADC #$0b
STA TextBox_TextX
LDA a:TextBox_Y
CLC
ADC #$02
STA TextBox_TextY
JSR #$f804
LDA a:PlayerTitle
JSR #$f78c
TAY
LDA #$43
STA Temp_Int24
LDA #$89
STA Temp_Int24.M
JSR Strings_Draw
INC TextBox_TextY
INC TextBox_TextY
LDA a:NextPlayerTitle
CMP #$0f
BCS @LAB_PRG12__8de3

;
; Look up the experience in the lookup table in bank 15.
;
; Note that we're starting our offset 2 bytes before the
; lookup table. This is because our X will actually be a
; 1-based index, normalized to 0-based in the lookup table.
; Each entry is a word.
;
ASL A
TAX
LDA #$f749,X
STA Temp_Int24
LDA #$f74a,X
STA Temp_Int24.M
LDA #$00
STA Temp_Int24.U
LDY #$05
JSR #$fa03

@LAB_PRG12__8de3:; [$8de3]
LDX #$00

@LAB_PRG12__8de5:; [$8de5]
TXA
PHA
INC TextBox_TextY
INC TextBox_TextY
LDA SelectedWeapon,X
BMI @LAB_PRG12__8e0f
LDA a:TextBox_X
CLC
ADC #$09
STA TextBox_TextX
TXA
JSR #$f78b
ORA SelectedWeapon,X
PHA
DEC TextBox_TextY
JSR Maybe_DrawItemName
INC TextBox_TextY
INC TextBox_TextX
INC TextBox_TextX
PLA
JSR Maybe_DrawItemTitle

@LAB_PRG12__8e0f:; [$8e0f]
PLA
TAX
INX
CPX #$04
BNE @LAB_PRG12__8de5
LDA a:TextBox_X
CLC
ADC #$09
STA TextBox_TextX
INC TextBox_TextY
LDX #$00
LDA a:SpecialItems

@LAB_PRG12__8e25:; [$8e25]
ASL A
BCC @LAB_PRG12__8e38
PHA
TXA
PHA
LDA #$8e63,X
INX
INX
INX
INX
JSR Maybe_DrawItemName
PLA
TAX
PLA

@LAB_PRG12__8e38:; [$8e38]
INC TextBox_TextX
INC TextBox_TextX
INX
CPX #$08
BNE @LAB_PRG12__8e25

@LAB_PRG12__8e41:; [$8e41]
JSR #$ca25
JSR #$cb47
LDA Joy1_ChangedButtonMask
ASL A
BPL @LAB_PRG12__8e41
LDA #$02
STA a:TextBox_X
LDA #$06
STA a:TextBox_Y
LDA #$1c
STA a:TextBox_Width
LDA #$12
STA a:TextBox_Height
JMP Maybe_Draw_Textbox

;
; XREFS:
;     PlayerMenu_Maybe_ShowStatus
;
BYTE_ARRAY_PRG12__8e63:; [$8e63]
db $80; [0]:
db $81; [1]:
db $82; [2]:
db $83; [3]:
db $92; [4]:
db $8a; [5]:
db $93; [6]:
db $94; [7]:

;============================================================================
; TODO: Document Shop_DrawItemStrings
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     PlayerMenu_Maybe_ShowStatus
;     UI_ShowPlayerMenu
;============================================================================
Shop_DrawItemStrings:; [$8e6b]
LDA a:TextBox_X
CLC
ADC #$02
STA TextBox_TextX
LDA a:TextBox_Y
CLC
ADC #$02
STA TextBox_TextY
JSR #$f804
LDX #$00

@LAB_PRG12__8e80:; [$8e80]
TXA
PHA
LDA Temp_DataArray,X
ASL A
ASL A
ASL A
ASL A
TAY
JSR Strings_Draw
LDA #$40
JSR #$f828
PLA
TAX
INX
CPX a:Menu_LastPos
BNE @LAB_PRG12__8e80
RTS

;============================================================================
; Draw a length-prefixed string to the PPU.
;
; This will draw a string stored in Temp_Int24. The
; first byte must be the length of the string, and the
; remaining are ASCII characters for the string.
;
; INPUTS:
;     X:
;         The PPU buffer offset to write to.
;
;     Y:
;         The starting offset into the loaded string buffer.
;
;     Temp_Int24:
;         The loaded address containing the string at the
;         offset.
;
; OUTPUTS:
;     PPUBuffer_UpperBounds:
;         The new upper bounds of the PPU buffer.
;
;     Temp_Int24:
;         Clobbered.
;
; CALLS:
;     Strings_ASCIIToIndex
;     PPUBuffer_Set
;     PPUBuffer_QueueCommandOrLength
;
; XREFS:
;     Maybe_DrawItemTitle
;     PlayerMenu_Maybe_ShowStatus
;     Shop_DrawItemStrings
;     UI_ShowPlayerMenu
;============================================================================
Strings_Draw:; [$8e9b]
;
; Load the length of the string and prepare to draw.
;
LDA (Temp_Int24),Y; Load the length value from the loaded string.
STA Temp_Int24.U; Store it.
INY; Y++ (character offset)
JSR #$cfdc; Queue drawing up to the length.

;
; Begin drawing each character.
;
@_drawLoop:; [$8ea3]
LDA (Temp_Int24),Y; Load the next character.
JSR Strings_ASCIIToIndex; Conver the ASCII value to a tile index.
INY; Y++ (character offset)
JSR #$f845; Set that in the PPU buffer.
DEC Temp_Int24.U; Decrement loop counter.
BNE @_drawLoop; If we're not done, loop.
STX PPUBuffer_UpperBounds; Store the new PPU buffer upper bounds.
RTS

;============================================================================
; Return an alphanumeric/symbol tile index from an ASCII value.
;
; INPUTS:
;     A:
;         The ASCII value to normalize.
;
; OUTPUTS:
;     A:
;         The normalized value.
;
; XREFS:
;     Strings_Draw
;============================================================================
Strings_ASCIIToIndex:; [$8eb3]
CMP #$20; Is this a space?
BEQ @_isSpace; If so, jump.
CMP #$41; Is this >= "A"?
BCC @_return; If not, return.
SBC #$31; Convert to an index.
RTS

@_isSpace:; [$8ebe]
LDA #$00; Convert a space to an index of 0.

@_return:; [$8ec0]
RTS

;============================================================================
; TODO: Document IScriptAction_AddItem_Something8EC1
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     IScriptAction_AddInventoryItem
;============================================================================
IScriptAction_AddItem_Something8EC1:; [$8ec1]
LDX a:TextBox_X
INX
STX TextBox_TextX
LDX a:TextBox_Y
INX
STX TextBox_TextY
JSR #$f804
LDX a:TextBox_Height

@LAB_PRG12__8ed3:; [$8ed3]
TXA
PHA
LDA a:TextBox_Width
TAY
SEC
SBC #$02
JSR #$cfdc
LDA #$00
JSR #$f839
STX PPUBuffer_UpperBounds
JSR #$f826
PLA
TAX
DEX
CPX #$02
BNE @LAB_PRG12__8ed3
RTS

;============================================================================
; TODO: Document TextBox_Maybe_Draw
;
; INPUTS:
;     X
;     Y
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     OpenTextWindow
;     PlayerMenu_Maybe_ShowStatus
;     Portrait_Show
;     Shop_Draw
;     UI_ShowPlayerMenu
;============================================================================
TextBox_Maybe_Draw:; [$8ef1]
LDA a:TextBox_X
STA TextBox_TextX
LDA a:TextBox_Y
STA TextBox_TextY
JSR #$f804
JSR #$f832
LDA #$01
JSR #$f845
LDA #$02
JSR #$f839
LDA #$03
JSR #$f845
STX PPUBuffer_UpperBounds
JSR #$f826
LDY a:TextBox_Height

@LAB_PRG12__8f18:; [$8f18]
TYA
PHA
JSR #$f832
LDA #$04
JSR #$f845
LDA #$00
JSR #$f839
LDA #$04
JSR #$f845
STX PPUBuffer_UpperBounds
JSR #$f826
PLA
TAY
DEY
CPY #$02
BNE @LAB_PRG12__8f18
JSR #$f832
LDA #$05
JSR #$f845
LDA #$02
JSR #$f839
LDA #$06
JSR #$f845
STX PPUBuffer_UpperBounds
LDA #$00
STA a:Maybe_TextBox_Dismissed

;============================================================================
; TODO: Document Maybe_Draw_Textbox_Something8F51
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Maybe_Draw_Textbox
;============================================================================
Maybe_Draw_Textbox_Something8F51:; [$8f51]
LDA a:TextBox_X
LSR A
STA TextBox_TextX
LDA a:TextBox_Y
LSR A
STA TextBox_TextY
LDY a:TextBox_Height

@LAB_PRG12__8f60:; [$8f60]
TYA
PHA
LDA TextBox_TextX
PHA
LDY a:TextBox_Width

@LAB_PRG12__8f68:; [$8f68]
JSR TextBox_Maybe_GetPalette
JSR FUN_PRG12__880e
INC TextBox_TextX
DEY
DEY
BNE @LAB_PRG12__8f68
PLA
STA TextBox_TextX
INC TextBox_TextY
PLA
TAY
DEY
DEY
BNE @LAB_PRG12__8f60
LDA a:TextBox_X
LSR A
STA TextBox_TextX
LDA a:TextBox_Y
LSR A
STA TextBox_TextY
JSR FUN_PRG12__87fe
TAY
AND #$3f
ORA #$c0
STA PPU_TargetAddr
LDA PPU_ScrollScreen
AND #$01
ASL A
ASL A
ORA #$23
STA PPU_TargetAddr.U
LDA a:TextBox_X
LSR A
LSR A
STA TextBox_TextX
LDA a:TextBox_X
CLC
ADC a:TextBox_Width
SEC
SBC #$01
LSR A
LSR A
SEC
SBC TextBox_TextX
STA TextBox_TextX
INC TextBox_TextX
LDA a:TextBox_Y
LSR A
LSR A
STA TextBox_TextY
LDA a:TextBox_Y
CLC
ADC a:TextBox_Height
SEC
SBC #$01
LSR A
LSR A
SEC
SBC TextBox_TextY
STA TextBox_TextY
INC TextBox_TextY

@LAB_PRG12__8fd3:; [$8fd3]
TYA
PHA
LDA TextBox_TextX
STA Temp_Int24
JSR #$cfdc

@LAB_PRG12__8fdc:; [$8fdc]
LDA Something_ValuesToDraw,Y
INY
JSR #$f845
DEC Temp_Int24
BNE @LAB_PRG12__8fdc
STX PPUBuffer_UpperBounds
JSR #$f822
PLA
CLC
ADC #$08
TAY
DEC TextBox_TextY
BNE @LAB_PRG12__8fd3
RTS