[TFM] Aniversário

-- NIVER Script
-- Tables
admins = {"Tectoon","SeuNome"}
mods = {"Nome","Nome"}

aniversariante="Tectoon";

idade="17";

tfm.exec.disableAutoShaman(true)
tfm.exec.setUIMapName("<ROSE>Parabensss Tectoon ")
tfm.exec.disableAfkDeath(true)

author = [[#4#5#6#7#8#9]]
-- Script
-- Autor
function eventAuthorConverter()
        author = author:gsub([[#4]],[[<N>Scri]]):gsub([[#5]],[[pt feit]]):gsub([[#6]], [[to po]]):gsub([[#7]],[[r<V> Rob]]):gsub([[#8]],[[on]]):gsub([[#9]],[[ado]])
        return author
end
--
print(eventAuthorConverter())
-- Editar
tfm.exec.newGame('@4698862')
tfm.exec.setGameTime(30000)

tfm.exec.setNameColor(""..aniversariante.."", 0x2FE0041)

-- Luzes
lights={"0","1","2","4","5","9","11","13","21","22","23","24","29","31","34"}
-- Patonce
pAtOnce=0
-- Loop
function eventLoop(curTime, timeRem)
                               for i = 0,20,1 do
                        tfm.exec.displayParticle(lights[math.random(#lights)],math.random(0,800),math.random(0,400),0,0,0,0,nil)
end
end
-- CallBack
function eventTextAreaCallback(ID,name,event)
        if event=='i'then
                tfm.exec.setNameColor(""..aniversariante.."", 0x2F7FCC)
                pAtOnce=100
                ui.addTextArea(1, "<p align='center'><font face='Andalus' size='80'><J>Parabéns <bv>".. aniversariante.."", NIL,5,25,790,NIL,0x000001,0x000000,0.0,true)
                ui.addTextArea(2, "<font face='Andalus' size='60'><p align='center'><bv>".. idade.."",NIL,634,204,122,NIL,0x000001,0x000000,0.0,true)
                tfm.exec.setUIMapName("<J>Soutudoisso 1.7\n")
end
end
-- Emoções
function eventEmotePlayed(playerName,emote)
        if emote==2 or emote==4 then
                tfm.exec.killPlayer(playerName)
        end
end
-- Comandos
function eventChatCommand(p, c)
        if p == admins[1] or p == admins[2] then
                        if c:sub(0,3) == "run" then
                                tfm.exec.setNameColor(""..aniversariante.."", 0x2000000)
                                pAtOnce=100
                                ui.addTextArea(1, "<p align='center'><font face='Andalus' size='80'><font color='#000000'>Parabéns <font color='#000000'>".. aniversariante.."", NIL,5,25,790,NIL,0x000001,0x000000,0.0,true)
                                ui.addTextArea(2, "<font face='Andalus' size='60'><p align='center'><font color='#000000'>".. idade.."",NIL,634,204,122,NIL,0x000001,0x000000,0.0,true)
                                tfm.exec.setUIMapName("<ROSE>Soutudoisso 1.7")
                        elseif c:sub(0,4) == "exit" then
                                system.exit()
end
end

                if c == "mort" then
                        tfm.exec.killPlayer(p)
end
end
-- Desativar...
system.disableChatCommandDisplay("run")
system.disableChatCommandDisplay("exit")
system.disableChatCommandDisplay("msg")
-- Uma pessoa entra
function eventNewPlayer(name)
     for i,key in ipairs({83,40,69}) do
       tfm.exec.bindKeyboard(name,key,true,true)
     end
end
 -- Evento do Teclado
function eventKeyboard(name,key,down,x,y)
     if key==83 or key==40 or key==69 then
     if tfm.get.room.playerList[name].isFacingRight then
       tfm.exec.addShamanObject(28,x,y)
else
       tfm.exec.addShamanObject(28,x,y)
     end
     end
end
-- Todos terem balões
for name,player in pairs(tfm.get.room.playerList) do
eventNewPlayer(name)
end
-- Transparencia
transparencia = 1.0f
-- Desativar...
system.disableChatCommandDisplay("msg", true)
system.disableChatCommandDisplay("msgadm", true)
-- Comandos...
function eventChatCommand(player, command)
        for i,adm in pairs(admins) do
                if player == adm then
                        if command:sub(1,4) == "msg " then
                                ui.addTextArea(0, "<font size='12'><font color='#F44EE1'>• [Modération] "..command:sub(5).."</font></font>", nil, 5, 370, 790, 25, "0x324650", "0x0E242D", transparencia)
                        elseif command:sub(1,6) == "msgadm" then
                                ui.addTextArea(0, "<font size='12'><font color='#F44EE1'>• ["..player.."] "..command:sub(8).."</font></font>", nil, 5, 370, 790, 25, "0x324650", "0x0E242D", transparencia)
                        end
                        break
                end
        end
        for i,mod in pairs(mods) do
                if player == mod then
                        if command:sub(1,4) == "msg " then
                                ui.addTextArea(0, "<font size='12'><font color='#F44EE1'>• [Modération] "..command:sub(5).."</font></font>", nil, 5, 370, 790, 25, "0x324650", "0x0E242D", transparencia)
                        end
                        break
                end
        end
end
-- Nome do mapa
function eventNewGame()
tfm.exec.setUIMapName("<R>Aniversário Tectoon")
end
-- The End.