MOO-cows Mailing List Archive

[Prev][Next][Index][Thread]

Another verb move for the 25Dec95 core



Stacey Greenstein suggests @copy-move #6:confunc to #91:confunc

A better solution is to split off the functionality that is only mail
related, thusly:

@program $player:confunc
if (valid(cp = caller_perms()) && caller != this && !$perm_utils:controls(cp, this) && caller != #0)
  return E_PERM;
endif
this:("@last-connection")();
$news:check();
.

@program $mail_recipient_class:confunc
if (valid(cp = caller_perms()) && caller != this && !$perm_utils:controls(cp, this) && caller != #0)
  return E_PERM;
endif
nm = this:length_all_msgs() - this:length_date_le(this:get_current_message()[2]);
if (nm)
  this:notify(tostr("You have new mail (", nm, " message", nm == 1 ? "" | "s", ").", this:mail_option("expert") ? "" | "  Type 'help mail' for info on reading it."));
endif
this:mail_catch_up();
this:check_mail_lists();
pass(@args);
.


This change has been made on LambdaMOO.

      Judy Anderson yclept yduJ          'yduJ' rhymes with 'fudge'
 yduJ@cs.stanford.edu (personal mail)   yduJ@harlequin.com (work-related)
	Join the League for Programming Freedom, lpf@uunet.uu.net


Follow-Ups: References:

Home | Subject Index | Thread Index