home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / grafica / rainboot2_8 / rainbootinstallation < prev    next >
Text File  |  2000-02-03  |  18KB  |  594 lines
  1. ;
  2. ; $VER: Install-Rainboot2 (5.04.99)
  3. ;
  4. ; by Andreas Falkenhahn & Kimmo Pekkola
  5. ;
  6.  
  7. (set ver 2)
  8. (set rev 80) 
  9.  
  10. ;---------------------------- Global Strings ---------------------------------
  11. (set #hello-msg (cat "\nRainboot2\n-\nThe Ultimate Multimedia Boot\n\nVersion " ver "." rev "\n\n(C) Copyright 1996-2000 Andreas Falkenhahn & Kimmo Pekkola"))
  12. (set #locale-msg (cat "Select a language to use\nWählen Sie eine Sprache aus"))
  13. (set #identifyn "Libs/identify.library")
  14. (set #thxplayn "Libs/thxplay.library")
  15. (set #dirname "Rainboot")
  16. (set #guide1 "Rainboot2.guide")
  17. ;----------------------------------------------------------------------------
  18.  
  19. (message #hello-msg)
  20.  
  21. (set #locale
  22.     (askchoice
  23.         (prompt #locale-msg)
  24.         (help @askoptions-help)
  25.         (choices "english" "deutsch")
  26.     )
  27. )
  28.  
  29. (if (= #locale 0) (
  30.    (set #kick39-msg "Kickstarts below v39 are not fully tested, so you might first consider testing the program before installing it.")
  31.    (set #destdir-msg "Where you want Rainboot2 to be installed? A drawer called Rainboot will be created.")
  32.    (set #libs-msg "Copying libraries...")
  33.    (set #copyil-msg "\nCopying iff.library to LIBS:...")
  34.    (set #copypll-msg "\nCopying player61.library to LIBS:...")
  35.    (set #copyprl-msg "\nCopying ptreplay.library to LIBS:...")
  36.    (set #copytl-msg "\nCopying thxplay.library to LIBS:...")
  37.    (set #copyidl-msg "\nCopying identify.library to LIBS:...")
  38.    (set #copyrb-msg "\nCopying Rainboot2 to C:...")
  39.    (set #copyrbd-msg "\nCopying Rainboot2.data to C:...")
  40.    (set #copygm "\nThe GetModeID tool can be used to find out the modeid for a screenmode! Do you want to install it?")
  41.    (set #copygm-msg "\nCopying GetModeID to C:...")
  42.    (set #copy-msg "Copying files...")
  43.    (set #example-msg "Which of these example configs do you want to install?")
  44.    (set #fonts-msg "Do you want to install the fonts also? The examples won't work correctly without these fonts.")
  45.    (set #fonts-help "FuturaB, FuturaL and GoudyB are going to be installed in your FONTS: drawer")
  46.    (set #start-msg "Do you want Rainboot2 to be copied in your WBstartup drawer?")
  47.    (set #start-help "Copying Rainboot2 to your WBStartup drawer closes the bootscreen at the end of the booting. This does not start a new Rainboot2 even if one isn't running. It only stops it.")
  48.    (set #wbstart-msg "Where is your WBStartup drawer?")
  49.    (set #edit-msg "Now you still have to edit your s:startup-sequence. Just put the line (one line!):\n\n")
  50.    (set #edit-msg2 "\n\nsomewhere after the monitordrivers and reset your Amiga.\n(You might also need a MODEID or CGFX argument so check the docs for details)")
  51.    (set #edit2-msg "If you want to use Rainboot2 you must first create a config-file (check the docs and the examples) and the put Rainboot2 in your startup-sequence. Somewhere after the monitordrivers is probably a good place")
  52.    (set #tools-msg "Which tools do you want to install?")
  53.    (set #startmenu "What do you want to do?")
  54.    (set #choice1 "Install Rainboot")
  55.    (set #choice2 "Configure Rainboot")
  56.    (set #configintro "\nRainboot wasn`t found in your S:Startup-Sequence. Do you want the Installer to add it to your Startup-Sequence?")
  57.    (set #found1 "Rainboot has been found in your Startup-Sequence in the following line:")
  58.    (set #found2 "What to do with this line now?")
  59.    (set #found3 "Change line")
  60.    (set #found4 "Delete line")
  61.    (set #found5 "Nothing")
  62.    (set #sconfig "Which configuration do you want to use while booting?")
  63.    (set #wargs "Which options do you want to use?")
  64.    (set #arg1 "RTG - for usage under CGfx and Picasso96")
  65.    (set #arg2 "BESTFIT - use bestpossible screenmode (recommended)")
  66.    (set #arg3 "PUBLIC - open a public screen")
  67.    (set #arg4 "BBLANK - blank border to black")
  68.    (set #try1 "\nShall the selected configuration ")
  69.    (set #try2 " now be displayed so that you can check if it works on your system?")
  70.    (set #ftry (cat "\nIf the configuration has been displayed correctly, you can click on Continue "
  71.                    "now, it`ll be added to your Startup-Sequence. If there have been errors occured "
  72.                    "please look in the documentation or contact me for help!"
  73.    )) 
  74.    (set #warn (cat "\nWARNING! Are you sure that Rainboot shall be added to your Startup-Sequence? "
  75.                    "If you want this click on Continue now. A backup of your current Startup-Sequence "
  76.                    "will be saved to S:Startup-Sequence.rainboot!"
  77.    ))
  78.    (set #fini (cat "\nRainboot has been successfully installed in your Startup-Sequence! "
  79.                    "You should reboot your Amiga now and look, if they config is displayed "
  80.                    "correctly. If this is not the case, you can look in the documentation "
  81.                    "or contact me for help. To restore your old Startup-Sequence, open a Shell "
  82.                    "and type in:\n\n"
  83.                    "Copy S:Startup-Sequence.rainboot S:Startup-Sequence\n\n"
  84.                    "Have fun!"
  85.    ))
  86.    (set #ifi (cat "\nThe installation has been finished successfully. You can configure Rainboot "
  87.                   "now if you`ll click on Continue. If you don`t want that, you`ll have to click "
  88.                   "on Abort."
  89.    ))
  90. ))
  91.  
  92. (if (= #locale 1) (
  93.    (set #kick39-msg "Kickstart Versionen unter v39 wurden nicht komplett getestet, so sollten Sie vielleicht erstmal das Programm testen und dann installieren.")
  94.    (set #destdir-msg "Wo möchten Sie Rainboot2 installiert haben? Ein Verzeichnis namens Rainboot wird dort angelegt!")
  95.    (set #libs-msg "Kopiere Libraries...")
  96.    (set #copyil-msg "\nKopiere iff.library nach LIBS:...")
  97.    (set #copypll-msg "\nKopiere player61.library nach LIBS:...")
  98.    (set #copyprl-msg "\nKopiere ptreplay.library nach LIBS:...")
  99.    (set #copytl-msg "\nKopiere thxplay.library nach LIBS:...")
  100.    (set #copyidl-msg "\nKopiere identify.library nach LIBS:...")
  101.    (set #copyrb-msg "\nKopiere Rainboot2 nach C:...")
  102.    (set #copyrbd-msg "\nKopiere Rainboot2.data nach C:...")
  103.    (set #copy-msg "Kopiere Dateien...")
  104.    (set #copygm "\nDas GetModeID Tool kann benutzt werden, um herauszufinden, welcher ModeID zu welchen Bildschirmmodus gehört. Möchten Sie es installieren?")
  105.    (set #copygm-msg "\nKopiere GetModeID nach C:...")
  106.    (set #example-msg "Welche dieser Beispiele möchten Sie installieren?")
  107.    (set #fonts-msg "Möchten Sie auch die Schriften installieren? Die Beispiele funktionieren ohne diese Schriften nicht korrekt.")
  108.    (set #fonts-help "FuturaB, FuturaL und GoudyB werden in Ihrem FONTS: Verzeichnis abgelegt!")
  109.    (set #start-msg "Soll Rainboot2 in Ihre WBStartup gelegt werden?")
  110.    (set #start-help "Rainboot2 in Ihrem WBStartup Verzeichnis schließt den Bootbildschirm, wenn Sie den Befehl %W in Ihrer Konfiguration benutzen.")
  111.    (set #wbstart-msg "Wo ist Ihr WBStartup Verzeichnis?")
  112.    (set #edit-msg "Jetzt müssen Sie noch Ihre Startup-Sequence edieren. Fügen Sie einfach diese Zeile (nur eine Zeile!):\n\n")
  113.    (set #edit-msg2 "\n\nirgendwo nach den Monitortreiber ein und starten Sie Ihren Amiga neu.\n(Möglicherweise müssen Sie auch das MODEID oder RTG Argument benutzen, schauen Sie in die Dokumentation!)")
  114.    (set #edit2-msg (cat "Wenn Sie Rainboot2 benutzen möchten, müssen Sie zuerst eine Konfiguration "
  115.                         "erstellen. Schauen Sie sich einfach mal die Beispiele an oder schauen Sie "
  116.                         "in die Dokumentation. Außerdem muss Rainboot in Ihre Startup-Sequence "
  117.                         "eingefügt werden!"
  118.    ))
  119.    (set #tools-msg "Welche Tools möchten Sie installieren?")
  120.    (set #startmenu "Was möchten Sie machen?")
  121.    (set #choice1 "Rainboot installieren")
  122.    (set #choice2 "Rainboot konfigurieren")
  123.    (set #configintro "\nRainboot wurde nicht in Ihrer Startup-Sequence gefunden. Möchten Sie, dass der Installer Rainboot dort einfügt?")
  124.    (set #found1 "Rainboot wurde in Ihrer Startup-Sequence in folgender Zeile gefunden:")
  125.    (set #found2 "Was soll mit dieser Zeile passieren?")
  126.    (set #found3 "Zeile ändern")
  127.    (set #found4 "Zeile löschen")
  128.    (set #found5 "Nichts")
  129.    (set #sconfig "Welche Konfiguration möchten Sie während dem Booten verwenden?")
  130.    (set #wargs "Welche Optionen möchten Sie verwenden?")
  131.    (set #arg1 "RTG - für die Verwendung unter CGfx und Picasso96")
  132.    (set #arg2 "BESTFIT - besten Bildschirmmodus nutzen (empfohlen)")
  133.    (set #arg3 "PUBLIC - Öffentlichen Bildschirm öffnen")
  134.    (set #arg4 "BBLANK - Bildschirmrand schwarz blenden")
  135.    (set #try1 "\nSoll die ausgewählte Boot-Konfiguration ")
  136.    (set #try2 " jetzt probeweise angezeigt werden, damit Sie überprüfen können, ob Rainboot auf Ihrem System läuft?")
  137.    (set #ftry (cat "\nWenn die Konfiguration problemlos angezeigt wurde, können Sie jetzt auf Weiter "
  138.                    "klicken, dann wird Sie in Ihre Startup-Sequence eingetragen. Sollte es Fehler "
  139.                    "gegeben haben, kontakten Sie bitte mich oder schauen in der Dokumentation nach!"
  140.    )) 
  141.    (set #warn (cat "\nACHTUNG! Sind Sie sicher, dass Rainboot in Ihre Startup-Sequence "
  142.                    "eingefügt werden soll? Wenn Sie das möchten, klicken Sie auf Weiter."
  143.                    "Es wird dann ein Backup Ihrer Startup-Sequence nach S:Startup-Sequence.rainboot "
  144.                    "gespeichert. "
  145.    ))
  146.    (set #fini (cat "\nRainboot wurde erfolgreich in Ihrer Startup-Sequence installiert! "
  147.                    "Sie sollten Ihren Amiga mal neustarten und schauen, ob Rainboot nun "
  148.                    "funktioniert. Sollte dies nicht der Fall sein, schauen Sie in die "
  149.                    "Dokumentation und kontakten ggf. mich. Um Ihre alte Startup-Sequence "
  150.                    "wiederherzustellen öffnen Sie eine Shell und geben folgendes ein:\n\n"
  151.                    "Copy S:Startup-Sequence.rainboot S:Startup-Sequence\n\n"
  152.                    "Viel Spaß!"
  153.    ))
  154.    (set #ifi (cat "\nDie Installation wurde erfolgreich abgeschlossen. Als nächtes können Sie Rainboot "
  155.                   "konfigurieren, klicken Sie dazu auf Weiter. Wenn Sie nichts mehr machen wollen, "
  156.                   "klicken Sie auf Abbrechen."
  157.    ))
  158.    (set #dlocale (cat "\nSoll Rainboot2 immer das deutsche Datumsformat (Tag. Monat Jahr) benutzen? "
  159.                       "Es wird dann die von mir schon mit dem RBLocaleCreator für deutsche Benutzer "
  160.                       "erstellte Datei installiert."
  161.    ))
  162. )) 
  163.  
  164. (procedure config
  165.  
  166.    (run "Tools/RBSSAdder SEARCH")
  167.    
  168.    (if (exists "ENV:RBENTRY") (
  169.       (set #rbpath (getenv "RBENTRY"))
  170.       (set wsmd
  171.           (askchoice
  172.                 (prompt (cat #found1 "\n\n" #rbpath "\n\n" #found2))
  173.                 (choices #found3 #found5)
  174.                 (help @askchoice-help)
  175.           )
  176.       )    
  177.  
  178.       (if (= wsmd 1) (
  179.          (exit (quiet))
  180.       ))           
  181.       
  182.       (delete "env:RBENTRY")
  183.    ) (
  184.       (set ychoice
  185.           (askbool
  186.              (prompt #configintro)
  187.              (help @askbool-help)
  188.           )
  189.       )
  190.       
  191.       (if (= ychoice 0) (
  192.          (exit (quiet))
  193.       ))   
  194.    ))   
  195.    
  196.    (set #rconfig
  197.        (askfile
  198.           (prompt #sconfig)
  199.           (help   @askfile-help)
  200.           (default "sys:")
  201.        )
  202.    )
  203.    
  204.    (set args
  205.        (askoptions       
  206.          (prompt #wargs)
  207.          (help @askoptions-help)
  208.          (choices #arg1 #arg2 #arg3 #arg4)
  209.          (default 0)
  210.        )
  211.    )      
  212.  
  213.    (if (in args 0)
  214.       (set #argy1 "RTG ")
  215.    )
  216.  
  217.    (if (in args 1)
  218.       (set #argy2 "BESTFIT ")
  219.    )
  220.  
  221.    (if (in args 2)
  222.       (set #argy3 "PUBLIC ")
  223.    )
  224.  
  225.    (if (in args 3)
  226.       (set #argy4 "BBLANK ")
  227.    )
  228.  
  229.    (set ttry
  230.        (askbool
  231.           (prompt #try1 #rconfig #try2)
  232.           (help @askbool-help)
  233.        )
  234.    )
  235.  
  236.    (if (= ttry 1) (
  237.       (run "Rainboot2 " #rconfig " " #argy1 #argy2 #argy3 #argy4)
  238.       (message #ftry)
  239.    ))
  240.  
  241.    (message #warn)
  242.  
  243.    (copyfiles
  244.       (source "S:Startup-Sequence")
  245.       (dest "S:")
  246.       (newname "Startup-Sequence.rainboot")
  247.       (nogauge)
  248.    )
  249.  
  250.    (run "Tools/RBSSAdder \"Rainboot2 " #rconfig #argy1 #argy2 #argy3 #argy4 "\"") 
  251.  
  252.    (message #fini)
  253.   
  254.    (exit (quiet))
  255.  
  256. )         
  257.  
  258. (welcome)
  259.  
  260. (if (< (/ (getversion) 65536) 39)
  261.     (message #kick39-msg)
  262. )
  263.  
  264. (set #selection
  265.     (askchoice
  266.         (prompt #startmenu)
  267.         (help @askoptions-help)
  268.         (choices #choice1 #choice2)
  269.     )
  270. )
  271.  
  272. (if (= #selection 1) (
  273.    (config)
  274. ))   
  275.  
  276. (set #destdir
  277.     (askdir
  278.         (prompt    #destdir-msg)
  279.         (help    @askdir-help)
  280.         (default "SYS:")
  281.     )
  282. )
  283.  
  284. (set @default-dest #destdir)
  285.  
  286. (makedir (tackon #destdir #dirname) (infos))
  287.  
  288. (copyfiles
  289.     (prompt #copy-msg)
  290.     (help @copyfiles-help)
  291.     (source "")
  292.     (dest (tackon #destdir #dirname))
  293.     (choices "Rainboot2" "Rainboot2.data" #guide1)
  294.     (infos)
  295. )
  296.  
  297. (copylib
  298.     (prompt #copyrb-msg)
  299.     (source "Rainboot2")
  300.     (dest "C:")
  301.     (help @copylib-help)
  302.         (optional force askuser)
  303.         (confirm)
  304. )
  305.  
  306. (copylib
  307.     (prompt #copyrbd-msg)
  308.     (source "Rainboot2.data")
  309.     (dest "C:")
  310.     (help @copylib-help)
  311.         (optional force askuser)
  312.         (confirm)
  313. )
  314.  
  315. (if (< (database "cpu") 68020) (
  316.    (set #identifyn "Libs/identify.library_000")
  317.    (set #thxplayn "Libs/thxplay.library_000")
  318. ))
  319.  
  320. (copylib
  321.     (prompt #copyprl-msg)
  322.     (source "Libs/ptreplay.library")
  323.     (dest "LIBS:")
  324.     (help @copylib-help)
  325.     (confirm)
  326.         (optional force askuser)
  327. )
  328.  
  329. (copylib
  330.     (prompt #copytl-msg)
  331.     (source #thxplayn)
  332.     (dest "LIBS:")
  333.         (newname "thxplay.library")
  334.     (help @copylib-help)
  335.     (confirm)
  336.         (optional force askuser)
  337. )
  338.  
  339. (copylib
  340.     (prompt #copypll-msg)
  341.     (source "Libs/player61.library")
  342.     (dest "LIBS:")
  343.     (help @copylib-help)
  344.     (confirm)
  345.         (optional force askuser)
  346. )
  347.  
  348. (copylib
  349.     (prompt #copyil-msg)
  350.     (source "Libs/iff.library")
  351.     (dest "LIBS:")
  352.     (help @copylib-help)
  353.     (confirm)
  354.         (optional force askuser)
  355. )
  356.  
  357. (copylib
  358.         (prompt #copyidl-msg)
  359.         (source #identifyn)
  360.         (dest "LIBS:")
  361.         (newname "identify.library")
  362.         (help @copylib-help)
  363.         (confirm)
  364.         (optional force askuser)
  365. )
  366.  
  367. (if (exists "Tools") (
  368.  
  369.    (makedir (tackon (tackon #destdir #dirname) "Tools") (infos))
  370.  
  371.    (set #tools
  372.     (askoptions
  373.         (prompt #tools-msg)
  374.         (help @askoptions-help)
  375.         (choices "GetModeID" "LoginMaker" "RainCreator" "RBLocaleCreator" "RBSSAdder")
  376.     )
  377.    )
  378.  
  379.    (if (in #tools 0)
  380.  
  381.     (copyfiles
  382.         (prompt #copy-msg)
  383.         (help @copyfiles-help)
  384.         (source "Tools/GetModeID")
  385.         (dest (tackon (tackon #destdir #dirname) "Tools"))
  386.         (pattern "GetModeID#?")
  387.         (infos)
  388.     )
  389.    )
  390.  
  391.    (if (in #tools 1)
  392.  
  393.     (copyfiles
  394.         (prompt #copy-msg)
  395.         (help @copyfiles-help)
  396.         (source "Tools/LoginMaker")
  397.         (dest (tackon (tackon #destdir #dirname) "Tools"))
  398.         (pattern "LoginMaker#?")
  399.         (infos)
  400.     )
  401.   )
  402.  
  403.   (if (in #tools 2)
  404.  
  405.         (copyfiles
  406.                 (prompt #copy-msg)
  407.                 (help @copyfiles-help)
  408.                 (source "Tools/RainCreator")
  409.                 (dest (tackon (tackon #destdir #dirname) "Tools"))
  410.                 (pattern "RainCreator#?")
  411.                 (infos)
  412.         )
  413.   )
  414.  
  415.   (if (in #tools 3)
  416.  
  417.         (copyfiles
  418.                 (prompt #copy-msg)
  419.                 (help @copyfiles-help)
  420.                 (source "Tools/RBLocaleCreator")
  421.                 (dest (tackon (tackon #destdir #dirname) "Tools"))
  422.                 (pattern "RBLocaleCreator#?")
  423.                 (infos)
  424.         )
  425.   )
  426.  
  427.   (if (in #tools 4)
  428.  
  429.         (copyfiles
  430.                 (prompt #copy-msg)
  431.                 (help @copyfiles-help)
  432.                 (source "Tools/RBSSAdder")
  433.                 (dest (tackon (tackon #destdir #dirname) "Tools"))
  434.                 (pattern "RBSSAdder#?")
  435.                 (infos)
  436.         )
  437.   )
  438.  
  439. ))
  440.  
  441. (if (exists "Configs") (
  442.  
  443.    (makedir (tackon (tackon #destdir #dirname) "Configs") (infos))
  444.  
  445.    (set #example
  446.     (askoptions
  447.         (prompt #example-msg)
  448.         (help @askoptions-help)
  449.         (choices "Cloudboot" "Cycle" "Demo" "CopperDemo" "SimpleLogin" "Window")
  450.         (default 1)
  451.     )
  452.    )
  453.  
  454.    (if (in #example 0)
  455.  
  456.     (copyfiles
  457.         (prompt #copy-msg)
  458.         (help @copyfiles-help)
  459.         (source "Configs")
  460.         (dest (tackon (tackon #destdir #dirname) "Configs"))
  461.         (pattern "Cloudboot#?")
  462.     )
  463.    )
  464.  
  465.    (if (in #example 1)
  466.  
  467.     (copyfiles
  468.         (prompt #copy-msg)
  469.         (help @copyfiles-help)
  470.         (source "Configs")
  471.         (dest (tackon (tackon #destdir #dirname) "Configs"))
  472.         (pattern "Cycle#?")
  473.     )
  474.   )
  475.  
  476.   (if (in #example 2)
  477.  
  478.         (copyfiles
  479.                 (prompt #copy-msg)
  480.                 (help @copyfiles-help)
  481.                 (source "Configs")
  482.                 (dest (tackon (tackon #destdir #dirname) "Configs"))
  483.                 (pattern "Demo#?")
  484.         )
  485.   )
  486.  
  487.   (if (in #example 3)
  488.  
  489.         (copyfiles
  490.                 (prompt #copy-msg)
  491.                 (help @copyfiles-help)
  492.                 (source "Configs")
  493.                 (dest (tackon (tackon #destdir #dirname) "Configs"))
  494.                 (pattern "CopperDemo#?")
  495.         )
  496.   )
  497.  
  498.   (if (in #example 4)
  499.  
  500.         (copyfiles
  501.                 (prompt #copy-msg)
  502.                 (help @copyfiles-help)
  503.                 (source "Configs")
  504.                 (dest (tackon (tackon #destdir #dirname) "Configs"))
  505.                 (pattern "SimpleLogin#?")
  506.         )
  507.   )
  508.  
  509.   (if (in #example 5)
  510.  
  511.         (copyfiles
  512.                 (prompt #copy-msg)
  513.                 (help @copyfiles-help)
  514.                 (source "Configs")
  515.                 (dest (tackon (tackon #destdir #dirname) "Configs"))
  516.                 (pattern "Window#?")
  517.         )
  518.   )
  519.  
  520. ))
  521.  
  522. (if (exists "Fonts") (
  523.  
  524.    (set #fonts #example)
  525.  
  526.    (set #fonts
  527.     (askbool
  528.         (prompt #fonts-msg)
  529.         (help #fonts-help)
  530.         (default 1)
  531.     )
  532.    )
  533.  
  534.    (if #fonts
  535.     (copyfiles
  536.         (prompt #copy-msg)
  537.         (help @copyfiles-help)
  538.         (source "Fonts")
  539.         (dest "FONTS:")
  540.         (all)
  541.     )
  542.    )
  543. ))
  544.  
  545. (set #start
  546.     (askbool
  547.         (prompt #start-msg)
  548.         (help #start-help)
  549.         (default 1)
  550.     )
  551. )
  552.  
  553. (if #start
  554.     ((set #wbdir 
  555.         (askdir
  556.             (prompt    #wbstart-msg)
  557.             (help    @askdir-help)
  558.             (default "SYS:WBStartup")
  559.         )
  560.     )
  561.  
  562.     (copyfiles
  563.         (prompt #copy-msg)
  564.         (help @copyfiles-help)
  565.         (source "")
  566.         (dest #wbdir)
  567.         (choices "Rainboot2" "Rainboot2.info")
  568.     ))
  569. )
  570.  
  571. (if (= #locale 1) (
  572.    (set dloc
  573.        (askbool
  574.           (prompt #dlocale)
  575.           (help   @askbool-help)
  576.        )
  577.    )
  578.  
  579.    (if (= dloc 1) (
  580.       (copyfiles
  581.          (source "Rainboot2.dlocale")
  582.          (dest "S:")
  583.          (newname "Rainboot2.locale")
  584.       )
  585.    ))
  586. ))   
  587.  
  588. (message #ifi)
  589.  
  590. (config)
  591. (exit (quiet))
  592. ;(message #edit-msg (tackon (tackon #destdir #dirname) "Rainboot2 ") (tackon (tackon #destdir #dirname) "Configs/Cloudboot.config") #edit-msg2)
  593. ;(message #edit2-msg)
  594.