Amiga ISO Collection/AmigaUtilCD1.iso/GFX/Misc/EDG-VSP1.DMS/in.adf/InstallProPlus

Text File | 1995-11-18 | 19.5 KB | 634 lines

; This is an install script for VideoStage Pro+
;
; The following tooltypes should be on the invocation project icon:
;         MINUSER=AVERAGE
;         APPNAME=VStageProPlus
;         PRETEND=FALSE      {this is due to fact that lhex will not
;                             follow the pretend mode correctly}
;


(copyfiles
   (source "Install_1:lhex")
   (dest "ram:")
   (infos)
)
(copyfiles
   (source "Install_1:Disk.info")
   (dest "ram:")
   (infos)
)
(copyfiles
   (source "Install_1:FilterSettings")
   (dest "ram:")
   (infos)
)
(copyfiles
   (source "Install_1:VSregisterPP")
   (dest "ram:")
   (infos)
)

(onerror
   (delete "ram:lhex" (safe))
   (delete "ram:Disk.info" (safe))
   (delete "ram:filtersettings" (safe))
   (delete "ram:vsregisterpp" (safe))
)

(

   (set vs_dest (tackon @default-dest "VStage"))

   (set vs_dest
      (askdir
         (prompt "Where would you like to install VideoStage Pro?"
         )
         (help   "The suggested path is on your volume with the"
                 " most available space.  If you wish it to be"
                 " elsewhere, simply change the name.  If the drawer does"
                 " not exist, it will be added to the indicated"
                 " volume, along with an icon.  Some examples will be"
                 " installed to the same location.  The total installation"
                 ", excluding the fonts placed in fonts:, will be about"
                 " 3.4Mb in length."
         )
         (newpath)
         (default vs_dest)
      )
   )

   (makedir vs_dest (infos))

   (set @default-dest vs_dest)
   (
      (copyfiles
         (source "Install_1:vstagepro.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage program files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" vs_dest "\" x ram:vstagepro.lzh"))
         (abort "Program files Decompression failed")
      )
      (delete "ram:vstagepro.lzh")
      (delete "ram:vsregisterpp")
   )
)

(if (exists "Install_1:amigaguide.lzh")
   (if (= (exists "libs:amigaguide.library") 0)
      (
         (if (askbool
               (prompt "Do you wish to install the amigaguide.library"
                       " file into your libs: directory?  This library"
                       " is essential to the operation of the help"
                       " system in VideoStage"
               )
               (help "If you wish to be able to utilize the extensive help"
                     " system provided with VideoStage then you"
                     " should install it."
               )
               (default 1)
            )
            (
               (copyfiles
                  (source "Install_1:amigaguide.lzh")
                  (dest "ram:")
               )
               (working
                          "Preparing amigaguide library file.\n"
                          "\n**********\n"
                          "This could take several minutes so please be patient!\n"
                          "**********"
               )
               (if (run (cat "ram:lhex >nil: -qfw=libs: x ram:amigaguide.lzh"))
                  (abort "amigaguide library Decompression failed")
               )
               (delete "ram:amigaguide.lzh")
            )
         )
      )
   )
)

(set anbr_install
   (askbool
      (prompt "Do you wish to install animated transition icons?\n"
              "*************\n"
              "These will be displayed in the transition window for"
              " the current transition selection, and are of great"
              " help in understanding what each transition is like"
              " and how the speed setting will effect it.  However"
              " it will take about 1/2Mb on your drive!")
      (help "If you do not choose to install these, and they were not"
            " already present on your drive, then the spot where they"
            " would have been rendered will just be a grey rectangle."
            )
      (default 1)
   )
)

(set anbr_dest (tackon vs_dest "Anbr"))
(makedir anbr_dest (infos))

(if anbr_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"Install_2:\".")
         (help @askdisk-help)
         (dest  "Install_2")
      )
      (
         (copyfiles
            (source "Install_2:anbr.lzh")
            (dest "ram:")
         )
         (working
                    "Preparing VideoStage animated icon files.\n"
                    "\n**********\n"
                    "This could take several minutes so please be patient!\n"
                    "**********"
         )
         (if (run (cat "ram:lhex >nil: \"-qfw=" anbr_dest "\" x ram:anbr.lzh"))
            (abort "Demo files Decompression failed")
         )
         (delete "ram:anbr.lzh")
      )
   )
)

(set font_install
   (askbool
      (prompt "Do you wish to install the fonts into your fonts: drawer?\n"
              "*************\n"
              "These will take approximately 1.1 Mb on your drive"
              " and are required for proper operation of the demo shows."
              " However, you may not wish to install them at this time."
              " N.B. that VideoStage will NOT run if the VStage font is"
              " not installed, at a minimum!")
      (help "If you do not choose to install these to your drive, then"
            " you MUST install at least the VStage font.  This will"
            " require you to unarc the fonts.lzh file manually and copy"
            " the VStage font, and any others you wish, to fonts:.  It"
            " is much easier to just let the install procedure do this"
            " for you."
            )
      (default 1)
   )
)

(if font_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"Install_2:\".")
         (help @askdisk-help)
         (dest  "Install_2")
      )
      (
         (set font_dest "fonts:")

         (copyfiles
            (source "Install_2:fonts.lzh")
            (dest "ram:")
         )
         (working
                    "Preparing VideoStage font files.\n"
                    "\n**********\n"
                    "This could take several minutes so please be patient!\n"
                    "**********"
         )
         (if (run (cat "ram:lhex >nil: \"-qfw=" font_dest "\" x ram:fonts.lzh"))
            (abort "Font files Decompression failed")
         )
         (delete "ram:fonts.lzh")
      )
   )
)

(
   (askdisk
      (prompt "Please insert the disk labeled \"Install_2:\".")
      (help @askdisk-help)
      (dest  "Install_2")
   )
   (
      (set pic_dest (tackon vs_dest "Pics"))
      (makedir pic_dest (infos))

      (copyfiles
         (source "Install_2:Pics.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage picture files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" pic_dest "\" x ram:Pics.lzh"))
         (abort "Picture files Decompression failed")
      )
      (delete "ram:pics.lzh")
   )
   (
      (set demo_dest (tackon vs_dest "Demos"))
      (makedir demo_dest (infos))

      (copyfiles
         (source "Install_2:Demo.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage sample show files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" demo_dest "\" x ram:Demo.lzh"))
         (abort "Demo files Decompression failed")
      )
      (delete "ram:demo.lzh")
   )
   (
      (set sample_dest (tackon vs_dest "Samples"))
      (makedir sample_dest (infos))

      (copyfiles
         (source "Install_2:Sample.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage sound sample files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" sample_dest "\" x ram:Sample.lzh"))
         (abort "Sample files Decompression failed")
      )
      (delete "ram:sample.lzh")
   )
)

(
   (askdisk
      (prompt "Please insert the disk labeled \"Install_3:\".")
      (help @askdisk-help)
      (dest  "Install_3")
   )
   (
      (set ascii_dest (tackon vs_dest "Text"))
      (makedir ascii_dest (infos))

      (copyfiles
         (source "Install_3:Text")
         (all)
         (dest ascii_dest)
      )
   )
   (
      (set back_dest (tackon vs_dest "Backgrounds"))
      (makedir back_dest (infos))

      (copyfiles
         (source "Install_3:backgrounds.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage background picture files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" back_dest "\" x ram:backgrounds.lzh"))
         (abort "Background files Decompression failed")
      )
      (delete "ram:backgrounds.lzh")
   )
   (
      (set pattern_dest (tackon vs_dest "Patterns"))
      (makedir pattern_dest (infos))

      (copyfiles
         (source "Install_3:patterns.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage backdrop pattern files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" pattern_dest "\" x ram:patterns.lzh"))
         (abort "Pattern files Decompression failed")
      )
      (delete "ram:patterns.lzh")
   )
   (
      (set button_dest (tackon vs_dest "Buttons"))
      (makedir button_dest (infos))

      (copyfiles
         (source "Install_3:buttons.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage button image files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" button_dest "\" x ram:buttons.lzh"))
         (abort "Button files Decompression failed")
      )
      (delete "ram:buttons.lzh")
   )
)

(if (exists "libs:destracker.library")
   (
      (set vernum (getversion "libs:destracker.library"))
      (set ver (/ vernum 65536))
      (set rev (- vernum (* ver 65536) ) )
      (set newvernum (getversion "Install_3:destracker.library"))
      (set newver(/ newvernum 65536))
      (set newrev(- newvernum (* newver 65536)))
;      (message
;         ("You already have destracker.library version %ld.%ld" ver rev)
;         ("\nThe new amigaguide.library version is %ld.%ld" newver newrev)
;      )
      (if (> newvernum vernum)
         (if (askbool
               (prompt "Do you wish to replace the destracker.library"
                       " file in your libs: directory?  This library"
                       " is essential to the playback of mod format"
                       " sound files in VideoStage"
                       ("\nThe current library is version %ld.%ld" ver rev)
                       ("\nThe new library is version %ld.%ld" newver newrev)
               )
               (help "If you wish to be able to play mod sound files"
                     " then you should install it."
               )
               (default 1)
            )
            (
               (copyfiles
                  (source "Install_3:destracker.library")
                  (dest "libs:")
               )
            )
         )
      )
   )
   (
      (if (askbool
            (prompt "Do you wish to install the destracker.library"
                    " file into your libs: directory?  This library"
                    " is essential to the playback of mod format"
                    " sound files in VideoStage"
            )
            (help "If you wish to be able to play mod sound files"
                  " then you should install it."
            )
            (default 1)
         )
         (
            (copyfiles
               (source "Install_3:destracker.library")
               (dest "libs:")
            )
         )
      )
   )
)

(
   (askdisk
      (prompt "Please insert the disk labeled \"Install_4:\".")
      (help @askdisk-help)
      (dest  "Install_4")
   )
   (
      (set clipart_dest (tackon vs_dest "ClipArt"))
      (makedir clipart_dest (infos))

      (copyfiles
         (source "Install_4:clipart.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage EPS ClipArt files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" clipart_dest "\" x ram:clipart.lzh"))
         (abort "ClipArt files Decompression failed")
      )
      (delete "ram:clipart.lzh")
   )
   (
      (set brush_dest (tackon vs_dest "Brushes"))
      (makedir brush_dest (infos))
      (set weather_dest (tackon brush_dest "Weather"))
      (makedir weather_dest (infos))

      (copyfiles
         (source "Install_4:weather.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing VideoStage weather brush files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" weather_dest "\" x ram:weather.lzh"))
         (abort "Weather Brush files Decompression failed")
      )
      (delete "ram:weather.lzh")
   )
   (
      (copyfiles
         (source "Install_4:vstagepro.lzh")
         (dest "ram:")
      )
      (working
                 "Preparing Additional VideoStage program files.\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (if (run (cat "ram:lhex >nil: \"-qfw=" vs_dest "\" x ram:vstagepro.lzh"))
         (abort "Program files Decompression failed")
      )
      (delete "ram:vstagepro.lzh")
   )
)

(set ofont_install
   (askchoice
      (prompt "Do you wish to install the Compugraphic fonts?\n"
              "These are freely distributable fonts which can be used"
              " for converting text to outlines.  See help for more info."
              )
      (help "This is a collection of 7 Compugraphic fonts which"
            " are converted from freely distributable type 1 PostScript"
            " fonts."
            " You may wish to install these into fonts:_Bullet_Outlines,"
            " which is the standard location for Compugraphic fonts under"
            " Amiga DOS 2.0 and above, so you may install them for use"
            " by other programs."
            " To do so, see the documentation"
            " which came with your Amiga and/or WorkBench release.  In"
            " addition, there is a readme file which will be also placed"
            " into the same location."
            " Alternatively, you may elect to place these fonts into"
            " their own drawer, in the location where VideoStage is"
            " installed."
            )
      (choices ("Install into fonts:_Bullet_Outlines drawer")
               ("Install into separate drawer")
               ("Don't install these fonts")
      )
      (default 0)
   )
)

(set ofont_dest "fonts:_bullet_outlines")

(if (= ofont_install 0)
   (set ofont_install 1)
   (if (= ofont_install 1)
      (set ofont_dest (tackon vs_dest "Ofonts"))
      (set ofont_install 0)
   )
)

(makedir ofont_dest)

(if ofont_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"Install_4:\".")
         (help @askdisk-help)
         (dest  "Install_4")
      )
      (

         (copyfiles
            (source "Install_4:ofonts.lzh")
            (dest "ram:")
         )
         (working
                    "Preparing Compugraphic font files.\n"
                    "\n**********\n"
                    "This could take several minutes so please be patient!\n"
                    "**********"
         )
         (if (run (cat "ram:lhex >nil: \"-qfw=" ofont_dest "\" x ram:ofonts.lzh"))
            (abort "Outline Font files Decompression failed")
         )
         (delete "ram:ofonts.lzh")
      )
   )
)

(set help_dest (tackon vs_dest "VStagePPlus.guide"))

(
   (textfile
      (prompt "Do you wish to create the settings file for VideoStage?\n"
              "*************\n"
              "This is the s:.vstage file used by VideoStage"
              " to provide default settings and paths.")
      (help "The file s:.vstage provides various defaults to the program."
            " Operation will still be ok without it, but some things"
            " (such as the HELP capability) may not work without it")
      (dest "ram:.VStagex")
      (append "VIDEOSTAGE-1\n")
      (append "QRTRANS 0 1 3 3 3 3 4 4 4 4 7 7 7 7 7 7 7 7 7 7\n")
      (append "QRSUBTR 0 0 1 4 7 5 1 3 9 6 3 0 2 1 12 11 5 6 4 7\n")
      (append "QRSPEED 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60\n")
      (append "QRLINE1 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30\n")
      (append "QRLINE2 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70\n")
      (append "GENERICGENLOCK\n")
      (append "PATH<" pic_dest ">\n")
      (append "IFFOPENPATH<" pic_dest ">\n")
      (append "PATH<" back_dest ">\n")
      (append "BACKDROPPATH<" back_dest ">\n")
      (append "PATH<" pattern_dest ">\n")
      (append "PATTERNPATH<" pattern_dest ">\n")
      (append "PATH<" button_dest ">\n")
      (append "BUTTONPATH<" button_dest ">\n")
      (append "EPSPATH<" clipart_dest ">\n")
      (append "PATH<" weather_dest ">\n")
      (append "BRUSHPATH<" brush_dest ">\n")
      (append "AREXXPATH s:\n")
      (append "ASCIIPATH<" ascii_dest ">\n")
      (append "TRANSPATH<" anbr_dest ">\n")
      (append "PATH<" sample_dest ">\n")
      (append "SOUNDPATH<" sample_dest ">\n")
      (append "PATH<" demo_dest ">\n")
      (append "SCRIPTPATH<" demo_dest ">\n")
      (append "BULLETPATH<" ofont_dest ">\n")
      (append "HELPFILE<" help_dest ">\n")
      (append "ANTIALIAS 2\n")
      (append "FONT0 VSCoop.font 42 2 34 1 1 6 6 0 10 10 7 2 2 0 0\n")
      (append "FONT1 topaz.font 8 0 66 1 1 6 6 0 10 10 1 2 2 0 0\n")
      (append "END\n")

      (confirm)
   )
)

(run ("ram:filtersettings"))
(delete "ram:.vstagex" (safe))
(delete "ram:filtersettings" (safe))

(set settings_install
   (askbool
      (prompt "Do you wish to replace the settings file for VideoStage?\n"
              "*************\n"
              "This is the s:.vstage file used by VideoStage"
              " to provide default settings and paths.  If not, it will"
              " be placed where VideoStage is for reference.")
      (help "The file s:.vstage provides various defaults to the program."
            " Basic operation will still be ok without it, but some things"
            " (such as the HELP capability) may not work without it."
            " If you choose not to replace it, the new .vstage file will"
            " be placed in the same drawer where you installed VideoStage"
            " in case you wish to use it there, or copy parts of it."
            )
      (default 1)
   )
)

(if settings_install
   (
      (copyfiles
         (source "ram:.vstage")
         (dest "s:")
      )
      (delete "ram:.vstage" (safe))
   )
   (
      (copyfiles
         (source "ram:.vstage")
         (dest vs_dest)
      )
      (delete "ram:.vstage" (safe))
   )
)

(delete "ram:lhex" (safe))

(complete 100)

(exit)