eai alguem poderia me ajudar, esta assim usando Ex:  /clan orebound, 5
 
vc ja fica no clan na 1º vez e gratis, na segunda endiante era para cobrar 10 diamond, so q eles mudam e nao combram os diamond, poderiam dar uma olhada para min, se estiver na area errada movam pf.

 

SEG clan.lua

<------------------------------------------------------------------------->

 

function onSay(cid, words, param, channel)

if param == "" then
return sendMsgToPlayer(cid, 20, "Estao faltam os parametros! [clan name], [rank]")
end
local t = string.explode(param, ",")
local clans = {'Volcanic', 'Seavell', 'Orebound', 'Wingeon', 'Malefic', 'Gardestrike', 'Psycraft', 'Naturia', 'Raibolt'}
if not isInArray(clans, t[1]) then
   return sendMsgToPlayer(cid, 20, t[1].." nao é uma clan valido!")
elseif not tonumber(t[2]) then
   return sendMsgToPlayer(cid, 20, "Parametros errados! [clan name], [rank].")
end

local rank = tonumber(t[2])
local clan = t[1]

    if getPlayerStorageValue(cid, 92823) < 1 then -- 7575 -- 92823
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Essa é sua primeira vez mudando de clan. Nas próximas, terá o custo de 10 diamonds.")
        doPlayerSendTextMessage(cid, 27, "Agora você pertence ao clan "..clan..", rank: "..rank.."")
        setPlayerClan(cid, clan)
        setPlayerClanRank(cid, rank)
    else
        if getPlayerItemCount(cid, 2145) < 10 then
            return doPlayerSendCancel(cid, "Você precisa de 10 diamonds para mudar de clan.")
        else
            return doPlayerSendCancel(cid, "Sorry, not possible.")
        end
        if(getPlayerLevel(cid) < 120) then
            return doPlayerSendCancel(cid, "Você estar no level 120.")
        else
            return doPlayerSendCancel(cid, "Sorry, not possible.")
        end
        doPlayerSendTextMessage(cid, 27, "Agora você pertence ao clan "..clan..", rank: "..rank.."")
        doPlayerRemoveItem(cid, 2145, 10)
        setPlayerClan(cid, clan)
        setPlayerClanRank(cid, rank)
    end
    return true

end

@edit

Editado Setembro 1, 2014 10 anos por oiuhygwueuho (veja o histórico de edições)

Mostrar conteúdo oculto

function onSay(cid, words, param, channel)

if param == "" then
return sendMsgToPlayer(cid, 20, "Estao faltam os parametros! [clan name], [rank]")
end
local t = string.explode(param, ",")
local clans = {'Volcanic', 'Seavell', 'Orebound', 'Wingeon', 'Malefic', 'Gardestrike', 'Psycraft', 'Naturia', 'Raibolt'}
if not isInArray(clans, t[1]) then
   return sendMsgToPlayer(cid, 20, t[1].." nao é uma clan valido!")
elseif not tonumber(t[2]) then
   return sendMsgToPlayer(cid, 20, "Parametros errados! [clan name], [rank].")
end

local rank = tonumber(t[2])
local clan = t[1]

    if getPlayerStorageValue(cid, 92823) < 1 then -- 7575 -- 92823
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Essa é sua primeira vez mudando de clan. Nas próximas, terá o custo de 10 diamonds.")
        doPlayerSendTextMessage(cid, 27, "Agora você pertence ao clan "..clan..", rank: "..rank.."")
        setPlayerStorageValue(cid, 92823, 1)
        setPlayerClan(cid, clan)
        setPlayerClanRank(cid, rank)
    else
        if getPlayerItemCount(cid, 2145) < 10 then
            return doPlayerSendCancel(cid, "Você precisa de 10 diamonds para mudar de clan.")
        else
            return doPlayerSendCancel(cid, "Sorry, not possible.")
        end
        if(getPlayerLevel(cid) < 120) then
            return doPlayerSendCancel(cid, "Você estar no level 120.")
        else
            return doPlayerSendCancel(cid, "Sorry, not possible.")
        end
        doPlayerSendTextMessage(cid, 27, "Agora você pertence ao clan "..clan..", rank: "..rank.."")
        doPlayerRemoveItem(cid, 2145, 10)
        setPlayerClan(cid, clan)
        setPlayerClanRank(cid, rank)
    end
    return true

end

Editado Setembro 1, 2014 10 anos por Nogard (veja o histórico de edições)

Deu certo, mais agora quando tem os diamond, o clan nao muda

Arrumado Vlw REP ++++

O tópico foi movido para a área correta, preste mais atenção da próxima vez!

Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:

De: "OTServ → Suporte OTServ → Suporte de Scripts"

Para: "OTServ → Suporte OTServ → Suporte de Servidores Derivados"