#set the universe size
setVar $uni_size 20000
#read all the sectors to an array
readtoarray $sector __all_sector.txt
#set the index for the array $sector
setvar $i 1
setVar $s $Sector[$i]
#outside while loop, will run until the loop reach 20k
while ($s <= $uni_size)

    #if condition to remove sectors 1-10, SD, AC and Rylos
    if (($sector =< 10) or ($sector = STARDOCK) or ($sector = ALPHA_CENTAURI) or ($sector = RYLOS))
         add $i 1
    else
         #inside while loop, I want to write all sectors in the $sector array
         #less the sectors in the $my_sect array
         #read the list of my sectors into an array
         readtoarray $my_sect __my_sectors.txt
         #set the index for the array $my_sect
         setvar $r 1
         setVar $m $my_sect[$r]
         while ($s <> $m)
               add $r 1
         end
     #write sector to a file - Not sure of the code to do this
     write "sectors_left.txt" $s
     add $i 1
     end
end

#set the index for the array $sector
setVar $sector 11
#outside while loop, will run until the loop reach 20k
while ($sector <= SECTORS)
    #if condition to remove sectors 1-10, SD, AC and Rylos
    if (($sector = STARDOCK) or ($sector = ALPHA_CENTAURI) or ($sector = RYLOS))
         goto :skip
    else
         #inside while loop, I want to write all sectors in the $sector array
         #less the sectors in the $my_sect array
         #read the list of my sectors into an array
         readtoarray $my_sect __my_sectors.txt
         #set the index for the array $my_sect
         setvar $r 1
         setVar $m $my_sect[$r]
         while ($sector <> $m)
               add $r 1
         end
     #write sector to a file - Not sure of the code to do this
     write "sectors_left.txt" $sector
     :skip
     add $sector 1
     end
end

setvar $File1 "sectors_left.txt"
setvar $File2 "sectors_uFig.txt"
delete $File1
delete $File2
ReadToArray $my_sect "__my_sectors.txt"

SetVar $sector 11

While ($Sector <= SECTORS)
    If (($Sector <> STARDOCK) AND ($Sector <> ALPHA_CENTAURI) AND ($Sector <> RYLOS))
       SetVar $r 1
       While ($r <= $my_sect)
         if ($my_sect[$r] = $Sector)
            goto :_NEXT_
         end
         add $r 1
       End
       Write $File1 $Sector
       GetSectorparameter $Sector "FIGSEC" $F
       If ($F = 0)
         Write $File2 $Sector
       End
    End
    :_NEXT_
    Add $Sector 1
End

     add $sector 1
     end
end

    end
    add $sector 1
end

setvar $r 1
setVar $m $my_sect[$r]
while ($sector <> $m)
      add $r 1
end

setVar $i 1
while ($i <= SECTORS)
   if ($i > 10)
      if ($i <> STARDOCK) and ($i <> RYLOS) and ($i <> ALPHACENTAURI)
         if (SECTOR.FIGS.OWNER[$i] <> "belong to your Corp") and (SECTOR.FIGS.OWNER[$i] <> "yours")
            gosub :doSomething
         end
      end
   end
   add $i 1
end

setArray $skip SECTORS
setVar $i 1
while ($i <= SECTORS)
   if ($i < 11)
      setVar $skip[$i] TRUE
   end
   if ($i = STARDOCK) or ($i = RYLOS) or ($i = ALPHACENTAURI)
      setVar $skip[$i] TRUE
   end
   if (SECTOR.FIGS.OWNER[$i] = "belong to your Corp") or (SECTOR.FIGS.OWNER[$i] = "yours")
      setVar $skip[$i] TRUE
   end
   add $i 1
end

setVar $i 1
while ($i <= SECTORS)
   if ($skip[$i] = FALSE)
      gosub :doSomething
   end
   add $i 1
end