var/list/computer_bans=list()

client
    New()
        if(IsComputerBanned())
            src<<"<font color=red><big><tt>You have been banned from [world.name]</tt></big></font>"
            del(src)
        else
            ..()

    proc
        IsComputerBanned()
            if(computer_id in computer_bans)return 1
            else return 0

proc
    CompBoot(key)
        for(var/client/C)
            if(C.key==key)
                del(C)
proc
    saveComputerBans()
        var/savefile/F=new("computer_bans.sav")
        F<<computer_bans
    loadComputerBans()
        if(fexists("computer_bans.sav"))
            var/savefile/F=new("computer_bans.sav")
            F>>computer_bans

world
    New()
        loadComputerBans()
        ..()
    Del()
        saveComputerBans()
        ..()

    Ban_Computer()
        set category="Staff"
        var/list/p=list()
        for(var/client/C)
            p[C.key]=C.computer_id
        var/P=input("Ban who's computer?","Ban Computer ID")as null|anything in p
        if(!P)return
        computer_bans[p[P]]=P
        src<<"[P]'s computer has been banned. ([p[P]])"
        CompBoot(P)

    Unban_Computer(id in computer_bans)
        set category="Staff"
        var/list/ids=list()
        for(var/C in computer_bans)
            ids+=computer_bans[C]
            ids[computer_bans[C]]=C
        var/P=input("UnBan who's computer?","UnBan Computer ID")as null|anything in ids
        if(!P)return
        computer_bans-=ids[P]
        src<<"[P]'s computer has been unbanned."


    Check_Computer_Bans()
        set category="Staff"
        for(var/key in computer_bans)
            src<<"[key] ([computer_bans[key]])"