;"Files in off-line dir: login-button.gif, description, and joinus-button.gif" @chown #309."age" to 0 ;;#309.("age") = "thirty-one years, ten months" ;;#309.("aliases") = {} ;;#309.("best_before") = 0 ;;#309.("subsidised") = 0 ;;#309.("www_counter") = 2474015 ;;#309.("notified_of_pending_repo") = 0 ;;#309.("obj_disk_size") = 10466 @args #309:"_render_page" this none this @chmod #309:_render_page rx @program #309:_render_page "*** DON'T TOUCH THIS CODE *** AUTOMATICALLY GENERATED ***" (caller == this) || raise(E_PERM) login = $www:parse_GET("login") goto = $www:parse_GET("goto") || ($www.url + "home") if (login) if (toobj(login) == player.user) $www.error:unauthorized() else "Successful login." "Feed the browser a 4-month cookie then redirect to the requested page." player:notify("HTTP/1.0 302 Moved Temporarily") player:notify($www:server_name()) date = ctime(time() + (((4 * 30) * 24) * 3600)) date = tostr(date[1..3], ", ", date[9..10], "-", date[5..7], "-", date[21..24], " ", date[12..19], " GMT") player:notify(tostr("Set-Cookie: 309=", toint(player.user), "; path=/; expires=", date, ";")) player:notify("Location: " + goto) player:notify("") player:boot() endif return endif who = player:get_cookie() who = `toobj(who[1]) ! ANY => #0' who = is_player(who) ? who.name | "" player:tell({"", ""}) player:tell(" ", $name, "") player:tell({" ", " ", " ", " ", " ", "", "", "", "", "", "", "
", "

Moo Canada, eh?

", "		"}) player:tell(" An online community of over a thousand young%A0Canadians.
In operation for ", this.age, ".") player:tell({"
", "", "", "", " ", " ", " ", " ", " ", "", "", "", " ", " ", "", "", " ", "", "", " ", " ", " ", "", "", " ", " ", "", "
Connect Now%A0Create a Player%A0", "", "
"}) if (who) player:tell("

Welcome back, ", who, ".

") player:tell("

\"Login\"

") else player:tell("

Login

") endif if (player.user == $no_one) player:tell("

Or visit as a%A0guest.

") endif player:tell({" 		", "
    ", "
  • Chat", "
  • Mail & Newsgroups", "
  • Programming", "
  • Games"}) if (who) player:tell("

    Join Us

    ") else player:tell("

    \"Join

    ") endif player:tell({"
", "

We are completely free and non-commercial.

", "
Who's Connected%A0About the Moo
"}) p = {} for x in (connected_players()) if (x:isa($connectable)) p = {@p, {x.name, $www:link(x, x.name)}} endif endfor if (length(p) == 0) player:tell("Nobody is connected.") else if (length(p) == 1) player:tell("There is only one user connected:
") else player:tell("There are ", length(p), " users connected:
") endif player:tell($su:english_list($list_utils:slice($list_utils:sort_alist(p), 2)), ".") endif player:tell({" 		", "A Moo is an online virtual world where people can chat, build objects and write programs.%A0 Moo Canada is the largest and best Moo in Canada.%A0 Want%A0to%A0find%A0out%A0more?", "
", "", "

If you have any problems, please don't hesitate to contact%A0the%A0Wizzen.

", "", "", ""}) "Last modified by Dax (#789) on Wed Jul 28 21:28:30 2010 UTC." . @args #309:"_kick" this none this @chmod #309:_kick rx @program #309:_kick "Begin generic security check (_kick)" if ((verb == "_kick") && (!args[1]:isa(this))) raise(E_INVARG, "Illegal object", args[1]) return E_INVARG endif "End generic security check (_kick)" "Dynamically update the stated age of the MOO." seconds = time() - $slacker.first_connect_time days = ((seconds / 60) / 60) / 24 years = days / 365 months = (days - (years * 365)) / 30 if (months == 12) "Silly hack. -- Dax" months = 0 years = years + 1 endif age = "" if (years) age = $su:english_number(years) + ((years == 1) ? " year" | " years") endif if (months) age = ((age + ", ") + $su:english_number(months)) + ((months == 1) ? " month" | " months") endif this.age = age "Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST." . "***finished***