3cb
@verb #1151:"bwrap" any none none rxd #562
@program #1151:"bwrap" any none none
"Usage: bwrap <player in room>"
target = $string_utils:match_player(dobjstr)
if ((t = target).location != (p = player).location)
  p:tell("I don't see ", t, " here.")
  return
endif
g = t.gender[1] == "f" ? "she" | "he"
h = t.gender[1] == "f" ? "her" | "his"
pg = p.gender[1] == "m" ? "he" | "she"
ph = p.gender[1] == "m" ? "his" | "her"
p:tell("You silently slide your arm around ", t:title(), "'s back, pretending you don't know what it's doing.")
t:tell(p:title(), " silently slides ", ph, " arm around your back, acting as though ", pg, " doesn't even realize it.")
suspend(5)
p:Tell($string_utils:capitalize(g), " eases back into your arm, also pretending that ", g, " doesn't even realize it.")
t:Tell("You ease back into ", h, " arm, also pretending that you don't even realize it.")
suspend(5)
p:tell("You smile to yourself.")
t:tell("You smile to yourself.")
.

0