Atomic Grenades for SAPP

-- Atomic Grenades by H® Shaft for SAPP

-- This script will:
-- Set Frag and Plasma Grenade counts to what you specify
-- Replace both the frag grenade equipment with the plasma grenade equipment,  and plasma grenade projectile with tank shell projectiles
-- Note: the atomic grenade will go exactly where you aim your weapon - then throw!

-- set grenade counts to what you want them. I suggest leaving 'frag' count to 0 (zero)
-- Note: plasma count will show, but only tank shells will be thrown.

frag_count = 0
plasma_count = 4

-- sapp api version
api_version = "1.8.0.0"
-- do not edit below unless you know what you are doing --
game_started = false

function OnScriptLoad()
    register_callback(cb['EVENT_GAME_START'],"OnNewGame")
    register_callback(cb['EVENT_GAME_END'],"OnGameEnd")
    register_callback(cb['EVENT_SPAWN'],"OnPlayerSpawn")
    register_callback(cb['EVENT_OBJECT_SPAWN'],"OnObjectSpawn")
    if get_var(0, "$gt") ~= "n/a" then
        GetMetaIDs()
    end
end

function OnScriptUnload() end

function OnPlayerSpawn(PlayerIndex)
    if (game_started == true) then
        -- set grenade counts as they are set above
        if (player_alive(PlayerIndex) == true) then
            local player_object = get_dynamic_player(PlayerIndex)
            safe_write(true)
            write_word(player_object + 0x31E, frag_count)
            write_word(player_object + 0x31F, plasma_count)
            safe_write(false)
        end

    end
end

function OnObjectSpawn(PlayerIndex, MapID, ParentID, ObjectID)
    if game_started then
        -- replace frag grenade equipment with plasma grenades:
        if MapID == eqip_frag_metaid then
            return true, eqip_plasma_metaid
        end

        -- replace plasma grenade proj/projectiles with tank shell projectiles (doesn't happen until you throw):
        if MapID == proj_plasma_nade_metaid then
            return true, proj_tank_shell_metaid
        end

        return true
    else
        return false
    end
end

function OnNewGame()
    game_started = true
    GetMetaIDs()
end

function OnGameEnd()
    game_started = false
end

function GetMetaIDs()
    eqip_frag_metaid = read_dword(lookup_tag("eqip", "weapons\\frag grenade\\frag grenade") + 12)
    eqip_plasma_metaid = read_dword(lookup_tag("eqip", "weapons\\plasma grenade\\plasma grenade") + 12)
    proj_plasma_nade_metaid = read_dword(lookup_tag("proj", "weapons\\plasma grenade\\plasma grenade") + 12)
    proj_tank_shell_metaid = read_dword(lookup_tag("proj", "vehicles\\scorpion\\tank shell") + 12)
end

-- Created by H® Shaft
-- Visit http://halorace.org/forum/index.php