Ir para conteúdo

[Resolvido] Comando !online

Por markim1986
em Suporte Tibia OTServer

Featured Replies

Postado

Usa esse que eu utilizo no meu sv.


local config = {

	    showGamemasters = getBooleanFromString(getConfigValue('displayGamemastersWithOnlineCommand'))

}


function onSay(cid, words, param, channel)

	    local players = getPlayersOnline()

	    local strings = {""}

local sorc,druid,paladin,knight,rook = 0,0,0,0,0


	    local i, position = 1, 1

	    local added = false

	    for _, pid in ipairs(players) do

	    -- Implementacion por Xafterin.

			    if isSorcerer(pid) then

					    sorc = sorc + 1

			    elseif isDruid(pid) then

					    druid = druid + 1

			    elseif isPaladin(pid) then

					    paladin = paladin + 1

			    elseif isKnight(pid) then

					    knight = knight + 1

			    elseif isRookie(pid) then

					    rook = rook + 1

	    end

	    ---

			    if(added) then

					    if(i > (position * 7)) then

							    strings[position] = strings[position] .. ","

							    position = position + 1

							    strings[position] = ""

					    else

							    strings[position] = i == 1 and "" or strings[position] .. ", "

					    end

			    end


			    if((config.showGamemasters or getPlayerCustomFlagValue(cid, PLAYERCUSTOMFLAG_GAMEMASTERPRIVILEGES) or not getPlayerCustomFlagValue(pid, PLAYERCUSTOMFLAG_GAMEMASTERPRIVILEGES)) and (not isPlayerGhost(pid) or getPlayerGhostAccess(cid) >= getPlayerGhostAccess(pid))) then

					    strings[position] = strings[position] .. getCreatureName(pid) .. " [" .. getPlayerLevel(pid) .. "]"

					    i = i + 1

					    added = true

			    else

					    added = false

			    end

	    end


	    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, (i - 1) .. " Baiak-Sky server:")

	    for i, str in ipairs(strings) do

			    if(str:sub(str:len()) ~= ",") then

					    str = str .. ". ".. sorc .." sorcerer, ".. druid .." druid, ".. paladin .." paladin, ".. knight .." knight jogando atualmente!"

			    end


			    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, str)

	    end


	    return true

end
em talkactions.xml 

<talkaction words="!online" event="script" value="online.lua"/>

Att,

Skyligh

Entrada Como Membro 14 / 08 / 2012

Entrada Como Suporte 05 / 12 / 2012

Saída Como Suporte 06 / 01 / 2013

sem_ta28.png

Contato : [email protected] / [email protected]

  • Citar
  • Mention
    • Respostas 16
    • Visualizações 1.7k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Most Popular Posts

    • Bruno Carvalho
      Bruno Carvalho

      Tenta este: [paste]dvKc1Yvy[/paste] Créditos a esse tópico da otland onde eu peguei a base: http://otland.net/f81/show-players-online-who-have-not-done-specific-quest-148358/

    Postado
    • Autor

    Usa esse que eu utilizo no meu sv.

    
local config = {

	 showGamemasters = getBooleanFromString(getConfigValue('displayGamemastersWithOnlineCommand'))

}


function onSay(cid, words, param, channel)

	 local players = getPlayersOnline()

	 local strings = {""}

local sorc,druid,paladin,knight,rook = 0,0,0,0,0


	 local i, position = 1, 1

	 local added = false

	 for _, pid in ipairs(players) do

	 -- Implementacion por Xafterin.

			 if isSorcerer(pid) then

					 sorc = sorc + 1

			 elseif isDruid(pid) then

					 druid = druid + 1

			 elseif isPaladin(pid) then

					 paladin = paladin + 1

			 elseif isKnight(pid) then

					 knight = knight + 1

			 elseif isRookie(pid) then

					 rook = rook + 1

	 end

	 ---

			 if(added) then

					 if(i > (position * 7)) then

							 strings[position] = strings[position] .. ","

							 position = position + 1

							 strings[position] = ""

					 else

							 strings[position] = i == 1 and "" or strings[position] .. ", "

					 end

			 end


			 if((config.showGamemasters or getPlayerCustomFlagValue(cid, PLAYERCUSTOMFLAG_GAMEMASTERPRIVILEGES) or not getPlayerCustomFlagValue(pid, PLAYERCUSTOMFLAG_GAMEMASTERPRIVILEGES)) and (not isPlayerGhost(pid) or getPlayerGhostAccess(cid) >= getPlayerGhostAccess(pid))) then

					 strings[position] = strings[position] .. getCreatureName(pid) .. " [" .. getPlayerLevel(pid) .. "]"

					 i = i + 1

					 added = true

			 else

					 added = false

			 end

	 end


	 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, (i - 1) .. " Baiak-Sky server:")

	 for i, str in ipairs(strings) do

			 if(str:sub(str:len()) ~= ",") then

					 str = str .. ". ".. sorc .." sorcerer, ".. druid .." druid, ".. paladin .." paladin, ".. knight .." knight jogando atualmente!"

			 end


			 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, str)

	 end


	 return true

end
    em talkactions.xml 
    
<talkaction words="!online" event="script" value="online.lua"/>

    Eu prefiro o meu, mas vlw por tentar ajudar...

    O meu so ta faltando um detalhe de mostrar quantitativo final de players online!

  • Citar
  • Mention
    • Postado

    @Markin tenta assim .

    
    local item = 1740


    function onSay(cid, words, param, channel)

						 if isSorcerer(pid) then

										 sorc = sorc + 1

						 elseif isDruid(pid) then

										 druid = druid + 1

						 elseif isPaladin(pid) then

										 paladin = paladin + 1

						 elseif isKnight(pid) then

										 knight = knight + 1

						 elseif isRookie(pid) then

										 rook = rook + 1

										 end

		    local name,voc,level = "","",0

		    for _,on in pairs (getPlayersOnline()) do

				    name, voc, level = getCreatureName(on), getPlayerVocationName(on),  getPlayerLevel(on)

				    if ( isSorcerer(on)) then

						    table.insert(sorcs, name.. " ["..level.."]" )

				    elseif ( isDruid(on)) then

						    table.insert(druids, name.. " ["..level.."]")

				    elseif (isPaladin(on)) then

						    table.insert(pallies, name.. " ["..level.."]")

				    elseif (isKnight(cid)) then

						    table.insert(kinas, name.. " ["..level.."]")

				    end



		    local np = "There are not players."

		    local str = "Players List: \n"

			 for i, str in ipairs(strings) do

						 if(str:sub(str:len()) ~= ",") then

										 str = str .. ". ".. sorc .." sorcerer, ".. druid .." druid, ".. paladin .." paladin, ".. knight .." knight jogando atualmente!"



		    doShowTextDialog(cid, item, str)

		    end

		    return true 

		    end

		    end

		    end

    Att,

    Skyligh

    Entrada Como Membro 14 / 08 / 2012

    Entrada Como Suporte 05 / 12 / 2012

    Saída Como Suporte 06 / 01 / 2013

    sem_ta28.png

    Contato : [email protected] / [email protected]

  • Citar
  • Mention
    • Postado
    • Autor

    @Markin tenta assim .

    
local item = 1740


function onSay(cid, words, param, channel)

						 if isSorcerer(pid) then

										 sorc = sorc + 1

						 elseif isDruid(pid) then

										 druid = druid + 1

						 elseif isPaladin(pid) then

										 paladin = paladin + 1

						 elseif isKnight(pid) then

										 knight = knight + 1

						 elseif isRookie(pid) then

										 rook = rook + 1

										 end

		 local name,voc,level = "","",0

		 for _,on in pairs (getPlayersOnline()) do

				 name, voc, level = getCreatureName(on), getPlayerVocationName(on), getPlayerLevel(on)

				 if ( isSorcerer(on)) then

						 table.insert(sorcs, name.. " ["..level.."]" )

				 elseif ( isDruid(on)) then

						 table.insert(druids, name.. " ["..level.."]")

				 elseif (isPaladin(on)) then

						 table.insert(pallies, name.. " ["..level.."]")

				 elseif (isKnight(cid)) then

						 table.insert(kinas, name.. " ["..level.."]")

				 end



		 local np = "There are not players."

		 local str = "Players List: \n"

			 for i, str in ipairs(strings) do

						 if(str:sub(str:len()) ~= ",") then

										 str = str .. ". ".. sorc .." sorcerer, ".. druid .." druid, ".. paladin .." paladin, ".. knight .." knight jogando atualmente!"



		 doShowTextDialog(cid, item, str)

		 end

		 return true

		 end

		 end

		 end

    [22/12/2012 00:39:25] [Error - TalkAction Interface]

    [22/12/2012 00:39:25] data/talkactions/scripts/online.lua:onSay

    [22/12/2012 00:39:25] Description:

    [22/12/2012 00:39:25] data/talkactions/scripts/online.lua:19: bad argument #1 to 'insert' (table expected, got nil)

    [22/12/2012 00:39:25] stack traceback:

    [22/12/2012 00:39:25] [C]: in function 'insert'

    [22/12/2012 00:39:25] data/talkactions/scripts/online.lua:19: in function <data/talkactions/scripts/online.lua:3>

  • Citar
  • Mention
    • Postado

    Tenta assim:

    [paste]esnNHt1W[/paste]

    Bruno Carvalho / Ex-Administrador TibiaKing

    [email protected]

     

    Em 26/12/2016 em 03:47, Spraypaint disse:

    A força da alienação vem dessa fragilidade dos indivíduos, quando apenas conseguem identificar o que os separa e não o que os une.

    -miltinho

     

    wMwSJFE.png?1

     

  • Citar
  • Mention

    • Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.6k

    Informação Importante

    Confirmação de Termo

    I accept