[MultipleExp System]

Postado Julho 16, 2014 10 anos

Este é um post popular.

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 Julho 16, 2014 10 anos por Emersonssss (veja o histórico de edições)

Citar

Mention