home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Scala / SCALAMM300_A1200MP.lzx / ScalaInstall / Français < prev    next >
Encoding:
Text File  |  1996-01-11  |  23.2 KB  |  840 lines
  1. ; $VER: Scala Install Program Version 3.02 (31Aug95)
  2.  
  3. ;----------------------------- Text Strings -------------------------------
  4.  
  5. (set msg_Utils    "Utilitaires Scala")
  6. (set msg_Palettes    "Palettes Scala")
  7. (set msg_Symbols  "Brosses Scala")
  8. (set msg_ARexx       "Exemple ARexx Scala")
  9. (set msg_EX    "EX Scala")
  10. (set msg_Fonts    "Polices Scala")
  11. (set msg_Back     "Fonds Scala")
  12. (set msg_Demos    "Scripts de démo Scala")
  13. (set msg_Resize      "Changer la taille des fonds Scala")
  14. (set msg_ScalaFont   "Scala.font")
  15. (set msg_NoFastMem1     "Pas de mémoire rapide installée ou disponible.\n\n")
  16. (set msg_NoFastMem2     "Scala MM300 nécessite de mémoire rapide pour fonctionner.\n\n")
  17. (set msg_NoFastMem3     "Pour installer Scala, vous devez d'abord installer de la mémoire rapide dans votre Amiga avec le port PCMCIA (A1200) ou ajouter une extension de mémoire ou une carte accélératrice dans le connecteur d'extension (A1200/A4000).")
  18. (set msg_NoSelect "Vous n'avez rien sélectionné. Recommencez, SVP.")
  19. (set msg_NoDrawer ("Vous devez choisir un tiroir où installer %s. Créez un nouveau tiroir ou sélectionnez un tiroir existant." @app-name))
  20. (set msg_ChooseWhat  ("Sélectionnez les parties de %s que vous voulez installer :" @app-name))
  21. (set msg_ChooseDest  ("Sélectionnez l'emplacement où %s doit être installé :" @app-name))
  22. (set msg_Overscan1   "Vous pouvez passer les fonds de Scala en overscan. Notez que les modes %s et %s prendront plus de place ssur votre disque dur et réduiront peut-être les performances des effets de Scala.\n\n")
  23. (set msg_Overscan2   "Vous avez choisi de passer les fonds de Scala en overscan. Notez que cela demande plus de place sur votre disque dur et peut réduire les performances des effets de Scala.\n\n")
  24. (set msg_ChooseSize  "Choisissez la taille des fonds d'écran de Scala :")
  25. (set msg_OldWorkbench   ("Vous devez utiliser le Workbench 2.04 ou supérieur pour installer %s" @app-name))
  26. (set msg_Nor      "Normal")
  27. (set msg_Std      "Standard")
  28. (set msg_Max      "Maximum")
  29. (set msg_Startup  ("Voulez-vous que %s soit automatiquement lancé lorsque vous démarrez votre Amiga ?" @app-name))
  30. (set msg_ErrorRam "Erreur lors de la copie des fichiers dans Ram:")
  31. (set msg_Insert      "Insérez la disquette Disk %ld dans un lecteur, SVP.")
  32. (set msg_Installing  "\nInstallation de :\n\n%s...")
  33. (set msg_MoveLingua  "Remplacement des chemins d'accès dans %s...")
  34. (set msg_ConvertNTSC "Conversion du fond %s en NTSC...")
  35. (set msg_ConvertOverscan "Conversion du fond %s en overscan...")
  36. (set msg_DeleteOldFiles ("Une ancienne version de %s est déjà installée sur votre disque dur.  Voulez-vous que j'efface les anciens fichiers que ne sont plus nécessaires ?" @app-name))
  37.  
  38.  
  39. ;------------------------------ Constants ---------------------------------
  40.  
  41. (if (= @app-name "Scala InfoChannel")
  42.     (set IC 1)
  43.     (set IC 0)
  44. )
  45.  
  46. (if (= @app-name "InfoChannel Player")
  47.     (set PL 1)
  48.     (set PL 0)
  49. )
  50.  
  51. (if (= @app-name "Scala Multimedia")
  52.     (set MM 1)
  53.     (set MM 0)
  54. )
  55.  
  56. (if (= @app-name "Upgrade Scala Multimedia")
  57.     (set UPGR 1)
  58.     (set UPGR 0)
  59. )
  60.  
  61. (if (or IC MM)
  62.     (
  63.    (set opt_Scala    %000000001)
  64.    (set opt_Utils    %000000010)
  65.    (set opt_Palettes %000000100)
  66.    (set opt_Symbols  %000001000)
  67.    (set opt_ARexx    %000010000)
  68.    (set opt_EX    %000100000)
  69.    (set opt_Fonts    %001000000)
  70.    (set opt_Back     %010000000)
  71.    (set opt_Demos    %100000000)
  72.     )
  73. )
  74.  
  75. (if PL
  76.     (
  77.    (set opt_Scala    %000000001)
  78.    (set opt_Symbols  %000000010)
  79.    (set opt_EX    %000000100)
  80.    (set opt_Fonts    %000001000)
  81.    (set opt_Back     %000010000)
  82.     )
  83. )
  84.  
  85. (if UPGR
  86.     (
  87.    (set opt_Scala    %000000001)
  88.    (set opt_Utils    %000000010)
  89.    (set opt_EX    %000000100)
  90.    (set opt_Back     %000001000)
  91.    (set opt_Demos    %000010000)
  92.     )
  93. )
  94.  
  95.  
  96. (if (or IC PL)
  97.     (
  98.    (set lha_Scala    "Disk1:Scala.lha")
  99.    (set num_Scala    1)
  100.    (set lha_ScalaFont   "Disk1:ScalaFont.lha")
  101.    (set num_ScalaFont   1)
  102.    (set lha_Utils    "Disk1:Utilities.lha")
  103.    (set num_Utils    1)
  104.    (set lha_Palettes "Disk1:Palettes.lha")
  105.    (set num_Palettes 1)
  106.    (set lha_Symbols  "Disk1:Symbols.lha")
  107.    (set num_Symbols  1)
  108.    (set lha_ARexx    "Disk1:ARexx.lha")
  109.    (set num_ARexx    1)
  110.    (set lha_Scripts  "Disk1:Scripts.lha")
  111.    (set num_Scripts  1)
  112.    (set lha_EX    "Disk2:EX.lha")
  113.    (set num_EX    2)
  114.    (set lha_Fonts    "Disk2:Fonts.lha")
  115.    (set num_Fonts    2)
  116.    (set lha_Back1    "Disk2:Backgrounds1.lha")
  117.    (set num_Back1    2)
  118.    (set lha_Back2    "Disk3:Backgrounds2.lha")
  119.    (set num_Back2    3)
  120.    (set lha_Back3    "Disk4:Backgrounds3.lha")
  121.    (set num_Back3    4)
  122.    (set lha_Back4    "Disk5:Backgrounds4.lha")
  123.    (set num_Back4    5)
  124.    (set lha_Demos1      "Disk6:Demos1.lha")
  125.    (set num_Demos1      6)
  126.    (set lha_Demos2      "Disk7:Demos2.lha")
  127.    (set num_Demos2      7)
  128.    (set lha_Demos3      "Disk8:Demos3.lha")
  129.    (set num_Demos3      8)
  130.    (set lha_Demos4      "Disk9:Demos4.lha")
  131.    (set num_Demos4      9)
  132.    (set lha_Demos5      "Disk10:Demos5.lha")
  133.    (set num_Demos5      10)
  134.    (set lha_Demos6      "Disk11:Demos6.lha")
  135.    (set num_Demos6      11)
  136.    (set lha_Demos7      "Disk12:Demos7.lha")
  137.    (set num_Demos7      12)
  138.    (set lha_Demos8      "Disk13:Demos8.lha")
  139.    (set num_Demos8      13)
  140.    (set lha_Demos9      "Disk14:Demos9.lha")
  141.    (set num_Demos9      14)   
  142.     )
  143. )
  144.  
  145. (if MM
  146.     (
  147.    (set lha_Scala    "Work:ScalaInstall/Versions/PAL/French/Scala.lha")
  148.    (set num_Scala    1)
  149.    (set lha_ScalaFont   "Work:ScalaInstall/Versions/PAL/French/ScalaFont.lha")
  150.    (set num_ScalaFont   1)
  151.    (set lha_Utils    "Work:ScalaInstall/Versions/PAL/French/Utilities.lha")
  152.    (set num_Utils    1)
  153.    (set lha_EX    "Work:ScalaInstall/Versions/PAL/French/EX.lha")
  154.    (set num_EX    1)
  155.    (set lha_ARexx    "Work:ScalaInstall/Versions/PAL/French/ARexx.lha")
  156.    (set num_ARexx    1)
  157.    (set lha_Scripts  "Work:ScalaInstall/Versions/PAL/French/Scripts.lha")
  158.    (set num_Scripts  1)
  159.    (set lha_Fonts    "Work:ScalaInstall/Data/Fonts.lha")
  160.    (set num_Fonts    2)
  161.    (set lha_Palettes "Work:ScalaInstall/Data/Palettes.lha")
  162.    (set num_Palettes 2)
  163.    (set lha_Symbols  "Work:ScalaInstall/Data/Symbols.lha")
  164.    (set num_Symbols  2)
  165.    (set lha_Back1    "Work:ScalaInstall/Data/Backgrounds1.lha")
  166.    (set num_Back1    2)
  167.    (set lha_Back2    "Work:ScalaInstall/Data/Backgrounds2.lha")
  168.    (set num_Back2    3)
  169.    (set lha_Back3    "Work:ScalaInstall/Data/Backgrounds3.lha")
  170.    (set num_Back3    4)
  171.    (set lha_Back4    "Work:ScalaInstall/Data/Backgrounds4.lha")
  172.    (set num_Back4    5)
  173.    (set lha_Back5    "Work:ScalaInstall/Data/Backgrounds5.lha")
  174.    (set num_Back5    6)
  175.    (set lha_Demos1      "Work:ScalaInstall/Data/Demos1.lha")
  176.    (set num_Demos1      6)
  177.    (set lha_Demos2      "Work:ScalaInstall/Data/Demos2.lha")
  178.    (set num_Demos2      7)
  179.    (set lha_Demos3      "Work:ScalaInstall/Data/Demos3.lha")
  180.    (set num_Demos3      8)
  181.    (set lha_Demos4      "Work:ScalaInstall/Data/Demos4.lha")
  182.    (set num_Demos4      9)
  183.     )
  184. )
  185.  
  186. (if UPGR
  187.     (
  188.    (set lha_Scala    "Disk1:Scala.lha")
  189.    (set num_Scala    1)
  190.    (set lha_ScalaFont   "Disk1:ScalaFont.lha")
  191.    (set num_ScalaFont   1)
  192.    (set lha_Utils    "Disk1:Utilities.lha")
  193.    (set num_Utils    1)
  194.    (set lha_EX    "Disk1:EX.lha")
  195.    (set num_EX    1)
  196.    (set lha_Scripts  "Disk1:Scripts.lha")
  197.    (set num_Scripts  1)
  198.    (set lha_Back1    "Disk2:Backgrounds1.lha")
  199.    (set num_Back1    2)
  200.    (set lha_Demos1      "Disk2:Demos1.lha")
  201.    (set num_Demos1      2)
  202.    (set lha_Demos2      "Disk3:Demos2.lha")
  203.    (set num_Demos2      3)
  204.     )
  205. )
  206.  
  207.  
  208.  
  209. ;-------------------------- Utility procedures ----------------------------
  210.  
  211. (Procedure CheckConfig
  212.     (set OS_Version (/ (getversion) 65536))
  213.     (if (< OS_Version 37)
  214.    (abort msg_OldWorkbench)
  215.     )
  216.     (if (= (database "vblank") 50)
  217.         (   (SET VideoMode "PAL")
  218.             (SET NOR ("640 x 512 (%s)" msg_Nor))
  219.             (SET STD ("704 x 566 (%s)" msg_Std))
  220.             (SET MAX ("736 x 566 (%s)" msg_Max))
  221.    )
  222.         (   (SET VideoMode "NTSC")
  223.             (SET NOR ("640 x 400 (%s)" msg_Nor))
  224.             (SET STD ("704 x 480 (%s)" msg_Std))
  225.             (SET MAX ("736 x 482 (%s)" msg_Max))
  226.    )
  227.     )
  228. )
  229.  
  230. (Procedure CheckFastMem
  231.    (run "AVAIL >ENV:FastMem FAST" (Safe))
  232.    (if (= ("%.1s" (getenv "FastMem")) 0)
  233.        (abort msg_NoFastMem1 msg_NoFastMem2 msg_NoFastMem3)
  234.    )
  235.    (delete "env:FastMem")
  236. )
  237.  
  238. (Procedure CopyTools
  239.     (copyfiles
  240.    (prompt "")
  241.    (help @copyfiles-help)
  242.    (source "Work:ScalaInstall/Tools")
  243.    (all)
  244.    (dest "RAM:")
  245.     )
  246.     (if (not (and (exists "RAM:LHa") 
  247.         (exists "RAM:MakeOverscan") 
  248.         (exists "RAM:MoveLingua")))
  249.    (abort msg_ErrorRam)
  250.     )
  251. )
  252.  
  253.  
  254. (Procedure InstallFile
  255.     (working (msg_Installing Installing))
  256.     (run ("RAM:LHa -N x %s \"%s/\"" LhaFile @Dest))
  257. )
  258.  
  259.  
  260. (Procedure InstallFontFiles
  261.     (working (msg_Installing Installing))
  262.     (run ("RAM:LHa -N x %s \"%s\"" LhaFile "Fonts:"))
  263. )
  264.  
  265. (Procedure InstallConfigFile
  266.     (set ConfigDest (tackon "ENVARC:" "Scala"))
  267.     (if (not (exists ConfigDest))
  268.         (
  269.             (makedir ConfigDest)
  270.             (copyfiles
  271.                 (prompt "")
  272.                 (help @copyfiles-help)
  273.                 (source (tackon "RAM:" "scalamm.config"))
  274.                 (dest ConfigDest)
  275.             )
  276.         )
  277.     )
  278. )
  279.  
  280. (Procedure MoveLingua
  281.     (set i 0)
  282.     (while 
  283.    (set ScriptName 
  284.        (if IC
  285.            (select i
  286.              "InfoChannelIC400.script"
  287.              "LoScalatore.script"
  288.              "ScalaAGA.script"
  289.              "ScalaAirport.script"
  290.              "ScalaCableTV.script"
  291.              "ScalaComms.script"
  292.              "ScalaFeatures.script"
  293.              "ScalaFonts.script"
  294.              "ScalaHotel.script"
  295.              "ScalaQuiz.script"
  296.              "ScalaShopping.script"
  297.              "ScalaTime.script"
  298.              "ScalaTravel.script"
  299.              "ScalaVoice.script"
  300.              "ScalaWipes.script"
  301.              "ScalaWorld.script"
  302.              "ScaliniMotor.script"
  303.              ""
  304.            )
  305.            (select i
  306.              "!ScalaPrincipal.script"
  307.              "LoScalatore.script"
  308.              "ScalaFonctions.script"
  309.              "ScalaPolices.script"
  310.              "ScalaMM300.script"
  311.              "ScalaProduits.script"
  312.              "ScalaJeu.script"
  313.              "ScalaClip.script"
  314.              "ScalaVideo.script"
  315.              "ScalaVoix.script"
  316.              "ScalaEffets.script"
  317.              "ScalaMonde.script"
  318.              ""
  319.            )
  320.        )
  321.       )
  322.    (set ScriptName (tackon (tackon @dest "Scripts") ScriptName))
  323.       (if (exists ScriptName)
  324.        (
  325.            (working (msg_MoveLingua ScriptName))
  326.            (run ("RAM:MoveLingua \"%s\" Work:Scala \"%s\" \"%s\"" ScriptName @dest (tackon @dest "Scripts")))
  327.        )
  328.    )
  329.    (set i (+ i 1))
  330.     )
  331. )
  332.  
  333. (Procedure MakeOverscan
  334.     (set i 0)
  335.     (while 
  336.    (set PictureName 
  337.        (if UPGR
  338.            (select i
  339.           "Fabrics004"  "Nature001" "Nature002"
  340.           "Stones012"      "Stones013" "Texture014"
  341.           "Texture015"  "Texture016"   "Theme005"
  342.           ""
  343.       )
  344.            (select i
  345.           "Fabrics001"  "Fabrics002"   "Fabrics003"
  346.           "Fabrics004"  "Fantasy001"   "Grass001"
  347.           "NaiveBook"      "NaiveClock"   "NaiveCoffee"
  348.           "NaiveDisk"      "NaivePencil"  "NaivePhone"
  349.           "NaivePiano"  "NaivePlate"   "Nature001"
  350.           "Nature002"      "Number001" "Number002"
  351.           "Number003"      "Number004" "Number005"
  352.           "Number006"      "Number007" "Number008"
  353.           "Number009"      "Painting001"  "Painting002"
  354.           "Painting003" "Painting004"  "Paper001"
  355.           "Paper002"    "Paper003"  "Paper004"
  356.           "Paper005"    "Sky001" "Stones001"
  357.           "Stones002"      "Stones003" "Stones004"
  358.           "Stones005"      "Stones006" "Stones007"
  359.           "Stones008"      "Stones009" "Stones010"
  360.           "Stones011"      "Stones012" "Stones013"
  361.           "Tech001"     "Tech002"   "Tech003"
  362.           "Tech004"     "Tech005"   "Tech006"
  363.           "Tech007"     "Texture001"   "Texture002"
  364.           "Texture003"  "Texture004"   "Texture005"
  365.           "Texture006"  "Texture007"   "Texture008"
  366.           "Texture009"  "Texture010"   "Texture011"
  367.           "Texture012"  "Texture013"   "Texture014"
  368.           "Texture015"  "Texture016"   "Theme001"
  369.           "Theme002"    "Theme003"  "Theme004"
  370.           "Theme005"    "Water001"  "Window001"
  371.           ""
  372.            )
  373.        )
  374.       )
  375.       (if (and (= VideoMode "NTSC") (= BackSize 0))
  376.        (working (msg_ConvertNTSC PictureName))
  377.        (working (msg_ConvertOverscan PictureName))
  378.    )
  379.    (set PictureName (tackon (tackon @dest "Backgrounds") PictureName))
  380.    (run ("RAM:MakeOverscan \"%s\" \"%s\" %s %s" PictureName PictureName
  381.       VideoMode (select BackSize "NOR" "STD" "MAX")))
  382.    (set i (+ i 1))
  383.     )
  384.     (if (= VideoMode "NTSC")
  385.    (
  386.             (set PictureName (tackon (tackon @dest "Backgrounds") "World001"))
  387.           (run ("RAM:MakeOverscan \"%s\" \"%s\" NTSC NOR" PictureName PictureName))
  388.    )
  389.     )
  390. )
  391.  
  392. ;-------------------------- Cleanup procedures ----------------------------
  393.  
  394. (Procedure DeleteTools
  395.     (delete "RAM:MakeOverscan" "RAM:MoveLingua" "RAM:Lha" "RAM:scalamm.config")
  396. )
  397.  
  398. (onerror (DeleteTools))
  399.  
  400.  
  401. (Procedure DeleteOldFiles
  402.     (if (or IC PL)
  403.    (
  404.        (if (exists "libs:infochannel.library")
  405.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  406.           (
  407.               (delete "libs:infochannel.library")
  408.               (delete "devs:infochannel.device")
  409.               (delete "s:infochannel.config")
  410.               (delete "s:infochannel.layout")
  411.               (delete "s:infochannel.layout.info")
  412.               (delete "s:startup-script")
  413.               (delete "fonts:Info.font")
  414.               (delete "fonts:Info/11")
  415.               (delete "fonts:Info/8")
  416.               (delete "fonts:Info")
  417.               (delete (tackon @dest "InfoPrint"))
  418.               (delete (tackon @dest "InfoPrint.info"))
  419.               (delete (tackon @dest "InfoNet"))
  420.               (delete (tackon @dest "InfoNet.info"))
  421.           )
  422.       )
  423.        )
  424.    )
  425.    (
  426.        (if (exists "libs:scalamm.library")
  427.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  428.           (
  429.               (delete "libs:scalamm.library")
  430.               (delete "devs:scalamm.device")
  431.               (delete "s:scalamm.config")
  432.               (delete "s:scalamm.layout")
  433.               (delete "s:scalamm.layout.info")
  434.               (delete "s:startup-script")
  435.               (set utils (tackon @dest "Utilities"))
  436.               (delete (tackon utils "ScalaMMPrint"))
  437.               (delete (tackon utils "ScalaMMPrint.info"))
  438.           )
  439.       )
  440.        )
  441.    )
  442.     )
  443. )
  444.  
  445. ;-------------------------- Menu procedures -------------------------------
  446.  
  447. (Procedure InstallMenu
  448.     (until (<> Selection 0)
  449.       (
  450.             (if (or IC MM)
  451.            (set Selection
  452.                (askoptions
  453.                    (prompt msg_ChooseWhat)
  454.                    (help @askoptions-help)
  455.                         (choices @app-name
  456.                              msg_Utils
  457.                              msg_Palettes
  458.                              msg_Symbols
  459.                              msg_ARexx
  460.                              msg_EX
  461.                              msg_Fonts
  462.                              msg_Back
  463.                              msg_Demos
  464.                         )
  465.           )
  466.       )
  467.        )
  468.        (if PL
  469.            (set Selection
  470.                (askoptions
  471.                    (prompt msg_ChooseWhat)
  472.                    (help @askoptions-help)
  473.               (choices @app-name
  474.                       msg_Symbols
  475.                       msg_EX
  476.                       msg_Fonts
  477.                       msg_Back
  478.                      )
  479.           )
  480.       )
  481.             )
  482.        (if UPGR
  483.       (set Selection
  484.                (askoptions
  485.                    (prompt msg_ChooseWhat)
  486.                    (help @askoptions-help)
  487.                    (default %11111)
  488.                         (choices @app-name
  489.                              msg_Utils
  490.                              msg_EX
  491.                              msg_Back
  492.                              msg_Demos
  493.                         )
  494.           )
  495.                 )
  496.             )
  497.  
  498.    )
  499.         (if (= Selection 0)    
  500.             (message msg_NoSelect)
  501.         )
  502.     )
  503. )
  504.  
  505.  
  506. (Procedure BackMenu
  507.     (set BackSize
  508.         (askchoice
  509.             (prompt (msg_Overscan1 STD MAX) msg_ChooseSize)
  510.             (help @askchoice-help)
  511.             (choices NOR STD MAX)
  512.    )
  513.     )
  514. )
  515.  
  516.  
  517. (Procedure DestMenu
  518.     (set @dest "")
  519.     (while (= @dest (pathonly @dest))
  520.         (set @dest
  521.             (askdir
  522.                 (prompt msg_ChooseDest)
  523.                 (help @askdir-help)
  524.                 (newpath)
  525.                 (default @default-dest)
  526.        )
  527.         )
  528.         (if (= @dest (pathonly @dest))
  529.        (message msg_NoDrawer)
  530.    )
  531.     )
  532.     (if (not (exists @dest))
  533.       (
  534.        (makedir @dest (infos))
  535.             (tooltype (dest @dest) (noposition))
  536.    )
  537.     )
  538.     (set @default-dest @dest)
  539. )
  540.  
  541.  
  542.  
  543. ;------------------------- Installation procedures ------------------------
  544. (Procedure InstallScala
  545.     (set System (tackon @dest "System"))
  546.     (makedir System (infos))
  547.     (tooltype (dest System) (noposition))
  548.  
  549.     (set Installing @app-name)
  550.     (set LhaFile lha_Scala)
  551.     (set DiskNum num_Scala)
  552.     (InstallFile)
  553.     (InstallConfigFile)
  554.  
  555.     (set Installing msg_ScalaFont)
  556.     (set LhaFile lha_ScalaFont)
  557.     (set DiskNum num_ScalaFont)
  558.     (InstallFontFiles)
  559.  
  560.     (copyfiles
  561.    (prompt "")
  562.    (help @copyfiles-help)
  563.    (pattern "EX_Fr#?")
  564.    (source "Work:ScalaInstall/Versions/PAL/French/")
  565.    (dest @Dest)
  566.     )
  567.  
  568.     (if PL
  569.    (
  570.        (set Scripts (tackon @dest "Scripts"))
  571.        (makedir Scripts (infos))
  572.        (tooltype (dest Scripts) (noposition))
  573.        (copyfiles (source "Disk1:InfoChannel.script")
  574.       (dest (tackon @dest "Scripts"))
  575.        )
  576.        (textfile (dest (tackon @dest "System/InfoChannel.startup"))
  577.          (append (tackon @dest "Scripts/InfoChannel.script"))
  578.        )
  579.    )
  580.    (
  581.        (set i 0)
  582.        (while 
  583.       (set DrawerName
  584.           (select i
  585.             "Scripts"
  586.             "Backgrounds"
  587.             "Animations"
  588.             "Music"
  589.             "Sounds"
  590.             "Symbols"
  591.             "Palettes"
  592.             "Text"
  593.             "Layouts"
  594.             ""
  595.           )
  596.          )
  597.       (set DrawerName (tackon @dest DrawerName))
  598.            (makedir DrawerName (infos))
  599.            (tooltype (dest DrawerName) (noposition))
  600.       (set i (+ i 1))
  601.        )
  602.    )
  603.     )
  604.     (if (or IC PL)
  605.       (
  606.        (startup 
  607.          (prompt msg_Startup)
  608.          (help @startup-help)
  609.          "Scala"
  610.          (if IC
  611.           (command (tackon @dest "InfoChannel"))
  612.           (command (tackon @dest "InfoPlayer"))
  613.       )
  614.        )
  615.    )
  616.     )
  617. )
  618.  
  619. (Procedure InstallUtils
  620.     (set Utilities (tackon @dest "Utilities"))
  621.     (makedir Utilities (infos))
  622.     (tooltype (dest Utilities) (noposition))
  623.  
  624.     (set Installing msg_Utils)
  625.     (set LhaFile lha_Utils)
  626.     (set DiskNum num_Utils)
  627.     (InstallFile) 
  628. )
  629.  
  630. (Procedure InstallPalettes
  631.     (set Palettes (tackon @dest "Palettes"))
  632.     (makedir Palettes (infos))
  633.     (tooltype (dest Palettes) (noposition))
  634.  
  635.     (set Installing msg_Palettes)
  636.     (set LhaFile lha_Palettes)
  637.     (set DiskNum num_Palettes)
  638.     (InstallFile)
  639. )
  640.  
  641. (Procedure InstallSymbols
  642.     (set Symbols (tackon @dest "Symbols"))
  643.     (makedir Symbols (infos))
  644.     (tooltype (dest Symbols) (noposition))
  645.  
  646.     (set Installing msg_Symbols)
  647.     (set LhaFile lha_Symbols)
  648.     (set DiskNum num_Symbols)
  649.     (InstallFile)
  650. )
  651.  
  652. (Procedure InstallArexx
  653.     (set ARexx (tackon @dest "ARexx"))
  654.     (makedir ARexx (infos))
  655.     (tooltype (dest ARexx) (noposition))
  656.  
  657.     (set Installing msg_ARexx)
  658.     (set LhaFile lha_ARexx)
  659.     (set DiskNum num_ARexx)
  660.     (InstallFile)
  661. )
  662.  
  663. (Procedure InstallScripts
  664.     (set Scripts (tackon @dest "Scripts"))
  665.     (makedir Scripts (infos))
  666.     (tooltype (dest Scripts) (noposition))
  667.  
  668.     (set Installing msg_Demos)
  669.     (set LhaFile lha_Scripts)
  670.     (set DiskNum num_Scripts)
  671.     (InstallFile)
  672.  
  673.     (MoveLingua)
  674. )
  675.  
  676. (Procedure InstallEX
  677.     (set EX (tackon @dest "EX"))
  678.     (makedir EX (infos))
  679.     (tooltype (dest EX) (noposition))
  680.     (set StartupDrawer (tackon @dest "Startup"))
  681.     (makedir StartupDrawer (infos))
  682.     (tooltype (dest StartupDrawer) (noposition))
  683.  
  684.     (set Installing msg_EX)
  685.     (set LhaFile lha_EX)
  686.     (set DiskNum num_EX)
  687.     (InstallFile)
  688. )
  689.  
  690. (Procedure InstallFonts
  691.     (set Installing msg_Fonts)
  692.     (set LhaFile lha_Fonts)
  693.     (set DiskNum num_Fonts)
  694.     (InstallFontFiles)
  695. )
  696.  
  697. (Procedure InstallBack
  698.     (set Back (tackon @dest "Backgrounds"))
  699.     (makedir Back (infos))
  700.     (tooltype (dest Back) (noposition))
  701.     (set Installing msg_Back)
  702.  
  703.     (set LhaFile lha_Back1)
  704.     (set DiskNum num_Back1)
  705.     (InstallFile)
  706.     (if (not UPGR)
  707.       (
  708.        (set LhaFile lha_Back2)
  709.        (set DiskNum num_Back2)
  710.        (InstallFile)
  711.    
  712.        (set LhaFile lha_Back3)
  713.        (set DiskNum num_Back3)
  714.        (InstallFile)
  715.    
  716.        (set LhaFile lha_Back4)
  717.        (set DiskNum num_Back4)
  718.        (InstallFile)
  719.    
  720.        (set LhaFile lha_Back5)
  721.        (set DiskNum num_Back5)
  722.        (InstallFile)
  723.    )
  724.     )
  725.     (if (or (= VideoMode "NTSC") BackSize)
  726.       (MakeOverscan)
  727.     )
  728. )
  729.  
  730. (Procedure InstallDemos
  731.     (set Anim (tackon @dest "Animations"))
  732.     (makedir Anim (infos))
  733.     (tooltype (dest Anim) (noposition))
  734.  
  735.     (set Sounds (tackon @dest "Sounds"))
  736.     (makedir Sounds (infos))
  737.     (tooltype (dest Sounds) (noposition))
  738.  
  739.     (set Music (tackon @dest "Music"))
  740.     (makedir Music (infos))
  741.     (tooltype (dest Music) (noposition))
  742.  
  743.     (set Text (tackon @dest "Text"))
  744.     (makedir Text (infos))
  745.     (tooltype (dest Text) (noposition))
  746.  
  747.     (set Back (tackon @dest "Backgrounds"))
  748.     (makedir Back (infos))
  749.     (tooltype (dest Back) (noposition))
  750.  
  751.     (set Installing msg_Demos)
  752.  
  753.     (set LhaFile lha_Demos1)
  754.     (set DiskNum num_Demos1)
  755.     (InstallFile)
  756.  
  757.     (set LhaFile lha_Demos2)
  758.     (set DiskNum num_Demos2)
  759.     (InstallFile)
  760.  
  761.     (if (not UPGR)
  762.       (
  763.        (set LhaFile lha_Demos3)
  764.        (set DiskNum num_Demos3)
  765.        (InstallFile)
  766.  
  767.        (set LhaFile lha_Demos4)
  768.        (set DiskNum num_Demos4)
  769.        (InstallFile)
  770.    )
  771.     )
  772.  
  773.     (if IC
  774.         (
  775.        (set LhaFile lha_Demos5)
  776.        (set DiskNum num_Demos5)
  777.        (InstallFile)
  778.    
  779.        (set LhaFile lha_Demos6)
  780.        (set DiskNum num_Demos6)
  781.        (InstallFile)
  782.    
  783.        (set LhaFile lha_Demos7)
  784.        (set DiskNum num_Demos7)
  785.        (InstallFile)
  786.    
  787.        (set LhaFile lha_Demos8)
  788.        (set DiskNum num_Demos8)
  789.        (InstallFile)
  790.    
  791.        (set LhaFile lha_Demos9)
  792.        (set DiskNum num_Demos9)
  793.        (InstallFile)
  794.    )
  795.     )
  796. )
  797.  
  798.  
  799. (Procedure ResizeBack
  800.     (set BackSize
  801.       (+ 1 (askchoice
  802.                (prompt msg_Overscan2 msg_ChooseSize)
  803.                (help @askchoice-help)
  804.                (choices STD MAX)
  805.         )
  806.    )
  807.     )
  808.     (MakeOverscan)
  809. )
  810.  
  811. ;------------------------------- Main program -----------------------------
  812. (CheckFastMem)
  813. (CheckConfig)
  814. (InstallMenu)
  815. (if (<> Selection opt_Fonts)     (DestMenu))
  816. (if (bitand Selection opt_Back)        (BackMenu))
  817. (CopyTools)
  818.  
  819. (if (bitand Selection opt_Scala) (InstallScala))
  820. (if (bitand Selection opt_Utils) (InstallUtils))
  821. (if (bitand Selection opt_ARexx) (InstallARexx))
  822. (if (bitand Selection opt_Demos) (InstallScripts))
  823.  
  824. (if (bitand Selection opt_EX)    (InstallEX))
  825. (if (bitand Selection opt_Palettes) (InstallPalettes))
  826. (if (bitand Selection opt_Symbols)  (InstallSymbols))
  827. (if (bitand Selection opt_Fonts) (InstallFonts))
  828.  
  829. (if (bitand Selection opt_Back)     (InstallBack))
  830.  
  831. (if (bitand Selection opt_Demos) (InstallDemos))
  832.  
  833.  
  834. (DeleteTools)
  835.  
  836. (if (bitand Selection opt_Scala) (DeleteOldFiles))
  837.  
  838. (exit)
  839. (welcome)
  840.