Gun Game script

Module — 2 files

These files compile together (same module folder).

basic_gun_game_device.verse

using { /Fortnite.com/Characters }
using { /Fortnite.com/Devices }
using { /Fortnite.com/Game }
using { /Fortnite.com/Playspaces }
using { /Verse.org/Simulation }
using { /UnrealEngine.com/Temporary/Diagnostics }

basic_gun_game_device := class(creative_device):

    @editable
    IGD_WeaponList:item_granter_device = item_granter_device{}

    @editable
    EGD_Win:end_game_device = end_game_device{}

    var PlayerElims:[player]int = map{}
    var ElimsToWin:int = 0

    OnBegin<override>()<suspends>:void=
        Setup()

    Setup()<suspends>:void=
        set ElimsToWin = GetWeaponListLength()
        GetPlayspace().PlayerAddedEvent().Subscribe(TrackElims)
        for (Player : GetPlayspace().GetPlayers()) do TrackElims(Player)

    TrackElims(Player:player):void=
        IGD_WeaponList.GrantItemIndex(Player, 0)
        if (FortCharacter:fort_character = Player.GetFortCharacter[]):
            FortCharacter.EliminatedEvent().Subscribe(OnCharacterEliminated)

    OnCharacterEliminated(Result:elimination_result):void=
        EliminatedCharacter:fort_character = Result.EliminatedCharacter
        MaybeEliminatingCharacter:?fort_character = Result.EliminatingCharacter
        if:
            EliminatingCharacter:fort_character = MaybeEliminatingCharacter?
            EliminatedCharacter <> EliminatingCharacter
            EliminatingAgent:agent = EliminatingCharacter.GetAgent[]
            EliminatingPlayer:player = player[EliminatingAgent]
            EliminatingPlayer.IsActive[]
        then:
            if (PlayerElims[EliminatingPlayer] >= ElimsToWin):
                EGD_Win.Activate(EliminatingPlayer)
            else:
                ChangeWeapon(EliminatingPlayer)

    ChangeWeapon(Player:player):void=
        CurrentWeaponIndex:int = PlayerElims[Player] or 0
        NextWeaponIndex:int = CurrentWeaponIndex + 1
        IGD_WeaponList.GrantItemIndex(Player, NextWeaponIndex)
        if:
            set PlayerElims[Player] = NextWeaponIndex

    GetWeaponListLength():int=
        if (Player:player = GetPlayspace().GetPlayers()[0]):
            IGD_WeaponList.CycleToPreviousItem(Player)
            return IGD_WeaponList.GetItemIndex()
        return 0

gun_game.verse

using { /Verse.org/Simulation }
using { /Verse.org/Random }
using { /Verse.org/Verse }
using { /Fortnite.com/Game }
using { /Fortnite.com/Characters }
using { /Fortnite.com/Devices }
using { /UnrealEngine.com/Temporary/Diagnostics }
 
gun_game := class(creative_device):
 
    @editable
    var WeaponList: []item_granter_device = array{}
 
    @editable
    ShuffleWeapons: logic = false
 
    @editable
    Elim_Score: int = 1
 
    @editable
    ScoreManager: score_manager_device = score_manager_device{}
 
    @editable
    VisualTracker: tracker_device = tracker_device{}
 
    @editable
    TrackerTitle: string = "Weapons Left"
 
    @editable
    MeleeSetbacks: logic = false
 
    @editable
    MeleeSetbackTracker: tracker_device = tracker_device{}
 
    @editable
    EndConditionsOn: logic = true
 
    @editable
    Win: end_game_device = end_game_device{}
 
    MakeMessage<localizes>(Text : string) : message = "{Text}"
    var AgentMap: [agent]int = map{}
 
    OnBegin<override>()<suspends>: void =
        GameSetup()
        
    GameSetup(): void =
        GetPlayspace().PlayerAddedEvent().Subscribe(SetupPlayer)
        MeleeSetbackTracker.CompleteEvent.Subscribe(MeleeSetback)
        ScoreManager.SetScoreAward(Elim_Score)
        if (ShuffleWeapons?):
            set WeaponList = Shuffle(WeaponList)
        ScoreManager.SetScoreAward(Elim_Score)
        AllPlayers := GetPlayspace().GetPlayers()
            for (Player : AllPlayers):
                SetupPlayer(Player)
 
    OnPlayerEliminated(Result: elimination_result): void =
        EliminatingCharacter := Result.EliminatingCharacter
        EliminatedCharacter := Result.EliminatedCharacter
        if:
            EliminatingFortCharacter := EliminatingCharacter?
            EliminatingAgent := EliminatingFortCharacter.GetAgent[]
            EliminatedFortCharacter := EliminatedCharacter
            EliminatedAgent := EliminatedFortCharacter.GetAgent[]
            EliminatedAgent <> EliminatingAgent
        then:
            NextWeapon(EliminatingAgent)
 
    SetupPlayer(Agent: agent): void =
        if (FortCharacter := Agent.GetFortCharacter[]):
            FortCharacter.EliminatedEvent().Subscribe(OnPlayerEliminated)
        if:
            not AgentMap[Agent]
            set AgentMap[Agent] = 0
        VisualTracker.Assign(Agent)
        VisualTracker.SetTarget(WeaponList.Length)
        VisualTracker.SetTitleText(MakeMessage(TrackerTitle))
        if (FirstItem := WeaponList[0]):
            FirstItem.GrantItem(Agent)
 
    NextWeapon(Agent: agent): void =
        ScoreManager.Activate(Agent)
        if (var CurrentItemIndex : int = AgentMap[Agent]):
            set CurrentItemIndex += 1
            if (CurrentItemIndex = WeaponList.Length and EndConditionsOn?):
                Win.Activate(Agent)
            else:
                if (NextItem := WeaponList[CurrentItemIndex]):
                    NextItem.GrantItem(Agent)
                    if {set AgentMap[Agent] = CurrentItemIndex}
 
    MeleeSetback(Agent: agent): void =
        if (var CurrentItemIndex : int = AgentMap[Agent]):
            if (CurrentItemIndex > 0 and MeleeSetbacks?):
                set CurrentItemIndex -= 1
                if (NextItem := WeaponList[CurrentItemIndex]):
                    NextItem.GrantItem(Agent)
                    if:
                        set AgentMap[Agent] = CurrentItemIndex
                VisualTracker.Decrement(Agent)
                ScoreManager.SetScoreAward(-Elim_Score)
                ScoreManager.Activate(Agent)
                ScoreManager.SetScoreAward(Elim_Score)
                MeleeSetbackTracker.Reset(Agent)

Copy-paste each file above is always free.

Gun Game script

Comments