Pasted

-- Test 4 weapons  ·¿· inspired from Wizard's awsomifique work on Phasor --
-- It uses a Generic Weapon type also set to Normal             --
-- Tested only on a Slayer gametype                  --
 
weapon = {}
weapon[1] = "weapons\\pistol\\pistol"
weapon[2] = "weapons\\shotgun\\shotgun"
weapon[3] = "weapons\\sniper rifle\\sniper rifle"
weapon[4] = "weapons\\rocket launcher\\rocket launcher" -- a fourth weapon can brings issue if you're holding the flag or the skull
 
frag_count = 3
plasma_count = 3
clipcount = 9999
ammocount = 9999
batterycount = 1 -- 0 to 1
 
function GetRequiredVersion()
    return 200
end
 
function OnPlayerSpawnEnd(player)
    local m_objectId = getplayerobjectid(player)
    if m_objectId then
        local m_object = getobject(m_objectId)
        if m_object then
            writebyte(m_object + 0x31E, frag_count)
            writebyte(m_object + 0x31F, plasma_count)
            for i = 0,3 do
                local m_weaponId = readdword(m_object + 0x2F8 + i*4)
                if m_weaponId then
                    local m_weapon = getobject(m_weaponId)
                    if m_weapon then
                        destroyobject(m_weaponId)
                    end
                end
            end
            if (weapon[1] and weapon[1] ~= "") then -- make sure the script user isn't retarded
                if getplayer(player) then
                    table = {player, clipcount, ammocount, batterycount}
                    registertimer(0, "AssignLeftoverWeapons", table)
                end
            end
        end
    end
end
 
function AssignLeftoverWeapons(id, count, table)
    local player = table[1]
    local clipcount = table[2]
    local ammocount = table[3]
    local batterycount = table[4]
    if getplayer(player) == nil then
        return
    end
    local m_objectId = getplayerobjectid(player)
    if m_objectId then
        local m_object = getobject(m_objectId)
        if m_object then
            local m_weaponId = createobject(gettagid("weap", weapon[1]), 0, 0, false, 5, 5, 2)
            if m_weaponId then
                assignweapon(player, m_weaponId)
                local m_weapon = getobject(m_weaponId)
                if m_weapon then
                    writeword(m_weapon, 0x2B6, ammocount)
                    writeword(m_weapon, 0x2B8, clipcount)
                    writefloat(m_weapon, 0x240, math.abs(batterycount - 1))
                    updateammo(m_weaponId)
                end
            end
            if weapon[2] and weapon[2] ~= "" then
                local m_weaponId = createobject(gettagid("weap", weapon[2]), 0, 0, false, 5, 5, 2)
                if m_weaponId then
                    assignweapon(player, m_weaponId)
                    local m_weapon = getobject(m_weaponId)
                    if m_weapon then
                        writeword(m_weapon, 0x2B6, ammocount)
                        writeword(m_weapon, 0x2B8, clipcount)
                        writefloat(m_weapon, 0x240, math.abs(batterycount - 1))
                        updateammo(m_weaponId)
                    end
                end
            end
            if weapon[3] and weapon[3] ~= "" then
                local m_weaponId = createobject(gettagid("weap", weapon[3]), 0, 0, false, 5, 5, 2)
                if m_weaponId then
                    assignweapon(player, m_weaponId)
                    local m_weapon = getobject(m_weaponId)
                    if m_weapon then
                        writeword(m_weapon, 0x2B6, ammocount)
                        writeword(m_weapon, 0x2B8, clipcount)
                        writefloat(m_weapon, 0x240, math.abs(batterycount - 1))
                        updateammo(m_weaponId)
                    end
                end
            end
            if weapon[4] and weapon[4] ~= "" then
                local m_weaponId = createobject(gettagid("weap", weapon[4]), 0, 0, false, 5, 5, 2)
                if m_weaponId then
                    assignweapon(player, m_weaponId)
                    local m_weapon = getobject(m_weaponId)
                    if m_weapon then
                        writeword(m_weapon, 0x2B6, ammocount)
                        writeword(m_weapon, 0x2B8, clipcount)
                        writefloat(m_weapon, 0x240, math.abs(batterycount - 1))
                        updateammo(m_weaponId)
                    end
                end
            end
        end
    end
    return false
end
 
function OnDamageLookup(receiving, causing, mapId, tagdata)
    local tagname, tagtype = gettaginfo(mapId)
    if nofalldamage == 1 then
        if tagname == "globals\\falling" then
            return false
        end
    end
    return true
end
 
function OnObjectInteraction(player, objId, mapId)
    local tag_name, tag_type = gettaginfo(mapId)
    if tag_type == "weap" then
        return false
    end
    return true
end