View/Edit #12:_confunc

Switch to edit mode.

Name(s): _confunc
1:  $perm_utils:is_called_from($login, "user_connected") || raise(E_PERM)
2:  if (this:first_connection())
3:    "SchoolNet EULA is deemed unwanted.  Dax 2006"
4:    "  this:tell($msg:msg_first_connect())"
5:    "  while (typeof(resp = `$cmd_utils:yes_or_no(\"Do you understand and promise to abide by these policies?\") ! E_INVARG') == $ERR)"
6:    "  endwhile"
7:    "  if (!resp)"
8:    "    player:tell(\"Sorry you don't wish to join us.  Good bye!\")"
9:    "    boot_player(this)"
10:   "  endif"
11:   this:tell("*** Connected ***")
12: elseif (!this:isa($guest))
13:   if (this.last_disconnect_time != 0)
14:     player:tell("You were last here on ", player:ctime(this.last_disconnect_time), ".")
15:   endif
16: endif
17: "nm = this:length_all_msgs() - this:length_date_le(this:get_current_message()[2]);"
18: nm = length(this:unread_messages(this))
19: if (nm)
20:   this:tell("<font color=#FFFF00>You have new mail (", nm, " message", nm == 1 ? "" | "s", ").", this:mail_option("expert") ? "</FONT>" | "  Type '<A xch_cmd=\"@mail\">@mail</A>' for info on reading it.</FONT>")
21: endif
22: this:mail_catch_up()
23: this:check_mail_lists()
24: this:clean_quota_contribs()
25: $scheduler:run(15.0, $postman, "mail_for_me", {}, this, this)
26: this.gaglist = setremove(this.gaglist, #-1)
27: this.notified_of_pending_repo = 0
28: if (this:isa($guest))
29:   $wiz_utils:mentor_alert(this.name, " connects.")
30: elseif (parent(this) == $player)
31:   $wiz_utils:mentor_alert(this.name, " (a $player) has connected.")
32: endif
33: "Last modified by Dax (#789) on Wed May 31 21:02:50 2006 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]