Ir para conteúdo
TK News
  • Cadastre-se

CreatureScript%252FGlobalEvent%252FMoveMent [MultipleExp System]

Emersonssss

Por ,
em Scripts tfs 0.4 (OLD)

 Share Seguidores 1

Posts Recomendados

  • Este é um post popular.
Emersonssss

Emersonssss 114

Postado
  • Este é um post popular.
Postado (editado)

Fala Galerinha nessa madrugada eu modifiquei meu script e resolvi posta-lo para ajudar os OT-Admin iniciantes e ter algo diferente no server.

 

O Sistem Funciona assim, sabe quando vem um noob e fala " ADM Ponhe Double XP!!", com esse sistema vc resolve esse problema, ele se resumi quanto mais Players Online + XP é Adc para quem estiver online, simples, simples, sem mais delongas.

 

Em /data/creaturescripts/

Adicione a seguinte tag:

<event type="login" name="MultipleExp" event="script" value="MultipleExpLogin.lua"/>

Em /data/creaturescripts/scripts/

Crie um arquivo.lua chamado MultipleExpLogin.lua e adicione :

local config = getBooleanFromString(getConfigInfo('experienceStages'))


function onLogin(cid)
registerCreatureEvent(cid, "MultipleExp")
if(config) then
		exp = getExperienceStage(getPlayerLevel(cid), getVocationInfo(getPlayerVocation(cid)).experienceMultiplier)
end
local players = getPlayersOnline()

if(#players >= 1 and #players <= 49) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.5)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.0)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x)")
end
elseif(#players >= 50 and #players <= 99) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.6)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.1)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.1x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.1x)")
end
elseif(#players >= 100 and #players <= 149) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.7)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.2)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.2x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.2x)")
end
elseif(#players >= 150 and #players <= 199) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.8)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.3)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.3x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.3x)")
end
elseif(#players >= 200 and #players <= 249) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.9)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.4)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.4x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.4x)")
end
elseif(#players >= 250) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 2.0)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.5)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.5x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x)")
end
end
return true
end

Creditos?

Emerson Henrique 

E quero ver algum filho de uma pessoa vim falar que eu copie esse script -.-"

Editado por Emersonssss (veja o histórico de edições)

Skype : emersonaaron Se Te ajudei não me REP+ isso não muda nada! kkkkkkkkkkkk

Link para o post
Compartilhar em outros sites
Emersonssss

Emersonssss 114

Postado
  • Autor
Postado

belo script rep +

Obg ele ainda esta grande, tenho ctz que existe maneira de simplificar pois meu conhecimento ainda é basico mas da pro gasto ! ^^

Skype : emersonaaron Se Te ajudei não me REP+ isso não muda nada! kkkkkkkkkkkk

Link para o post
Compartilhar em outros sites
  • 2 weeks later...
Sanieg

Sanieg 202

Postado
Postado

Boa muito bom 5 estrelas mais não falta algo não ???  :rock:

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
  • 3 weeks later...
  • 2 months later...
Kyosen

Kyosen 8

Postado
Postado

Belo script cara, parabens 

eu to aprendendo também a mecher com scripts mais ta foda aprende sozinho, tem como tu me ajudar ou me passar uns tutoriais ai pra mim aprende mais um pouco?

Procuro pessoas para formar equipe para fazer um server baseado em mitlogia

Link para o post
Compartilhar em outros sites
  • 5 weeks later...
  • 3 months later...
  • 8 months later...
  • 4 months later...
okshyro

okshyro 3

Postado
Postado
Em 16/07/2014 at 06:16, Emersonssss disse:

Fala Galerinha nessa madrugada eu modifiquei meu script e resolvi posta-lo para ajudar os OT-Admin iniciantes e ter algo diferente no server.

 

O Sistem Funciona assim, sabe quando vem um noob e fala " ADM Ponhe Double XP!!", com esse sistema vc resolve esse problema, ele se resumi quanto mais Players Online + XP é Adc para quem estiver online, simples, simples, sem mais delongas.

 

Em /data/creaturescripts/

Adicione a seguinte tag: 


<event type="login" name="MultipleExp" event="script" value="MultipleExpLogin.lua"/>

Em /data/creaturescripts/scripts/

Crie um arquivo.lua chamado MultipleExpLogin.lua e adicione : 


local config = getBooleanFromString(getConfigInfo('experienceStages'))


function onLogin(cid)
registerCreatureEvent(cid, "MultipleExp")
if(config) then
		exp = getExperienceStage(getPlayerLevel(cid), getVocationInfo(getPlayerVocation(cid)).experienceMultiplier)
end
local players = getPlayersOnline()

if(#players >= 1 and #players <= 49) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.5)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.0)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x)")
end
elseif(#players >= 50 and #players <= 99) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.6)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.1)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.1x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.1x)")
end
elseif(#players >= 100 and #players <= 149) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.7)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.2)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.2x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.2x)")
end
elseif(#players >= 150 and #players <= 199) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.8)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.3)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.3x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.3x)")
end
elseif(#players >= 200 and #players <= 249) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 1.9)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.4)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.4x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.4x)")
end
elseif(#players >= 250) then
    for _, pid in ipairs(players) do
		if isPremium(pid) then
		doPlayerSetRate(pid, SKILL__LEVEL, 2.0)
		else
		doPlayerSetRate(pid, SKILL__LEVEL, 1.5)
    end
end
if isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x + 0.5x)")
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "--[MultipleExp System]--\nPlayers Online : "..#players.."\nSeu Exp Foi Atualizado Para : ("..exp.."x + 0.5x)")
end
end
return true
end

Creditos?

Emerson Henrique 

E quero ver algum filho de uma pessoa vim falar que eu copie esse script -.-"

 

Funciona para tfs 1.2?

 

Link para o post
Compartilhar em outros sites
Emersonssss

Emersonssss 114

Postado
  • Autor
Postado

Não pois as funções estão diferente, foram reformuladas, porem posso passar pra 1.2 mais da um trampin

Skype : emersonaaron Se Te ajudei não me REP+ isso não muda nada! kkkkkkkkkkkk

Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 1
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito