%
%  Scramble Ships Names On, generating and random name
%
%  Run this script before the last maketurn. This will
%  scramble the ship names, saving the original names to
%  a file. To unscramble them again, use `scr-s-f.q'.
%
%  Author  : Manuel Fernandes Alonso
%  Version : 1.0
%  Date    : 07/08/2001  (DD/MM/YYYY)
%  History : None
%

Dim MFAShipName := ""
Local fd := FreeFile()

Open System.GameDirectory & "SName" & My.Race$ & ".TXT" for output as fd

ForEach Ship Do

   If Ships(ID).Owner$ = My.Race$

      %   MessageBox Ships(ID).Name

      Print#fd,right("000" & trim(str(ID)),3),Ships(ID).Name

      %   MessageBox "Despu‚s print"

      MFAShipName = ""

      %   MessageBox "Antes For J"
   
      FOR J := 1 To 20 Do

         MFAShipName := MFAShipName & Chr(Random(65,91))

      NEXT

      %   MessageBox MFAShipName

      Ships(ID).Name := MFAShipName

      %   MessageBox Ships(ID).Name

   EndIf
    
Next

close fd

MessageBox "Program Terminated"