parent $libraries object $time_root var $root child_index 0 var $root owners [$time_root] var $root fertile 0 var $root inited 1 var $time_root secs_per_year 31536000 var $time_root mins_per_hour 60 var $time_root secs_per_week 604800 var $time_root secs_per_day 86400 var $time_root created_on 758611955 var $time_root hours_per_day 24 var $time_root days_per_year 365 var $time_root year_begin 0 var $time_root secs_per_min 60 var $time_root days [""] var $time_root months #[["Jan", "January"], ["Feb", "February"], ["Mar", "March"], ["Apr", "April"], ["May", "May"], ["Jun", "June"], ["Jul", "July"], ["Aug", "August"], ["Sep", "September"], ["Oct", "October"], ["Nov", "November"], ["Dec", "December"]] var $time_root standard 0 var $time_root secs_per_hour 3600 var $root owned [$time_root] var $root manager $time_root var $root writable [$time_root] var $root readable ['parameters, 'methods, 'code] var $root dbref 'time_root method init_time .perms(caller(), $root); secs_per_min = 60; secs_per_hour = 3600; secs_per_day = 86400; secs_per_week = 604800; secs_per_year = 31536000; created_on = 0; mins_per_hour = 60; hours_per_day = 24; days_per_year = 365; year_begin = 0; days = [""]; months = [""]; standard = 0; . method time return .convert(); . method ctime arg [time]; time = [@time, .time()][1]; if (!standard) return "still working on this"; else return ctime(time); . method hr_min_sec arg [time]; // returns a list: ["hh", "mm", "ss"] return [tostr(.hour()), tostr(.minute()), tostr(.second())]; . method hour arg [time]; // either send a pre-converted time, or nothing. time = time ? time[1] | (standard ? time() | (.convert())); return ((time % secs_per_year) % secs_per_day) / secs_per_hour; . method convert arg [time]; // converts time into whatever time based off created_on return ([@time, time()][1]) - created_on; . method minute arg [time]; // either send a pre-converted time, or nothing. time = time ? time[1] | (standard ? time() | (.convert())); return (((time % secs_per_year) % secs_per_day) % secs_per_hour) / secs_per_min; . method second arg [time]; // either send a pre-converted time, or nothing. time = time ? time[1] | (standard ? time() | (.convert())); return (((time % secs_per_year) % secs_per_day) % secs_per_hour) % secs_per_min; . method year arg [time]; // either send a pre-converted time, or nothing. // returns years since 'created_on; // prolly not right. time = time ? time[1] | (standard ? time() | (.convert())); return (time / secs_per_year) + year_begin; . method day arg [time]; // either send a pre-converted time, or nothing. // returns days since 'created_on; // prolly not right. time = time ? time[1] | (standard ? time() | (.convert())); return time / secs_per_day; . method minute_str arg [args]; // will call $integer.int_to_name return 'null; . method hour_str arg [args]; // will call $integer.int_to_name return 'null; . method second_str arg [args]; // will call $integer.int_to_name return 'null; . method day_str arg [time]; time = [@time, .time()][1]; return tostr(.day()); . method months return months; . method days return days; . method secs_per_min return secs_per_min; . method secs_per_hour return secs_per_hour; . method secs_per_day return secs_per_day; . method secs_per_week return secs_per_week; . method secs_per_year return secs_per_year; .