@verb #3341:"nudge" any none none rdo #9682
@program #3341:"nudge" any none none
victim = $su:match_player(argstr)
if (victim == this.owner)
  this.owner:tell("Someone tried to nudge you.  Fuckhead.")
  s = "What's that you say?  You would like to be sent a lot of useless spammy type messages as punishment for trying to push Plarf out of his own abode? OK!"
  for y in [1..length(s)]
    player:tell(s[y])
  endfor
  return
endif
if (!valid(victim))
  player:tell("You miss your victim, overbalance and plunge to the ground!")
  this:eject(player)
  this:announce(player.name, " loses balance and plunges to the mists below!")
  return
endif
player:tell("You nonchalantly nudge ", victim.name, ", who loses their balance and falls into the Mist.")
victim:tell(player.name, " nonchalantly gives you a push in the small of your back.")
victim:tell("You lose your balance and fall off the rafters!")
this:eject(victim)
this:announce(victim.name, " is pushed from the rafters by ", player.name, ", that callous bastard!")
.