var/list/banlist= new/list()

var/savefile/Banfile = new("bans.sav")

mob/Mod/verb    

Ban(mob/Player/M in world)
        set category= "Admin"
        banlist+=M.client.address
        Banfile.cd = "/"
        src<< "<font color= white>You have banned [M]!</font>"
        Banfile["banned"] << banlist



    Unban(mob/M in banlist)
        var/who
        Banfile.cd = "/"
        Banfile["banned"] >> banlist
        banlist+=("cancel")
        who = input("Unban who?") in banlist 
        if(who != "cancel")
            banlist -= who 
        Banfile["banned"] << banlist

mob/proc
    Ban_Check()
        Banfile.cd = "/"
        Banfile["banned"] >> banlist
        if(client.address in banlist)
            src << "You are banned. Bye"
            del(src)
        else
            ..()

mob/Login()
    ..()
    Ban_Check()

world

        ..()
        Banfile.cd = "/"
        Banfile["banned"]>> banlist

var/list
  Banned=list()
  Staff=list()


Admin/verb
  Ban()
    set category="Admin"
    var/list/People=new
    for(var/mob/Player/M in world) People+=M
    var/mob/M=input("Who will you ban?","Ban")as null|anything in People
    if(!M) return
    Banned+=M.key
    Banned[M.key]+=list("IP")
    Banned[M.key]["IP"]=M.client.address
    world<<"[M] was banned!"
    M.Logout()

  Unban()
    set category="Admin"
    var/T=input("Who will you unban?","Unban")as null|anything in Banned
    if(!T) return
    if(alert("Are you sure you want to unban [T]?",,"Yes","No")=="Yes")
      Banned.Remove(T)
      world<<"[T] was unbanned!"

client/New()
  ..()
  for(var/m in Banned) if(address==Banned[m]["IP"])
    src<<"You are banned from this server!"
    del src