home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1996 #1 / amigaacscoverdisc01.iso / utilities / commercialdemos / artstudiodemo / install_artstudio < prev    next >
Text File  |  1996-09-05  |  10KB  |  478 lines
  1. ; $VER: ArtStudio_Install 2.009 (28.05.96)
  2. ; Script to install ArtStudio Version 2.0
  3.  
  4. (complete 0)
  5. (user 1)
  6.  
  7. ;=============================================================================
  8. ; English strings
  9.  
  10. (set default_lang 4)
  11.  
  12. (set #bad-kick "ArtStudio needs Amiga-OS 2.0 or higher")
  13.  
  14. (set SelectDir1Msg
  15.      (cat "Please select a directory\nto install ArtStudio in"
  16.      )
  17. )
  18.  
  19. (Set ProgMsg
  20.      (cat "Which parts should i install?"
  21.      )
  22. )
  23.  
  24. (set Choise1Msg "ArtStudio Mainprogram (1.2MB)")
  25. (set Choise2Msg "ArtStudio Instruction (5MB)")
  26. (set Choise3Msg "ArtStudio Tools (50KB)")
  27. (set Choise4Msg "Example Catalogs (126KB - 600MB)")
  28. (set Choise5Msg "Example Images (3MB)")
  29.  
  30. (set ChoiseGrey16 "Grey 16")
  31. (set ChoiseColor16 "Color 16")
  32. (set ChoiseColor256 "Color 256")
  33. (set ChoiseHAM8 "Color HAM8")
  34. (set Choise24BIT "Color 24Bit")
  35.  
  36. (set InstallArtStudioProg "Installing ArtStudio release 2.0 main program...")
  37. (set InstallLoader "Installing loader...")
  38. (set InstallSaver "Installing saver...")
  39. (set InstallOperator "Installing Operator files...")
  40. (set InstallViewer "Installing viewers...")
  41. (set InstallARexx "Installing ARexx files...")
  42. (set InstallColor "Installing color files...")
  43. (set InstallGuide "Installing Guide-File...")
  44. (set InstallCatalog "Installing Catalogs files...")
  45. (set InstallTools "Installing Tools...")
  46. (set InstallDataBase "Installing DataBase...")
  47. (set InstallImages "Installing Images...")
  48. (set AssignAdd1
  49.      (cat "\nAdding the ArtStudio assignment to s:user-startup - it currently looks like this:\n\n%s\n\n"
  50.           (cat "assign ArtStudio: " ArtStudioDir)
  51.      )
  52. )
  53. (set SelectDir2 "Please select a directory\nto install the catalogs in")
  54.  
  55. (set SelectDir3 "Please select a directory\nto install the images in")
  56.  
  57. (set AssignAdd2
  58.      (cat "\nAdding the ArtStudioCD assignment to s:user-startup - it currently looks like this:\n\n%s\n\n"
  59.           (cat "assign ArtStudioCD: " ImageDir)
  60.      )
  61. )
  62. (set UpDateASL "Checking and updating ASL.library, if needed...")
  63.  
  64.  
  65. ;=============================================================================
  66. ; German strings
  67.  
  68. (if   (= @language "deutsch")
  69. (
  70.  (set default_lang 2)
  71.  
  72.  (set #bad-kick "ArtStudio benötigt mindestens Amiga-OS 2.0 oder höher")
  73.  
  74.  (set SelectDir1Msg
  75.       (cat "Wählen Sie ein Verzeichnis, wo Sie ArtStudio "
  76.            "installieren möchten. Ein Verzeichnis mit den "
  77.            "Namen ArtStudio wird automatisch angelegt!"
  78.       )
  79.  )
  80.  
  81.  (Set ProgMsg
  82.       (cat "\nWelche Dateien sollen installiert werden?\n"
  83.       )
  84.  )
  85.  
  86.  (set Choise1Msg "ArtStudio Hauptprogramm (ca. 1.2MB)")
  87.  (set Choise2Msg "ArtStudio Anleitung (ca. 5MB)")
  88.  (set Choise3Msg "ArtStudio Tools (ca. 50KB)")
  89.  (set Choise4Msg "Beispiel Kataloge (ca. 126KB bis 600MB")
  90.  (set Choise5Msg "Beispiel Bilder (ca. 3MB)")
  91.  
  92.  (set ChoiseGrey16 "16 Graustufen")
  93.  (set ChoiseColor16 "16 Farben")
  94.  (set ChoiseColor256 "256 Farben")
  95.  (set ChoiseHAM8 "HAM8 Farben")
  96.  (set Choise24BIT "24Bit Farben")
  97.  
  98.  (set InstallArtStudioProg "Installiere ArtStudio Version 2.0 Hauptprogramm...")
  99.  (set InstallLoader "Installiere Lademodule...")
  100.  (set InstallSaver "Installiere Speichermodule...")
  101.  (set InstallOperator "Installiere Bildbearbeitungsmodule...")
  102.  (set InstallViewer "Installiere Anzeigemodule...")
  103.  (set InstallARexx "Installiere ARexx Programme...")
  104.  (set InstallColor "Installiere Farbdateien...")
  105.  (set InstallGuide "Installiere Guide-Datei...")
  106.  (set InstallCatalog "Installiere Sprachkataloge...")
  107.  (set InstallTools "Installiere Werkzeuge...")
  108.  (set InstallDataBase "Installiere Kataloge...")
  109.  (set InstallImages "Installiere Bilder...")
  110.  (set AssignAdd1
  111.       (cat "\nFüge ArtStudio Zuweisung an s:user-startup - Es würde wie folgt Aussehen:\n\n%s\n\n"
  112.            (cat "assign ArtStudio: " ArtStudioDir)
  113.       )
  114.  )
  115.  (set SelectDir2
  116.       (cat "Wählen Sie ein Verzeichnis, wo Sie die "
  117.            "Kataloge installieren möchten."
  118.       )
  119.  )
  120.  (set SelectDir3
  121.       (cat "Wählen Sie ein Verzeichnis, wo Sie die "
  122.            "Bilder installieren möchten."
  123.       )
  124.  )
  125.  (set AssignAdd2
  126.       (cat "\nAdding the ArtStudioCD assignment to s:user-startup - it currently looks like this:\n\n%s\n\n"
  127.            (cat "assign ArtStudioCD: " ImageDir)
  128.       )
  129.  )
  130.  (set UpDateASL "Prüfe und Erneuere die ASL.library, wenn nötig...")
  131.  
  132. )
  133. )
  134.  
  135. (if (> (* 37 65536) (getversion "exec.library" (resident)))
  136.         (abort #bak-kick)
  137. )
  138.  
  139.  
  140. (welcome)
  141. (set old_level @user-level)
  142.  
  143. (user 2)
  144.  
  145. (set target (askdir
  146.         (prompt SelectDir1Msg)
  147.         (help #which-dir-help)
  148.         (default "ArtStudio:")
  149. ))
  150. (user old_level)
  151.  
  152. (set @default-dest target)
  153.  
  154. (set ArtStudioDir        (tackon target "ArtStudio"))
  155.  
  156. (set WAS
  157.       (askoptions
  158.       (prompt ProgMsg)
  159.       (help   @askchoice-help)
  160.       (choices Choise1Msg Choise2Msg Choise3Msg Choise4Msg Choise5Msg)
  161.       (default 31)
  162.       )
  163. )
  164.  
  165. (set LoaderDir        (tackon ArtStudioDir "Loader"))
  166. (set OperatorDir    (tackon ArtStudioDir "Operator"))
  167. (set ViewerDir        (tackon ArtStudioDir "Viewer"))
  168. (set SaverDir        (tackon ArtStudioDir "Saver"))
  169. (set RexxDir        (tackon ArtStudioDir "Rexx"))
  170. (set ColorDir        (tackon ArtStudioDir "Color"))
  171. (set ToolsDir        (tackon ArtStudioDir "Tools"))
  172.  
  173. (If (IN WAS 0)
  174.  (
  175.   (if ( < (exists ArtStudioDir (noreq) ) 2)
  176.     (makedir ArtStudioDir
  177.         (prompt "Creating ArtStudio directory...")
  178.         (help @makedir-help)
  179.         (infos)
  180.     )
  181.   )
  182.  
  183.   (complete 10)
  184.  
  185.   (if ( < (exists LoaderDir (noreq) ) 2)
  186.     (makedir LoaderDir
  187.         (prompt "Creating Loader directory...")
  188. ;        (help @makedir-help)
  189.     )
  190.   )
  191.  
  192.   (complete 11)
  193.  
  194.   (if ( < (exists ViewerDir (noreq) ) 2)
  195.     (makedir ViewerDir
  196.         (prompt "Creating Viewer directory...")
  197. ;        (help @makedir-help)
  198.     )
  199.   )
  200.  
  201.   (complete 12)
  202.  
  203.   (if ( < (exists RexxDir (noreq) ) 2)
  204.     (makedir RexxDir
  205.         (prompt "Creating Rexx directory...")
  206. ;        (help @makedir-help)
  207.     )
  208.   )
  209.  
  210.   (complete 13)
  211.  
  212.   (if ( < (exists ColorDir (noreq) ) 2)
  213.     (makedir ColorDir
  214.         (prompt "Creating Color directory...")
  215. ;        (help @makedir-help)
  216.     )
  217.   )
  218.  
  219.   (complete 14)
  220.  
  221.   (if ( < (exists SaverDir (noreq) ) 2)
  222.     (makedir SaverDir
  223.         (prompt "Creating Saver directory...")
  224. ;        (help @makedir-help)
  225.     )
  226.   )
  227.  
  228.   (complete 15)
  229.  
  230.   (if ( < (exists ToolsDir (noreq) ) 2)
  231.     (makedir ToolsDir
  232.         (prompt "Creating Tools directory...")
  233. ;        (help @makedir-help)
  234.     )
  235.   )
  236.  
  237.   (complete 16)
  238.  
  239.   (if ( < (exists OperatorDir (noreq) ) 2)
  240.     (makedir OperatorDir
  241.         (prompt "Creating Operator directory...")
  242. ;        (help @makedir-help)
  243.     )
  244.   )
  245.  
  246.   (complete 17)
  247.  
  248.   (copyfiles
  249.     (prompt InstallArtStudioProg)
  250.     (help @copyfiles-help)
  251.     (source "ArtStudio")
  252.     (dest ArtStudioDir)
  253.     (confirm)
  254.         (infos)
  255.   )
  256.  
  257.   (complete 35)
  258.  
  259.   (copyfiles
  260.     (prompt "Installing loader...")
  261.     (help @copyfiles-help)
  262.     (source "Loader/")
  263.     (dest LoaderDir)
  264.     (all)
  265.     (confirm)
  266.   )
  267.  
  268.   (complete 40)
  269.  
  270.   (copyfiles
  271.     (prompt "Installing saver...")
  272.     (help @copyfiles-help)
  273.     (source "Saver/")
  274.     (dest SaverDir)
  275.     (all)
  276.     (confirm)
  277.   )
  278.  
  279.   (complete 45)
  280.  
  281.   (copyfiles
  282.     (prompt "Installing Operator files...")
  283.     (help @copyfiles-help)
  284.     (source "Operator/")
  285.     (dest OperatorDir)
  286.     (all)
  287.     (confirm)
  288.   )
  289.  
  290.   (complete 50)
  291.  
  292.   (copyfiles
  293.     (prompt "Installing viewers...")
  294.     (help @copyfiles-help)
  295.     (source "Viewer/")
  296.     (dest ViewerDir)
  297.     (all)
  298.     (confirm)
  299.   )
  300.  
  301.   (complete 55)
  302.  
  303.   (copyfiles
  304.     (prompt "Installing ARexx files...")
  305.     (help @copyfiles-help)
  306.     (source "Rexx/")
  307.     (dest RexxDir)
  308.     (all)
  309.     (confirm)
  310.   )
  311.  
  312.   (complete 60)
  313.  
  314.   (copyfiles
  315.     (prompt "Installing color files...")
  316.     (help @copyfiles-help)
  317.     (source "Color/")
  318.     (dest ColorDir)
  319.     (all)
  320.     (confirm)
  321.   )
  322.  
  323.   (complete 65)
  324.  
  325.   (copyfiles
  326.     (prompt "Installing Catalogs files...")
  327.     (help @copyfiles-help)
  328.     (source "Catalogs/")
  329.     (dest "Sys:Locale/Catalogs/")
  330.     (all)
  331.     (confirm)
  332.   )
  333.  
  334.   (complete 68)
  335.  
  336.   (startup "ArtStudio"
  337.     (prompt ("\nAdding the ArtStudio assignment to s:user-startup - it currently looks like this:\n\n%s\n\n" (cat "assign ArtStudio: " ArtStudioDir) ) )
  338.     (help @startup-help)
  339.     (command (cat "assign ArtStudio: " ArtStudioDir))
  340.   )
  341.  
  342.  )
  343. )
  344.  
  345.   (complete 70)
  346.  
  347. (If (IN WAS 1)
  348.  (
  349.  
  350.   (copyfiles
  351.     (prompt "Installing Tools...")
  352.     (help @copyfiles-help)
  353.     (source "Tools/")
  354.     (dest ToolsDir)
  355.         (all)
  356.         (infos)
  357.     (confirm)
  358.   )
  359.  
  360.  )
  361. )
  362.  
  363. (If (IN WAS 2)
  364.  (
  365.  
  366.   (complete 75)
  367.  
  368.   (if (= default_lang 4)
  369.   (
  370.     (set ArtStudioDocDir (askdir
  371.         (prompt "Please select a directory\nto install the instruction in")
  372.         (help #which-dir-help)
  373.         (default ArtStudioDir)
  374.     ))
  375.  
  376.       (copyfiles
  377.           (prompt "Copying instruction...")
  378.           (help @copyfiles-help)
  379.           (source "Instruction/")
  380.           (dest ArtStudioDocDir)
  381.           (infos)
  382.           (all)
  383.           (confirm)
  384.       )
  385.  
  386.   ))
  387.  
  388.   (if (= default_lang 2)
  389.    (
  390.      (set ArtStudioDocDir (askdir
  391.         (prompt "Wählen Sie ein Verzeichnis, wo Sie die "
  392.                 "Anleitung installieren möchten.")
  393.         (help #which-dir-help)
  394.         (default ArtStudioDir)
  395.      ))
  396.  
  397.       (copyfiles
  398.           (prompt "Kopiere Anleitung...")
  399.           (help @copyfiles-help)
  400.           (source "Anleitung/" )
  401.           (dest ArtStudioDocDir)
  402.           (infos)
  403.           (all)
  404.           (confirm)
  405.       )
  406.    )
  407.   )
  408.  )
  409. )
  410.  
  411. (If (IN WAS 3)
  412.  (
  413.  
  414.   (set DataBaseDir (askdir
  415.         (prompt SelectDir2)
  416.         (help #which-dir-help)
  417.         (default ArtStudioDir)
  418.   ))
  419.   (complete 75)
  420.  
  421.   (copyfiles
  422.     (prompt "Installing DataBase...")
  423.     (help @copyfiles-help)
  424.     (source "BaseDatei/")
  425.     (dest DataBaseDir)
  426.     (all)
  427.     (confirm)
  428.   )
  429.  )
  430. )
  431.  
  432. (If (IN WAS 4)
  433.  (
  434.   (set ImageDir (askdir
  435.         (prompt SelectDir3)
  436.         (help #which-dir-help)
  437.         (default ArtStudioDir)
  438.   ))
  439.  
  440.   (complete 80)
  441.  
  442.   (copyfiles
  443.     (prompt "Installing Images...")
  444.     (help @copyfiles-help)
  445.     (source "Images/")
  446.     (dest ImageDir)
  447.     (all)
  448.     (confirm)
  449.   )
  450.  
  451.   (complete 85)
  452.  
  453.   (startup "ASDisk4"
  454.     (prompt ("\nAdding the ArtStudioCD assignment to s:user-startup - it currently looks like this:\n\n%s\n\n" (cat "assign ArtStudioCD: " ImageDir) ) )
  455.     (help @startup-help)
  456.     (command (cat "assign ArtStudioCD: " ImageDir))
  457.   )
  458.  )
  459. )
  460.  
  461. (If (IN WAS 0)
  462.  (
  463.  
  464.   (complete 90)
  465.  
  466.   (copylib
  467.     (prompt "Checking and updating ASL.library, if needed...")
  468.     (help @copylib-help)
  469.     (source "libs/asl.library")
  470.     (dest "libs:")
  471.     (confirm)
  472.   )
  473.  
  474.  )
  475. )
  476.  
  477. (complete 100)
  478.