home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 7 / 1995-06_Disc_7.iso / pg2 / pgdemo35.inf < prev    next >
Text File  |  1995-03-14  |  3KB  |  90 lines
  1. ;; Install program for The Perfect General II DEMO from floppy
  2.  
  3. Do SetupINSTALIT
  4.  
  5. Dialog
  6.   .cWelcome to The Perfect General II DEMO
  7.   .cLet's do the installation!
  8.  
  9. EndDialog
  10.  
  11. :Point1
  12.  
  13. GoToXY @xy(1,3)
  14.  
  15. GetMenuChoice
  16.   Install The Perfect General II DEMO
  17.     ; Installs The Perfect General II DEMO onto your hard drive.
  18.     ; (Requires approximately 6Mb hard drive space.)
  19.   Quit
  20.     ; Exit this installation process without installing TPG2DEMO.
  21. EndGetMenuChoice
  22.  
  23. InCase Choice is
  24.   =1:  Do InstallTPG2DEMO
  25.   =2:  Do InstallCancel
  26. EndInCase
  27.  
  28. GoTo [Point1]
  29.  
  30.  
  31. Procedure InstallTPG2DEMO
  32.   ;; Deterine space needed - leave room for sound configuration!
  33.   [Number1] := 200000 + SizeOfGroup 1 + SizeOfGroup 2 + SizeOfGroup 3
  34.   [Number1] := [Number1] + SizeOfGroup 4 + SizeOfGroup 5 + SizeOfGroup 6
  35.  
  36.   DetermineInstallationDrive [Number1] RequireFixed
  37.   DetermineInstallationDirectory [Number1] RequireFixed
  38.  
  39.   CreateDirectoryIfNecessary [InstallationDirectory]
  40.   CreateDirectoryIfNecessary [InstallationDirectory]\SOUND
  41.   CreateDirectoryIfNecessary [InstallationDirectory]\SCEN
  42.   CreateDirectoryIfNecessary [InstallationDirectory]\ICONS
  43.   CreateDirectoryIfNecessary [InstallationDirectory]\ICONS\1
  44.   CreateDirectoryIfNecessary [InstallationDirectory]\ICONS\2
  45.  
  46.   QueFileGroup 1 to [InstallationDirectory] NoInquiry ;; Top directory stuff
  47.   QueFileGroup 2 to [InstallationDirectory]\SOUND NoInquiry ;; Sound directory stuff
  48.   QueFileGroup 3 to [InstallationDirectory]\SCEN NoInquiry ;; Scenarios
  49.   QueFileGroup 4 to [InstallationDirectory]\ICONS NoInquiry ;; Main graphics dir
  50.   QueFileGroup 5 to [InstallationDirectory]\ICONS\1 NoInquiry ;; Graphics set 1
  51.   QueFileGroup 6 to [InstallationDirectory]\ICONS\2 NoInquiry ;; Graphics set 2
  52.  
  53.   GetQuedFiles
  54.   ChangeDirectoryTo [InstallationDirectory]
  55.   Run PGDSETUP.EXE SwapOut
  56.   ClearScreen
  57.   Dialog PressAKey WhiteOnBrown
  58.     .cThe Perfect General II DEMO is now installed.
  59.  
  60.     To start the game, type TPG2DEMO while in the TPG2DEMO directory
  61.     on your hard drive. If you need to change sound card drivers, or
  62.     other game configuration options, please run PGDSETUP in your demo
  63.     directory.
  64.  
  65.     .cPlease read the online help for further information about the game.
  66.   EndDialog
  67.   SoLong
  68. EndProcedure
  69.  
  70. Procedure InstallCancel
  71.   Dialog PressAKey WhiteOnRed
  72.     The Perfect General II DEMO has not been installed. To run the
  73.     demo, this installation program will need to be run again.
  74.   EndDialog
  75.   SoLong
  76. EndProcedure
  77.  
  78. Procedure SetupINSTALIT
  79.   SetBackgroundCharTo B0
  80.   SetShadowAttrTo BlackOnBlack
  81.   SetScreenAttrTo WhiteOnBlue
  82.   SetTopLineAttrTo WhiteOnBrown
  83.   SetTopLineTo " INSTALLING THE PERFECT GENERAL II DEMO "
  84.   SetBottomLineAttrTo WhiteOnLightGray
  85.   SetBottomLineTo "  Call (908)788-2799 for assistance. Use <Ctrl+X> to quit.  "
  86.   SetExitMessageTo  Thanks again!
  87. EndProcedure
  88.  
  89. EndScript
  90.