5c1
@verb #8438:"look_self" this none this rxdo #8438
@program #8438:"look_self" this none this
"Copyed from $player:look_self, by Slacker (#55)."
"Hacked by Jay (#8438) in order to notify looks, tell a player if they're"
"  being gaged and to announce other messages in the room."
!player:isa($webber) && player:tell($string_utils:center(this:titlec(), player:linelength()))
player:tell(this:description())
if (!$object_utils:connected(this, 0))
  if ($wiz_utils:isnewt(this))
    player:sub_tell(this.nologin[3], this, $string_utils:from_seconds(this.nologin[1] - time(), 1))
  else
    $msg:mtell("sleeping")
  endif
elseif (player in this.gaglist)
  $msg:mtell("gaged")
elseif ((idle = idle_seconds(this)) < 60)
  $msg:mtell(#-1 in this.gaglist ? "deaf" | "awake")
elseif ((z = this:_animator()) != 0)
  $msg:mtell("animated", z)
else
  $msg:mtell("idle", $string_utils:from_seconds(idle))
endif
this:tell_contents(this:contents())
"if ((player != this) && this:is_listening(player))"
"  this:tell(\"=> \", (player.location == this.location) ? \"\" | tostr(\"(From \", $string_utils:nn(player.location), \") \"), $string_utils:nn(player), \" looks you over.\");"
"  player:tell($cecil_utils:pronoun(this, \"He\"), \" notices you looking, and waves hello.\");"
"  player.location:announce_all_but({player, this}, player:title(), \" looks \", this:title(), \" over.\");"
"endif"
"Last modified by Jay (#8438) on Fri Apr 13 06:18:32 2001 MDT."
.

0