home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / psv-cr.lha / PSVideo / PSVideo21 / Install < prev   
Encoding:
Text File  |  1995-08-08  |  9.9 KB  |  305 lines
  1. (SET @default-dest "Work:")
  2. (SET default_lang 1)
  3.  
  4. (SET #needKick (CAT "\n'PSVideo' need Kickstart Version 37 at least.\n"
  5.                      "\nYour Kickstart Version is lower than 37!") )
  6.  
  7. (SET #startMsg (CAT "\nWelcom to 'PSVideo' !\n\n"
  8.                      "This script installs 'PSVideo' on your AMIGA.\n\n") )
  9.  
  10. (SET #destMsg  (CAT "\nPlease choose a destination directory for 'PSVideo'.\n\n"
  11.                     "A directory called 'PSVideo' will be created automatically.\n"
  12.                     "All needed files will be stored in this new drawer.\n"
  13.                     "You need at least 900kb of free diskspace for all files.") )
  14.  
  15. (SET #destPrompt "Please choose a destination directory.")
  16.  
  17. (SET #copyPFiles "Copying program files")
  18.  
  19. (SET #langMsg (CAT "\nThe standard language of 'PSVideo' is 'English'.\n"
  20.                    "But it is possible to run 'PSVideo' with other languages too.\n\n"
  21.                    "Do you want to install additional languages?") )
  22.  
  23. (SET #langHelp (CAT "It's possible to run 'PSVideo' with different languages. "
  24.                     "'English' is build in. "
  25.                     "If you wish to use an other language choose it to install. ") )
  26.  
  27. (SET #langPrompt "Select all languages you wish to install.")
  28.  
  29. (SET #langHelp1 (CAT "Select all languages you wish to install.") )
  30.  
  31. (SET #startLangPrompt "Select the language you wish to run 'PSVideo' at the first time." )
  32.  
  33. (SET #langHelp2 (CAT "Choose your favourit language, it will be saved to PSV.prefs."
  34.                      "'PSVideo' is going to start with your selected language." ) )
  35.  
  36. (SET #DocPrompt "Select a directory for the doc file.")
  37.  
  38. (SET #DocHelp "Need a directory for the doc file.")
  39.  
  40. (SET #KeyPrompt "Select a directory for the key file.")
  41.  
  42. (SET #KeyHelp (CAT "The key file can be located into the program directory, "
  43.                    "the s: directory or a directory with name is stored into "
  44.                    "the ENV variable KEYPATH." ) )
  45.  
  46. (SET #demoPrompt "\nDo you want to copy the demo data file ?")
  47.  
  48. (SET #demoHelp (CAT "If you want to test 'PSVideo' by a demo data file press 'YES'. "
  49.                     "Then the demo data file will be copied in the program directory.") )
  50.  
  51. (SET #demoDir "Example")
  52.  
  53. (SET #exitMsg (CAT "Much fun with 'PSVideo' wish you\n\n"
  54.                    "Holger Papajewski\n"
  55.                    "&\n"
  56.                    "Jörg Stumpf") )
  57.  
  58.  
  59. ; ******************* deutsche Texte *****************************
  60.  
  61. (IF (= @language "deutsch")
  62. (
  63. (SET default_lang 2)
  64.  
  65. (SET #needKick ( CAT "\n'PSVideo' benötigt mindestens die Kickstart-Version 37.\n"
  66.                      "\nIhre Kickstart-Version ist kleiner als 37!" ) )
  67.  
  68. (SET #startMsg (CAT "\nWillkommen bei 'PSVideo' !\n\n"
  69.                      "Diese Datei installiert 'PSVideo' auf ihrem AMIGA.\n\n") )
  70.  
  71. (SET #destMsg  (CAT "\nBitte wählen Sie ein Zielverzeichnis für 'PSVideo'.\n\n"
  72.                     "Dort wird ein Verzeichnis 'PSVideo' automatisch angelegt. "
  73.                     "Alle benötigten Dateien werden in diesem neuen Verzeichnis gespeichert."
  74.                     "Sie benötigen mindestens 900kb freien Speicherplatz für alle Dateien.") )
  75.  
  76. (SET #destPrompt "Bitte wählen Sie das Zielverzeichnis.")
  77.  
  78. (SET #copyPFiles "Kopiere Programmdateien")
  79.  
  80. (SET #langMsg (CAT "\n'PSVideo' verwendet als Muttersprache 'Englisch'.\n"
  81.                    "Es ist allerdings möglich, auch andere Sprachen zu benutzen.\n\n"
  82.                    "Möchten Sie zusätzliche Sprachen installieren?") )
  83.  
  84. (SET #langHelp (CAT "Es besteht die Möglichkeit, 'PSVideo' mit verschiedenen Sprachen zu betreiben. "
  85.                     "'Englisch' ist fest im Programm eingebaut. "
  86.                     "Möchten Sie allerdings eine andere Sprache benutzen, "
  87.                     "muß diese erst installiert werden.") )
  88.  
  89. (SET #langPrompt "Wählen Sie die zu installierenden Sprachen.")
  90.  
  91. (SET #langHelp1 (CAT "Wählen Sie die zu installierenden Sprachen, indem Sie den Knopf vor ihr "
  92.                      "aktivieren.") )
  93.  
  94. (SET #startLangPrompt "Wählen Sie die Sprache, welche 'PSVideo' beim ersten Start verwenden soll.")
  95.  
  96. (SET #langHelp2 (CAT "Wählen Sie die von Ihnen bevorzugte Sprache. Danach wird die "
  97.                      "richtige Voreinstellungsdatei erzeugt, so daß 'PSVideo' beim ersten "
  98.                      "Start die gewählte Sprache benutzt.") )
  99.  
  100. (SET #DocPrompt "Wählen Sie ein Verzeichnis, in welches die Dokumentation kopiert werden soll.")
  101.  
  102. (SET #DocHelp "Benötige Verzeichnis für Dokumentation-Dateien.")
  103.  
  104. (SET #KeyPrompt "Wählen Sie ein Verzeichnis für das KeyFile.")
  105.  
  106. (SET #KeyHelp (CAT "Das KeyFile kann sich im Programm-Verzeichnis, "
  107.                    "im S: Verzeichnis oder in einem Verzeichnis, dessen Name "
  108.                    "in der ENV-Variablen KEYPATH gespeichert ist, befinden." ) )
  109.  
  110. (SET #demoPrompt "\nMöchten Sie die Demo-Datei kopieren ?")
  111.  
  112. (SET #demoHelp (CAT "Wenn Sie 'PSVideo' anhand einer Demo-Datei ausprobieren möchten, drücken "
  113.                     "den 'JA' Knopf. Daraufhin wird die Demo-Datei in das Programmverzeichnis "
  114.                     "kopiert.") )
  115.  
  116. (SET #demoDir "Beispiel")
  117.  
  118. (SET #exitMsg (CAT "Viel Spaß mit 'PSVideo' wünschen\n\n"
  119.                    "Holger Papajewski\n"
  120.                    "&\n"
  121.                    "Jörg Stumpf") )
  122. ))
  123.  
  124.  
  125. ; *************** Hier beginnt die Installation ******************
  126.  
  127.  
  128. (IF (< (/ (GETVERSION) 65536) 37)
  129.     (ABORT #needKick)
  130. )
  131.  
  132. (MESSAGE #startMsg)
  133. (MESSAGE #destMsg)
  134.  
  135. (SET @default-dest
  136.     (ASKDIR (PROMPT  #destPrompt)
  137.             (HELP    #destMsg)
  138.             (DEFAULT @default-dest )))
  139.  
  140. (SET @source "PSVideo")
  141. (SET @default-dest (TACKON @default-dest "PSVideo" ) )
  142. (MAKEDIR @default-dest (INFOS) )
  143. (SET CatDir (TACKON @default-dest "Catalogs") )
  144. (SET DocDir (TACKON @default-dest "Doc") )
  145. (MAKEDIR CatDir)
  146.  
  147. (COPYFILES (SOURCE @source)
  148.            (DEST @default-dest )
  149.            (PATTERN "PSV#?") )
  150.  
  151. (IF (ASKBOOL (PROMPT #langMsg)
  152.              (HELP   #langHelp) )
  153.     (
  154.       (SET sprachen (ASKOPTIONS (PROMPT #langPrompt)
  155.                                 (HELP   #langHelp1)
  156.                                 (CHOICES "deutsch")
  157.                                 (DEFAULT (- default_lang 1) ) ) )
  158.  
  159.       (IF (IN sprachen 0)
  160.           (COPYFILES (SOURCE (TACKON @source "Catalogs/deutsch.catalog"))
  161.                      (DEST CatDir) )
  162.       )
  163.  
  164. ; nur prefs copieren, wenn noch keine da
  165.       (SET prefsFile (TACKON @default-dest "PSV.prefs"))
  166.       (SET prefsTest (EXISTS prefsFile (NOREQ) ) )
  167.  
  168.       (IF (= prefsTest 0)
  169.         (
  170.           (SET StartSprache (ASKCHOICE (PROMPT #startLangPrompt)
  171.                                        (HELP   #langHelp2)
  172.                                        (CHOICES "english"
  173.                                                 "deutsch")
  174.                                        (DEFAULT (- default_lang 1) ) ) )
  175.           (IF (= StartSprache 0)
  176.               (COPYFILES (SOURCE (TACKON @source "Prefs/english.prefs"))
  177.                          (DEST @default-dest)
  178.                          (NEWNAME "PSV.prefs") )
  179.           )
  180.  
  181.           (IF (= StartSprache 1)
  182.             (
  183.               (COPYFILES (SOURCE (TACKON @source "Prefs/deutsch.prefs"))
  184.                          (DEST @default-dest)
  185.                          (NEWNAME "PSV.prefs") )
  186.               (IF (NOT (IN sprachen 0))
  187.                   (COPYFILES (SOURCE (TACKON @source "Catalogs/deutsch.catalog"))
  188.                              (DEST CatDir) )
  189.               )
  190.             )
  191.           )
  192.         )
  193.       )
  194.     )
  195.  
  196. ;******* keine weitere Sprache installiert - englische Prefs kopieren *****
  197.     (
  198.       (SET prefsFile (TACKON @default-dest "PSV.prefs"))
  199.       (SET prefsTest (EXISTS prefsFile (NOREQ)))
  200.       (IF (= prefsTest 0)
  201.         (
  202.           (DELETE CatDir)
  203.           (COPYFILES (SOURCE (TACKON @source "Prefs/english.prefs"))
  204.                              (DEST @default-dest)
  205.                              (NEWNAME "PSV.prefs") )
  206.         )
  207.       )
  208.     )
  209. )
  210.  
  211. (SET @DocDir
  212.     (ASKDIR (PROMPT  #DocPrompt)
  213.             (HELP    #DocHelp)
  214.             (DEFAULT DocDir)
  215.             (NEWPATH)
  216.     )
  217. )
  218.  
  219. (IF (= DocDir @DocDir)
  220.     (MAKEDIR @DocDir (INFOS))
  221. )
  222.  
  223. ; setze das richtige Source-Doc-Directory
  224. (IF (= @language "english" )
  225.     (SET @docSource "Docs/english/" )
  226. )
  227.  
  228. (IF (= @language "deutsch" )
  229.     (SET @docSource "Docs/deutsch/" )
  230. )
  231.  
  232. ; *********** kopiere die Docs *****************
  233.  
  234. (COPYFILES (SOURCE (TACKON @source @docSource ))
  235.            (DEST   @DocDir)
  236.            (ALL)
  237. )
  238.  
  239. (SET DocFile "PSVideo.guide")
  240.  
  241. (TOOLTYPE (DEST (TACKON @default-dest "PSVideo"))
  242.           (SETTOOLTYPE "HELPTEXT" (TACKON @DocDir DocFile))
  243.           (SETTOOLTYPE "(REQTOOLS=YES)" "")
  244.           (NOPOSITION)
  245. )
  246.  
  247. ; ************ teste und kopiere das KeyFile ****************
  248.  
  249. (SET @keyFile (TACKON @source "KeyFile/PSVideo.key" ))
  250. (SET key (EXISTS @keyFile (NOREQ) ))
  251.  
  252. (IF (= key 1)
  253.   (
  254.     (DEBUG key)
  255.     (SET ENVexists (EXISTS "ENV:KEYPATH" ))
  256.     (IF (= ENVexists 1)
  257.       (
  258.         (SET KeyPathENV (GETENV "KEYPATH") )
  259.         (SET ENV-choice (CAT "KEYPATH - " KeyPathENV ) )
  260.         (SET KeyDest (ASKCHOICE (PROMPT #KeyPrompt)
  261.                                 (HELP   #KeyHelp)
  262.                                 (CHOICES "PROGDIR:" "S:" ENV-choice)
  263.                                 (DEFAULT 0 ) ) )
  264.       )
  265.       ;*** else ***
  266.       (
  267.         (SET KeyDest (ASKCHOICE (PROMPT #KeyPrompt)
  268.                                 (HELP   #KeyHelp)
  269.                                 (CHOICES "PROGDIR:" "S:" )
  270.                                 (DEFAULT 0 ) ) )
  271.       )
  272.     )
  273.  
  274.     (IF (= KeyDest 0)
  275.       (COPYFILES (SOURCE @keyFile)
  276.                  (DEST   @default-dest)
  277.       )
  278.     )
  279.     (IF (= KeyDest 1)
  280.       (COPYFILES (SOURCE @keyFile)
  281.                  (DEST   "S:")
  282.       )
  283.     )
  284.     (IF (= KeyDest 2)
  285.       (COPYFILES (SOURCE @keyFile)
  286.                  (DEST   KeyPathENV)
  287.       )
  288.     )
  289.   )
  290. )
  291.  
  292. ; *********** kopiere Demo File ********************
  293.  
  294. (IF (ASKBOOL (PROMPT #demoPrompt)
  295.              (HELP #demoHelp) )
  296.   (
  297.     (MAKEDIR (TACKON @default-dest #demoDir))
  298.     (COPYFILES (SOURCE (TACKON @source "Example"))
  299.                (DEST (TACKON @default-dest #demoDir)) 
  300.                (ALL) )
  301.   )
  302. )
  303.  
  304. (EXIT #exitMsg )
  305.