home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / clf-as22.lha / artstudio / Install_ArtStudio < prev    next >
Encoding:
Text File  |  1996-10-28  |  10.2 KB  |  493 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.  
  247.   (complete 15)
  248.  
  249.   (copyfiles
  250.     (prompt "Copy ArtStudio...")
  251.     (help @copyfiles-help)
  252.     (source "ArtStudio")
  253.     (dest "ram:")
  254.     (confirm)
  255.   )
  256.  
  257.   (complete 25)
  258.  
  259.   (run "ArtStudioCD:c/Registration"
  260.      (prompt "ArtStudio registrieren...")
  261.      (help "Keine Hilfe verfügbar.")
  262.   )
  263.  
  264.   (complete 30)
  265.  
  266.   (copyfiles
  267.     (prompt "Installing ArtStudio release 1.0 main program...")
  268.     (help @copyfiles-help)
  269.     (source "ram:ArtStudio")
  270.     (dest ArtStudioDir)
  271.     (confirm)
  272.   )
  273.  
  274.   (complete 35)
  275.  
  276.   (run "ArtStudioCD:c/delete ram:ArtStudio"
  277.        (prompt "Delete ram:ArtStudio...")
  278.        (help "Keine Hilfe verfügbar.")
  279.   )
  280.  
  281.   (complete 37)
  282.  
  283.   (copyfiles
  284.     (prompt "Installing ArtStudio Icon...")
  285.     (help @copyfiles-help)
  286.     (source "ArtStudio.info")
  287.     (dest ArtStudioDir)
  288.     (confirm)
  289.   )
  290.  
  291.   (complete 38)
  292.  
  293.   (copyfiles
  294.     (prompt "Installing loader...")
  295.     (help @copyfiles-help)
  296.     (source "Loader/")
  297.     (dest LoaderDir)
  298.     (all)
  299.     (confirm)
  300.   )
  301.  
  302.   (complete 40)
  303.  
  304.   (copyfiles
  305.     (prompt "Installing saver...")
  306.     (help @copyfiles-help)
  307.     (source "Saver/")
  308.     (dest SaverDir)
  309.     (all)
  310.     (confirm)
  311.   )
  312.  
  313.   (complete 45)
  314.  
  315.   (copyfiles
  316.     (prompt "Installing Operator files...")
  317.     (help @copyfiles-help)
  318.     (source "Operator/")
  319.     (dest OperatorDir)
  320.     (all)
  321.     (confirm)
  322.   )
  323.  
  324.   (complete 50)
  325.  
  326.   (copyfiles
  327.     (prompt "Installing viewers...")
  328.     (help @copyfiles-help)
  329.     (source "Viewer/")
  330.     (dest ViewerDir)
  331.     (all)
  332.     (confirm)
  333.   )
  334.  
  335.   (complete 55)
  336.  
  337.   (copyfiles
  338.     (prompt "Installing ARexx files...")
  339.     (help @copyfiles-help)
  340.     (source "Rexx/")
  341.     (dest RexxDir)
  342.     (all)
  343.     (confirm)
  344.   )
  345.  
  346.   (complete 60)
  347.  
  348.   (copyfiles
  349.     (prompt "Installing color files...")
  350.     (help @copyfiles-help)
  351.     (source "Color/")
  352.     (dest ColorDir)
  353.     (all)
  354.     (confirm)
  355.   )
  356.  
  357.   (complete 65)
  358.  
  359.   (copyfiles
  360.     (prompt "Installing Catalogs files...")
  361.     (help @copyfiles-help)
  362.     (source "Catalogs/")
  363.     (dest "Sys:Locale/Catalogs/")
  364.     (all)
  365.     (confirm)
  366.   )
  367.  
  368.   (complete 68)
  369.  
  370.   (startup "ArtStudio"
  371.     (prompt ("\nAdding the ArtStudio assignment to s:user-startup - it currently looks like this:\n\n%s\n\n" (cat "assign ArtStudio: " ArtStudioDir) ) )
  372.     (help @startup-help)
  373.     (command (cat "assign ArtStudio: " ArtStudioDir))
  374.   )
  375.  
  376.  )
  377. )
  378.  
  379.   (complete 70)
  380.  
  381. (If (IN WAS 1)
  382.  (
  383.  
  384.   (copyfiles
  385.     (prompt "Installing Tools...")
  386.     (help @copyfiles-help)
  387.     (source "Tools/")
  388.     (dest ToolsDir)
  389.         (all)
  390.         (infos)
  391.     (confirm)
  392.   )
  393.  
  394.  )
  395. )
  396.  
  397. (If (IN WAS 2)
  398.  (
  399.  
  400.   (complete 75)
  401.  
  402.   (if (= default_lang 4)
  403.   (
  404.     (set ArtStudioDocDir (askdir
  405.         (prompt "Please select a directory\nto install the instruction in")
  406.         (help #which-dir-help)
  407.         (default ArtStudioDir)
  408.     ))
  409.  
  410.       (copyfiles
  411.           (prompt "Copying instruction...")
  412.           (help @copyfiles-help)
  413.           (source "Instruction/")
  414.           (dest ArtStudioDocDir)
  415.           (infos)
  416.           (all)
  417.           (confirm)
  418.       )
  419.  
  420.   ))
  421.  
  422.   (if (= default_lang 2)
  423.    (
  424.      (set ArtStudioDocDir (askdir
  425.         (prompt "Wählen Sie ein Verzeichnis, wo Sie die "
  426.                 "Anleitung installieren möchten.")
  427.         (help #which-dir-help)
  428.         (default ArtStudioDir)
  429.      ))
  430.  
  431.       (copyfiles
  432.           (prompt "Kopiere Anleitung...")
  433.           (help @copyfiles-help)
  434.           (source "Anleitung/" )
  435.           (dest ArtStudioDocDir)
  436.           (infos)
  437.           (all)
  438.           (confirm)
  439.       )
  440.    )
  441.   )
  442.  )
  443. )
  444.  
  445. (If (IN WAS 4)
  446.  (
  447.   (set ImageDir (askdir
  448.         (prompt "Wählen Sie ein Verzeichnis, wo Sie die "
  449.                 "Bilder installieren möchten."
  450.                 )
  451.         (help #which-dir-help)
  452.         (default ArtStudioDir)
  453.   ))
  454.  
  455.   (complete 80)
  456.  
  457.   (copyfiles
  458.     (prompt "Installing Images...")
  459.     (help @copyfiles-help)
  460.     (source "Images/")
  461.     (dest ImageDir)
  462.     (all)
  463.     (confirm)
  464.   )
  465.  
  466.   (complete 85)
  467.  
  468.   (startup "ASDisk4"
  469.     (prompt ("\nAdding the ArtStudioCD assignment to s:user-startup - it currently looks like this:\n\n%s\n\n" (cat "assign ArtStudioCD: " ImageDir) ) )
  470.     (help @startup-help)
  471.     (command (cat "assign ArtStudioCD: " ImageDir))
  472.   )
  473.  )
  474. )
  475.  
  476. (If (IN WAS 0)
  477.  (
  478.  
  479.   (complete 90)
  480.  
  481.   (copylib
  482.     (prompt "Checking and updating ASL.library, if needed...")
  483.     (help @copylib-help)
  484.     (source "libs/asl.library")
  485.     (dest "libs:")
  486.     (confirm)
  487.   )
  488.  
  489.  )
  490. )
  491.  
  492. (complete 100)
  493.