JohnTetsu

Eae galera bom aqui é um script que o !online e diferente para quem ta acustumado ver aquele online igual de todo ot .. 
 
ele vai falar quantos player tem online o uptime quantos npc existi no mapa e quantos monstros também espero que aproveitem...
 
em data/talkactions/online.lua 
 
apaga tudo que está dentro e poe isso
[( Script created by Ryzor for www.tibiaking.com )] -- function onSay(cid, words, param, channel) local tmp = getWorldUpTime() local hours = math.ceil(tmp / 3600) - 1 local minutes = math.ceil((tmp - (3600 * hours)) / 60) if(minutes == 60) then minutes = 0 hours = hours + 1 end local showGamemasters,on,count = false,getPlayersOnline(),0 for _, cid in pairs(on) do if getPlayerAccess(cid) < 3 then count = count + 1 end end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Modo: PVP] - [UpTime: " .. hours .. " hours and " .. minutes .. " minutes.] - [Players Online: " .. (showGamemasters == true and #on or count) .. "] - [NPCs: 51] - [Monstros: 8215]") return TRUE end

Tenta ae :
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 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Essa é sua primeira vez mudando de clan. Nas próximas, terá o custo de 100 diamonds.") doPlayerSendTextMessage(cid, 27, "Agora você pertence ao clan "..clan..", rank: "..rank.."") setPlayerClan(cid, clan) setPlayerClanRank(cid, rank) else if getPlayerItemCount(cid, 2145) < 100 then return doPlayerSendCancel(cid, "Você precisa de 1kk para mudar de clan.") else return doPlayerSendCancel(cid, "Sorry, not possible.") end doPlayerSendTextMessage(cid, 27, "Agora você pertence ao clan "..clan..", rank: "..rank.."") doPlayerRemoveItem(cid, 2145, 100) setPlayerClan(cid, clan) setPlayerClanRank(cid, rank) end return true end