View/Edit #7171:@laugh klaugh kefka

Switch to edit mode.

1:  this:update_usage(verb, player)
2:  match = player:my_match_object(argstr)
3:  if (valid(match))
4:    mainlaugh = {"laugh at " + match:title() + ", \"", "laughs at " + match:title() + ", \""}
5:    argstr = ""
6:  else
7:    mainlaugh = {"laugh, \"", "laughs, \""}
8:  endif
9:  break_ = 0
10: if (!argstr)
11:   laughs = {"heehee", "haha", "heh heh", "hehe"}
12:   argstr = laughs[random(length(laughs))]
13: endif
14: laughstr = ""
15: firstchar = argstr[1]
16: for chr in [2..length(argstr)]
17:   if (!(argstr[chr] == firstchar) && !break_)
18:     laughstr = laughstr + argstr[chr]
19:   else
20:     break_ = 1
21:   endif
22: endfor
23: laughpfx = random(2) - 1 ? "Mw" | "Uw"
24: final = laughpfx + laughstr + argstr
25: player.location:announce(player:title() + " " + mainlaugh[2] + final + "!!!\"")
26: player:tell("You " + mainlaugh[1] + final + "!!!\"")
27: "Last modified by Dax (#789) on Tue Jun  2 14:21:42 1998 EDT."

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