home *** CD-ROM | disk | FTP | other *** search
INSTALL Professional project | 1994-09-21 | 4.2 KB | 175 lines |
- /*
- * FILE:Install.dat
- *
- * DESC:
- * Simon The Sorcerer Installer
- *
- *
- */
-
- @DefineProject
- @Name = "Simon the Sorcerer (The Demo)"
- @Version = "1.00"
- @Subdir = "SIDEMO"
- @OutDrive = C
- @InDrive = A
- @EndProject
-
- @DefineVars
- @Integer @CopyGame =0
- @Integer @SizeNeeded =2000000
- @Integer @Temp =0
- @EndVars
-
-
- @Display
- @Cls
-
- @MoveCStr(2,20,95,"╔═══════════════════════════════╗")
- @MoveCStr(3,20,95,"║ Simon the Sorcerer (The Demo) ║")
- @MoveCStr(4,20,95,"╚═══════════════════════════════╝")
- @MoveCStr(5,22, 0," ")
- @MoveCStr(3,53,0," ")
- @MoveCStr(4,53,0," ")
- @Move(6,0)
-
- This program will install @Name onto
- your computer.
-
- You may press the [Esc] key at any time to abort the installation.
- INSTALL will ask you several questions before installing the
- software to your hard drive.
-
- @Pause
- @EndDisplay
-
- @GetOutDrive @LocalWindow(14,36)
- @Suppress A
- @Suppress B
- @Cls
-
- @MoveCStr(2,20,95,"╔═══════════════════════════════╗")
- @MoveCStr(3,20,95,"║ Simon the Sorcerer (The Demo) ║")
- @MoveCStr(4,20,95,"╚═══════════════════════════════╝")
- @MoveCStr(5,22, 0," ")
- @MoveCStr(3,53,0," ")
- @MoveCStr(4,53,0," ")
- @Move(6,0)
-
- On which disk drive do you wish to install
- @Name
-
-
- @EndOutDrive
-
- @GetSubdir
- @Cls
- @MoveCStr(2,20,95,"╔═══════════════════════════════╗")
- @MoveCStr(3,20,95,"║ Simon the Sorcerer (The Demo) ║")
- @MoveCStr(4,20,95,"╚═══════════════════════════════╝")
- @MoveCStr(5,22, 0," ")
- @MoveCStr(3,53,0," ")
- @MoveCStr(4,53,0," ")
- @Move(6,0)
-
- @Name will now be installed to
- @Subdir subdirectory. To change the name of the subdirectory
- type the new name in the space below. To accept the current
- name press [Enter]
-
- @Prompt = "Which subdirectory ([Enter] = @Subdir)"
- @EndSubdir
-
-
- @FlushOptions()
-
-
- @If(@DiskFree(@OutDrive)>@SizeNeeded)
- @GetOption @LocalWindow(9,65)
- @Option 1="Yes"
- @Option 2="No"
-
- @Cls
- @MoveCStr(2,20,95,"╔═══════════════════════════════╗")
- @MoveCStr(3,20,95,"║ Simon the Sorcerer (The Demo) ║")
- @MoveCStr(4,20,95,"╚═══════════════════════════════╝")
- @MoveCStr(5,22, 0," ")
- @MoveCStr(3,53,0," ")
- @MoveCStr(4,53,0," ")
- @Move(6,0)
-
- Do you wish to copy the game file to your hard disk?
-
-
-
- (It will take up approx 1.2 MB but will improve performance.)
-
- @EndOption
- @If(1[=@Option) @CopyGame = 1
- @EndIf
- @EndIf
-
- @System("subst a: @StartupDrive:\\@StartupDir")
- @DefineDisk @Label="Disk 1"
- @If(@CopyGame)
- @File SIMON.GME
- @EndIf
- @File EFFECTS.VOC
- @File DISK.ID @Out SAVES\\DISK.ID
- @File MT_FM.IBK
- @File RUNVGA.EXE
- @File SETD.SND
- @File SETUP.EXE
- @File TBLLIST
- @File STRIPPED.TXT
- @File GAMEPC
- @File ICON.DAT
- @File MT_FM.IBK
- @BeginLib DRIVERS.RED
- @File ADLIBG.COM @Size 5536
- @File SBLASTER.COM @Size 4560
- @File SBCLONE.COM @Size 4576
- @File SBPRO.COM @Size 4704
- @File SOURCE.COM @Size 3424
- @File PAUDIO.COM @Size 5376
- @File GF166.COM @Size 5504
- @File LSIZE.COM @Size 3328
- @File SB16.COM @Size 4544
- @File PAS16.COM @Size 5440
- @File TANSLTL.COM @Size 3200
- @EndLib
- @EndDisk
-
- @Finish
- @System("subst a: /d")
- @ChDrive @OutDrive
- @ChDir "@Subdir"
- @Write("Simon.Bat","wt","@@Echo Off\n")
- @Write(,,"if not exist Soundrv.Com echo Please run SETUP to setup your sound card for digital sound effects and music.\n")
- @Write(,,"if not exist Soundrv.Com goto end\n")
- @Write(,,"Soundrv\n")
- @Write(,,"Runvga /@OutDrive /0 @StartupDrive:\\@StartupDir\\simon.voc ")
- @Write(,,"effects.voc ")
- @If(!@CopyGame)
- @Write(,,"@StartupDrive:\\@StartupDir\\")
- @EndIf
- @Write(,,"simon.gme\n")
- @Write(,,"Soundrv u\n")
- @Write(,,":end\n")
- @Copy("Simon.bat","SimonBat");
- @Spawn("SETUP")
-
- @Cls
- @If(@Spawn()==0)
- @Name has been successfully installed
- and setup for your computer. Please type 'SIMON' to play the game.
-
- @Else
- @Name has been installed but not setup
- for your computer. Please type 'SETUP' to setup the digital sounds
- and music.
-
- @EndIf
- @Pause
- @EndFinish
-