con-mailwarn.muf

@program con-mailwarn
1 99999 d
1 i
$version 1.2
 
$include $lib/props
 
$define maildir "_page/mail#" $enddef
  
: mail-warn
  maildir me @ over locate-prop
  dup ok? if
    me @ over controls not if pop me @ then
    swap getpropstr atoi
  else
    pop pop 0
  then
  dup if
    dup 1 > if
      intostr " page-mail messages" strcat
    else pop "a page-mail message"
    then
  else pop exit
  then
  "You sense that you have " swap strcat
  " waiting." strcat
  tell
  "You can read your page-mail with 'page #mail'" tell
;
.
c
q
@register #me con-mailwarn=tmp/prog1
@set $tmp/prog1=3
@set $tmp/prog1=V
@propset #0=dbref:_connect/mailwarn:$tmp/prog1
@register #me =tmp