Ir para conteúdo

Sistema de criar item para o servidor inteiro


comedinhasss

Posts Recomendados

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:

data/talkactions/createitemall.lua

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)

Link para o comentário
Compartilhar em outros sites

Muito bom cara acabei de colocar no meu OT ( estou montando ainda) e funfando 100%. Achei um outro parecido com o esse script e não tava funfando ai vi o seu post e vim no seu topico e pego. Parabens e muito obrigado. Rep +

 

 

@EDIT

 

8.6 funfando tambem.

Editado por KalixxD
Link para o comentário
Compartilhar em outros sites

Muito bom cara acabei de colocar no meu OT ( estou montando ainda) e funfando 100%. Achei um outro parecido com o esse script e não tava funfando ai vi o seu post e vim no seu topico e pego. Parabens e muito obrigado. Rep +

 

 

@EDIT

 

8.6 funfando tambem.

 

Ty =D Estou pensando em melhora-lo...

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...