@verb #1806:"slash" this at/to any rdo #8796
@program #1806:"slash" this at/to any
try
  if (length(who = this:find(dobjstr)) != 1)
    player:tell(verb, " who?")
  elseif ((who = who[1]) && !(this in player:contents()))
    player.location:announce_all_but({player}, tostr(player:title(), " tries in vain to find ", this:title(), " to slash ", who:title(), " with."))
    player:tell(this:title(), " is nowhere to be found.")
  elseif (who == player)
    player:tell("You decide against ", verb, "ing yourself with ", this:title(), ".")
  elseif (caller_perms() == #-1 && player.location == who.location)
    player.location:announce_all_but({player, who}, tostr(player:title(), "slashes out at ", who:title(), " with ", this:title(), "."))
    player:tell("You ", verb, " out at ", who:title(), " with ", this:title(), ".")
    who:tell(player:title(), " ", verb, "s out at you with ", this:title(), ".")
  elseif (caller_perms() == #-1 && who.location != player.location)
    player:tell(who:title(), " is not here...try", who.location:title(), ".")
    who:tell("Becareful! ", player:title(), " is after you.")
  else
    player:tell(this:title(), " gleams in the night!")
  endif
except (ANY)
  player:tell("Sorry we gotta an error here.  Try again later :(")
endtry
"Last modified by Piff (#8796) on Thu Feb  7 18:08:09 2002 MST."
.