home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Screenblanker / SLT-MH25.LZX / Madhouse / Install&Remove / Install < prev    next >
Encoding:
Text File  |  1997-03-10  |  16.5 KB  |  639 lines
  1. ; Installation script for Madhouse V2.12
  2. ; Revision 2 - multilingual, docs in lha archive, size-checks.
  3. ; Revision 3 - changed for Madhouse 1.2
  4. ; Revision 4 - changed for Madhouse 2
  5. ; Revision 5 - changed for Madhouse 2.1
  6. ; Revision 6 - bugfixed for Madhouse 2.1(1). Update facility.
  7. ; Revision 7 - changed to be compatible to Installer 43.3
  8. ; Revision 7 - changed for Madhouse 2.5
  9.  
  10. (complete 0)
  11.  
  12. (set #mainprgsource "/Madhouse")
  13. (set #mainprgdest "SYS:WBStartup")
  14.  
  15. ; File-sizes for space check. Including icons.   *****
  16. (set #size-mainprg 45000 )
  17. (set #size-locale 26000 )
  18. (set #size-configed 155000 )
  19. (set #size-blankers 290000 )
  20. (set #size-germandoc 155000 )
  21. (set #size-englishdoc 98000 )
  22. (set #size-importhelp 70000 )
  23.  
  24. (set #updatemode 0)
  25.  
  26. (if (= @language "deutsch") (
  27.     (set #def-anleit 0)
  28.     (set #size-defaultdoc #size-germandoc)
  29.     
  30.    (set #wrong-os
  31.     (cat "\nTut uns leid, Madhouse benötigt OS v2.04 oder höher!!\n"))
  32.     
  33.     (set #diskfull
  34.     (cat "Das Installationsscript muß leider abbrechen, weil auf der "
  35.          "Festplattenpartition \"%s\" nicht genug Platz "
  36.           "vorhanden ist." ))
  37.     
  38.     (set #copying-mainprg
  39.     (cat "\nJetzt wird das Programm Madhouse in Ihre "
  40.                 "SYS:WBStartup-Schublade kopiert. Dort wird es dann nach "
  41.                     "jedem Reset gestartet.\n"
  42.                     "Dieses Programm verwaltet die "
  43.                     "Blanker, das Einstellungsprogramm muß ebenfalls damit "
  44.                     "aufgerufen werden."))
  45.     ; *****
  46.     (set #select-defdir
  47.     (cat "Bitte wählen Sie jetzt die Schublade, in der der "
  48.                 "Anleitungstext, der MadhouseConfigEd und die Blanker installiert werden sollen.\n"
  49.                     "In diesem Verzeichnis sollten mindestens 630 KB frei sein!\n" ))
  50.     
  51.     (set #select-dir-prompt
  52.     (cat
  53.                 "Wählen Sie das Verzeichnis, in dem Madhouse installiert "
  54.                     "werden soll. Vergessen Sie nicht, ein neues Unterverzeichnis "
  55.                     "anzulegen, falls Sie eines wünschen!" ))
  56.     
  57.     (set #select-dir-help
  58.     (cat
  59.                 "Wie vorhin gesagt wurde, sollten Sie hier das Zielverzeichnis "
  60.                     "für Madhouse auswählen, in das die Anleitungen, der MadhouseConfigEd und "
  61.                     "die Blanker geschrieben werden.\nUm ein neues Verzeichnis anzulegen, "
  62.                     "benutzen Sie \"Make new drawer...\" und geben Sie den Namen in das Textfeld "
  63.                     "ein."))
  64.     
  65.     (set #no-min-space
  66.     (cat "Leider reicht der Platz auf der ausgewählten Festplatte "
  67.          "nicht mal für die nötigsten Dateien. Bitte wählen Sie einen anderen "
  68.           "Pfad (\"Proceed\") oder brechen Sie die Installation ab "
  69.           "(\"Abort Install\")." ))
  70.     (set #no-doc-space
  71.     (cat "Der Platz auf der ausgewählten Diskette / Festplatte reicht zwar für "
  72.          "die nötigsten Dateien, aber die deutsche Anleitung paßt schon nicht "
  73.           "mehr. Wollen Sie einen neuen Pfad wählen?" ))
  74.     (set #yes
  75.     (cat "Ja." ))
  76.     (set #no
  77.     (cat "Nein." ))
  78.     
  79.     (set #doing-docs
  80.     (cat "Die deutsche Anleitung wird kopiert." ))
  81.     
  82.     (set #doing-configed
  83.     (cat "\nJetzt wird der MadhouseConfigEd kopiert." ))
  84.     
  85.     (set #blank 
  86.     (cat"\nJetzt werden die Blanker kopiert." ))
  87.                 
  88.     (set #icontext
  89.     (cat "Für das Madhouse-Programm in WBStartup/ stehen sieben Icons zur Auswahl (Zur "
  90.          "Entscheidungshilfe zuerst in Icons/ ansehen, dann fortfahren.)\n"
  91.           "MWB=Die MagicWB-Farben müssen installiert sein."))
  92.     (set #iconchoices-1
  93.     (cat "Standard-Icon (Hauptfenster)" ))
  94.     (set #iconchoices-2
  95.     (cat "Schwarzer Keil (MWB)" ))
  96.     (set #iconchoices-3
  97.     (cat "Monitor" ))
  98.     (set #iconchoices-4
  99.     (cat "Monitor (MWB)" ))
  100.     (set #iconchoices-5
  101.     (cat "Schwarzer Monitor" ))
  102.     (set #iconchoices-6
  103.     (cat "Schwarzer Monitor (MWB)" ))
  104.     (set #iconchoices-7
  105.     (cat "Madhouse-Schriftzug" ))
  106.     
  107.     (set #diskfull-locale
  108.     (cat "Dies ist zwar ein Amiga mit OS 2.1 oder höher, die deutschsprachigen "
  109.          "Locale-Dateien können jedoch trotzdem nicht installiert werden, weil "
  110.           "auf der zuständigen Festplattenpartition nicht mehr "
  111.           "genügend Platz ist." ))
  112.     (set #locale-update
  113.     (cat "Die Locale-Dateien sind bereits vorhanden und werden gleich erneuert. "
  114.          "Es ist jedoch möglich, daß das Betriebssystem diese Daten noch im Speicher "
  115.           "hält, und Madhouse beim Start die alten Daten aus dem Speicher bekommt. "
  116.           "Sie umgehen diese Situation durch a) einen Reset nach der Installation oder "
  117.           "b) durch Beenden von Madhouse und Eingeben von \"avail flush\" in einer Shell, "
  118.           "dann können Sie das neue Madhouse starten." ))
  119.     
  120.     (set #use-locale
  121.     (cat "TOLL! Dies ist ein Amiga mit OS 2.1 oder höher! Wenn Sie also wollen, können "
  122.                 "die Programtexte von Madhouse auf deutsch erscheinen.\n"
  123.                     "Sollen die deutschen Locale-Texte installiert werden?"))
  124.     (set #locale-1
  125.     (cat "Ja" ))
  126.     (set #locale-2
  127.     (cat "Diesen Teil überspringen" ))
  128.     
  129.     ; canceled.
  130.     (set #graphicext
  131.     (cat "Vom Blanker Stars sind zwei Versionen verfügbar. Eine, die garantiert funktioniert, "
  132.          "und eine, die mit Grafikkarten (nicht dem AGA-Chipset, das läuft!) Probleme machen "
  133.           "wird. Wurde eine besondere Grafikkarte installiert?"))
  134.     (set #graphicext-1
  135.     (cat "Ja / Ich weiß nicht."))
  136.     (set #graphicext-2
  137.     (cat "Nein."))
  138.     (set #graphicexthelp
  139.     (cat "Wer sich hier nicht schlüssig ist, kann es vorerst auch mit \"Nein\" versuchen. "
  140.          "Der Bildschirmaufbau von Stars kommt dann wahrscheinlich durcheinander, wenn eine "
  141.           "Grafikkarte im Rechner ist.\nDas AGA-Chipset ist im A1200 und A4000 eingebaut und "
  142.           "macht keine Probleme." ))
  143.     
  144.     ; canceled.
  145.     (set #delprefs
  146.     (cat "Alte Einstellungsdateien \"ENV:\" und \"ENVARC:Madhouse.prefs\" müssen gelöscht werden!!"))
  147.     
  148.     (set #extro
  149.     (cat "Madhouse wurde korrekt installiert. Beim Systemstart wird das Hauptprogramm "
  150.               "von nun an automatisch aktiviert, solange Sie nicht das Programm SYS:WBStartup/Madhouse "
  151.                   "löschen. Dort können Sie es jetzt auch direkt aufrufen, um einen Reset zu "
  152.                   "umgehen.\n\n"
  153.                   "Viel Spaß!" ))
  154.     
  155.     (set #updating
  156.     (cat "Madhouse ist bereits installiert! Das Update wird vollzogen...\nWenn Madhouse "
  157.           "im Moment läuft, dann beende es bitte JETZT!" ))
  158. ))
  159.  
  160.  
  161. (if (<> @language "deutsch") (
  162.     (set #def-anleit 1)
  163.     (set size-defaultdoc size-englishdoc)
  164.  
  165.    (set #wrong-os
  166.     (cat "\nSorry, Madhouse needs OS 2.04 or higher!\n"))
  167.         
  168.     (set #diskfull
  169.     (cat "The script has to abort, because the partition \"%s\" does "
  170.          "not have enough free disk space." ))
  171.     
  172.     (set #copying-mainprg
  173.     (cat "\nNow, the programm Madhouse will be copied into your SYS:WBStartup-drawer. "
  174.          "There it will be started after every reset. This program handles the "
  175.           "blankers, and you have to run the prefs-editor \"MadhouseConfigEd\" from it."))
  176.     
  177.     ; *****
  178.     (set #select-defdir
  179.     (cat "Please select the drawer, in which you want to copy the doc, MadhouseConfigEd "
  180.          "and the blankers in the following requester.\nYou will need 630 KB of "
  181.           "disk space."))
  182.     
  183.     (set #select-dir-prompt
  184.     (cat "Select the drawer in which you want to install Madhouse. If you prefer an own "
  185.          "subdirectory for Madhouse, please create one!" ))
  186.     
  187.     (set #select-dir-help
  188.     (cat "The script will copy MadhouseConfigEd, the docs and the blankers into the "
  189.          "drawer you have to select here. Create a new directory by using "
  190.           "\"Make New Drawer...\" and entering the name of it into the string gadget." ))
  191.     
  192.     (set #doing-docs
  193.     (cat "Copying english documentation." ))
  194.     
  195.     (set #doing-configed
  196.     (cat "\nNow, MadhouseConfigEd will be copied." ))
  197.     
  198.     (set #blank 
  199.     (cat"\nNow, the blankers will be copied." ))
  200.                 
  201.     (set #icontext
  202.     (cat "You have got the choice out of seven icons for the Madhouse-program (in "
  203.          "SYS:WBStartup). To make a decision, you can look at the icons right now "
  204.           "(\"Icons\"-drawer) first. MWB = you "
  205.           "need the MagicWB-colors on your Workbench."))
  206.     (set #iconchoices-1
  207.     (cat "Standard-Icon (from Madhouse-dir)" ))
  208.     (set #iconchoices-2
  209.     (cat "Colored points & black area (MWB)" ))
  210.     (set #iconchoices-3
  211.     (cat "Monitor" ))
  212.     (set #iconchoices-4
  213.     (cat "Monitor (MWB)" ))
  214.     (set #iconchoices-5
  215.     (cat "Black Monitor" ))
  216.     (set #iconchoices-6
  217.     (cat "Black Monitor (MWB)" ))
  218.     (set #iconchoices-7
  219.     (cat "Madhouse-Text" ))
  220.     
  221.     ; Obsolete, english strings are built-in.
  222.     (set #use-locale
  223.     (cat "" ))
  224.     (set #locale-1
  225.     (cat "" ))
  226.     (set #locale-2
  227.     (cat "" ))
  228.     
  229.     ; canceled.
  230.     (set #graphicext
  231.     (cat "The Blanker Stars is available in two versions, one that works in every case and one "
  232.          "that would make troubles with graphic extensions. The AGA-Chipset works with both. "
  233.           "Do you have installed a graphic extension?"))
  234.     (set #graphicext-1
  235.     (cat "Yes / I don't know."))
  236.     (set #graphicext-2
  237.     (cat "No"))
  238.     (set #graphicexthelp
  239.     (cat "If you don't know the answer, you should perhaps even try \"Yes\", because you would "
  240.          "know if you've had added something to your Amiga...\nThe AGA-Chipset is in every A1200 "
  241.           "and A4000 and makes no troubles."))
  242.     
  243.     ; canceled.
  244.     (set #delprefs
  245.     (cat "Old preference files \"ENV:\" and \"ENVARC:Madhouse.prefs\" have to be deleted!!"))
  246.     
  247.     (set #extro
  248.     (cat "Madhouse was installed correctly. While booting, the main program \"Madhouse\" "
  249.          "will be started automatically, as long as you don't delete it (it is in "
  250.           "SYS:WBStartup). You can start it directly, if you don't want to reset your "
  251.           "machine.\nEspecially if you do not own a hard disk, you should read the "
  252.           "doc, otherwise you should it do anyway, of course...\n\nEnjoy!"))
  253.     (set #updating
  254.     (cat "Madhouse is already installed! Updating...\nIf Madhouse is running at the "
  255.           "moment, please quit it NOW." ))
  256. ))
  257.  
  258.  
  259.  
  260. ;  **** Auf OS 2.04 checken.
  261.  
  262. (if (< (/ (getversion) 65536) 37)
  263.     (
  264.         (message #wrong-os)
  265.         (exit (quiet))
  266.     )
  267. )
  268. (complete 1)
  269.  
  270.  
  271.  
  272. ;  **** Update?
  273.  
  274. (if (exists "SYS:WBStartup/Madhouse") (set #updatemode 1))
  275. (if (exists "SYS:WBStartup/WBStartup (Enabled)/Madhouse") (
  276.     (set #updatemode 1)
  277.     (set #mainprgdest "SYS:WBStartup/WBStartup (Enabled)")
  278. ))
  279. (if (exists "SYS:WBStartup/WBStartup (Disabled)/Madhouse") (
  280.     (set #updatemode 1)
  281.     (set #mainprgdest "SYS:WBStartup/WBStartup (Disabled)")
  282. ))
  283. (if (exists "SYS:Startup/Madhouse") (
  284.     (set #updatemode 1)
  285.     (set #mainprgdest "SYS:Startup")
  286. ))
  287.  
  288. (if (= #updatemode 1) (
  289.     (message #updating)    
  290. ))
  291.  
  292.  
  293.  
  294.  
  295.  
  296. ;  **** Erster size-check
  297.  
  298. (set #wb-space (getdiskspace "SYS:" ))
  299.  
  300. (if (< #wb-space #size-mainprg) (
  301.     (abort (#diskfull (expandpath "SYS:")) )
  302. ))
  303.  
  304. (complete 2)
  305.  
  306.  
  307.  
  308. ;  **** Main-Program in SYS:WBStartup/
  309.  
  310. (complete 0)
  311.  
  312. (message #copying-mainprg )
  313.  
  314. (copyfiles
  315.   (source #mainprgsource)
  316.   (dest #mainprgdest)
  317. )
  318. (complete 10)
  319.  
  320.  
  321.  
  322. ;  **** Icon for Main-Program
  323.  
  324. (if (= #updatemode 0) (
  325.     ; (run ("delete SYS:WBStartup/Madhouse.info"))
  326.     (set #icontype (askchoice
  327.             (prompt #icontext )
  328.             (help    ""    )
  329.             (choices #iconchoices-1 #iconchoices-2 #iconchoices-3 #iconchoices-4 #iconchoices-5 #iconchoices-6 #iconchoices-7 )
  330.             (default 5)
  331.         )
  332.     )
  333.     (set #icondest "BlaBla!")
  334.     (if (= #icontype 0) (
  335.         (set #iconsource "/Madhouse.info")
  336.         (set #icondest "SYS:WBStartup/Madhouse.info")
  337.     ))
  338.     (if (= #icontype 1) (
  339.         (set #iconsource "/Icons/Madhouse_MWB1.info")
  340.         (set #icondest "SYS:WBStartup/Madhouse_MWB1.info")
  341.     ))
  342.     (if (= #icontype 2) (
  343.         (set #iconsource "/Icons/Madhouse2.info")
  344.         (set #icondest "SYS:WBStartup/Madhouse2.info")
  345.     ))
  346.     (if (= #icontype 3) (
  347.         (set #iconsource "/Icons/Madhouse_MWB2.info")
  348.         (set #icondest "SYS:WBStartup/Madhouse_MWB2.info")
  349.     ))
  350.     (if (= #icontype 4) (
  351.         (set #iconsource "/Icons/Madhouse3.info")
  352.         (set #icondest "SYS:WBStartup/Madhouse3.info")
  353.     ))
  354.     (if (= #icontype 5) (
  355.         (set #iconsource "/Icons/Madhouse_MWB3.info")
  356.         (set #icondest "SYS:WBStartup/Madhouse_MWB3.info")
  357.     ))
  358.     (if (= #icontype 6) (
  359.         (set #iconsource "/Icons/Madhouse4.info")
  360.         (set #icondest "SYS:WBStartup/Madhouse4.info")
  361.     ))
  362.     (copyfiles
  363.         (source #iconsource)
  364.         (dest "SYS:WBStartup")
  365.     )
  366.     (run ("rename %s SYS:WBStartup/Madhouse.info" #icondest ))
  367. ))
  368. (complete 17)
  369.  
  370.  
  371.  
  372. ;  **** Locale
  373.  
  374. (if (> (/ (getversion) 65536) 37)
  375.     (
  376.         (if (<> #def-anleit 1 ) (
  377.  
  378.             (set #loc-space (getdiskspace "LOCALE:" ))
  379.             (if (< #loc-space size-locale) (
  380.                     (message ( #diskfull-locale ))
  381.                 )(
  382.                     (set #useloc 0)
  383.                     (if (= #updatemode 1) (
  384.                         (if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (set #useloc 1))
  385.                     )(
  386.                         (set #useloc  (askbool (prompt #use-locale)
  387.                                      (help "")
  388.                                      (choices #locale-1 #locale-2 )) )
  389.                     ))
  390.                     (if (= #useloc 1)
  391.                     (
  392.                         ;(if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (
  393.                         ;   (message (#locale-update))
  394.                         ;))
  395.                         (copyfiles
  396.                            (source "/locale/deutsch/madhouse.catalog")
  397.                            (dest "LOCALE:Catalogs/deutsch")
  398.                         )    
  399.                         (copyfiles
  400.                            (source "/locale/deutsch/madhousebg.catalog")
  401.                            (dest "LOCALE:Catalogs/deutsch")
  402.                         )
  403.                     ))
  404.             ))
  405.         ))
  406.         (run "c:avail flush")
  407.     )
  408. )
  409. (complete 27)
  410.  
  411.  
  412. ;  **** Library
  413.  
  414. (copylib
  415.     (source "/libs/madblankersupport.library")
  416.     (dest "Libs:")
  417. )
  418.  
  419. (complete 30)
  420.  
  421.  
  422. ;  **** Set directory for docs, blankers etc...
  423.  
  424. (set #min-space (+ #size-configed #size-blankers))
  425. (set #doc-space (+ #min-space #size-defaultdoc))
  426.  
  427. (set #loopagain 1)
  428.  
  429. (if (= #updatemode 1) (
  430.     (set #loopagain 0)
  431.     (run (cat "Gettooltype \"" (tackon #mainprgdest "Madhouse") "\" CONFIGED") )
  432.     (set #gtt (getenv "Gettooltype"))
  433.     (delete "ENV:Gettooltype")
  434.     (if (exists #gtt) (
  435.         (set @default-dest (pathonly #gtt))
  436.     )(
  437.         (set #loopagain 1)
  438.         (message #select-defdir )
  439.     ))
  440. )(
  441.     (message #select-defdir )
  442. ))
  443.  
  444. ;(while #loopagain (
  445.  
  446. (if (= #loopagain 1 ) (
  447.     (set @default-dest
  448.       (askdir
  449.         (prompt #select-dir-prompt )
  450.         (help #select-dir-help )
  451.          (default ":")
  452.       )
  453.     )
  454. ))
  455.     
  456. ;    (set #avail-space (getdiskspace @default-dest))
  457. ;
  458. ;    (if (< #avail-space #min-space) (
  459. ;        ; Viel zu wenig Platz für's nötigste
  460. ;        (message #no-min-space)
  461. ;    )(
  462. ;        (if (< #avail-space #doc-space) (
  463. ;            ; Blanker passen, sonst nichts.
  464. ;            (if (askbool (prompt #no-doc-space)
  465. ;             (help "")
  466. ;             (choices #yes #no ))
  467. ;            (
  468. ;                (set #loopagain 1)
  469. ;            )(
  470. ;                (set #loopagain 0)
  471. ;            ))
  472. ;        )(
  473. ;            ; Alles paßt.
  474. ;            (set #loopagain 0)
  475. ;        ))
  476. ;    ))
  477. ;))
  478.  
  479. (complete 35)
  480.  
  481.  
  482. ;  **** Doc-Files
  483.  
  484. (working #doing-docs)
  485.  
  486. ;(if (> #avail-space #doc-space) (
  487.     (if (= #def-anleit 1) ( 
  488.         (copyfiles
  489.             (source "/Docs/Doc.guide" )
  490.            (dest @default-dest)
  491.             (infos)
  492.         )
  493.         (if (NOT (OR (exists "S:Madhouse.key") (exists (tackon @default-dest "Madhouse.key")))) (
  494.             (copyfiles
  495.                 (source "/Docs/Registration_E.txt" )
  496.                (dest @default-dest)
  497.                 (infos)
  498.             )
  499.         ))
  500.     )(
  501.         (copyfiles
  502.             (source "/Docs/Anleitung.guide" )
  503.            (dest @default-dest)
  504.             (infos)
  505.         )
  506.         (if (NOT (OR (exists "S:Madhouse.key") (exists (tackon @default-dest "Madhouse.key")))) (
  507.             (copyfiles
  508.                 (source "/Docs/Registration_D.txt" )
  509.                (dest @default-dest)
  510.                 (infos)
  511.             )
  512.         ))
  513.     ))
  514. ;))
  515.  
  516. (complete 45)
  517.  
  518.  
  519.  
  520. ;  **** MadhouseConfigEd
  521.  
  522. (message #doing-configed)
  523. (copyfiles
  524.    (source "/MadhouseConfigEd")
  525.    (dest @default-dest)
  526. )
  527. (complete 55)
  528.  
  529.  
  530.  
  531. ;  **** Blankers
  532.  
  533. ;canceled
  534. ;(set gestars 0)
  535. ;(if (askbool (prompt #graphicext)
  536. ;             (help #graphicexthelp)
  537. ;             (choices #graphicext-1 #graphicext-2 ))
  538. ;(
  539. ;   (set gestars 1)
  540. ;))
  541.  
  542. (message #blank )
  543.  
  544. (set #bl-dest ( tackon @default-dest "Blankers" ) )
  545.  
  546. (if (= #updatemode 0 ) (makedir #bl-dest ) )
  547.  
  548. (copyfiles
  549.     (source "/blankers" )
  550.     (dest #bl-dest)
  551.     (help "" )
  552.     (all)
  553.     (optional "force" )
  554.     (infos)
  555. )
  556.  
  557. ;(if (= gestars 1) (
  558. ;    (copyfiles
  559. ;        (source "/blankers/Stars/blanker_safe" )
  560. ;        (dest (cat bl-dest "/Stars") )
  561. ;        (newname "blanker")
  562. ;        (help "" )
  563. ;        (infos)
  564. ;    )
  565. ;    (delete (cat bl-dest "/Stars/blanker_safe"))
  566. ;))
  567.  
  568. (copyfiles
  569.     (source "/blankers.info" )
  570.     (dest @default-dest )
  571.     (help "" )
  572. )
  573.  
  574.  
  575. (if (= #updatemode 1) (
  576.     ; delete blankers which are not supported any more.
  577.     (run ("delete %s ALL" (tackon #bl-dest "Drops")))
  578.     (run ("delete %s" (tackon #bl-dest "Drops.info")))
  579.     (run ("delete %s ALL" (tackon #bl-dest "Memory")))
  580.     (run ("delete %s" (tackon #bl-dest "Memory.info")))
  581.     (run ("delete %s ALL" (tackon #bl-dest "Note")))
  582.     (run ("delete %s" (tackon #bl-dest "Note.info")))
  583.     (if (NOT (exists (tackon #bl-dest "Skyline/BB.Skyline.data"))) (
  584.         (run ("delete %s ALL" (tackon #bl-dest "Skyline")))
  585.         (run ("delete %s" (tackon #bl-dest "Skyline.info")))
  586.     ))
  587.     (run ("delete %s ALL" (tackon #bl-dest "SoftwareFailure")))
  588.     (run ("delete %s" (tackon #bl-dest "SoftwareFailure.info")))
  589.     (run ("delete %s ALL" (tackon #bl-dest "Thunder")))
  590.     (run ("delete %s" (tackon #bl-dest "Thunder.info")))
  591.     (run ("delete %s ALL" (tackon #bl-dest "TV")))
  592.     (run ("delete %s" (tackon #bl-dest "TV.info")))
  593. ))
  594.  
  595.  
  596.  
  597. (complete 80)
  598.  
  599.  
  600.  
  601. ;  **** ImportHelp
  602.  
  603. (set #imphelp-dest ( tackon @default-dest "ImportHelp" ) )
  604.  
  605. (if (= #updatemode 0 ) (makedir #imphelp-dest ) )
  606.  
  607. (copyfiles
  608.     (source "/ImportHelp")
  609.     (dest #imphelp-dest)
  610.     (help "" )
  611.     (all)
  612.     (infos)
  613. )
  614.  
  615. (complete 90)
  616.  
  617.  
  618.  
  619. ;  **** Set ToolType for SYS:WBStartup/Madhouse
  620.  
  621. (if (= #updatemode 0) (
  622.     (tooltype  (dest "SYS:WBStartup/Madhouse")
  623.                (settooltype "CONFIGED" (tackon @default-dest "MadhouseConfigEd"))
  624.     )
  625. ))
  626. (complete 95)
  627.  
  628.  
  629. ;
  630. ;  **** Extro
  631.  
  632. (message #extro)
  633.  
  634.  
  635.  
  636. ;   **** Finished!
  637.  
  638.  
  639.