@verb #1:"kick" this none none rxdo #55
@program #1:"kick" this none none
"if (index(`connection_name(player) ! E_INVARG => \"nowhere\"', \"vv.carleton.ca\") && (!player:isa($prog)))"
"  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.)\");"
"endif"
"Called roughly every week by the $clock, or wherever anyone kicks an object.  This verb executes all of an object's :_kick verbs."
"Starts at #1:_kick and works its way up to 'this'."
if (!callers() && !player:controls(this) && (x = listassoc(this, player._last_kickee)) && x[2] < time() + 500)
  return player:tell("Need you really kick ", this:title(), " that much?")
endif
if (player != this.owner && (`this.owner.no_kick ! E_PROPNF, E_INVIND' && !player:isa($guardian)) && !callers())
  return player:sub_tell("By the owner's request, only %1~s may kick this object.", this.owner)
endif
$code_utils:call_verbs({@$list_utils:reverse(this:ancestors()), this}, "_kick", {this}, callers() ? 1.0 | 80.0, #-1)
if (!callers())
  $esteem_utils:update_for_action(player, this, "kick")
  $msg:mtell("kick")
endif
"Last modified by whiz (#3135) on Thu Jul 19 01:04:01 2001 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.