39a
@verb #12:"_get_esteem _get__esteem" this none this rxd #55
@program #12:"_get_esteem _get__esteem" this none this
"FLOAT esteem = :_get_esteem()"
""
"Returns the esteem in which other players hold this player."
"caller_perms():isa($guardian) || raise(E_PERM, \"Nuh-uh.\");"
{now, last_esteem, last_time, decay_rate} = {time(), @this._esteem}
{now, last_esteem, last_time} = {tofloat(now), tofloat(last_esteem), tofloat(last_time)}
"But for loops are so much fun.... <G>"
loss = $math_utils:compound(last_esteem, decay_rate, (now - last_time) / 86400.0)
"No, Lao, this one can't use :_get_esteem."
this._esteem = {loss, time(), decay_rate}
return loss
"Last modified by JS (#7214) on Sat Aug 12 20:26:43 2000 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 Lao-Tzu (#8084) on Fri Sep 26 13:43:57 2003 MDT."
.

0