@verb #8056:":description" this none this rxdo #7951
@program #8056:":description" this none this
{p} = args
"Sector #, nebula, explored?"
out = {tostr("<font color=lime>Sector</font>  <font color=yellow>:</font> <font color=cyan>", this:num(), "</font> <font color=green>in</font> ", this.nebula, p:explored(this) ? "" | " (unexplored)")}
port = this:port()
this.beacon && (out = {@out, tostr("<font color=purple>Beacon</font>  <font color=yellow>:</font> <font color=darkred>", this.beacon, "</font>")})
port != $nothing && (out = {@out, tostr("<font color=purple>Ports</font>   : ", port:title())})
"Warps-outta-here display:"
sectors = {}
for x in (this.warps)
  if (p:explored(this.universe.sectors[x]))
    sectors = {@sectors, tostr("<font color=cyan>", x, "</font>")}
  else
    sectors = {@sectors, tostr("<font color=purple>(<font color=red>", x, "</font>)</font>")}
  endif
endfor
out = {@out, tostr("<font color=lime>Warps to Sector(s)</font> <font color=yellow>:</font> <font color=green>", $string_utils:from_list(sectors, " - "), "</font>")}
return out
"Last modified by manta (#7165) on Wed Dec  5 23:06:17 2001 MST."
.