Versão: 1.1

Versão testada: 9.4+ (acho que funciona em anteriores).

Descrição: O script foi criado para caso os membros da staff (CM+) do servidor quiser dar um bônus a todos os players online ele pode digitar o comando e dar o premio a todos.

Tag:

<talkaction words="!ta;/ta" access="4" event="script" value="createitemall.lua"/>

[/code]




[b]Code:[/b]

data/talkactions/createitemall.lua

[code]function onSay(cid, words, param, channel)

    if(param == '') then

        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")

        return true

    end

    for _, pid in ipairs(getPlayersOnline()) do

        local t = string.explode(param, ",")

        local ret = RETURNVALUE_NOERROR

        local pos = getCreaturePosition(cid)


        local id = tonumber(t[1])

        if(not id) then

            errors(false)

            id = getItemIdByName(t[1])

            errors(true)


            if(not id) then

                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Item wich such name does not exists.")

                return true

            end

        end


        amount = t[2]

        if(not t[2]) then

            amount = 1

        end


        local item = doCreateItemEx(id, amount)

        if(t[3] and getBooleanFromString(t[3])) then

            if(t[4] and getBooleanFromString(t[4])) then

                pos = getCreatureLookPosition(cid)

            end


            ret = doTileAddItemEx(pos, item)

        else

            doPlayerSendTextMessage(pid, MESSAGE_STATUS_CONSOLE_BLUE, "O "..getCreatureName(cid).." deu ("..amount.."x) "..getItemNameById(id).." para todos os players online.")

            ret = doPlayerAddItemEx(pid, item, true)

        end


        if(ret ~= RETURNVALUE_NOERROR) then

            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Couldn't add item: " .. t[1])

            return true

        end


        doDecayItem(item)

        if(not isPlayerGhost(cid)) then

            doSendMagicEffect(pos, CONST_ME_MAGIC_RED)

        end

    end

    return true

end

Creditos:

TFS Team

Comedinha (Bruno Carvalho)

Editado Fevereiro 26, 2013 12 anos por comedinhasss (veja o histórico de edições)

Muito bom e útil para eventos

Exato War, Muito bom R+

Nova versão do script, agora ta arrumado o bug de digitar o nome do item e a mensagem que aparece =D

esse script pega em 8.60?