View/Edit #12:dis*s boo praise worship

Switch to edit mode.

1:  "dis*s <player>"
2:  "Disrespects this player."
3:  "A dis is more serious than a boo; a worship higher than a praise."
4:  if (verb == "diss")
5:    verb = "dis"
6:  endif
7:  for x in ({player, this})
8:    $esteem_utils:check_for_tampering(x)
9:  endfor
10: if (player.location != this.location && this.location:acceptable(player))
11:   "So you have to be in the same room, unless target has locked you out."
12:   player:_modify_esteem(-0.1)
13:   return $msg:mtell(verb + "_not_here")
14: endif
15: if (player == this)
16:   this:_modify_esteem(-20.0)
17:   return $msg:mtell(verb + "_self", iobjstr)
18: endif
19: weights = $esteem_utils.(verb + "_weights")
20: if ($esteem_utils:("can_" + verb)(player, this))
21:   this:_modify_esteem(weights[1])
22:   player:_modify_esteem(weights[2])
23:   $esteem_utils:update_for_action(player, this, verb)
24:   return $msg:mtell({this, "i"}, verb, iobjstr)
25: else
26:   player:_modify_esteem(-0.5)
27:   return $msg:mtell({this, "i"}, verb + "_failed", iobjstr)
28: endif
29: "Last modified by whiz (#3135) on Thu Apr 25 00:24:28 2002 MDT."
30: "This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:02 2002 MDT)."
31: "Last modified by Dax (#789) on Sat Aug 17 14:50:02 2002 MDT."

[home | help | who | search | setup | code]