mob/proc/ChatLog(var/Info)
    set background = 1 //set background. Allows proc to yield when world.CPU is racing.
    var/wtf = 0 //create a variable wtf, default value of 0
    if(length(Info)>=5000) if the entry is too long:
        Info = "This entry was too long to be apended to the chat log." //change the argument (Info) to a message detailing the problem.
    if(src.client) //check if src has a client driving it.
        LOLWTF //this is a label for goto
        wtf += 1 //increment wtf by 1. This is a loop counter
        var/XXX = file("HURR/ChatLogs/[src.ckey]/[src.ckey][wtf].text") //loads or creates the first chatlog
        if(fexists(XXX)) //If the file exists, which, BTW it always will because we just created it.
            var/size=length(XXX) //Check the length of the file
            if(size>(1024*100)) //If the file exceeds the maximum size (100Kb max file size)
                goto LOLWTF //go to label LOLWTF, which will increment the loop count by 1, causing the next file to be loaded instead.
            else //If the file isn't too long:
                XXX<<"<br>[Info]" //Write the message to the file
        else //This branch doesn't make much sense. It will never run because we already created the file above.
            XXX<<"<br>[Info]"

//global variables that you can tweak to change how log files work.
var
    LOGFILE_MAX_MESSAGE_LEN = 5000
    LOGFILE_MAX_SIZE = 102400

logfile
    var/tmp
        ckey
        filename
        sequence = 0
        file
        len
    proc
        Log(message)
            var/mlen = length(message) //get the length of the current message

            if(mlen>=LOGFILE_MAX_MESSAGE_LEN) //if it's greater than allowed, change message to an error, then get mlen from that.
                message = "Entry Refused for length (length: [mlen])."
                mlen = length(message)

            file << "<br>[message]" //export the message to the file.
            len += mlen //increase the file size (this will be slightly inaccurate because of the linefeed, but nobody cares)
            if(len>=LOGFILE_MAX_SIZE) //if the file has reached the maximum size, rotate the log
                Rotate()

        Rotate() //call to rotate the log when the current one gets full.
            do
                filename = "[LOG_FILE_PATH]/[ckey]/[ckey][++sequence].txt" //loop until we find a file that doesn't already exist
            while(fexists(fname))

            file = file(filename) //create the new file from the filename we just iterated over
            len = length(file) //set the length of the file

        Initialize() //call to find the first logfile on the hard drive that isn't full. This should only be called once.
            while(!file) //while there isn't a file loaded
                filename = "[LOG_FILE_PATH]/[ckey]/[ckey][++sequence].txt"

                if(fexists(filename)) //if the file exists, load it, check its length.
                    file = file(filename)
                    len = length(file)

                    if(len>=LOGFILE_MAX_SIZE) //if the length is greater than allowed, set file to null, causing the loop to run again
                        file = null

                else //otherwise, create the file and set length to 0
                    file = file(filename)
                    len = 0

    New(owner) //called when the logfile is created
        if(owner) //if we've been created with an owner, set the ckey variable and call Initialize()
            ckey = owner
            Initialize()

client
    var/tmp
        logfile/logfile
    New()
        . = ..()
        if(.) //if the default client.New() returned a mob (login was allowed and successful)
            logfile = new/logfile(ckey) //create a logfile object and store it in client.logfile

    Del()
        logfile = null //orphan the logfile
        ..()

mob/proc/ChatLog(message)
    if(client)
        client.logfile.Log(message)