Sniper v1.0.6

tfm.exec.disableAutoNewGame(true)
tfm.exec.disablePhysicalConsumables(true)
tfm.exec.disableAllShamanSkills(true)
enabled=true
vivo=0
vivos=0
loop=0
prox=false
shaman=""
remain=10
players={}
p={}
mapas={"@7284500","@7282115","@7282073","@7284814","@6958866","@7177229","@3859389","@7285283","@4122612","@7286965"}
system.disableChatCommandDisplay("cmd",true)
system.disableChatCommandDisplay("p",true)
system.disableChatCommandDisplay("rank",true)
tfm.exec.newGame(mapas[math.random(#mapas)])
function eventLoop(p,f)
    ui.setMapName("<N><J>"..tfm.get.room.currentMap.."   <G>|   <N>Vivos : <V>"..vivos.."")
    if vivo == 2 then
        tfm.exec.killPlayer(shaman)
    end
    if f <= 5000 and f >= 4400 and vivo >= 2 then
        eventWin()
        tfm.exec.chatMessage("<N>Tempo esgotado! <VP><b>"..vivos.."</b> <N>ratos permaneceram vivos.",nil)
    end
    if f <= 500 then
        tfm.exec.newGame(mapas[math.random(#mapas)])
    end
    loop=loop+0.5
    if enabled == true then
    remain=remain-0.5
    end
    if remain <= 5 and remain >= 0.5 then
        ui.addTextArea(0,"<font size='33'><p align='center'>"..math.ceil(remain).."",nil,370,350,60,45,0x000001,0x000001,0.8,true)
    end
    if remain <= 0 and remain >= -1 then
        ui.addTextArea(0,"<font size='33'><p align='center'>Go!",nil,350,350,100,45,0x000001,0x000001,0.8,true)
    end
    if remain <= -1.5 then
        tfm.exec.setGameTime(30+(vivos*3))
        ui.removeTextArea(0,nil)
        enabled=false
        remain=10
    end
    vivos=vivo-1
end
function eventChatCommand(name,message)
    local arg = split(message, " ")

    if arg[1] == "p" then
        if arg[2] then
            nome = arg[2]:lower():gsub('%a', string.upper, 1)
        else
            nome = name
        end

        if tfm.get.room.playerList[nome] then
                ui.addTextArea(1,'<B><J><font size="17"><p align="center">'..nome,name,245,190,315,30,nil,0x2e424d,nil,true)
                ui.addTextArea(2,"<font size='12'>Vitórias: "..p[nome].wins.."<br>Rodadas: "..p[nome].rodadas.."<br>Eficiência: "..math.ceil(p[nome].eff).."%<br>Pontos: "..p[nome].pontos.."",name,255,230,290,70,0x0e232b,0x0e232b,nil,true)
                ui.addTextArea(3,"<R><p align='center'><B><a href='event:fechar'>Fechar</a>",name,255,300,290,20,0x3c5063,0x3c5063,nil,true)
            else
                tfm.exec.chatMessage("<R>"..nome.." não se encontra em sala.</R>",name)
            end
    end

    if arg[1] == "rank" then
            eventRanking(name)
        end
    if message == "cmd" then
        if name == "Camilledrain" then
            tfm.exec.chatMessage("Mandem seus mapas para o module:<br><b>http://atelier801.com/topic?f=751215&t=912752</b>",nil)
        end
    end
end
function eventTextAreaCallback(id,name,link)
    if link == "fechar" then
        for id=0,3 do
            ui.removeTextArea(id,name)
        end
    end
    if link == "close" then
    for id=-1,2 do
        ui.removeTextArea(id,name)
        ui.removeTextArea(6969+id,name)
        ui.removeTextArea(7979+id,name)
    end
    end
end
function eventRanking(name)
    local sc = {}
    for name, player in pairs(tfm.get.room.playerList) do
        sc[#sc+1] = {n=name,s=p[name].pontos,f=p[name].eff,w=p[name].wins}
    end

    table.sort(sc,function(a,b) return a.s>b.s end)

    str = ''
    for k,v in pairs(sc) do
        if k < 10 then
            if str ~= '' then
                str=str.."<br><J>"..k.."°</J>  |  <VP>"..v.n.."".."<N> "..v.s.." / "..v.w.." <J>"
            else
                str="<J>"..k.."°</J>  |  <VP>"..v.n.."".."<N> "..v.s.." / "..v.w.." <J>"
            end
        end
    end
             ui.addTextArea(1,'<B><J><font size="13"><p align="center">Top 10 (pontos / vitórias)',name,255,150,360,30,nil,0x2e424d,nil,true)
           ui.addTextArea(2,"<B><font size='12'>"..str,name,255,185,360,150,0x0e232b,0x0e232b,nil,true)
       ui.addTextArea(-1,"<B><p align='center'><font size='15'><R><a href='event:close'>Fechar</a>",name,340,320,190,20,0x3c5063,0x3c5063,nil,true)
    return str
end
function eventSummoningEnd(name)
    tfm.exec.killPlayer(name)
end
function eventNewGame()
    tfm.exec.setGameTime(36000)
    tfm.exec.chatMessage("Não é permitido o uso de objetos de shaman! Use somente a seta pra baixo.",nil)
    vivo=0
    prox=false
    obterJogadores()
    enabled=true
    remain=10
    for name,player in pairs(tfm.get.room.playerList) do
        p[name].rodadas=p[name].rodadas+1
        p[name].eff=(p[name].wins/p[name].rodadas)*100
        if name:sub(1,1) == "*" then
            tfm.exec.killPlayer(name)
            tfm.exec.chatMessage("<R>Você precisa estar logado no Transformice para poder jogar.",name)
        end
        if tfm.get.room.playerList[name].isShaman then
            shaman=name
            tfm.exec.setPlayerScore(name,0,false)
        end
        vivo=vivo+1
    end
end
function eventNewPlayer(name)
            p[name] = {
                wins = 0,
                rodadas = 0,
                eff = 0,
                pontos = 1
            }
            tfm.exec.bindKeyboard(name,40,true,true)
        tfm.exec.bindKeyboard(name,83,true,true)
        tfm.exec.chatMessage("<VP><b>Sniper!</b><br><N>Sobreviva às bigornas do shaman! Criado por Camilledrain, ranking e perfil feitos por Ahrizrdbrand e Skyrectarrow.<br><br>versão 1.0.6: adição de novos mapas, perfil e ranking temporários",name)
end
function split(t,s)
local a={}
for i,v in string.gmatch(t,string.format("[^%s]+",s or "%s")) do
 table.insert(a,i)
 end
    return a
end
for name,player in pairs(tfm.get.room.playerList) do
    eventNewPlayer(name)
end
function obterJogadores()
    players={}
    for name,player in pairs(tfm.get.room.playerList) do
        table.insert(players,name)
    end
end
function eventKeyboard(name,key,down,x,y)
    if y < 150 then
        if enabled == false then
            if loop >= 1.5 then
                tfm.exec.addShamanObject(10,x,y+60,90,0,25,false)
                loop=0
            end
        end
    end
end
obterJogadores()
function eventPlayerDied(name)
    p[shaman].pontos=p[shaman].pontos+1
    p[name].pontos=p[name].pontos+1
    vivo=vivo-1
    if tfm.get.room.playerList[name].isShaman then
        p[name].pontos=p[name].pontos-15
        eventWin()
    end
    local i=0
    local n
    for pname,player in pairs(tfm.get.room.playerList) do
        if not player.isDead then
            i=i+1
            n=pname
        end
    end
    if i==0 then
        tfm.exec.newGame(mapas[math.random(#mapas)])
    elseif i==1 then
        tfm.exec.giveCheese(n)
        tfm.exec.playerVictory(n)
        tfm.exec.setGameTime(5)
        p[name].pontos=p[name].pontos+16
    end
end
function eventWin()
    for name,player in pairs(tfm.get.room.playerList) do
        tfm.exec.killPlayer(shaman)
        tfm.exec.giveCheese(name)
        tfm.exec.playerVictory(name)
        tfm.exec.setGameTime(5)
    end
end
function eventPlayerWon(name)
    p[name].pontos=p[name].pontos+10
    vivo=vivo-1
    p[name].wins=p[name].wins+1
    if tfm.get.room.playerList[name].isShaman then
        p[name].wins=p[name].wins+1
        p[name].pontos=p[name].pontos+10
    end
end