The script will show you the make up of the universe after you have a ZTM or after exploring/eprobing. It could be written better w/o a doubt and the :colorIt section really isn't needed, but I like the effect on a line - actually need to see it to know what I mean.

# Universe stats by Promethius 11/2008

setArray $sectors SECTORS
setVar $sectors7In 0
setVar $totalWarps 0
setVar $backdoors 0
setVar $backDoorSectors 0
setVar $i 1

while ($i <= SECTORS)
   if (sector.warpcount[$i] > 0)
     add $totalWarps sector.warpCount[$i]
     add $sectors[sector.warpCount[$i]] 1
     if (sector.warpInCount[$i] = 7)
         add $sectors7In 1
     end
     if (sector.backDoorCount[$i] > 0)
        add $backDoors sector.backDoorCount[$i]
        add $backDoorSectors 1
     end
   end
     add $i 1
end
echo "**"
echo ANSI_15 "    Universe Stats by Promethius"
setVar $lineIn  "--------------------------------"
gosub :colorIt
echo "*  " $lineOut
setVar $i 1
while ($i <= 6)
   setVar $lineIn $sectors[$i]
   gosub :pad
   echo "*" $pad ANSI_11 $sectors[$i] ANSI_12 " sectors with " ANSI_11  $i ANSI_12  " warp(s) out."
   add $i 1
end
setVar $lineIn  "--------------------------------"
gosub :colorIt
echo "*  " $lineOut
setVar $lineIn $sectors7in
gosub :pad
echo "*" ANSI_11 $pad $sectors7In ANSI_12 " sectors with 7-warps in."

setVar $lineIn $backDoorSectors
gosub :pad

echo "*" ANSI_11 $pad $backDoorSectors ANSI_12 " sectors have backdoors."
setVar $lineIn $backDoors
gosub :pad
echo "*" ANSI_11 $pad $backDoors ANSI_12 " backdoors exist."
setVar $lineIn  "--------------------------------"
gosub :colorIt
echo "*  " $lineOut
echo "*  " ANSI_11 $totalWarps ANSI_12 " total warps found**"
halt


# -=-=-= goSubs

:pad
 setVar $pad ""
 getlength $lineIn $len
 while ($len < 6)
    setVar $pad $pad & " "
    add $len 1
 end
 return


:colorIt
 setVar $clr 0
 setVar $lineOut ""
 getLength $lineIn $len
 setVar $i 1
 while ($i <= $len)
    cuttext $lineIn $tmpLine $i 1
    add $clr 1
    if ($clr = 1)
       setVar $lineOut $lineOut & ANSI_15 & $tmpLine
    else
       setVar $lineOut $lineOUt & ANSI_12 & $tmpLine
       setVar $clr 0
    end
   add $i 1
 end
 return

               / Promethius / Enigma / Wolfen /

"A man who has no skills can be taught, a man who has no honor has nothing."