# Author: ElderProphet
# Last Update: 11/2003
# Future Plans: None
#
# This script requires good ZTM data.  It simply queries the TWX database for sectors that
# have 7 warps in.  Hopefully there are less than a dozen, and they include the Class 0 ports.

:find7ins
echo "7-in Query by ÅElderProphetÅ*"
echo "*Current List of 7-in Sectors**"
setVar $7inlog "7ins-" & GAMENAME & ".txt"
delete "7ins-" & GAMENAME & ".txt"
setVar $i 1
while $i <= SECTORS
   getSector $i $i
   if (sector.warpincount[$i] = 7) and (sector.warpcount[$i] = 6)
        # and (sector.explored[$i] <> YES)
      write $7inlog $i
      echo $i "*"
   end
   add $i 1
end
echo "*Check the file named " $7inlog "**"