@DefineProject
    @Name = "Crystal TOPAS Professional"
    @Version = "4.2"
    @OutDrive = C
    @Subdir = "\\TOPAS"
    @InDiskBell = 1
@EndProject

@DefineVars
    @QString @FullName = "Crystal TOPAS Professional"
    @QString @RunBatch = "TOPAS"
    @Integer @NamePos  = ((38 - (@StrLen(@FullName)+10))/2)
@EndVars

@DefineVars
    @QString @Exefile = "proanim"
@EndVars

@DefineVars
    @Integer @K         = 1024
    @Integer @M         = (@K*@K)
    @Integer @RAMReq    = (200*@K)
    @Integer @RAMReqK   = (@RAMReq/@K)
    @Integer @ExtReq    = (5*@M)
    @Integer @ExtReqM   = (@ExtReq/@M)
@EndVars

@DefineVars
    @Integer @HasProcs  = 1
    @Integer @HasAnims  = 1
    @Dir @Models   = "@Subdir\\Models"
    @Dir @CAD      = "@Subdir\\CAD"
    @Dir @Pictures = "@Subdir\\Pictures"
    @Dir @Fonts    = "@Subdir\\Fonts"
    @Dir @Cameras  = "@Subdir\\Cameras"
    @Dir @Procs    = "@Subdir\\Procs"
    @Dir @Script   = "@Subdir\\Anim"
    @Dir @Batch    = "@Subdir\\Batch"
    @Dir @Material = "@Subdir\\Material"
    @QString @TmpFileType = ""
    @Dir @TmpDir  = ""
@EndVars

@DefineVars
    @Integer @ProgramReqM = 4   /* M */
    @Integer @ModelReqK   = 0   /* K */
    @Integer @CADReqK     = 0   /* K */
    @Integer @PictureReqM = 3   /* M */
    @Integer @FontReqM    = 2   /* M */
    @Integer @CameraReqK  = 1   /* K */
    @Integer @MatReqK     = 1   /* K */
    @Integer @ProcReqK    = 4   /* K */
    @Integer @ScriptReqK  = 0   /* K */
@EndVars

@DefineVars
    @Integer @DiskReq   = (@ProgramReqM * @M + @ModelReqK * @K +
			   @CADReqK * @K + @PictureReqM * @M +
			   @FontReqM * @M + @CameraReqK * @K +
			   @MatReqK * @K + @ProcReqK * @K +
			   @ScriptReqK * @K)
    @Integer @DiskReqK  = (@DiskReq/@K)
    @Integer @DiskFreeK  = (@DiskFree @OutDrive /1024)
    @Integer @DiskSpaceLeftK = (@DiskFreeK -@DiskReqK)
    @Integer @TmpValue = 0
    @QString @TmpDiskReqStr = ""
    @QString @TmpDiskFreeStr = ""
    @QString @TmpDiskSpaceLeftStr = ""
@EndVars

@DefineVars
    @QString @SerialNumber = ""
@EndVars

@setoption(31)    /* model path is the same */
@setoption(32)    /* cad path is the same */
@setoption(33)    /* picture path is the same */
@setoption(34)    /* fonts path is the same */
@setoption(35)    /* cameras path is the same */
@setoption(36)    /* procedural path is the same */
@setoption(37)    /* script path is the same */
@setoption(38)    /* batch path is the same */
@setoption(39)    /* material path is the same */

@setoption(41)    /* install program */
@setoption(42)    /* install models */
@setoption(43)    /* install cad files */
@setoption(44)    /* install pictures */
@setoption(45)    /* install fonts */
@setoption(46)    /* install cameras */
@setoption(47)    /* install material files */
@setoption(48)    /* install procedurals */
@setoption(49)    /* install scripts */

@Display
@cls
@move(1, 19)ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
@move(2, 19)³
@movecstr(2, 19+1+@NamePos, 15+16,"@FullName Installer")
@movecstr(2, 58, 15+16, "³")
@move(3, 19)³            Copyright 1993            ³
@move(4, 19)³         CrystalGraphics, Inc.        ³
@move(5, 19)ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

     This utility will install the @FullName software
     on your computer system. The Installer's default settings will install
     all of the files from the installation diskettes. By changing the
     settings you may customize the installation, selecting which sets of
     files you wish installed.

     Before performing the install, we recommend you use a disk repair and
     defragmentation utility such as The Norton Utilities from Symantec or
     PCTools from Central Point. This will insure that you are installing
     the software on a "healthy" system with optimal disk performance.

                                     @pause
@enddisplay


@Display
  @if ((@cpu < 386) || (@RAMAvail < @RAMReq) || (@ExtTotal < @ExtReq) ||
       (@ndp == 0) || (10 [= @option))
  @cls
  Hardware Problems
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  There are problems with your current hardware configuration, which must be
  resolved before @FullName can be run.
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  They are:

    @if (@cpu < 386)
@move(9, 2)- You need a 386 or better machine.
    @endif
    @if (@RAMAvail < @RAMReq)
@move(10, 2)- You need more DOS memory. You will need at least @RAMReqK K.
    @endif
    @if (@ExtTotal < @ExtReq)
@move(11, 2)- You need more extended memory.  You will need at least @ExtReqM M
    @endif

				@pause
  @endif
@enddisplay

SETTINGS:

// decide free space - round it down
@DiskFreeK = (@DiskFree @OutDrive / @K)
@if (@DiskFreeK >= @K)
  @TmpValue = (@DiskFree @OutDrive / @M)
  @TmpDiskFreeStr = "@TmpValue M free"
@else
  @TmpDiskFreeStr = "@DiskFreeK K free"
@endif

// decide disk required - round it up
@if (@DiskReqK >= @K)
  @TmpValue = (@DiskReq / @M)
  @if (@DiskReq > (@TmpValue * @M))
    @TmpValue = (@TmpValue + 1)
  @endif
  @TmpDiskReqStr = "@TmpValue M required"
@else
  @TmpDiskReqStr = "@DiskReqK K required"
@endif

// decide file directory should use default or custom
@if ((31 [= @option) && (32 [= @option) && (33 [= @option) &&
     (34 [= @option) && (35 [= @option) && (36 [= @option) &&
     (37 [= @option) && (38 [= @option))
@TmpFileType = "File directories:  @subdir\\<defaults>"
@else
@TmpFileType = "File directories:  \\<custom>"
@endif

@flushgroups
@getgroups
@localwindow(14,14)
@set A = "INSTALL"
@set B = "Program drive"
@set C = "Program directory"
@set D = "File directories"
@set E = "Files to install"
@cls
  Current Installation Settings
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  These are the current settings to be used by the Installer. Select an
  option to change within the Install options list box, or proceed with the
  installation by selecting "INSTALL".
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  Install options:          Current settings:
@movecstr(12, 28, 15+16, "Program drive:     @outdrive:")
@movecstr(12, 59, 15+16, @TmpDiskFreeStr)
@movecstr(13, 28, 15+16, "Program directory: @subdir")
@movecstr(14, 28, 15+16, @TmpFileType)
@if ((41 [= @option) && (42 [= @option) && (43 [= @option) &&
     (44 [= @option) && (45 [= @option) && (46 [= @option) &&
     (47 [= @option) && (48 [= @option) && (49 [= @option))
@movecstr(15, 28, 15+16, "Files to install:  All")
@movecstr(15, 59, 15+16, @TmpDiskReqStr)
@else
@movecstr(15, 28, 15+16, "Files to install:  Partial")
@movecstr(15, 59, 15+16, @TmpDiskReqStr)
@endif
@movecstr(21, 2, 15+32, " [Arrow Keys]=Scroll                                                          ")
@movecstr(22, 2, 15+32, "      [ENTER]=Select                                               [ESC]=Quit ")
@endgroups

@if ( 'A' [= @group )
  @goto CONTINUE
@elseif ( 'B' [= @group )
  @goto DRIVES
@elseif ( 'C' [= @group )
  @goto DIRS
@elseif ( 'D' [= @group )
  @goto FILEDIRS
@else
  @goto SELECTFILES
@endif


DRIVES:

// decide free space & free space left - round it down
@DiskFreeK = (@DiskFree @OutDrive / @K)
@if (@DiskFreeK >= @K)
  @TmpValue = (@DiskFree @OutDrive / @M)
  @TmpDiskFreeStr = "@TmpValue M"
  @DiskSpaceLeftK = (@TmpValue * @K)
@else
  @TmpDiskFreeStr = "@DiskFreeK K"
  @DiskSpaceLeftK = (@DiskFreeK)
@endif

// decide disk required & update free space left - round it up
@if (@DiskReqK >= @K)
  @TmpValue = (@DiskReq / @M)
  @if (@DiskReq > (@TmpValue * @M))
    @TmpValue = (@TmpValue + 1)
  @endif
  @TmpDiskReqStr = "@TmpValue M"
  @DiskSpaceLeftK = (@DiskSpaceLeftK - @TmpValue * @K)
@else
  @TmpDiskReqStr = "@DiskReqK K"
  @DiskSpaceLeftK = (@DiskSpaceLeftK - @DiskReqK)
@endif

// decide free space left - round it down
@if (@DiskSpaceLeftK < 0)
  @TmpValue = (-@DiskSpaceLeftK)
  @if (@TmpValue >= @K)
    @TmpValue = (@DiskSpaceLeftK / @K)
    @TmpDiskSpaceLeftStr = "@TmpValue M"
  @else
    @TmpDiskSpaceLeftStr = "@DiskSpaceLeftK K"
  @endif
@else
  @if (@DiskSpaceLeftK >= @K)
    @TmpValue = (@DiskSpaceLeftK / @K)
    @TmpDiskSpaceLeftStr = "@TmpValue M"
  @else
    @TmpDiskSpaceLeftStr = "@DiskSpaceLeftK K"
  @endif
@endif

@GetOutDrive
@suppress A
@suppress B
@localwindow(15, 9)
@cls
  Program Drive
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  Current setting indicates the current drive and the amount of space
  available on it. Select the drive where you wish the software installed.
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  Available drives:    Current setting:

			 Program Drive:                     @OutDrive:
			 Currently available:               @TmpDiskFreeStr
			 Files chosen to install require:   @TmpDiskReqStr
			 Available after installation:      @TmpDiskSpaceLeftStr

@movecstr(21, 2, 15+32, " [Arrow Keys]=Scroll                                                          ")
@movecstr(22, 2, 15+32, "      [ENTER]=Select                                               [ESC]=Quit ")
@EndOutDrive

@goto SETTINGS


DIRS:
@getsubdir  @Subdir
@Prompt = " New directory: "
@cls
  Program Directory
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  Enter the name of the directory where you want to install the software.
  If it does not exist, it will be created; if it does exist, any files
  which have the same name as a file being installed will be overwritten.
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  Current directory:     @Subdir
@movecstr(21, 2, 15+32, " [ENTER]=Accept                                                               ")
@movecstr(22, 2, 15+32, "                                                                   [ESC]=Quit ")
@move(10,2)
@endsubdir

// reset all paths if necessary
@if (31 [= @option)
  @Models  = "@Subdir\\Models"
@endif
@if (32 [= @option)
  @CAD     = "@Subdir\\CAD"
@endif
@if (33 [= @option)
  @Pictures = "@Subdir\\Pictures"
@endif
@if (34 [= @option)
  @Fonts   = "@Subdir\\Fonts"
@endif
@if (35 [= @option)
  @Cameras = "@Subdir\\Cameras"
@endif
@if (36 [= @option)
  @Procs   = "@Subdir\\Procs"
@endif
@if (37 [= @option)
  @Script   = "@Subdir\\Anim"
@endif
@if (38 [= @option)
  @Batch    = "@Subdir\\Batch"
@endif
@if (39 [= @option)
  @Material = "@Subdir\\Material"
@endif

@goto SETTINGS


FILEDIRS:
// reset all paths if necessary
@if (31 [= @option)
  @Models  = "@Subdir\\Models"
@endif
@if (32 [= @option)
  @CAD     = "@Subdir\\CAD"
@endif
@if (33 [= @option)
  @Pictures = "@Subdir\\Pictures"
@endif
@if (34 [= @option)
  @Fonts   = "@Subdir\\Fonts"
@endif
@if (35 [= @option)
  @Cameras = "@Subdir\\Cameras"
@endif
@if (36 [= @option)
  @Procs   = "@Subdir\\Procs"
@endif
@if (37 [= @option)
  @Script   = "@Subdir\\Anim"
@endif
@if (38 [= @option)
  @Batch    = "@Subdir\\Batch"
@endif
@if (39 [= @option)
  @Material = "@Subdir\\Material"
@endif

@flushgroups()
@getgroups
@localwindow(15, 20)
@set A = "CONTINUE"
@set B = "Models:       @Models "
@set C = "CAD:          @CAD    "
@set D = "Pictures:     @Pictures"
@set E = "Fonts:        @Fonts  "
@set F = "Cameras:      @Cameras"
@if (@HasProcs == 1)
@set G = "Procedurals:  @Procs"
@endif
@if (@HasAnims == 1)
@set H = "Scripts:      @Script"
@endif
@set I = "Batch:        @Batch"
@set J = "Material:     @Material"
@cls
  File Directories
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  These are the directories where the specified file types will be
  installed and where the software will by default expect to find them.
  Select an item to change its directory, or select "CONTINUE" to return
  to the Installation Settings screen.
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  Current directories:
@movecstr(21, 2, 15+32, " [Arrow Keys]=Scroll                                                          ")
@movecstr(22, 2, 15+32, "      [ENTER]=Select                                               [ESC]=Quit ")
@endgroups

@if ( 'A' [= @group )
  @goto SETTINGS
@elseif ( 'B' [= @group )
  @TmpFileType = "Models"
  @TmpDir = @Models
@elseif ( 'C' [= @group )
  @TmpFileType = "CAD"
  @TmpDir = @CAD
@elseif ( 'D' [= @group )
  @TmpFileType = "Pictures"
  @TmpDir = @Pictures
@elseif ( 'E' [= @group )
  @TmpFileType = "Fonts"
  @TmpDir = @Fonts
@elseif ( 'F' [= @group )
  @TmpFileType = "Cameras"
  @TmpDir = @Cameras
@elseif ( 'G' [= @group )
  @TmpFileType = "Procedurals"
  @TmpDir = @Procs
@elseif ( 'H' [= @group )
  @TmpFileType = "Scripts"
  @TmpDir = @Script
@elseif ( 'I' [= @group )
  @TmpFileType = "Batch"
  @TmpDir = @Batch
@elseif ( 'J' [= @group )
  @TmpFileType = "Material"
  @TmpDir = @Material
@endif

@getsubdir @TmpDir
@Prompt = " New @TmpFileType directory: "
@cls
  @TmpFileType Directory
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  Enter a new directory for files of this type.  If the directory does
  not exist, it will be created.  If it does exist, any files which have
  the same name as a file being installed will be overwritten.
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  Current @TmpFileType directory:  @TmpDir
@movecstr(21, 2, 15+32, " [ENTER]=Accept                                                               ")
@movecstr(22, 2, 15+32, "                                                                   [ESC]=Quit ")
@move(10,2)
@endsubdir

@if ( 'B' [= @group )
  @if (@strfind("@TmpDir", "@Models") == (-1))
    @clearoption(31)
  @endif
  @Models = @TmpDir
@elseif ( 'C' [= @group )
  @if (@strfind("@TmpDir", "@CAD") == (-1))
    @clearoption(32)
  @endif
  @CAD = @TmpDir
@elseif ( 'D' [= @group )
  @if (@strfind("@TmpDir", "@CAD") == (-1))
    @clearoption(33)
  @endif
  @Pictures = @TmpDir
@elseif ( 'E' [= @group )
  @if (@strfind("@TmpDir", "@Fonts") == (-1))
    @clearoption(34)
  @endif
  @Fonts = @TmpDir
@elseif ( 'F' [= @group )
  @if (@strfind("@TmpDir", "@Cameras") == (-1))
    @clearoption(35)
  @endif
  @Cameras = @TmpDir
@elseif ( 'G' [= @group )
  @if (@strfind("@TmpDir", "@Procs") == (-1))
    @clearoption(36)
  @endif
  @Procs = @TmpDir
@elseif ( 'H' [= @group )
  @if (@strfind("@TmpDir", "@Script") == (-1))
    @clearoption(37)
  @endif
  @Script = @TmpDir
@elseif ( 'I' [= @group )
  @if (@strfind("@TmpDir", "@Batch") == (-1))
    @clearoption(38)
  @endif
  @Batch = @TmpDir
@elseif ( 'J' [= @group )
  @if (@strfind("@TmpDir", "@Material") == (-1))
    @clearoption(39)
  @endif
  @Material = @TmpDir
@endif

@goto FILEDIRS


SELECTFILES:

// decide disk required - round it up
@DiskReqK = (@DiskReq/1024)
@if (@DiskReqK >= @K)
  @TmpValue = (@DiskReq / @M)
  @if (@DiskReq > (@TmpValue * @M))
    @TmpValue = (@TmpValue + 1)
  @endif
  @TmpDiskReqStr = "@TmpValue M"
@else
  @TmpDiskReqStr = "@DiskReqK K"
@endif

@getoption
@checkbox
@option 41  = "Program & Support Files    @ProgramReqM M"
@option 42  = "Models                     @ModelReqK K"
@option 43  = "CAD                        @CADReqK K"
@option 44  = "Pictures                   @PictureReqM M"
@option 45  = "Fonts                      @FontReqM M"
@option 46  = "Cameras                    @CameraReqK K"
@option 47  = "Materials & Palettes       @MatReqK K"
@if (@HasProcs == 1)
@option 48  = "Procedurals                @ProcReqK K"
@endif
@if (@HasAnims == 1)
@option 49  = "Scripts                    @ScriptReqK K"
@endif
@localwindow(15, 24)
@cls
  Files To Install
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  These are the installable files. Program & Support Files are required to
  run the software; the others are optional. Files in the install directory
  having the same name as files being installed will be overwritten.
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  Current installation will use: @TmpDiskReqStr
    Files:                     Size:   Install:
@movecstr(21, 2, 15+32, " [Arrow Keys]=Scroll   [SPACE]=Toggle                                         ")
@movecstr(22, 2, 15+32, "      [ENTER]=Accept                                               [ESC]=Quit ")
@endoption

// change required disk space
@DiskReq = (0)
@if (41 [= @option)
   @DiskReq = (@DiskReq + @ProgramReqM * @M)
@endif
@if (42 [= @option)
   @DiskReq = (@DiskReq + @ModelReqK * @K)
@endif
@if (43 [= @option)
   @DiskReq = (@DiskReq + @CADReqK * @K)
@endif
@if (44 [= @option)
   @DiskReq = (@DiskReq + @PictureReqM * @M)
@endif
@if (45 [= @option)
   @DiskReq = (@DiskReq + @FontReqM * @M)
@endif
@if (46 [= @option)
   @DiskReq = (@DiskReq + @CameraReqK * @K)
@endif
@if (47 [= @option)
   @DiskReq = (@DiskReq + @MatReqK * @K)
@endif
@if (@HasProcs == 1 && 48 [= @option)
   @DiskReq = (@DiskReq + @ProcReqK * @K)
@endif
@if (@HasAnims == 1 && 49 [= @option)
   @DiskReq = (@DiskReq + @ScriptReqK * @K)
@endif
@DiskReqK = (@DiskReq / @K)

@goto SETTINGS


CONTINUE:

// check required disk space
@if (@DiskReq == 0)
@Display
@cls
   No files chosen for installation.
	@pause
@enddisplay
@goto SETTINGS
@endif

@getstring @SerialNumber
  Serialization
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  Enter the serial number for your copy of @FullName.
  You will find it on your registration card.  Look for a number in the
  following format:  XXXX-XXXX-XXXX
  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  Note: You must enter a serial number for @FullName
  to be installed. [Esc] will stop installation.
@movecstr(21, 2, 15+32, " [ENTER]=Accept                                                               ")
@movecstr(22, 2, 15+32, "                                                                   [ESC]=Quit ")
@move(10, 3)
@Prompt = " Serial Number: "
@endstring

@if (@strlen(@SerialNumber) == 0)
@goto CONTINUE
@endif


INSTALL:

// Make required directories
@mkdir("@outdrive:@Models")
@mkdir("@outdrive:@CAD")
@mkdir("@outdrive:@Pictures")
@mkdir("@outdrive:@Batch")
@mkdir("@outdrive:@Cameras")
@mkdir("@outdrive:@Fonts")
@mkdir("@outdrive:@Material")
@if (@HasAnims == 1)
@mkdir("@outdrive:@Script")
@endif
@if (@HasProcs == 1)
@mkdir("@outdrive:@Procs")
@endif
@mkdir("@outdrive:\\@Subdir\\rman")
// Make a TSR files directory
@mkdir("@outdrive:\\@Subdir\\vesa")

@definedisk
   @label = "INSTALL DISK 1"
   @if (41 [= @option)
      @file read_me.txt
      @beginlib proanim.001
        @file proanim.exe @out @outdrive:\@Subdir\proanim.exe
      @endlib
   @endif
@enddisk

@definedisk
   @label = "INSTALL DISK 2"
   @if (41 [= @option)
      @beginlib proanim.002
         @file proanim.exe @out @outdrive:\@Subdir\proanim.exe
      @endlib
      @beginlib support.lif
         @file *.* @out @outdrive:\@Subdir\*.*
      @endlib
      @beginlib vesa.lif
         @file *.* @out @outdrive:\@Subdir\vesa\*.*
      @endlib
     @beginlib rman.lif
        @file *.* @out @outdrive:\@Subdir\rman\*.*
     @endlib
     @file setup.dat
     @file msetup.dat
     @file setup.exe
   @endif
   @if ((@HasProcs == 1) && (48 [= @option))
     @beginlib procs.lif
        @file *.* @out @outdrive:\@Procs\*.*
     @endlib
   @endif
   @if (47 [= @option)
     @beginlib material.lif
        @file *.* @out @outdrive:\@material\*.*
     @endlib
   @endif
   @if (46 [= @option)
     @beginlib cameras.lif
        @file *.* @out @outdrive:\@Cameras\*.*
     @endlib
   @endif
@enddisk

@definedisk
   @label = "INSTALL DISK 3"
   @if (45 [= @option)
      @beginlib fonts.lif
         @file *.* @out @outdrive:\@Fonts\*.*
      @endlib
   @endif
@enddisk

@definedisk
   @label = "INSTALL DISK 4"
   @if (44 [= @option)
      @beginlib pictures.lif
         @file *.* @out @outdrive:\@Pictures\*.*
      @endlib
   @endif
@enddisk


END:

@finish

@chdrive @outdrive
@chdir "@subdir"

@if (41 [= @option)
  // update serial number
  @system "serial @SerialNumber"
  @system "del serial.exe"
@endif

@if (41 [= @option)
  @cls
  @system "setup msetup.dat @RunBatch"
@endif

@if (31 [! @option)		/* Model path has changed */
  @write("crystal.cfg", "at", "ModelPath @Models\n")
  @write(, , "OBFPath @Models\n")
  @write(, , "GroupPath @Models\n")
  @write(, , "AMFPath @Models\n")
@endif

@if (32 [! @option)		/* CAD path has changed */
  @write("crystal.cfg", "at", "DXFPath @CAD\n")
  @write(, , "IGESPath @CAD\n")
  @write(, , "RIBPath @CAD\n")
@endif

@if (33 [! @option)		/* Pictures path has changed */
  @write("crystal.cfg", "at", "PicturePath @Pictures\n")
@endif

@if (34 [! @option)		/* Fonts path has changed */
  @write("crystal.cfg", "at", "FontPath @Fonts\n")
@endif

@if (35 [! @option)		/* Cameras path has changed */
  @write("crystal.cfg", "at", "CameraPath @Cameras\n")
@endif

@if (36 [! @option)		/* Procedural path has changed */
  @write("crystal.cfg", "at", "ProceduralPath @Procs\n")
@endif

@if (37 [! @option)		/* Script path has changed */
  @write("crystal.cfg", "at", "AnimPath @Script\n")
@endif

@if (38 [! @option)		/* Batch path has changed */
  @write("crystal.cfg", "at", "BatchPath @Batch\n")
@endif

@if (39 [! @option)		/* Material path has changed */
  @write("crystal.cfg", "at", "MatPath @Material\n")
@endif

@write("crystal.cfg", "at", "ShiftfKey 1 Grid\n")
@write(, , "ShiftfKey 2 View Mode\n")
@write(, , "ShiftfKey 3 Show Tree\n")
@write(, , "ShiftfKey 4 Hide All\n")
@write(, , "ShiftfKey 5 Show All\n")
@write(, , "ShiftfKey 6 Axes:\n")
@write(, , "ShiftfKey 7 Camera:\n")
@write(, , "ShiftfKey 8 Polygon Plane\n")
@write(, , "ShiftfKey 9 Keyframe\n")
@write(, , "ShiftfKey 10 Edit Frame\n")

@endfinish
