home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Scala / SCA-GER1.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1995-03-17  |  21.7 KB  |  849 lines
  1. ; $VER: Scala Install Program Version 2.2 (1 Dec 94)
  2.  
  3. ;----------------------------- Text Strings -------------------------------
  4.  
  5. (set msg_Utils        "Scala Utilities")
  6. (set msg_Palettes     "Scala Palettes")
  7. (set msg_Symbols    "Scala Symbols")
  8. (set msg_ARexx         "Scala Arexx Example")
  9. (set msg_EX        "Scala EX")
  10. (set msg_Fonts        "Scala Fonts")
  11. (set msg_Back         "Scala Backgrounds")
  12. (set msg_Demos        "Scala Demo Scripts")
  13. (set msg_Resize        "Resize Scala Backgrounds")
  14. (set msg_ScalaFont    "Scala.font")
  15. (set msg_NoSelect    "You did not select anything. Please try again.")
  16. (set msg_NoDrawer    ("You must select a drawer to install %s. Please make a new drawer, or select an existing drawer." @app-name))
  17. (set msg_ChooseWhat    ("Please select which parts of %s you would like to install:" @app-name))
  18. (set msg_ChooseDest    ("Please select where you want %s to be installed - no new drawer will be created:" @app-name))
  19. (set msg_Overscan1    "You may resize the Scala Backgrounds to overscan. Please note that selecting %s or %s takes more space on your harddisk, and may reduce the performance of the Scala Wipes.\n\n")
  20. (set msg_Overscan2    "You have selected to resize the Scala Backgrounds to overscan. Please note that this takes more space on your harddisk, and may reduce the performance of the Scala Wipes.\n\n")
  21. (set msg_ChooseSize    "Please select which size you want the Scala Background pictures:")
  22. (set msg_OldWorkbench    ("You need at least Worbench 2.04 to install %s" @app-name))
  23. (set msg_Nor        "Normal")
  24. (set msg_Std        "Standard")
  25. (set msg_Max        "Max")
  26. (set msg_Startup    ("Do you want %s to start up automatically every time you turn on your Amiga?" @app-name))
  27. (set msg_ErrorRam    "Error while copying files to Ram Disk.")
  28. (set msg_Insert        "Please insert Disk %ld in any drive")
  29. (set msg_Installing    "Installing %s...")
  30. (set msg_MoveLingua    "Replacing path in %s...")
  31. (set msg_ConvertNTSC    "Converting background %s to NTSC...")
  32. (set msg_ConvertOverscan "Converting background %s to overscan...")
  33. (set msg_DeleteOldFiles    ("You already have an older version of %s installed on your harddisk.  Do you want to delete old files which are not needed anymore?" @app-name))
  34. (set msg_crack1         "HELLFIRE PRESENTS\n\n SCALA MM400 - FINAL RELEASE VERSION\nDONGLE PROTECTION REMOVED BY REBEL\n\nCALL OUR BOARDS\n\n OASIS (WHQ) - 4 nodes - +44 0386 ASK FOR IT\nBOONDOCKS (EHQ) - 3 nodes - +31 5480 YOU WISH!\nFREEDOM WITHIN (UKHQ) - 2 nodes - +44 PRIVATE\nAT KNIFE POINT (UKHQ)- 2 nodes - +44 081FIND IT!\nDEFINITE INFINITY (UKHQ) - +44 0203 ASK A MEMBER\n\nGREETS FLY OUT TO SHY! IGGY! AND ALL ELSE I KNOW!")
  35.  
  36. ;------------------------------ Constants ---------------------------------
  37.  
  38. (if (= @app-name "Scala InfoChannel")
  39.     (set IC 1)
  40.     (set IC 0)
  41. )
  42.  
  43. (if (= @app-name "InfoChannel Player")
  44.     (set PL 1)
  45.     (set PL 0)
  46. )
  47.  
  48. (if (= @app-name "Scala MultiMedia")
  49.     (set MM 1)
  50.     (set MM 0)
  51. )
  52.  
  53. (if (= @app-name "Scala Multimedia Upgrade")
  54.     (set UPGR 1)
  55.     (set UPGR 0)
  56. )
  57.  
  58. (if (or IC MM)
  59.     (
  60.     (set opt_Scala        %000000001)
  61.     (set opt_Utils        %000000010)
  62.     (set opt_Palettes    %000000100)
  63.     (set opt_Symbols    %000001000)
  64.     (set opt_ARexx        %000010000)
  65.     (set opt_EX        %000100000)
  66.     (set opt_Fonts        %001000000)
  67.     (set opt_Back         %010000000)
  68.     (set opt_Demos        %100000000)
  69.     )
  70. )
  71.  
  72. (if PL
  73.     (
  74.     (set opt_Scala        %000000001)
  75.     (set opt_Symbols    %000000010)
  76.     (set opt_EX        %000000100)
  77.     (set opt_Fonts        %000001000)
  78.     (set opt_Back         %000010000)
  79.     )
  80. )
  81.  
  82. (if UPGR
  83.     (
  84.     (set opt_Scala        %000000001)
  85.     (set opt_Utils        %000000010)
  86.     (set opt_EX        %000000100)
  87.     (set opt_ARexx        %000001000)
  88.     (set opt_Demos        %000010000)
  89.     (set opt_Resize        %000100000)
  90.     )
  91. )
  92.  
  93.  
  94. (if (or IC PL)
  95.     (
  96.     (set lha_Scala        "Disk1:Scala.lha")
  97.     (set num_Scala        1)
  98.     (set lha_ScalaFont    "Disk1:ScalaFont.lha")
  99.     (set num_ScalaFont    1)
  100.     (set lha_Utils        "Disk1:Utilities.lha")
  101.     (set num_Utils        1)
  102.     (set lha_Scripts    "Disk1:Scripts.lha")
  103.     (set num_Scripts    1)
  104.     (set lha_ARexx        "Disk2:ARexx.lha")
  105.     (set num_ARexx        2)
  106.     (set lha_Symbols    "Disk2:Symbols.lha")
  107.     (set num_Symbols    2)
  108.     (set lha_Palettes    "Disk2:Palettes.lha")
  109.     (set num_Palettes    2)
  110.     (set lha_EX        "Disk2:EX.lha")
  111.     (set num_EX        2)
  112.     (set lha_Fonts        "Disk2:Fonts.lha")
  113.     (set num_Fonts        2)
  114.     (set lha_Back1        "Disk3:Backgrounds1.lha")
  115.     (set num_Back1        3)
  116.     (set lha_Back2        "Disk4:Backgrounds2.lha")
  117.     (set num_Back2        4)
  118.     (set lha_Back3        "Disk5:Backgrounds3.lha")
  119.     (set num_Back3        5)
  120.     (set lha_Back4        "Disk6:Backgrounds4.lha")
  121.     (set num_Back4        6)
  122.     (set lha_Demos1        "Disk7:Demos1.lha")
  123.     (set num_Demos1        7)
  124.     (set lha_Demos2        "Disk8:Demos2.lha")
  125.     (set num_Demos2        8)
  126.     (set lha_Demos3        "Disk9:Demos3.lha")
  127.     (set num_Demos3        9)
  128.     (set lha_Demos4        "Disk10:Demos4.lha")
  129.     (set num_Demos4        10)
  130.     (set lha_Demos5        "Disk11:Demos5.lha")
  131.     (set num_Demos5        11)
  132.     (set lha_Demos6        "Disk12:Demos6.lha")
  133.     (set num_Demos6        12)
  134.     (set lha_Demos7        "Disk13:Demos7.lha")
  135.     (set num_Demos7        13)
  136.     (set lha_Demos8        "Disk14:Demos8.lha")
  137.     (set num_Demos8        14)
  138.     )
  139. )
  140.  
  141. (if MM
  142.     (
  143.     (set lha_Scala        "Disk1:Scala.lha")
  144.     (set num_Scala        1)
  145.     (set lha_ScalaFont    "Disk1:ScalaFont.lha")
  146.     (set num_ScalaFont    1)
  147.     (set lha_Utils        "Disk1:Utilities.lha")
  148.     (set num_Utils        1)
  149.     (set lha_Palettes    "Disk1:Palettes.lha")
  150.     (set num_Palettes    1)
  151.     (set lha_Symbols    "Disk1:Symbols.lha")
  152.     (set num_Symbols    1)
  153.     (set lha_ARexx        "Disk1:ARexx.lha")
  154.     (set num_ARexx        1)
  155.     (set lha_Scripts    "Disk1:Scripts.lha")
  156.     (set num_Scripts    1)
  157.     (set lha_EX        "Disk2:EX.lha")
  158.     (set num_EX        2)
  159.     (set lha_Fonts        "Disk2:Fonts.lha")
  160.     (set num_Fonts        2)
  161.     (set lha_Back1        "Disk3:Backgrounds1.lha")
  162.     (set num_Back1        3)
  163.     (set lha_Back2        "Disk4:Backgrounds2.lha")
  164.     (set num_Back2        4)
  165.     (set lha_Back3        "Disk5:Backgrounds3.lha")
  166.     (set num_Back3        5)
  167.     (set lha_Back4        "Disk6:Backgrounds4.lha")
  168.     (set num_Back4        6)
  169.     (set lha_Demos1        "Disk7:Demos1.lha")
  170.     (set num_Demos1        7)
  171.     (set lha_Demos2        "Disk8:Demos2.lha")
  172.     (set num_Demos2        8)
  173.     (set lha_Demos3        "Disk9:Demos3.lha")
  174.     (set num_Demos3        9)
  175.     (set lha_Demos4        "Disk10:Demos4.lha")
  176.     (set num_Demos4        10)
  177.     )
  178. )
  179.  
  180. (if UPGR
  181.     (
  182.     (set lha_Scala        "Disk1:Scala.lha")
  183.     (set num_Scala        1)
  184.     (set lha_ScalaFont    "Disk1:ScalaFont.lha")
  185.     (set num_ScalaFont    1)
  186.     (set lha_Utils        "Disk1:Utilities.lha")
  187.     (set num_Utils        1)
  188.     (set lha_Scripts    "Disk1:Scripts.lha")
  189.     (set num_Scripts    1)
  190.     (set lha_EX        "Disk1:EX.lha")
  191.     (set num_EX        1)
  192.     (set lha_ARexx        "Disk2:ARexx.lha")
  193.     (set num_ARexx        2)
  194.     (set lha_Demos1        "Disk2:Demos1.lha")
  195.     (set num_Demos1        2)
  196.     (set lha_Demos2        "Disk3:Demos2.lha")
  197.     (set num_Demos2        3)
  198.     )
  199. )
  200.  
  201.  
  202.  
  203. ;-------------------------- Utility procedures ----------------------------
  204.  
  205. (Procedure CheckConfig
  206.     (set OS_Version (/ (getversion) 65536))
  207.     (if (< OS_Version 37)
  208.     (abort msg_OldWorkbench)
  209.     )
  210.     (if (= (database "vblank") 50)
  211.         (   (SET VideoMode "PAL")
  212.             (SET NOR ("640 x 512 (%s)" msg_Nor))
  213.             (SET STD ("704 x 566 (%s)" msg_Std))
  214.             (SET MAX ("736 x 566 (%s)" msg_Max))
  215.     )
  216.         (   (SET VideoMode "NTSC")
  217.             (SET NOR ("640 x 400 (%s)" msg_Nor))
  218.             (SET STD ("704 x 480 (%s)" msg_Std))
  219.             (SET MAX ("736 x 482 (%s)" msg_Max))
  220.     )
  221.     )
  222. )
  223.  
  224.  
  225. (Procedure CopyTools
  226.     (askdisk (dest "Disk1") (prompt (msg_Insert 1)) (help @askdisk-help))
  227.     (copyfiles
  228.     (prompt "")
  229.     (help @copyfiles-help)
  230.     (source "Disk1:Tools")
  231.     (all)
  232.     (dest "RAM:")
  233.     )
  234.     (if (not (and (exists "RAM:LHa") 
  235.           (exists "RAM:MakeOverscan") 
  236.           (exists "RAM:MoveLingua")))
  237.     (abort msg_ErrorRam)
  238.     )
  239. )
  240.  
  241.  
  242. (Procedure InstallFile
  243.     (askdisk (dest ("Disk%ld" DiskNum))
  244.          (prompt (msg_Insert DiskNum)) 
  245.          (help @askdisk-help)
  246.     )
  247.     (working (msg_Installing Installing))
  248.     (run ("RAM:LHa -N x %s \"%s/\"" LhaFile @Dest))
  249. )
  250.  
  251.  
  252. (Procedure InstallFontFiles
  253.     (askdisk (dest ("Disk%ld" DiskNum))
  254.          (prompt (msg_Insert DiskNum)) 
  255.          (help @askdisk-help)
  256.     )
  257.     (working (msg_Installing Installing))
  258.     (run ("RAM:LHa -N x %s \"%s\"" LhaFile "Fonts:"))
  259. )
  260.  
  261.  
  262. (Procedure MoveLingua
  263.     (set i 0)
  264.     (while 
  265.     (set ScriptName 
  266.         (if IC
  267.             (select i
  268.                 "IC500.script"
  269.                 "InfoChannelMain.script"
  270.                 "LoScalatore.script"
  271.                 "ScalaAirport.script"
  272.                 "ScalaCableTV.script"
  273.                 "ScalaComms500.script"
  274.                 "ScalaFeatures500.script"
  275.                 "ScalaFonts.script"
  276.                 "ScalaHotel.script"
  277.                 "ScalaQuiz500.script"
  278.                 "ScalaRave.script"
  279.                 "ScalaShopping.script"
  280.                 "ScalaTravel.script"
  281.                 "ScalaVideo.script"
  282.                 "ScalaVoice500.script"
  283.                 "ScalaWipes500.script"
  284.                 "ScalaWorld500.script"
  285.                 "ScaliniMotor.script"
  286.                 ""
  287.             )
  288.             (select i
  289.             "!ScalaMain.script"
  290.                 "LoScalatore.script"
  291.                 "ScalaFeatures400.script"
  292.                 "ScalaFonts.script"
  293.                 "MM400.script"
  294.                 "ScalaQuiz400.script"
  295.                 "ScalaRave.script"
  296.                 "ScalaVoice400.script"
  297.                 "ScalaWipes400.script"
  298.                 "ScalaWorld400.script"
  299.                 "ScalaVideo.script"
  300.                 ""
  301.             )
  302.         )
  303.         )
  304.     (set ScriptName (tackon (tackon @dest "Scripts") ScriptName))
  305.         (if (exists ScriptName)
  306.         (
  307.             (working (msg_MoveLingua ScriptName))
  308.             (run ("RAM:MoveLingua \"%s\" DH0:Scala \"%s\" \"%s\"" ScriptName @dest (tackon @dest "Scripts")))
  309.         )
  310.     )
  311.     (set i (+ i 1))
  312.     )
  313. )
  314.  
  315. (Procedure MakeOverscan
  316.     (set i 0)
  317.     (while 
  318.     (set PictureName 
  319.         (select i
  320.         "Fabrics001"    "Fabrics002"    "Fabrics003"
  321.         "Fantasy001"    "Grass001"    "NaiveBook"
  322.         "NaiveClock"    "NaiveCoffee"    "NaiveDisk"
  323.         "NaivePencil"    "NaivePhone"    "NaivePiano"
  324.         "NaivePlate"    "Number001"    "Number002"
  325.         "Number003"    "Number004"    "Number005"
  326.         "Number006"    "Number007"    "Number008"
  327.         "Number009"    "Painting001"    "Painting002"
  328.         "Painting003"    "Painting004"    "Paper001"
  329.         "Paper002"    "Paper003"    "Paper004"
  330.         "Paper005"    "Sky001"    "Stones001"
  331.         "Stones002"    "Stones003"    "Stones004"
  332.         "Stones005"    "Stones006"    "Stones007"
  333.         "Stones008"    "Stones009"    "Stones010"
  334.         "Stones011"    "Tech001"    "Tech002"
  335.         "Tech003"    "Tech004"    "Tech005"
  336.         "Tech006"    "Tech007"    "Texture001"
  337.         "Texture002"    "Texture003"    "Texture004"
  338.         "Texture005"    "Texture006"    "Texture007"
  339.         "Texture008"    "Texture009"    "Texture010"
  340.         "Texture011"    "Texture012"    "Texture013"
  341.         "Theme001"    "Theme002"    "Theme003"
  342.         "Theme004"    "Water001"    "Window001"
  343.         "World001"    "Fabrics004"    "Nature001"
  344.         "Nature002"    "Stones012"    "Stones013"
  345.         "Texture014"    "Texture015"    "Texture016"
  346.         "Theme005"
  347.         ""
  348.         )
  349.         )
  350.         (if (and (= VideoMode "NTSC") (= BackSize 0))
  351.         (working (msg_ConvertNTSC PictureName))
  352.         (working (msg_ConvertOverscan PictureName))
  353.     )
  354.     (set PictureName (tackon (tackon @dest "Backgrounds") PictureName))
  355.     (run ("RAM:MakeOverscan \"%s\" \"%s\" %s %s" PictureName PictureName
  356.         VideoMode (select BackSize "NOR" "STD" "MAX")))
  357.     (set i (+ i 1))
  358.     )
  359.     (if (= VideoMode "NTSC")
  360.     (
  361.             (set PictureName (tackon (tackon @dest "Backgrounds") "World001"))
  362.             (run ("RAM:MakeOverscan \"%s\" \"%s\" NTSC NOR" PictureName PictureName))
  363.     )
  364.     )
  365. )
  366.  
  367.  
  368. ;=============================================================================
  369. ; update existing files
  370. ;
  371. ; old_dir - name of directory where old files are
  372. ; new_dir - name of directory where new files are
  373. ; target_dir - name of directory where files from "new_dir" found in "old_dir"
  374. ;           should be put
  375.  
  376. (procedure UPDATE
  377. (
  378.     (if (exists old_dir)
  379.     (
  380.     (foreach old_dir "~(#?.info)"
  381.     (
  382.         (if (= (exists (tackon new_dir @each-name)) 1)
  383.         (
  384.         (delete (tackon old_dir @each-name))
  385.         (delete (cat (tackon old_dir @each-name) ".info"))
  386.  
  387.         (rename (tackon new_dir @each-name) (tackon target_dir @each-name))
  388.         (rename (cat (tackon new_dir @each-name) ".info") (cat (tackon target_dir @each-name) ".info"))
  389.         ))
  390.     ))
  391.     ))
  392. ))
  393.  
  394.  
  395. ;-------------------------- Cleanup procedures ----------------------------
  396.  
  397. (Procedure DeleteTools
  398.     (delete "RAM:MakeOverscan" "RAM:MoveLingua" "RAM:Lha")
  399. )
  400.  
  401. (onerror (DeleteTools))
  402.  
  403.  
  404. (Procedure DeleteOldFiles
  405.     (if (or IC PL)
  406.     (
  407.         (if (exists "libs:infochannel.library")
  408.         (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  409.             (
  410.                 (delete "libs:infochannel.library")
  411.                 (delete "devs:infochannel.device")
  412.                 (delete "s:infochannel.config")
  413.                 (delete "s:infochannel.layout")
  414.                 (delete "s:infochannel.layout.info")
  415.                 (delete "s:startup-script")
  416.                 (delete "fonts:Info.font")
  417.                 (delete "fonts:Info/11")
  418.                 (delete "fonts:Info/8")
  419.                 (delete "fonts:Info")
  420.                 (delete (tackon @dest "InfoPrint"))
  421.                 (delete (tackon @dest "InfoPrint.info"))
  422.                 (delete (tackon @dest "InfoNet"))
  423.                 (delete (tackon @dest "InfoNet.info"))
  424.             )
  425.         )
  426.         )
  427.     )
  428.     (
  429.         (if (exists "libs:scalamm.library")
  430.         (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  431.             (
  432.                 (delete "libs:scalamm.library")
  433.                 (delete "devs:scalamm.device")
  434.                 (delete "s:scalamm.config")
  435.                 (delete "s:scalamm.layout")
  436.                 (delete "s:scalamm.layout.info")
  437.                 (delete "s:startup-script")
  438.                 (set utils (tackon @dest "Utilities"))
  439.                 (delete (tackon utils "ScalaMMPrint"))
  440.                 (delete (tackon utils "ScalaMMPrint.info"))
  441.             )
  442.         )
  443.         )
  444.     )
  445.     )
  446. )
  447.  
  448. ;-------------------------- Menu procedures -------------------------------
  449.  
  450. (Procedure InstallMenu
  451.     (until (<> Selection 0)
  452.         (
  453.             (if (or IC MM)
  454.             (set Selection
  455.                 (askoptions
  456.                     (prompt msg_ChooseWhat)
  457.                     (help @askoptions-help)
  458.                         (choices @app-name
  459.                              msg_Utils
  460.                              msg_Palettes
  461.                              msg_ARexx
  462.                              msg_Symbols
  463.                              msg_EX
  464.                              msg_Fonts
  465.                              msg_Back
  466.                              msg_Demos
  467.                         )
  468.             )
  469.         )
  470.         )
  471.         (if PL
  472.             (set Selection
  473.                 (askoptions
  474.                     (prompt msg_ChooseWhat)
  475.                     (help @askoptions-help)
  476.                 (choices @app-name
  477.                          msg_Symbols
  478.                          msg_EX
  479.                          msg_Fonts
  480.                          msg_Back
  481.                         )
  482.             )
  483.         )
  484.             )
  485.         (if UPGR
  486.             (if (exists "libs:scalamm.library")
  487.             (set Selection
  488.                     (askoptions
  489.                         (prompt msg_ChooseWhat)
  490.                         (help @askoptions-help)
  491.                             (choices @app-name
  492.                                  msg_Utils
  493.                                  msg_EX
  494.                             )
  495.             )
  496.                     )
  497.             (set Selection
  498.                     (askoptions
  499.                         (prompt msg_ChooseWhat)
  500.                         (help @askoptions-help)
  501.                         (default %11111)
  502.                             (choices @app-name
  503.                                  msg_Utils
  504.                                  msg_ARexx
  505.                                  msg_EX
  506.                                  msg_Demos
  507.                                  msg_Resize
  508.                             )
  509.             )
  510.                     )
  511.             )
  512.             )
  513.  
  514.     )
  515.         (if (= Selection 0)    
  516.             (message msg_NoSelect)
  517.         )
  518.     )
  519. )
  520.  
  521.  
  522. (Procedure BackMenu
  523.     (set BackSize
  524.         (askchoice
  525.             (prompt (msg_Overscan1 STD MAX) msg_ChooseSize)
  526.             (help @askchoice-help)
  527.             (choices NOR STD MAX)
  528.     )
  529.     )
  530. )
  531.  
  532.  
  533. (Procedure DestMenu
  534.     (set @dest "")
  535.     (while (= @dest (pathonly @dest))
  536.         (set @dest
  537.             (askdir
  538.                 (prompt msg_ChooseDest)
  539.                 (help @askdir-help)
  540.                 (newpath)
  541.                 (default @default-dest)
  542.         )
  543.         )
  544.         (if (= @dest (pathonly @dest))
  545.         (message msg_NoDrawer)
  546.     )
  547.     )
  548.     (if (not (exists @dest))
  549.         (
  550.         (makedir @dest (infos))
  551.             (tooltype (dest @dest) (noposition))
  552.     )
  553.     )
  554.     (set @default-dest @dest)
  555. )
  556.  
  557.  
  558.  
  559. ;------------------------- Installation procedures ------------------------
  560. (Procedure InstallScala
  561.     (set System (tackon @dest "System"))
  562.     (makedir System (infos))
  563.     (tooltype (dest System) (noposition))
  564.  
  565.     (set Installing @app-name)
  566.     (set LhaFile lha_Scala)
  567.     (set DiskNum num_Scala)
  568.     (InstallFile)
  569.  
  570.     (set Installing msg_ScalaFont)
  571.     (set LhaFile lha_ScalaFont)
  572.     (set DiskNum num_ScalaFont)
  573.     (InstallFontFiles)
  574.  
  575.     (if PL
  576.     (
  577.         (set Scripts (tackon @dest "Scripts"))
  578.         (makedir Scripts (infos))
  579.         (tooltype (dest Scripts) (noposition))
  580.         (copyfiles (source "Disk1:InfoChannel.script")
  581.         (dest (tackon @dest "Scripts"))
  582.         )
  583.         (textfile (dest (tackon @dest "System/InfoChannel.startup"))
  584.             (append (tackon @dest "Scripts/InfoChannel.script"))
  585.         )
  586.     )
  587.     (
  588.         (set i 0)
  589.         (while 
  590.         (set DrawerName
  591.             (select i
  592.                 "Scripts"
  593.                 "Backgrounds"
  594.                 "Animations"
  595.                 "Music"
  596.                 "Sounds"
  597.                 "Symbols"
  598.                 "Palettes"
  599.                 "Text"
  600.                 "Layouts"
  601.                 ""
  602.             )
  603.             )
  604.         (set DrawerName (tackon @dest DrawerName))
  605.             (makedir DrawerName (infos))
  606.             (tooltype (dest DrawerName) (noposition))
  607.         (set i (+ i 1))
  608.         )
  609.     )
  610.     )
  611.     (if (or IC PL)
  612.         (
  613.         (startup 
  614.             (prompt msg_Startup)
  615.             (help @startup-help)
  616.             "Scala"
  617.             (if IC
  618.             (command (tackon @dest "InfoChannel"))
  619.             (command (tackon @dest "InfoPlayer"))
  620.         )
  621.         )
  622.     )
  623.     )
  624. )
  625.  
  626. (Procedure InstallUtils
  627.     (set Utilities (tackon @dest "Utilities"))
  628.     (makedir Utilities (infos))
  629.     (tooltype (dest Utilities) (noposition))
  630.  
  631.     (set Installing msg_Utils)
  632.     (set LhaFile lha_Utils)
  633.     (set DiskNum num_Utils)
  634.     (InstallFile)    
  635. )
  636.  
  637. (Procedure InstallPalettes
  638.     (set Palettes (tackon @dest "Palettes"))
  639.     (makedir Palettes (infos))
  640.     (tooltype (dest Palettes) (noposition))
  641.  
  642.     (set Installing msg_Palettes)
  643.     (set LhaFile lha_Palettes)
  644.     (set DiskNum num_Palettes)
  645.     (InstallFile)
  646. )
  647.  
  648. (Procedure InstallSymbols
  649.     (set Symbols (tackon @dest "Symbols"))
  650.     (makedir Symbols (infos))
  651.     (tooltype (dest Symbols) (noposition))
  652.  
  653.     (set Installing msg_Symbols)
  654.     (set LhaFile lha_Symbols)
  655.     (set DiskNum num_Symbols)
  656.     (InstallFile)
  657. )
  658.  
  659. (Procedure InstallArexx
  660.     (set ARexx (tackon @dest "ARexx"))
  661.     (makedir ARexx (infos))
  662.     (tooltype (dest ARexx) (noposition))
  663.  
  664.     (set Installing msg_ARexx)
  665.     (set LhaFile lha_ARexx)
  666.     (set DiskNum num_ARexx)
  667.     (InstallFile)
  668. )
  669.  
  670. (Procedure InstallScripts
  671.     (set Scripts (tackon @dest "Scripts"))
  672.     (makedir Scripts (infos))
  673.     (tooltype (dest Scripts) (noposition))
  674.  
  675.     (set Installing msg_Demos)
  676.     (set LhaFile lha_Scripts)
  677.     (set DiskNum num_Scripts)
  678.     (InstallFile)
  679.  
  680.     (MoveLingua)
  681. )
  682.  
  683. (Procedure InstallEX
  684.     (set EX (tackon @dest "EX"))
  685.     (makedir EX (infos))
  686.     (tooltype (dest EX) (noposition))
  687.     (set StartupDrawer (tackon @dest "Startup"))
  688.     (makedir StartupDrawer (infos))
  689.     (tooltype (dest StartupDrawer) (noposition))
  690.  
  691.     (set Installing msg_EX)
  692.     (set LhaFile lha_EX)
  693.     (set DiskNum num_EX)
  694.     (InstallFile)
  695. )
  696.  
  697. (Procedure InstallFonts
  698.     (set Installing msg_Fonts)
  699.     (set LhaFile lha_Fonts)
  700.     (set DiskNum num_Fonts)
  701.     (InstallFontFiles)
  702. )
  703.  
  704. (Procedure InstallBack
  705.     (set Back (tackon @dest "Backgrounds"))
  706.     (makedir Back (infos))
  707.     (tooltype (dest Back) (noposition))
  708.     (set Installing msg_Back)
  709.  
  710.     (set LhaFile lha_Back1)
  711.     (set DiskNum num_Back1)
  712.     (InstallFile)
  713.  
  714.     (set LhaFile lha_Back2)
  715.     (set DiskNum num_Back2)
  716.     (InstallFile)
  717.  
  718.     (set LhaFile lha_Back3)
  719.     (set DiskNum num_Back3)
  720.     (InstallFile)
  721.  
  722.     (set LhaFile lha_Back4)
  723.     (set DiskNum num_Back4)
  724.     (InstallFile)
  725.  
  726.     (if (or (= VideoMode "NTSC") BackSize)
  727.         (MakeOverscan)
  728.     )
  729. )
  730.  
  731. (Procedure InstallDemos
  732.     (set Anim (tackon @dest "Animations"))
  733.     (makedir Anim (infos))
  734.     (tooltype (dest Anim) (noposition))
  735.  
  736.     (set Sounds (tackon @dest "Sounds"))
  737.     (makedir Sounds (infos))
  738.     (tooltype (dest Sounds) (noposition))
  739.  
  740.     (set Music (tackon @dest "Music"))
  741.     (makedir Music (infos))
  742.     (tooltype (dest Music) (noposition))
  743.  
  744.     (set Text (tackon @dest "Text"))
  745.     (makedir Text (infos))
  746.     (tooltype (dest Text) (noposition))
  747.  
  748.     (set Back (tackon @dest "Backgrounds"))
  749.     (makedir Back (infos))
  750.     (tooltype (dest Back) (noposition))
  751.  
  752.     (set Installing msg_Demos)
  753.  
  754.     (set LhaFile lha_Demos1)
  755.     (set DiskNum num_Demos1)
  756.     (InstallFile)
  757.  
  758.     (set LhaFile lha_Demos2)
  759.     (set DiskNum num_Demos2)
  760.     (InstallFile)
  761.  
  762.     (if (not UPGR)
  763.         (
  764.         (set LhaFile lha_Demos3)
  765.         (set DiskNum num_Demos3)
  766.         (InstallFile)
  767.  
  768.         (set LhaFile lha_Demos4)
  769.         (set DiskNum num_Demos4)
  770.         (InstallFile)
  771.     )
  772.     )
  773.  
  774.     (if IC
  775.         (
  776.         (set LhaFile lha_Demos5)
  777.         (set DiskNum num_Demos5)
  778.         (InstallFile)
  779.     
  780.         (set LhaFile lha_Demos6)
  781.         (set DiskNum num_Demos6)
  782.         (InstallFile)
  783.     
  784.         (set LhaFile lha_Demos7)
  785.         (set DiskNum num_Demos7)
  786.         (InstallFile)
  787.     
  788.         (set LhaFile lha_Demos8)
  789.         (set DiskNum num_Demos8)
  790.         (InstallFile)
  791.         )
  792.     )
  793. )
  794.  
  795.  
  796. (Procedure ResizeBack
  797.     (set BackSize
  798.         (+ 1 (askchoice
  799.                 (prompt msg_Overscan2 msg_ChooseSize)
  800.                 (help @askchoice-help)
  801.                 (choices STD MAX)
  802.          )
  803.     )
  804.     )
  805.     (MakeOverscan)
  806. )
  807.  
  808. ;------------------------------- Main program -----------------------------
  809. (message msg_crack1)
  810.  
  811. (CheckConfig)
  812. (InstallMenu)
  813. (if (<> Selection opt_Fonts)        (DestMenu))
  814. (if (bitand Selection opt_Back)         (BackMenu))
  815. (CopyTools)
  816.  
  817. ; Disk 1
  818. (if (bitand Selection opt_Scala)    (InstallScala))
  819. (if (bitand Selection opt_Utils)    (InstallUtils))
  820. (if (bitand Selection opt_Demos)    (InstallScripts))
  821. (if (bitand Selection opt_ARexx)    (InstallARexx))
  822. (if (bitand Selection opt_Symbols)    (InstallSymbols))
  823. (if (bitand Selection opt_Palettes)    (InstallPalettes))
  824.  
  825. ;Disk2
  826. (if (bitand Selection opt_EX)        (InstallEX))
  827. (if (bitand Selection opt_Fonts)    (InstallFonts))
  828.  
  829. ; Disk 3-6
  830. (if (bitand Selection opt_Back)        (InstallBack))
  831.  
  832. ; Disk 7-10
  833. (if (bitand Selection opt_Demos)    (InstallDemos))
  834.  
  835. (if (bitand Selection opt_Resize)    (ResizeBack))
  836.  
  837.  
  838. (DeleteTools)
  839.  
  840. (if (bitand Selection opt_Scala)    (DeleteOldFiles))
  841.  
  842. (set old_dir (tackon @dest "Startup"))
  843. (set new_dir (tackon @dest "EX"))
  844. (set target_dir (tackon @dest "Startup"))
  845. (UPDATE)
  846.  
  847. (exit)
  848. (welcome)
  849.