Ghost.lua

--Test of a server command that makes the admin invisible
--Inspired from Wizard, Nuggets, Soap and Superzilla's works
                --With the great help of Kennan

ghost = {}

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(processid, game, persistent)
    main_timer  = registertimer(20, "IsPlayerGhost")
end


function OnServerCommand(player, command)

    local t = tokenizecmdstring(command)
    local count = #t

    if t[1] == "sv_ghost" then
        GhostPlayer(player)
        return false
    elseif t[1] == "sv_unghost" then
        UnGhostPlayer(player)
        return false
    end
end


function OnGameEnd(stage)

    if stage == 1 then
        if main_timer then
            removetimer(main_timer)
        end

        for player = 0, 15 do
            if getplayer(player) then
                ghost[gethash(player)] = false
            end
        end
    end
end

function OnPlayerJoin(player)

    ghost[gethash(player)] = false
end

function OnPlayerLeave(player)

    ghost[gethash(player)] = false
end

function IsPlayerGhost(id, count)

    for player = 0, 15 do
        if getplayer(player) then
            if ghost[gethash(player)] == true then
                local z = readfloat(getplayer(player) + 0x100)
                writefloat(getplayer(player) + 0x100, z - 1000)
            end
        end
    end
    return true
end


function GhostPlayer(player)

    if ghost[gethash(player)] ~= nil then
        if ghost[gethash(player)] == true then
            sendconsoletext(player, "You are already in Ghost Mode!")
        else
            ghost[gethash(player)] = true
            sendconsoletext(player, "Ghost Mode Enabled!")
        end
    end
end

function UnGhostPlayer(player)

    if ghost[gethash(player)] ~= nil then
        if ghost[gethash(player)] == false then
            sendconsoletext(player, "You are not in Ghost Mode!")
        else
            ghost[gethash(player)] = false
            sendconsoletext(player, "Ghost Mode Disabled!")
        end
    end
end