home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS01.DMS / in.adf / install-movieshop < prev    next >
Encoding:
Text File  |  1995-07-24  |  33.2 KB  |  1,091 lines
  1. ; ************************************************
  2. ; *
  3. ; * Install-MovieShop
  4. ; *
  5. ; * $VER: Install-MovieShop 2.6 (22.7.95)
  6. ; *
  7. ; * This is the installation script for VLAB-Motion/MovieShop software.
  8. ; *
  9. ; * Copyright © 1994 MS MacroSystem Computer GmbH
  10. ; * All Rights Reserved
  11. ; *
  12. ; * written by Claus Bönnhoff
  13. ; *
  14. ; ************************************************
  15.  
  16. ; ********************************
  17. ; * Set up some global variables.
  18. ; ********************************
  19. ;
  20.  
  21. (set ProductName  "VLab-Motion")
  22. (set MovieShop    "MovieShop")
  23. (set Toccata      "Toccata")
  24. (set Retina       "Retina")
  25. (set VMInit       "VMInit")
  26. (set ReSel        "ReSelection")
  27. (set Operator     "Operator")
  28.  
  29. (set DISK1        "MovieShop1")
  30. (set DISK2        "MovieShop2")
  31.  
  32. (set OSVersion    (/ (getversion) 65536))
  33. (set Locale       (exists "libs:locale.library" (noreq)))
  34. (set TotalFiles   0)
  35. (set ActualFiles  0)
  36.  
  37. (set DirPath (@default-dest))
  38. (set MovieDirPath "")
  39.  
  40. ; ****************************
  41. ; * Set up some messages.
  42. ; ****************************
  43. ;
  44.  
  45. (if (patmatch @language "deutsch")
  46. ; german language
  47.   (
  48.    (set language 2)
  49.    (set MSG_DEVELOPER         "Entwickler")
  50.    (set MSG_SELECTPARTS       ("Bitte wählen Sie welche Teile der %s Software installiert werden sollen." ProductName))
  51.    (set MSG_SELECTGUIDEPARTS  ("Bitte wählen Sie in welchen Sprachen die Online-Hilfe installiert werden soll"))
  52.    (set HLP_SELECTGUIDEPARTS1 (cat ("Die Online-Hilfe wird in deutscher Sprach installiert")))
  53.    (set MSG_GERMAN            ("Deutsch"))
  54.    (set HLP_SELECTPARTS1       (cat ("Dieser Teil der Installation läßt Sie entscheiden, welche Teile ")
  55.                                ("der %s Software sie auf Ihrer Festplatte installieren möchten.\n" ProductName)
  56.                                ("\n")))
  57.    (set HLP_SELECTPARTS2      (cat ("*** %s\n" MovieShop)
  58.                               ("Dieser Teil beinhaltet das Hauptprogramm, mit welchem Sie ")
  59.                               ("mit der %s Videos aufzeichnen, bearbeiten und " ProductName)
  60.                               ("wieder abspielen können.\n")
  61.                               ("\n")))
  62.    (set HLP_SELECTPARTS3      (cat ("*** %s\n" Toccata)
  63.                               ("Dieser Teil beinhaltet alle notwendigen Programme und Dateien ")
  64.                               ("um mit %s gleichzeitig Bild und Ton aufnehmen zu können. \n" MovieShop)
  65.                               ("Dies ist aber nur sinnvoll, wenn Sie eine %s besitzen.\n" Toccata)
  66.                               ("\n")))
  67.    (set HLP_SELECTPARTS4      (cat ("*** %s\n" Retina)
  68.                               ("Dieser Teil beinhaltet alle notwendigen Programme und Dateien ")
  69.                               ("um mit %s die Vorteile der Retina-Grafikarte (24Bit Workbench) " MovieShop)
  70.                               ("nutzen zu können.\n")
  71.                               ("Dies ist aber nur sinnvoll, wenn Sie eine %s-Grafikkarte besitzen.\n" Retina)
  72.                               ("\n")))
  73.    (set HLP_SELECTPARTS6      (cat ("*** %s\n" VMInit)
  74.                               ("Dieses Programm ermöglicht es Ihnen die VLab-Motion sofort nach dem Start ")
  75.                               ("oder einem Reset des Rechners so zu initialisieren, daß sie das anliegende ")
  76.                               ("Videosignal durchschleift. Es empfiehlt sich das Programm direkt in den ")
  77.                               ("WBStartup-Ordner zu installieren, damit die VLab-Motion immer nach dem Starten ")
  78.                               ("Ihres Rechners initialisiert ist.\n")
  79.                               ("Wie sie das Programm starten entnehmen sie bitte dem Handbuch.\n")
  80.                               ("\n")))
  81.    (set HLP_SELECTPARTS7      (cat ("*** %s\n" ReSel)
  82.                               ("Dieses kleine Programm ermöglicht es Ihnen zu unterbinden, daß während Ihre Festplatte ")
  83.                               ("einen Datenstrom schreibt sie durch einen anderen Schreibzugriff unterbrochen wird.\n")
  84.                               ("Dadurch ist es der VLab-Motion möglich kontinuirlicher auf die Festplatte ")
  85.                               ("zuzugreifen und es werden höhere Datenraten und damit Bildqualitäten erreicht. ")
  86.                               ("Wie sie das Programm starten entnehmen sie bitte dem Handbuch.\n")
  87.                               ("\n")))
  88.    (set HLP_SELECTPARTS8      (cat ("*** Online-Hilfe\n")
  89.                               ("Dieser Teil installiert alle notwendigen Dateien für die Amigaguide Online-Hilfe \n")
  90.                               ("\n")))
  91.    (set HLP_SELECTPARTS9      (cat ("*** %s\n" Operator)
  92.                               ("Dieser Teil installiert die Effekt-Operatoren, die Sie benötigen, um")
  93.                               ("mit MovieShop digitale Effekte machen zu können.")
  94.                               ("\n")))
  95.    (set HLP_SETDIRPATH        (cat "Wenn Sie mit dem Installer ein Verzeichnis anlegen, ist es "
  96.                               ("sehr sinnvoll, daß sie in den Namen kein Leerzeichen einfügen. ")
  97.                               ("Dieses erleichtert den späteren Umgang, besonders beim Arbeiten ")
  98.                               ("in der Shell und mit AREXX.\n")))
  99.    (set HLP_COPYLIB           ("Wenn bereits eine Library mit diesem Namen besteht, so wird"
  100.                               "diese nur überschrieben, wenn sie eine ältere Version ist.\n"))
  101.    (set MSG_FALSEOSVERSION    ("%s benötigt unbedingt AmigaOS 2.04 oder höher.\n" MovieShop))
  102.    (set MSG_MOVIESHOPPATH     "Geben Sie bitte das Zielverzeichnis für MovieShop an...")
  103.    (set MSG_RETINAPATH        "Geben Sie bitte das Zielverzeichnis für die Retina Hilfsprogramme an...")
  104.    (set MSG_MACROPATH         "Geben Sie bitte das Zielverzeichnis für die MovieShop Macro Datei an...")
  105.    (set MSG_VMINITPATH        "Geben Sie bitte das Zielverzeichnis für das VMInit-Programm an...")
  106.    (set MSG_RESELPATH         "Geben Sie bitte das Zielverzeichnis für das ReSelection-Programm an...")
  107.    (set MSG_DEVELOPERPATH     "Geben Sie bitte das Zielverzeichnis für die VLab-Motion Entwickler Dateien an...")
  108.    (set MSG_OPERATORPATH      "Geben Sie bitte das Zielverzeichnis für die VLab-Motion Effekt-Operatoren an...")
  109.    (set MSG_GETMOVIESHOPDISK1 (cat ("Bitte legen Sie die Diskette mit dem Namen \"") (DISK1) (":\" in ein beliebiges Laufwerk")))
  110.    (Set HLP_GETMOVIESHOPDISK1 (cat MSG_GETMOVIESHOPDISK1 "\nIch benötige diese Diskette, um die Installation vornehmen zu können!\n"))
  111.    (set MSG_GETMOVIESHOPDISK2 (cat ("Bitte legen Sie die Diskette mit dem Namen \"")(DISK2)(":\" in ein beliebiges Laufwerk")))
  112.    (Set HLP_GETMOVIESHOPDISK2 (cat MSG_GETMOVIESHOPDISK2 "\nIch benötige diese Diskette, um die Installation vornehmen zu können!\n"))
  113.    (set MSG_COPYLIB           "Kopiere Library %s nach %s...")
  114.    (set HLP_COPYLIB           "MovieShop benötigt diese Library um richtig arbeiten zu können.\n")
  115.    (set MSG_COPYFILE          "Kopiere Datei %s nach %s...")
  116.    (set HLP_COPYFILE          "MovieShop benötigt diese Datei um richtig arbeiten zu können\n")
  117.    (set MSG_INSTALLVMINIT     "Wollen sie, daß das Programm VMInit auch in Ihre WBStartup kopiert wird ?")
  118.    (set HLP_INSTALLVMINIT     (cat "Wenn Sie das Programm VMInit auch in Ihre WBStartup kopieren lassen, dann "
  119.                               ("ist die VLab-Motion nach dem Starten Ihreres Rechners sofort initialisiert.\n")
  120.                               ("\n")))
  121.    (set MSG_ONLINEHELP        "Online-Hilfe")
  122.    (set MSG_MOVIESHOPHELPPATH "Bitte geben Sie das Verzeichnis an, in welchem sich das MovieShop Programm befindet")
  123.  
  124.   )
  125. ; default language
  126.   (
  127.    (set language 4)
  128.    (set MSG_DEVELOPER         "Developer")
  129.    (set MSG_SELECTPARTS       ("Select the parts of the %s package you want to install at this time." ProductName))
  130.    (set MSG_SELECTGUIDEPARTS  ("Select the language for the online help you want to install at this time."))
  131.    (set HLP_SELECTGUIDEPARTS1 ("the online help will be installed in german language"))
  132.    (set MSG_GERMAN            ("German"))
  133.    (set HLP_SELECTPARTS1      (cat ("This part of the installation lets you select the parts of the MovieShop ")
  134.                               ("package you want to install at this time.\n")
  135.                               ("\n")))
  136.    (set HLP_SELECTPARTS2      (cat ("*** %s\n" MovieShop)
  137.                               ("This option lets you install the MovieShop program. With this program ")
  138.                               ("you will do the main work on your VLab-Motion. It is an non linear video ")
  139.                               ("and audio editing system.\n")
  140.                               ("\n")))
  141.    (set HLP_SELECTPARTS3      (cat ("*** %s\n" Toccata)
  142.                               ("This option lets you install the new Toccata tools which are required ")
  143.                               ("if you want to edit video and audio simultaniosly.\n")
  144.                               ("This is only useful if you own a Toccata stereo audio digitizer card.\n")
  145.                               ("\n")))
  146.    (set HLP_SELECTPARTS4      (cat ("*** %s\n" Retina)
  147.                               ("This option lets you install the new Retina libraries which are required ")
  148.                               ("if you want to run MovieShop on an 16 or 24 bit deep Screen.\n")
  149.                               ("This is only useful if you own a Retina grafic accelerator card.\n")
  150.                               ("\n")))
  151.    (set HLP_SELECTPARTS6      (cat ("*** %s\n" VMInit)
  152.                               ("This program lets you initialize the VLab-Motion hardware without starting ")
  153.                               ("the MovieShop program. It is useful to copy this to your WBStartup drawer, so ")
  154.                               ("the VLab-Motion will be initialized every time you startup your computer.\n")
  155.                               ("For information about starting this programm please refer to your manual.\n")
  156.                               ("\n")))
  157.    (set HLP_SELECTPARTS7      (cat ("*** %s\n" ReSel)
  158.                               ("This little utility lets you disable the reselection of your hardrive. ")
  159.                               ("Doing this, the VLab-Motion will have faster access to the drive and this will ")
  160.                               ("increase your video quality.\n")
  161.                               ("For information about starting this programm please refer to your manual.\n")
  162.                               ("\n")))
  163.    (set HLP_SELECTPARTS8      (cat ("*** Online-Help\n")
  164.                               ("This option lets you install all needed files for the Amigaguide online help. \n")
  165.                               ("\n")))
  166.    (set HLP_SELECTPARTS9      (cat ("*** %s\n" Operator)
  167.                               ("This option lets you install all the effect operator you need to")
  168.                               ("to make digital effects with MovieShop")
  169.                               ("\n")))
  170.    (set HLP_SETDIRPATH        (cat "NOTE: If you will using the Installer program's "
  171.                               ("function to create a new directory using \"Make New Drawer...\"")
  172.                               ("it is highly recommended that you DO NOT include ")
  173.                               ("spaces in the drawer name.  Following this advice ")
  174.                               ("will avoid any problems accessing the directory, ")
  175.                               ("especially from ARexx scripts.\n\n")))
  176.    (set HLP_COPYLIB           (cat "If you already have a copy of this library in the selected destination directory, the library "
  177.                               ("included on the distribution disk will be compared to the one you ")
  178.                               ("already have. If your current library is an old version, the newer ")
  179.                               ("version will be installed.\n")))
  180.    (set MSG_FALSEOSVERSION    (cat ("\%s version %s requires at least AmigaOS 2.04 to run.\n" ProductName VersionNum)
  181.                               ("\n")
  182.                               ("Press the Proceed button to stop the installation procedure.\n")))
  183.    (set MSG_MOVIESHOPPATH     ("Please select the directory for the MovieShop program..."))
  184.    (set MSG_RETINAPATH        ("Please select the directory for the Retina Utilities..."))
  185.    (set MSG_VMINITPATH        ("Please select the directory for the VMInit program ..."))
  186.    (set MSG_RESELPATH         ("Please select the directory for the ReSelection program..."))
  187.    (set MSG_DEVELOPERPATH     ("Please select the directory for the VLab-Motion developer files..."))
  188.    (set MSG_OPERATORPATH      ("Please select the directory for the VLab-Motion operator files..."))
  189.    (set MSG_GETMOVIESHOPDISK1 (cat ("Please insert disk \"")(DISK1)(":\" in any drive...")))
  190.    (set HLP_GETMOVIESHOPDISK1 (cat (MSG_GETMOVIESHOPDISK1) "\nI need this disk to completly install your programs.\n"))
  191.    (set MSG_GETMOVIESHOPDISK2 (cat ("Please insert disk \"")(DISK2)(":\" in any drive...")))
  192.    (set HLP_GETMOVIESHOPDISK2 (cat MSG_GETMOVIESHOPDISK2"\nI need this disk to completly install your programs.\n"))
  193.    (set MSG_COPYLIB           "Copying library %s to %s...")
  194.    (set HLP_COPYLIB           "MovieShop needs this library.\n")
  195.    (set MSG_COPYFILE          "Copying file %s to %s...")
  196.    (set HLP_COPYFILE          "MovieShop needs this file.\n")
  197.    (set MSG_INSTALLVMINIT     "Do you want VMInit to be installed in your WBStartup ?")
  198.    (set HLP_INSTALLVMINIT     (cat "If you install VMInit in your WBStartup, the VLab-Motion is initialized"
  199.                               ("directly after starting your computer.")
  200.                               ("\n")))
  201.    (set MSG_ONLINEHELP        "Online-Help")
  202.    (set MSG_MOVIESHOPHELPPATH "Please select the drawer which contains your MovieShop software.")
  203.   )
  204. )
  205.  
  206. (procedure ChooseParts
  207. ;
  208. ; ****************************
  209. ; * Ask the user which parts of the package should be installed.
  210. ; ****************************
  211. ;
  212.    (
  213.    (set Parts
  214.       (askoptions
  215.          (prompt
  216.             (MSG_SELECTPARTS)
  217.          )
  218.          (help
  219.             (HLP_SELECTPARTS1)
  220.             (HLP_SELECTPARTS9)
  221.             (HLP_SELECTPARTS2)
  222.             (HLP_SELECTPARTS3)
  223.             (HLP_SELECTPARTS4)
  224.             (HLP_SELECTPARTS6)
  225.             (HLP_SELECTPARTS7)
  226.             (HLP_SELECTPARTS8)
  227.             @askoptions-help
  228.          )
  229.          (default (+ 51 64))
  230.          (choices
  231.             ; bit position 0 -- todo & 1
  232.             ;
  233.             ("%s" MovieShop)
  234.  
  235.             ; bit position 1 -- todo & 2
  236.             ;
  237.             ("%s" Operator)
  238.  
  239.             ; bit position 1 -- todo & 4
  240.             ;
  241.             ("%s" Toccata)
  242.  
  243.             ; bit position 2 -- todo & 8
  244.             ;
  245.             ("%s" Retina)
  246.  
  247.             ; bit position 3 -- todo & 16
  248.             ;
  249.             ("%s" VMInit)
  250.  
  251.             ; bit position 4 -- todo & 32
  252.             ;
  253.             ("%s" ReSel)
  254.  
  255.             ; bit position 5 -- todo & 64
  256.             ;
  257.             ("%s" MSG_ONLINEHELP)
  258.          )
  259.       )
  260.    )
  261.    )
  262. )
  263.  
  264. (procedure SetDirPath
  265.  
  266. ; ****************************
  267. ; * Ask the user for a directory name.
  268. ; ****************************
  269. ;
  270. ; these variables must be defined before calling this procedure:
  271. ;
  272. ;    DirPathTitle
  273. ;    DirPathHelp
  274. ;    DirPath
  275. ;
  276. ; this procedure returns the selected directory in DirPath
  277.  
  278.    (if (= (exists DirPath) 0)
  279.       (
  280.       (set DirPath
  281.          (askdir
  282.             (prompt DirPathTitle)
  283.             (help DirPathHelp @askdir-help)
  284.             (newpath DirPath)
  285.             (default DirPath)
  286.          )
  287.       )
  288.       )
  289.       (
  290.       (set DirPath
  291.          (askdir
  292.             (prompt DirPathTitle)
  293.             (help DirPathHelp @askdir-help)
  294.             (default DirPath)
  295.          )
  296.       )
  297.       )
  298.    )
  299.    (if (= (exists DirPath) 0)
  300.       (makedir DirPath)
  301.       (set moveon TRUE)
  302.    )
  303. )
  304.  
  305. (procedure CopyLibFile
  306.  
  307. ; ****************************
  308. ; * Copy the specific library file to the LIBS: directory.
  309. ; ****************************
  310. ;
  311. ; these variables must be defined before calling this procedure:
  312. ;
  313. ;    CopyLibFileName
  314. ;    CopyLibFilePath
  315. ;    DirPath
  316.  
  317.  
  318. ;
  319. ; workaround for bug in copylib
  320. ;
  321.  
  322.    (if (= (exists (tackon "Libs:" CopyLibFileName)) 1)
  323.       (
  324.          (set vernum (getversion (tackon "Libs:" CopyLibFileName)))
  325.          (set ver1 (/ vernum 65536))
  326.          (set rev1 (- vernum (* ver1 65536)))
  327.  
  328.          (set vernum (getversion (tackon CopyLibFilePath CopyLibFileName)))
  329.          (set ver2 (/ vernum 65536))
  330.          (set rev2 (- vernum (* ver2 65536)))
  331.       )
  332.       (
  333.          (set ver1 0)
  334.          (set rev1 0)
  335.          (set ver2 1)
  336.          (set rev2 1)
  337.       )
  338.    )
  339.  
  340.    (set doit 0)
  341.    (if (< ver1 ver2)
  342.       (
  343.          (set doit 1)
  344.       )
  345.       (
  346.          (if (= ver1 ver2)
  347.             (
  348.                (if (< rev1 rev2)
  349.                   (
  350.                      (set doit 1)
  351.                   )
  352.                )
  353.             )
  354.          )
  355.       )
  356.    )
  357.  
  358.    (if (= doit 1)
  359.       (
  360.          (if (= (exists (tackon DirPath CopyLibFileName)) 1)
  361.             (
  362.                (protect (tackon DirPath CopyLibFileName) "+rwed")
  363.             )
  364.          )
  365.          (copylib
  366.             (prompt  (MSG_COPYLIB CopyLibFileName DirPath))
  367.             (help MSG_COPYLIB @copylib-help)
  368.             (source (tackon CopyLibFilePath CopyLibFileName))
  369.                (dest DirPath)
  370.                (confirm)
  371.          )
  372.       )
  373.    )
  374. )
  375.  
  376. (procedure IncrementMeter
  377. ;
  378. ; ****************************
  379. ; * Set the Percent indicator.
  380. ; ****************************
  381. ;
  382. ;    AddToMeter
  383.  
  384.    (
  385.    (set PctDone   (/ (* ActualFiles 100) TotalFiles))
  386.    (set ActualFiles  (+ ActualFiles AddToMeter))
  387.    (complete PctDone)
  388.    )
  389. )
  390.  
  391.  
  392. (procedure InstallMovieShop
  393. ;
  394. ; ****************************
  395. ; * Install all MovieShop files
  396. ; ****************************
  397. ;
  398.  
  399.    (set existsrc (getassign DISK1 "v"))
  400.    (if (= existsrc "")
  401.       (askdisk (prompt MSG_GETMOVIESHOPDISK1)
  402.                (help HLP_GETMOVIESHOPDISK1 @askdisk-help)
  403.                (dest DISK1)
  404.       )
  405.    )
  406.  
  407.    (Set DirPath (tackon @default-dest "MovieShop"))
  408.    (Set DirPathTitle MSG_MOVIESHOPPATH)
  409.    (Set DirPathHelp  HLP_SETDIRPATH)
  410.    (SetDirPath)
  411.    (set @default-dest (DirPath))
  412.  
  413.    (set MovieDirPath (DirPath))
  414.  
  415.    (set AddToMeter   1)
  416.    (IncrementMeter)
  417.  
  418.    (if (= Locale 1)
  419.       (
  420. ;
  421. ; locale is installed
  422. ;
  423.          (if (= language 2)
  424. ;
  425. ; german language
  426. ;
  427.             (if (= (exists "Locale:Catalogs/deutsch") 2)
  428.                (
  429.                   (copyfiles
  430.                      (prompt (MSG_COPYFILE "movieshop.catalog" "Locale:catalogs/deutsch/"))
  431.                      (help MSG_COPYFILE @copyfiles-help)
  432.                      (source (cat (DISK1)(":MovieShop/movieshop.catalog")))
  433.                      (dest "Locale:Catalogs/deutsch")
  434.                      (files)
  435.                      (optional fail force)
  436.                   )
  437.                )
  438.                (
  439.                   (copyfiles
  440.                      (prompt (MSG_COPYFILE "movieshop.catalog" DirPath))
  441.                      (help MSG_COPYFILE @copyfiles-help)
  442.                      (source (cat(DISK1)(":MovieShop/movieshop.catalog")))
  443.                      (dest DirPath)
  444.                      (files)
  445.                      (optional fail force)
  446.                   )
  447.                )
  448.             )
  449.          )
  450.       )
  451.       (
  452.          (if (= language 2)
  453.             (
  454. ;
  455. ; minloc.library will be installed
  456. ;
  457.                (copyfiles
  458.                   (prompt (MSG_COPYFILE movieshop.catalog DirPath))
  459.                   (help MSG_COPYFILE @copyfiles-help)
  460.                   (source (cat (DISK1) (":MovieShop/movieshop.catalog")))
  461.                   (dest DirPath)
  462.                   (files)
  463.                   (optional fail force)
  464.                )
  465.                (set OldDirPath DirPath)
  466.                (set DirPath "Libs:")
  467.                (set CopyLibFilePath (cat(DISK1)(":MovieShop" DISK1)))
  468.                (set CopyLibFileName "minloc.library")
  469.                (CopyLibFile)
  470.                (set DirPath OldDirPath)
  471.                (textfile (prompt MSG_CreateMLL)
  472.                          (help HLP_CreateMLL)
  473.                          (dest "ENVARC:MINLOCLANGUAGE")
  474.                          (append "deutsch\n")
  475.                )
  476.             )
  477.          )
  478.       )
  479.    )
  480.  
  481.    (set AddToMeter   2)
  482.    (IncrementMeter)
  483.  
  484. ;
  485. ; install main Programm
  486. ;
  487.  
  488.    (copyfiles
  489.       (prompt (MSG_COPYFILE "MovieShop" DirPath))
  490.       (help MSG_COPYFILE @copyfiles-help)
  491.       (source (cat (DISK1)(":MovieShop/MovieShop" DISK1)))
  492.       (dest DirPath)
  493.       (infos)
  494.       (files)
  495.       (optional fail force)
  496.    )
  497.  
  498.    (set AddToMeter   1)
  499.    (IncrementMeter)
  500.  
  501. ;
  502. ; install VJPEG
  503. ;
  504.  
  505.    (copyfiles
  506.       (prompt (MSG_COPYFILE "vjpeg" DirPath))
  507.       (help MSG_COPYFILE @copyfiles-help)
  508.       (source (cat (DISK1)(":MovieShop/vjpeg")))
  509.       (dest DirPath)
  510.       (files)
  511.       (optional fail force)
  512.    )
  513.  
  514.    (set AddToMeter   1)
  515.    (IncrementMeter)
  516.  
  517. ;
  518. ; install autoupdate
  519. ;
  520.  
  521.  
  522.    (if (= (exists (cat (DISK1)(":MovieShop/MovieShop.autoupdate"))) 1)
  523.    (
  524.       (copyfiles
  525.          (prompt (MSG_COPYFILE "MovieShop.autoupdate" DirPath))
  526.          (help MSG_COPYFILE @copyfiles-help)
  527.          (source (cat (DISK1)(":MovieShop/MovieShop.autoupdate")))
  528.          (dest DirPath)
  529.          (files)
  530.          (optional fail force)
  531.       )
  532.    )
  533.    )
  534.  
  535.    (set AddToMeter   1)
  536.    (IncrementMeter)
  537.  
  538. ;
  539. ; make all needed drawers
  540. ;
  541.  
  542.    (makedir (tackon DirPath "Macros"))
  543.  
  544. ;
  545. ; install Macros
  546. ;
  547.  
  548.    (copyfiles
  549.       (prompt (MSG_COPYFILE "Macros" (tackon DirPath "Macros")))
  550.       (help MSG_COPYFILE @copyfiles-help)
  551.       (source (cat (DISK1)(":Macros/")))
  552.       (pattern "#?")
  553.       (dest (tackon DirPath "Macros"))
  554.       (files)
  555.       (optional fail force)
  556.    )
  557.  
  558.    (set AddToMeter   1)
  559.    (IncrementMeter)
  560.  
  561. ;
  562. ; install default prefs
  563. ;
  564.  
  565.    (makedir "ENVARC:MovieShop")
  566.  
  567.    (if (= (exists "ENVARC:MovieShop/MovieShop.prefs") 0)
  568.       (
  569.          (copyfiles
  570.             (prompt (MSG_COPYFILE "movieshop.prefs" "ENVARC:MovieShop/"))
  571.             (help MSG_COPYFILE @copyfiles-help)
  572.             (source (cat (DISK1)(":MovieShop/MovieShop.prefs")))
  573.             (dest "ENVARC:MovieShop/")
  574.             (files)
  575.             (optional fail force)
  576.          )
  577.      (if (= (exists "ENV:MovieShop") 0)
  578.          (
  579.              (makedir ("ENV:MovieShop"))
  580.          )
  581.      )     
  582.          (copyfiles
  583.             (prompt (MSG_COPYFILE "movieshop.prefs" "ENV:MovieShop/"))
  584.             (help MSG_COPYFILE @copyfiles-help)
  585.             (source (cat (DISK1)(":MovieShop/MovieShop.prefs")))
  586.             (dest "ENV:MovieShop/")
  587.             (files)
  588.             (optional fail force)
  589.          )
  590.       )
  591.    )
  592.  
  593.    (set AddToMeter   1)
  594.    (IncrementMeter)
  595.  
  596. ;
  597. ; install macros
  598. ;
  599.  
  600.    (if (= (exists "ENVARC:MovieShop/MovieShop.macros") 0)
  601.       (
  602.          (copyfiles
  603.             (prompt (MSG_COPYFILE "MovieShop.macros" "ENVARC:MovieShop/"))
  604.             (help MSG_COPYFILE @copyfiles-help)
  605.             (source (cat (DISK1)(":MovieShop/movieshop.macros")))
  606.             (dest ("EnvArc:MovieShop/"))
  607.             (files)
  608.             (optional fail force)
  609.          )
  610.       )
  611.    )
  612.  
  613.    (set AddToMeter   1)
  614.    (IncrementMeter)
  615.  
  616. ;
  617. ; install default icons
  618. ;
  619.  
  620.    (copyfiles
  621.       (prompt (MSG_COPYFILE "Icons" "ENVARC:MovieShop/"))
  622.       (help MSG_COPYFILE @copyfiles-help)
  623.       (source (cat (DISK1)(":MovieShop/")))
  624.       (dest "ENVARC:MovieShop/")
  625.       (files)
  626.       (pattern "def_#?")
  627.       (optional fail force)
  628.    )
  629.  
  630.    (set AddToMeter   1)
  631.    (IncrementMeter)
  632.  
  633. ;
  634. ; finaly all needed library
  635. ;
  636.  
  637.    (set CopyLibFilePath (cat (DISK1)(":MovieShop")))
  638.    (set DirPath "Libs:")
  639.  
  640.    (set CopyLibFileName "vmotion.library")
  641.    (CopyLibFile)
  642.    (set AddToMeter   1)
  643.    (IncrementMeter)
  644.    (set CopyLibFileName "motioneffect.library")
  645.    (CopyLibFile)
  646.    (set AddToMeter   1)
  647.    (IncrementMeter)
  648.    (set CopyLibFileName "multipic.library")
  649.    (CopyLibFile)
  650.    (set AddToMeter   1)
  651.    (set CopyLibFileName "multisnd.library")
  652.    (CopyLibFile)
  653.    (set AddToMeter   1)
  654.    (IncrementMeter)
  655.    (set CopyLibFileName "pfile.library")
  656.    (CopyLibFile)
  657.    (set AddToMeter   1)
  658.    (IncrementMeter)
  659.    (set CopyLibFileName "asl.library")
  660.    (CopyLibFile)
  661.    (set AddToMeter   1)
  662.    (IncrementMeter)
  663. )
  664.  
  665. (procedure InstallOperator
  666. ;
  667. ; *****************************
  668. ; * Install all effect operator
  669. ; *****************************
  670. ;
  671.    (set existsrc (getassign DISK2 "v"))
  672.    (if (= existsrc "")
  673.       (askdisk (prompt MSG_GETMOVIESHOPDISK2)
  674.                (help HLP_GETMOVIESHOPDISK2 @askdisk-help)
  675.                (dest DISK2)
  676.       )
  677.    )
  678.  
  679.    (Set DirPath (tackon MovieDirPath "Operators"))
  680.    (Set DirPathTitle MSG_OPERATORPATH)
  681.    (Set DirPathHelp  HLP_SETDIRPATH)
  682.    (SetDirPath)
  683.  
  684.    (copyfiles
  685.       (prompt (MSG_COPYFILE "Operators" DirPath))
  686.       (help MSG_COPYFILE @copyfiles-help)
  687.       (source (cat (DISK2)(":Operators/")))
  688.       (pattern "#?")
  689.       (dest DirPath)
  690.       (files)
  691.       (optional fail force)
  692.    )
  693.    (set AddToMeter 25)
  694.    (IncrementMeter)
  695. )
  696.  
  697. (procedure InstallToccata
  698. ;
  699. ; ****************************
  700. ; * Install all Toccata files
  701. ; ****************************
  702. ;
  703.  
  704.    (set existsrc (getassign DISK1 "v"))
  705.    (if (= existsrc "")
  706.       (askdisk (prompt MSG_GETMOVIESHOPDISK1)
  707.                (help HLP_GETMOVIESHOPDISK1 @askdisk-help)
  708.                (dest DISK1)
  709.       )
  710.    )
  711.  
  712.    (set AddToMeter   1)
  713.    (IncrementMeter)
  714.  
  715.    (set CopyLibFilePath (cat (DISK1)(":Toccata")))
  716.    (set DirPath "Libs:")
  717.  
  718.    (set CopyLibFileName "toccata.library")
  719.    (CopyLibFile)
  720.  
  721.    (set AddToMeter   1)
  722.    (IncrementMeter)
  723. )
  724.  
  725. (procedure InstallRetina
  726. ;
  727. ; ****************************
  728. ; * Install all Retina files
  729. ; ****************************
  730. ;
  731.  
  732.    (set existsrc (getassign DISK1 "v"))
  733.    (if (= existsrc "")
  734.       (askdisk (prompt MSG_GETMOVIESHOPDISK1)
  735.                (help HLP_GETMOVIESHOPDISK1 @askdisk-help)
  736.                (dest DISK1)
  737.       )
  738.    )
  739.  
  740.    (set AddToMeter   1)
  741.    (IncrementMeter)
  742.  
  743. ;
  744. ; install retina.library
  745. ;
  746.  
  747.    (set CopyLibFilePath (cat (DISK1)(":Retina")))
  748.    (set DirPath "Libs:")
  749.  
  750.    (set CopyLibFileName "retina.library")
  751.    (CopyLibFile)
  752.    (set AddToMeter   1)
  753.    (IncrementMeter)
  754.    (set CopyLibFileName "retinaemu.library")
  755.    (CopyLibFile)
  756.    (set AddToMeter   1)
  757.    (IncrementMeter)
  758. )
  759.  
  760. (procedure InstallVMInit
  761. ;
  762. ; ****************************
  763. ; * Install VMInit
  764. ; ****************************
  765. ;
  766.    (set existsrc (getassign DISK1 "v"))
  767.    (if (= existsrc "")
  768.       (askdisk (prompt MSG_GETMOVIESHOPDISK1)
  769.                (help HLP_GETMOVIESHOPDISK1 @askdisk-help)
  770.                (dest DISK1)
  771.       )
  772.    )
  773.  
  774.    (if(= MovieDirPath "")
  775.     (
  776.       (set DirPath (tackon (DirPath) "VMTools"))
  777.     )
  778.     (
  779.       (set DirPath (tackon (MovieDirPath) "VMTools"))
  780.     )
  781.    )
  782.  
  783.    (Set DirPathTitle MSG_VMINITPATH)
  784.    (Set DirPathHelp  HLP_SETDIRPATH)
  785.    (SetDirPath)
  786.  
  787.    (set AddToMeter   1)
  788.    (IncrementMeter)
  789.  
  790.    (copyfiles
  791.       (prompt (MSG_COPYFILE "VMInit" DirPath))
  792.       (help MSG_COPYFILE @copyfiles-help)
  793.       (source (cat (DISK1)(":Tools/VMInit")))
  794.       (dest DirPath)
  795.       (files)
  796.       (infos)
  797.       (optional fail force)
  798.    )
  799.  
  800.    (set AddToMeter   2)
  801.    (IncrementMeter)
  802.  
  803.    (if (askbool
  804.          (prompt MSG_INSTALLVMINIT)
  805.          (help   HLP_INSTALLVMINIT)
  806.        )
  807.     (
  808.          (copyfiles
  809.             (prompt (MSG_COPYFILE "VMInit" "SYS:WBStartup"))
  810.             (help MSG_COPYFILE @copyfiles-help)
  811.             (source (cat (DISK1)(":Tools/VMInit")))
  812.             (dest "SYS:WBStartup")
  813.             (infos)
  814.             (files)
  815.             (optional fail force)
  816.          )
  817.     )
  818.    )
  819.  
  820.    (set AddToMeter   1)
  821.    (IncrementMeter)
  822. )
  823.  
  824. (procedure InstallReSel
  825. ;
  826. ; ****************************
  827. ; * Install ReSel
  828. ; ****************************
  829. ;
  830.    (set existsrc (getassign DISK1 "v"))
  831.    (if (= existsrc "")
  832.       (askdisk (prompt MSG_GETMOVIESHOPDISK1)
  833.                (help HLP_GETMOVIESHOPDISK1 @askdisk-help)
  834.                (dest DISK1)
  835.       )
  836.    )
  837.  
  838.    (if(= MovieDirPath "")
  839.     (
  840.       (set DirPath (tackon (DirPath) "VMTools"))
  841.     )
  842.     (
  843.       (set DirPath (tackon (MovieDirPath) "VMTools"))
  844.     )
  845.    )
  846.    (Set DirPathTitle MSG_RESELPATH)
  847.    (Set DirPathHelp  HLP_SETDIRPATH)
  848.    (SetDirPath)
  849.  
  850.    (set AddToMeter   1)
  851.    (IncrementMeter)
  852.  
  853.    (copyfiles
  854.       (prompt (MSG_COPYFILE "ReSelection" DirPath))
  855.       (help MSG_COPYFILE @copyfiles-help)
  856.       (source (cat (DISK1)(":Tools/ReSelection")))
  857.       (dest DirPath)
  858.       (files)
  859.       (infos)
  860.       (optional fail force)
  861.    )
  862.  
  863.    (set AddToMeter   1)
  864.    (IncrementMeter)
  865.  
  866.    (copyfiles
  867.       (prompt (MSG_COPYFILE "ReSel_ON/OFF" DirPath))
  868.       (help MSG_COPYFILE @copyfiles-help)
  869.       (source (cat (DISK1)(":Tools/")))
  870.       (pattern "RESEL_#?.info")
  871.       (dest DirPath)
  872.       (files)
  873.       (infos)
  874.       (optional fail force)
  875.    )
  876.  
  877.    (set AddToMeter   1)
  878.    (IncrementMeter)
  879.  
  880.    (if (= Locale 1)
  881.       (
  882. ;
  883. ; locale is installed
  884. ;
  885.          (if (= language 2)
  886. ;
  887. ; german language
  888. ;
  889.             (if (= (exists "Locale:Catalogs/deutsch") 2)
  890.                (
  891.                   (copyfiles
  892.                      (prompt (MSG_COPYFILE "resel.catalog" "Locale:catalogs/deutsch/"))
  893.                      (help MSG_COPYFILE @copyfiles-help)
  894.                      (source (cat (DISK1)(":Tools/resel.catalog")))
  895.                      (dest "Locale:Catalogs/deutsch/")
  896.                      (files)
  897.                      (optional fail force)
  898.                   )
  899.                )
  900.                (
  901.                   (copyfiles
  902.                      (prompt (MSG_COPYFILE "resel.catalog" DirPath))
  903.                      (help MSG_COPYFILE @copyfiles-help)
  904.                      (source (cat (DISK1)(":Tools/resel.catalog")))
  905.                      (dest DirPath)
  906.                      (files)
  907.                      (optional fail force)
  908.                   )
  909.                )
  910.             )
  911.          )
  912.       )
  913.       (
  914.          (if (= language 2)
  915.             (
  916. ;
  917. ; minloc.library will be installed
  918. ;
  919.                (copyfiles
  920.                   (prompt (MSG_COPYFILE resel.catalog DirPath))
  921.                   (source (cat (DISK1)(":Tools/resel.catalog")))
  922.                   (dest DirPath)
  923.                   (files)
  924.                   (optional fail force)
  925.                )
  926.                (set DirPath "Libs:")
  927.                (set CopyLibFilePath (cat (DISK1)(":MovieShop")))
  928.                (set CopyLibFileName "minloc.library")
  929.                (CopyLibFile)
  930.                (textfile (prompt MSG_CreateMLL)
  931.                          (help HLP_CreateMLL)
  932.                          (dest "ENVARC:MINLOCLANGUAGE")
  933.                          (append "deutsch\n")
  934.                )
  935.             )
  936.          )
  937.       )
  938.    )
  939.  
  940.    (set AddToMeter   1)
  941.    (IncrementMeter)
  942. )
  943.  
  944. (procedure InstallGuide
  945. ;
  946. ; ****************************
  947. ; * Install Guide
  948. ; ****************************
  949. ;
  950.    (set existsrc (getassign DISK2 "v"))
  951.    (if (= existsrc "")
  952.       (askdisk (prompt MSG_GETMOVIESHOPDISK2)
  953.                (help HLP_GETMOVIESHOPDISK2 @askdisk-help)
  954.                (dest DISK2)
  955.       )
  956.    )
  957.  
  958.    (
  959.    (set Parts
  960.       (askoptions
  961.          (prompt
  962.             (MSG_SELECTGUIDEPARTS)
  963.          )
  964.          (help
  965.             (HLP_SELECTGUIDEPARTS1)
  966.             @askoptions-help
  967.          )
  968.          (default 1)
  969.          (choices
  970.             ; bit position 0 -- todo & 1
  971.             ;
  972.             ("%s" MSG_GERMAN)
  973.          )
  974.       )
  975.    )
  976.    )
  977.  
  978.    (if (BITAND Parts 1)
  979.      (
  980.       (if (<> (exists "Help:" (noreq)) 0)
  981.          (
  982.             (if(= (exists "help:deutsch") 0)
  983.               (
  984.                (makedir "help:deutsch")
  985.               )
  986.             )
  987.  
  988.            (set AddToMeter 1)
  989.            (IncrementMeter)
  990.            (copyfiles
  991.             (prompt (MSG_COPYFILE "Scripte" "Help:deutsch/movieshop"))
  992.             (help MSG_COPYFILE @copyfiles-help)
  993.             (source (cat (DISK2)(":Guide/MovieShop")))
  994.             (all)
  995.             (dest ("Help:deutsch/movieshop"))
  996.             (files)
  997.             (optional fail force)
  998.            )
  999.            (set AddToMeter 1)
  1000.            (IncrementMeter)
  1001.          )
  1002.          (
  1003.            (if(= ((MovieDirPath) ""))
  1004.              (
  1005.                (Set DirPath (tackon @default-dest "MovieShop"))
  1006.                (Set DirPathTitle MSG_MOVIESHOPHELPPATH)
  1007.                (Set DirPathHelp  HLP_SETDIRPATH)
  1008.                (SetDirPath)
  1009.                (set HelpDirPath (DirPath))
  1010.              )
  1011.              elseif
  1012.              (
  1013.               (set HelpDirPath (MovieDirPath))
  1014.              )
  1015.            )
  1016.            (if (NOT (exists (cat (HelpDirPath)("/Help"))))
  1017.             (
  1018.                (makedir (cat (HelpDirPath)("/Help")))
  1019.             )
  1020.            )
  1021.            (if (NOT (exists (cat (HelpDirPath)("/Help/deutsch"))))
  1022.             (
  1023.                (makedir (cat (HelpDirPath)("/Help/deutsch")))
  1024.             )
  1025.            )
  1026.  
  1027.            (set AddToMeter 1)
  1028.            (IncrementMeter)
  1029.            (copyfiles
  1030.             (prompt (MSG_COPYFILE "Scripte" (cat (HelpDirPath)("/Help/deutsch"))))
  1031.             (help MSG_COPYFILE @copyfiles-help)
  1032.             (source (cat (DISK2)(":Guide/MovieShop")))
  1033.             (all)
  1034.             (dest (cat (HelpDirPath)("/Help/deutsch")))
  1035.             (files)
  1036.             (optional fail force)
  1037.            )
  1038.            (set AddToMeter 1)
  1039.            (IncrementMeter)
  1040.          )
  1041.       )
  1042.      )
  1043.    )
  1044. )
  1045.  
  1046. (onerror
  1047.    (exit (quiet))
  1048. )
  1049.  
  1050.  
  1051. (if (< OSVersion 37)
  1052.    (abort (MSG_FALSEOSVERSION)))
  1053.  
  1054. (ChooseParts)
  1055.  
  1056. ; count number of files to be installed
  1057. ;
  1058. (if (BITAND Parts 1)
  1059.    (set TotalFiles (+ TotalFiles 16)))
  1060. (if (BITAND Parts 2)
  1061.    (set TotalFiles (+ TotalFiles 24)))
  1062. (if (BITAND Parts 4)
  1063.    (set TotalFiles (+ TotalFiles 2)))
  1064. (if (BITAND Parts 8)
  1065.    (set TotalFiles (+ TotalFiles 3)))
  1066. (if (BITAND Parts 16)
  1067.    (set TotalFiles (+ TotalFiles 3)))
  1068. (if (BITAND Parts 32)
  1069.    (set TotalFiles (+ TotalFiles 4)))
  1070. (if (BITAND Parts 64)
  1071.    (set TotalFiles (+ TotalFiles 2)))
  1072.  
  1073. (complete 0)
  1074.  
  1075. (if (BITAND Parts 1)
  1076.    (InstallMovieShop))
  1077. (if (BITAND Parts 4)
  1078.    (InstallToccata))
  1079. (if (BITAND Parts 8)
  1080.    (InstallRetina))
  1081. (if (BITAND Parts 16)
  1082.    (InstallVMInit))
  1083. (if (BITAND Parts 32)
  1084.    (InstallReSel))
  1085. (if (BITAND Parts 2)
  1086.    (InstallOperator))
  1087. (if (BITAND Parts 64)
  1088.    (InstallGuide))
  1089.  
  1090. (complete 100)
  1091.