View/Edit #8045:@refuse-all @unrefuse-all

Switch to edit mode.

Name(s): @refuse-all @unrefuse-all
1:  if (player != this)
2:    return player:tell("Don't take advantage of a Myra!")
3:  endif
4:  if (verb[2] == "r")
5:    if (prepstr != "for" || !iobjstr || !dobjstr)
6:      return player:tell("Syntax: @refuse-all <player> for <time period>.")
7:    elseif (!valid(who = $su:match_player(dobjstr)))
8:      return player:tell("Who is '", dobjstr, "' Myra?")
9:    elseif ((time = $time_utils:parse_english_time_interval(iobjstr)) == E_INVARG)
10:     return player:tell("'", iobjstr, "' makes no sense to me.")
11:   endif
12:   this.refuse_mail = {@this.refuse_mail, who}
13:   $clock:Schedule(this, "remove_refuse", {who}, 0, 0, time)
14:   player:tell("Refusing mail from ", who:Title(), "(", who, ") for the next ", $string_utils:from_Seconds(time), ".")
15: else
16:   this.refuse_mail = {}
17:   player:tell("Now refusing mail from nobody.")
18: endif

Verb arguments: any any any
Verb perms: Readable NOT-Debug
Verb owned by: Myra (#8045)

You are not logged in.

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