@verb #1033:"l*ook" any none none rdo #9342
@program #1033:"l*ook" any none none
"Allows the player to look through the virtual virtual windows."
if (!dobj && ($string_utils:match_stringlist(argstr, {"up", "windows"}) || argstr == "out" && argstr != "w"))
  $msg:mtell("look_up")
  if (random(2) == 1)
    ship = {"a Federation starship", "a Federation runabout", "a Bajoran transport", "a Klingon Bird-of-Prey", "an unmanned probe", "a Cardassian warship", "a blue Police box"}[random(7)]
    suspend(1)
    if (random(2) == 1)
      #2293:announce_all("CPU says, \"Elevated neutrino levels: a ship is coming through the worm hole.\"")
      player:tell("As you watch, the wormhole flowers into existance, disgorges ", ship, ", then disappears as if swallowing itself.")
    else
      player:tell("As you watch, ", ship, " triggers the wormhole, flies into it, and disappears en route to the Gamma Quadrent.")
    endif
  endif
else
  pass()
endif
.