@verb #9090:"hide search hid" any any any rdo #7446
@program #9090:"hide search hid" any any any
if (player in this.hiding)
  return player:tell("You must \"unhide\" before you can do that.")
endif
usage = "Usage: Hide <behind/on/in> <anything>"
if (!args)
  return player:tell(usage)
endif
hrm = $string_utils:words(argstr)
if (length(hrm) != 2)
  return player:tell(usage)
endif
if (!(hrm[1] in {"behind", "on", "in"}))
  return player:tell(usage)
endif
hm = {"behind", "on", "in"}
we = hrm[1] in hm
room = this:loc(player)
cow = this.rooms[this.zone][room][4]
types = $list_utils:slice(cow, 1)
names = $list_utils:slice(cow, 2)
if (!(we in types))
  if (verb == "search")
    return player:tell("There's nowhere here where anyone can hide ", hrm[1], ".")
  else
    return player:tell("There's nothing you can hide ", hrm[1], " here.")
  endif
endif
if (!(hrm[2] in names))
  if (verb == "search")
    return player:tell("There's nowhere here with that name that anyone can hide ", hrm[1], ".")
  else
    return player:tell("There's nothing by that name that you can hide ", hrm[1], " here.")
  endif
endif
dog = hrm[2] in names
lala = types[dog]
wowo = names[dog]
if (wowo == names[dog] && lala == we)
  if (verb == "hide")
    this.hiding = listappend(this.hiding, player)
    this.hstats = listappend(this.hstats, {lala, wowo})
    player:tell("You're now hiding ", hrm[1], " the ", hrm[2], ".")
    this:announce(player:title(), " hides ", hrm[1], " the ", hrm[2], ".")
  else
    player:tell("You begin to search ", hrm[1], " the ", hrm[2], ".")
    this:announce(player:title(), " begins to search ", hrm[1], " the ", hrm[2], ".")
    for x in (this.hiding)
      if (this:loc(x) == this:loc(player))
        if (this.teamgame == 0 || this:team(player) == 0 || this:team(player) != this:team(x))
          if (this.hstats[x in this.hiding][2] == wowo && this.hstats[x in this.hiding][1] == lala)
            player:tell("You find ", x:title(), " there!")
            x:tell(player:title(), " has found you! RUN!!")
            this:announce_all_but({x, player}, player:title(), " has found ", x:title(), "!")
            oo = x in this.hiding
            this.hiding = listdelete(this.hiding, oo)
            this.hstats = listdelete(this.hstats, oo)
          endif
        else
          if (this.hstats[x in this.hiding][2] == wowo && this.hstats[x in this.hiding][1] == lala)
            player:tell("You leave your team-mate ", x.name, " there.")
          endif
        endif
      endif
    endfor
  endif
else
  player:tell("Sorry, you cannot do that. :)")
endif
.