var/global/bannedlist = list()
var/list/admins_list = list("Copnm","Bballman12344")
var/list/GM_list = list()

world/New()
    ..()
    var/savefile/banlist = new("banlist.sav")
    banlist >> bannedlist
    var/savefile/admins = new("admins.sav")
    admins >> GM_list
world/Del()
    ..()
    var/savefile/banlist = new("banlist.sav")
    banlist << bannedlist
    var/savefile/admins = new("admins.sav")
    admins << GM_list

proc
    AddBan(keytocheck)
        bannedlist += keytocheck
    RemoveBan(keytocheck)
        bannedlist -= keytocheck
    CheckBan(keytocheck)
        return (keytocheck in bannedlist)
    AddGM(GMtocheck)
        GM_list += GMtocheck
    RemoveGM(GMtocheck)
        GM_list -= GMtocheck
    CheckGM(GMtocheck)
        return (GMtocheck in GM_list)

mob
    Login()
        ..()
        if(key in admins_list)
            verbs += typesof(/mob/Admin_Verbs/verb)
        if(key in GM_list)
            verbs += typesof(/mob/Admin_Verbs/verb)

    Admin_Verbs/verb
        Address()
            set category = "Host"
            set desc = "Displays the BYOND's IP address of the game."
            if(usr.key in admins_list|usr.key in GM_list)
                src <<"<b>World Address:</b> byond://[world.address]:[world.port]"
        Ban(mob/M in world)
            set name="Ban"
            set category="Host"
            if(usr.key in admins_list|usr.key in GM_list)
                if(M.key in admins_list)
                    alert("You cannot ban a GM!","Ok")
                    return
                else
                    alert("You have banned [M]!","Ok")
                    M <<"You have been banned!"
                    Logout()
                    ..()
                    world << "<font color=red>[usr]</font> has just logged out."
                    AddBan(M.key)
                    del(M)
        Unban(keytounban in bannedlist)
            set name ="Unban"
            set category ="Host"
            if(usr.key in admins_list|usr.key in GM_list)
                if(keytounban in bannedlist)
                    alert("You have unbanned [keytounban].","Ok")
                    RemoveBan(keytounban)
        Add_GM(mob/M in world)
            set name="Add GM"
            set category="Host"
            if(usr.key in admins_list)
                if(M.key in admins_list)
                    alert("[M] is already a GM.","Ok")
                    return
                else
                    alert("You have awared [M] with GM powers!")
                    M <<"You are now a GM."
                    AddGM(M.key)
        Remove_GM(GMtoremove in admins_list|GMtoremove in GM_list)
        ,,,,,,, set name="Remove GM",,,,,,,,
            set category="Host"
            if(usr.key in admins_list)
                if(GMtoremove in admins_list)
                    alert("You cannot take away [GMtoremove]'s GM powers!","Ok")
                    return
                else
                    alert("You have taken [GMtoremove]'s GM powers away.","Ok")
                    RemoveGM(GMtoremove)