27e
@verb #5655:"sign" this none none rxdo #6319
@program #5655:"sign" this none none
if (!this.can_sign_away && player.location != this.location && caller != this)
  return player:tell("Umm...I don't see that...umm...here.")
endif
if (this == $signable)
  $msg:mtell("nosign")
elseif (player:isa($guest))
  $msg:mtell("noguests")
else
  caller == this && (player = args[1])
  if (i = $list_utils:assoc(player, this.signed))
    return $msg:mtell("signed", ctime(i[2]))
  endif
  this.signed = {@this.signed, {player, time()}}
  $msg:mtell("sign")
endif
"Last modified by Raptor (#6319) on Thu Nov 26 20:55:58 1998 MST."
.

0