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