var
    monthlen = 18000
    month = 0
    year = 1
mob/var
    mborn = 0
    yborn = 1
    age=4
    trueage=4
    decline = 40
mob
    Stat()
        ..()
        statpanel("Time and Age")
        stat("Month: [month]")
        stat("Year: [year]")
        stat("Age:[usr.age](True: [usr.trueage]")
        stat("Decline: [decline]")
        

mob/GM
    verb
        MonthLen()
            set category = "Admin"
            if(usr.key in admin_list)
                var/input = input(usr, "Please select a length for a month in 1/10th a second") as null|num
                monthlen = input
                world << "The length of a month is now [input/10] seconds long."  
proc/Decline()
    for(var/mob/M in world)
        if(M&&isclient(M))
            var/cy = year - M.yborn
            var/y = cy*10 - 10
            if(y<0) y = 0
            if(month>M.mborn)
                y += (month - M.mborn)
            else
                y -= (M.mborn - month)
            if(y>M.decline)
                M.ChakraMax -= 10
                M.Chakra -= 10
                if(M.ChakraMax < 200)
                    M.ChakraMax = 200
                if(M.Chakra < 0)
                    M.Chakra = 0
                M.MSTAM -= 30
                M.STAM -= 30
                if(M.MSTAM < 500)
                    M.MSTAM = 500
                if(M.STAM < 0)
                    M.STAM = 0
            if(y > (M.decline + 30))
                M.ChakraMax = 1
                M.Chakra = 1
                M.MSTAM = 1
                M.STAM = 1
                M.HP = 1
                M.MHP = 1
                M.MHEAD = 1
                M.HEAD = 1
                M.MBODY = 1
                M.BODY = 1
                M.RARM = 1
                M.MRARM = 1
                M.LARM = 1
                M.MLARM = 1
                M.LLEG = 1
                M.MLLEG = 1
                M.MRLEG = 1
                M.RLEG = 1
proc/Time()
    while(1)
        sleep(monthlen)
        if(year==0)
            year = 1
            month = 0
        if(month==9)
            month = 0
            year++
            world << "It is now Month [month] of Year [year]"
            Decline()
            var/list/Ranks = list("Hokage", "Mizukage", "Fire Master", "Water Master", "Wind Master", "Earth Mastery", "Water Master", "Nara Leader", "Hyuuga Leader", "Uchiha Leader", "Haku Leader", "Kaguya Leader")
            for(var/mob/M in world)
                if(M)
                    if(M.Figure in Ranks)
                        M.teachesleft++
        else
            month++
            world << "It is now Month [month] of Year [year]"
            Decline()
            var/list/Ranks = list("Hokage", "Mizukage", "Fire Master", "Water Master", "Wind Master", "Earth Mastery", "Water Master", "Nara Leader", "Hyuuga Leader", "Uchiha Leader", "Haku Leader", "Kaguya Leader")
            for(var/mob/M in world)
                if(M)
                    if(M.Figure in Ranks)
                        M.teachesleft++

world/proc
    SaveTime()
        var/savefile/F = new("time_data.sav")
        F.cd = "/time/"
        F["month"]<<month
        F["year"]<<year
        F["monthlen"]<<monthlen
    LoadTime()
        var/savefile/F = new("time_data.sav")
        F.cd = "/time/"
        F["month"]>>month
        F["year"]>>year
        F["monthlen"]>>monthlen
world
    New()   //when the world begins, this happens
        //z_layer_check()
        ..()
        monthlen = 18000
        month = 0
        year = 1
        LoadTime()  //the time is loaded,
        Time()  //and the time begins to count.
    Del()
        SaveTime()
        ..()