# -----------------------------------------------
# Dnyarri's insanely simple unfigged sectors report.
# -----------------------------------------------

setVar $file GAMENAME & "_unfigged-sectors.txt"
delete $file
gosub :get_figs
setVar $idx 10
while ($idx <= SECTORS)
     if ($figlist[$idx] < 1)
          write $file $idx
     end
     add $idx 1
end
echo ANSI_14 "File written!*"

# -----------------------------------------------
halt
# -----------------------------------------------

:get_figs
     setVar $fig_str ""
     setVar $line_idx 1
     setVar $figged_cnt 0
     setArray $figlist SECTORS
     setVar $figfile "_ck_" & GAMENAME & ".figs"
     fileExists $exists $figfile
     if ($exists = 0)
           echo "**No fig data found - Halting*"
           halt
     end
     echo ANSI_14 "*One moment please, loading fig list.*"

:read_a_fig_line
     read $figfile $file_line $line_idx
     if ($file_line = EOF) OR ($file_line = "EOF")
           goto :end_of_fig_file
     else
           setVar $fig_str $fig_str & " " & $file_line
     end
     add $line_idx 1
     goto :read_a_fig_line
:end_of_fig_file

:process_fig_str
     # echo "Figline: " $fig_str "*"
     setVar $funky_temp_idx 1
     while ($funky_temp_idx <= SECTORS)
           getword $fig_str $wordy $funky_temp_idx
           if ($wordy > 0)
                  setVar $figlist[$wordy] 1
                  add $figged_cnt 1
           end
           add $funky_temp_idx 1
     end
     :out_of_fig_loop

:end_of_fig_read
echo ANSI_14 $figged_cnt & " figged sectors read.*"
return