View/Edit #1:kick

Switch to edit mode.

Name(s): kick
1:  "if (index(`connection_name(player) ! E_INVARG => \"nowhere\"', \"vv.carleton.ca\") && (!player:isa($prog)))"
2:  "  return player:tell(\"Due to the recent abuse of this verb and use of it contrary to intention, it has been disabled for all players connecting from Virtual Ventures. Good day. (Please @add-feature #3512 and type 'news 4' for more information about the proper use of the 'kick' verb.)\");"
3:  "endif"
4:  "Called roughly every week by the $clock, or wherever anyone kicks an object.  This verb executes all of an object's :_kick verbs."
5:  "Starts at #1:_kick and works its way up to 'this'."
6:  if (!callers() && !player:controls(this) && (x = listassoc(player._last_kickee, this)) && x[2] < time() + 500)
7:    return player:tell("Need you really kick ", this:title(), " that much?")
8:  endif
9:  if (player != this.owner && (`this.owner.no_kick ! E_PROPNF, E_INVIND' && !player:isa($guardian)) && !callers())
10:   return player:sub_tell("By the owner's request, only %1~s may kick this object.", this.owner)
11: endif
12: $code_utils:call_verbs({@$list_utils:reverse(this:ancestors()), this}, "_kick", {this}, callers() ? 1.0 | 80.0, #-1)
13: if (!callers())
14:   $esteem_utils:update_for_action(player, this, "kick")
15:   $msg:mtell("kick")
16: endif
17: "Last modified by whiz (#3135) on Thu Jul 19 01:04:01 2001 MDT."
18: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
19: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."

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

You are not logged in.

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