TalkAction Player Check System

[ratotbr]

Version: 4.0
Distro: 1.0+
Description: There are many scripts that help the server administrator to take care of him, one of them is to know things about players. I got some scripts and I am joining in a to decrease the size and with an easy verification.

TAG:

<talkaction log="yes" words="/p" separator=" " script="playercheck.lua" />

Script:
Talkactions/scripts/playercheck.lua

function getItemsInContainer(cont, sep)
    local text = ""
    local tsep = ""
    local count = ""
    for i=1, sep do
        tsep = tsep.."-"
    end
    tsep = tsep..">"
    for i=0, getContainerSize(cont.uid)-1 do
        local item = getContainerItem(cont.uid, i)
        if isContainer(item.uid) == FALSE then
            if item.type > 1 then
                count = " ("..item.type.."x)"
            end
            text = text.."\n"..tsep..getItemName(item.itemid)..""..count.." ("..item.itemid..")"
        else
            if getContainerSize(item.uid) > 0 then
                text = text.."\n"..tsep..getItemName(item.itemid).." ("..item.itemid..")"
                text = text..getItemsInContainer(item, sep+2)..""
            else
                text = text.."\n"..tsep..getItemName(item.itemid).." ("..item.itemid..")"
            end
        end
    end
    return text
end

function onSay(cid, words, param)
    if(param == '') then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")
        return false
    end
    local slotName = {"Head", "Amulet", "Backpack", "Armor", "Right Hand", "Left Hand", "Legs", "Feet", "Ring", "Ammo Slot"}
    local t = param:split(', ')
    if(t[1] == 'check') then
        if getPlayerGroupId(cid) >= 2 then
            local p = Player(t[2])
            if p then
                local text = p:getName().."'s Equipment: "
                for i=1, 10 do
                    text = text.."\n\n"
                    local item = getPlayerSlotItem(p:getName(), i)
                    if item.itemid > 0 then
                        count = ''
                        if item.type > 1 then
                            count = " ("..item.type.."x)"
                        end
                        if isContainer(item.uid) == TRUE then
                            text = text..slotName[i]..": "..getItemName(item.itemid)..""..count.." ("..item.itemid..") "..getItemsInContainer(item, 1)
                        else
                            text = text..slotName[i]..": "..getItemName(item.itemid)..""..count.." ("..item.itemid..")"
                        end
                    else
                        text = text..slotName[i]..": Empty"
                    end
                end
                doShowTextDialog(cid, 6579, text)
            else
                doPlayerSendCancel(cid, "This player is not online or not exist.")
            end
        end
    elseif(t[1] == 'delete') then
        if getPlayerGroupId(cid) == 3 then
            local p = Player(t[2])
            if p then
                count = t[4]
                if(not t[4]) then
                    count = 1
                end
                if getPlayerItemCount(p:getName(), t[3]) > 0 then
                    if doPlayerRemoveItem(p:getId(), t[3], count) then
                        doPlayerSendCancel(cid, "Deleted item.")
                    else
                        doPlayerSendCancel(cid, "This player does not have this amount of item.")
                    end
                else
                    doPlayerSendCancel(cid, "This player does not have the item.")
                end
            else
                doPlayerSendCancel(cid, "This player is not online or not exist.")
            end
        end
    else
        if getPlayerGroupId(cid) == 3 then
            id = getItemIdByName(t[1])
            if not id then
                doPlayerSendCancel(cid, "The "..t[1].." not exist. ")
                return false
            end
            local result = db.getResult("SELECT name FROM players WHERE id IN (SELECT player_id FROM player_items WHERE itemtype = ".. id ..");")
            local msg = "Search results by item ".. getItemName(id) .." in your database:\n\n"
            if result:getID() ~= -1 then
                while true do
                    local name = result:getDataString("name")
                    msg = msg .. name .."\n"
                    if not result:next() then
                        break
                    end
                end
            else
                msg = msg .. "The item was not found in any player."
            end
            doShowTextDialog(cid, id, msg)
        end
    end
    return true
end

Explanation:
When the admin say:
/p check, (PNAME) - He checks the items that the player has.
/p del, (ID), (PNAME), (COUNT) - It deletes the item of particular player (If you do not put the count it will remove only 1).
/p (ID) - It checks how many players have this item.

Credits:
Oneshot
CaioODemais
Comedinha (Bruno Carvalho)

 

[Lifer420]

Actually really useful if it works. Didn't test.

 

[Nubaza]

Very Very nice, thanks!

 

[Snavy]

Notihng Happens when i write :: /p check, Admin Bone