3a7
@verb #12:"_modify_esteem _modify__esteem" this none this rxd #55
@program #12:"_modify_esteem _modify__esteem" this none this
"FLOAT new_esteem = :_modify_esteem(FLOAT esteem_change)"
""
"Changes the esteem by the given increment, whether positive or negative."
caller_perms():isa($guardian) || raise(E_PERM, "Nuh-uh.")
typeof(args[1]) == $FLOAT || raise(E_ARGS, "Incorrect argument type.")
"Just for Lao...."
"this._esteem = this._esteem + args[1];"
this:_set__esteem(this:_get__esteem() + args[1])
if (this:_get_esteem() < $esteem_utils.boot_level)
  "boot_player(this);"
  "This is too draconian, even for us. --Cecil"
  args[1] < 0.0 && boot_player(this)
endif
"Last modified by whiz (#3135) on Thu May 16 21:21:17 2002 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 Tue May  3 13:56:59 2005 MDT."
.

0