using { /Fortnite.com/Devices }
using { /Verse.org/Simulation }
using { /UnrealEngine.com/Temporary/UI }

Message<localizes>(String:string):message = External[String]

GetSkuDisplayName(Index:int):string=
    if (Index = 0):
        return "Starter Pack"
    "Item " + ToString(Index)

shop_hud_player_state := class:
    var Canvas : ui_canvas = ui_canvas{}
    var CurrencyText : text_block = text_block{}
    var FeedbackText : text_block = text_block{}
    var RowTexts : []text_block = array{}

shop_hud_device := class(creative_device):
    @editable EconomyShop : economy_shop_device = economy_shop_device{}
    var PlayerStates : [agent]shop_hud_player_state = map{}

    OnBegin<override>()<suspends>:void=
        for (ExistingPlayer : GetPlayspace().GetPlayers()):
            ShowFor(ExistingPlayer)

    OnPlayerJoined(Agent:agent):void=
        ShowFor(Agent)

    OnPlayerLeft(Agent:agent):void=
        RemoveFor(Agent)

    ShowFor(Agent:agent):void=
        if (Player := player[Agent], PlayerUI := GetPlayerUI[Player]):
            NewState := BuildState()
            set PlayerStates[Agent] = NewState
            PlayerUI.AddWidget(NewState.Canvas)

    RemoveFor(Agent:agent):void=
        if (Player := player[Agent], PlayerUI := GetPlayerUI[Player], OldState := PlayerStates[Agent]):
            PlayerUI.RemoveWidget(OldState.Canvas)
            var NewMap : [agent]shop_hud_player_state = map{}
            for (A -> S : PlayerStates, A <> Agent):
                set NewMap[A] = S
            set PlayerStates = NewMap

    BuildState()<transacts>:shop_hud_player_state=
        NewCurrencyText := text_block{}
        NewFeedbackText := text_block{}
        NewRowTexts : []text_block = array{}
        NewCanvas := ui_canvas{}
        shop_hud_player_state:
            Canvas := NewCanvas
            CurrencyText := NewCurrencyText
            FeedbackText := NewFeedbackText
            RowTexts := NewRowTexts