project-meteor-server/data/scripts/commands/gm/graphic.lua

require("global");

properties = {
    permissions = 0,
    parameters = "sssss",
    description =
[[
Changes appearance for equipment with given parameters.
!graphic <slot> <wID> <eID> <vID> <vID>
]],
}

function onTrigger(player, argc, slot, wId, eId, vId, cId)
    local messageID = MESSAGE_TYPE_SYSTEM_ERROR;
    local sender = "[graphic] ";
    
    slot = tonumber(slot) or 0;
    wId = tonumber(wId) or 0;
    eId = tonumber(eId) or 0;
    vId = tonumber(vId) or 0;
    cId = tonumber(cId) or 0;
    
    local actor = GetWorldManager():GetActorInWorld(player.currentTarget) or nil;
    if player and actor then
        if player and argc > 0 then

        -- player.appearanceIds[5] = player.achievementPoints;
            if argc > 2 then
                actor:GraphicChange(slot, wId, eId, vId, cId);
            --player.achievementPoints = player.achievementPoints + 1;
                actor:SendMessage(messageID, sender,  string.format("Changing appearance on slot %u", slot));
                actor:SendMessage(messageID, sender,  string.format("points %u", player.appearanceIds[5]));
            else
                actor.appearanceIds[slot] = wId;
            end
            actor:SendAppearance();
        else
            player:SendMessage(messageID, sender, "No parameters sent! Usage: "..properties.description);
        end;
    end;
end;