landsandboat/scripts/commands/setplayermodel.lua

-----------------------------------
-- func: setplayermodel <modelid> <slot> <player>
-- desc: Sets the look of the user or target player based on model id offset and slot (for testing).
-----------------------------------
---@type TCommand
local commandObj = {}

commandObj.cmdprops =
{
    permission = 1,
    parameters = 'iis'
}

local function error(player, msg)
    player:printToPlayer(msg)
    player:printToPlayer('!setplayermodel <model> <slot> (player)')
    player:printToPlayer('Slots: 0=main 1=sub 2=ranged 3=ammo 4=head 5=body 6=hands 7=legs 8=feet')
end

commandObj.onTrigger = function(player, model, slot, target)
    -- validate model
    if model == nil then
        error(player, 'Invalid model ID.')
        return
    end

    -- validate slot
    if slot == nil or slot < 0 or slot > 8 then
        error(player, 'Invalid slot ID.')
        return
    end

    -- validate target
    local targ
    if target == nil then
        targ = player
    else
        targ = GetPlayerByName(target)
        if targ == nil then
            error(player, string.format('Player named "%s" not found!', target))
            return
        end
    end

    local slotNameByNum =
    {
        [0] = 'main',
        [1] = 'sub',
        [2] = 'ranged',
        [3] = 'ammo',
        [4] = 'head',
        [5] = 'body',
        [6] = 'hands',
        [7] = 'legs',
        [8] = 'feet'
    }

    -- set model
    targ:setModelId(model, slot)
    player:printToPlayer(string.format('Set %s\'s %s slot to model %i.', targ:getName(), slotNameByNum[slot], model))
end

return commandObj