@verb #9090:"n*orth e*ast s*outh w*est u*p d*own sneak" any any any rdo #7446
@program #9090:"n*orth e*ast s*outh w*est u*p d*own sneak" any any any
if (player in this.hiding)
  return player:tell("You're hiding. Type \"unhide\" to unhide yourself.")
endif
if (player in this.sneaking)
  return player:tell("You're already sneaking...")
endif
if (verb == "sneak")
  real = argstr
else
  real = verb
endif
ha = real[1]
woo = ha in {"n", "e", "s", "w", "u", "d"}
room = this:loc(player)
kee = this.rooms[this.zone][room][5]
if (kee[woo] == 0)
  return player:tell("There is no exit in that direction.")
elseif (kee[woo] < 1 || kee[woo] > length(this.rooms[this.zone]))
  return player:tell("Sorry, the room in that direction is gone.")
endif
if (verb == "sneak")
  this.sneaking = listappend(this.sneaking, player)
  suspend(2)
  this.sneaking = setremove(this.sneaking, player)
  player:tell("You sneak ", this.exs[woo], ".")
else
  this:announce(player:title(), " goes ", this.exs[woo], ".")
  player:tell("You go ", this.exs[woo], ".")
endif
#9090.ps[player in this.p][1] = kee[woo]
if (verb == "sneak")
else
  this:announce(player:title(), " has arrived.")
endif
this:look_Self()
"Last modified by James (#6397) on Tue Jun  2 20:58:10 1998 EDT."
.