home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Screenblanker / MAXONMAGIC2,0-0.DMS / in.adf / Install-MM-HD < prev    next >
Encoding:
Text File  |  1992-09-02  |  11.3 KB  |  396 lines
  1. ; $VER: MaxonMAGIC 2.0 Install Version 1.2 (5.5.94)
  2. ; Script zum Installieren von MaxonMAGIC
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonMAGIC 2.0\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft nahezu vollständig "
  10.      "automatisch ab. "
  11.      "Auf Ihrer Festplatte müssen mindestens 2,4 MB Platz frei sein!\n\n"
  12.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  13.      "Drücken Sie \"Abbruch\", um die Installation abzubrechen."))
  14. (set #askdir-help
  15. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  16.      "Sie gerne MaxonMAGIC 2.0 installieren möchten. Danach klicken Sie "
  17.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  18.      "Namen des Verzeichnisses an (z.B. WORK:MMAGIC). Dann drücken Sie "
  19.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  20.      "Beschreibung der Schalter:\n\n"
  21.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  22.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  23.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  24.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  25.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  26.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  27.      "befindete sich ein Schieber, mit dem man sich durch eine "
  28.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  29.      "alle Einträge ausreicht.\n\n"
  30.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  31.      "einer Schublade geklickt wird.\n\n"
  32.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  33.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  34.      "wurde.)\n\n"
  35.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  36.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  37.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  38.      "anzusehen.\n\n"
  39.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  40.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  41.      "angelegt, das Sie soeben betrachten.\n\n"
  42.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  43.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  44.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  45.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  46.      "vorgenommen.\n\n"
  47.      "\"Help...\" zeigt diesen Text."))
  48. (set #help-startup
  49. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  50.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  51.      "bereits beim Systemstart ausführen.\n\n"
  52.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  53.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  54.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  55.      "den Schalter \"Skip This Part\"\n\n"
  56.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  57. (set #help-delete
  58. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  59.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  60.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  61.      "\"Assigns\" gelöscht.\n\n"
  62.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  63.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  64.      "Installationsverzeichnis erhalten.\n\n"
  65.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  66. (set #startup-help
  67. (cat "Erklärung der Schalter:\n\n"
  68.      "\"Install for Real\"\n"
  69.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  70.      "\"Pretend to Install\"\n"
  71.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  72.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  73.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  74.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  75.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  76.      "Liste über alle durchgeführten Aktionen.\n\n"
  77.      "\"Printer\"\n"
  78.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  79.      "ausgegeben.\n\n"
  80.      "\"Log File\"\n"
  81.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  82.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  83.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  84.      "\"None\"\n"
  85.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  86. (set #no-inst
  87. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  88.      "MaxonMAGIC-Dateien zu kopieren\n\n"
  89.      "!!! Die Installation wird abgebrochen !!!"))
  90.  
  91. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  92.  
  93. (set #COPVERZ    (cat "\nIn welches Verzeichnis soll MaxonMAGIC\nkopiert werden?"))
  94.  
  95. (set #MAGICSIZE    800000)
  96. (set #MaxonMSIZE  2400000)
  97.  
  98. (set @abort-button "Abbruch")
  99. (set @language "Deutsch")
  100.  
  101. (Procedure Inst_NormFiles
  102.     (if (< (getdiskspace @Dest) @Size)
  103.         (abort #no-inst))
  104.  
  105.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  106.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  107. )
  108.  
  109. (Procedure Inst_PatternFiles
  110.     (if (< (getdiskspace @Dest) @Size)
  111.         (abort #no-inst))
  112.  
  113.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  114.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  115. )
  116.  
  117. (Procedure Inst_LhaFiles
  118.     ;(set @In_File (tackon @Source @FName.lha))
  119.     (set @TMP (tackon "RAM:" @FName.lha))
  120.     (set @Dest_File (tackon @default-dest @Dest))
  121.     (if                                          ; Verzeichnis erzeugen
  122.         (= (exists @Dest_File) 0)
  123.         (makedir (@Dest_File)(infos))
  124.     )
  125.  
  126.     (if (< (getdiskspace @Dest_File) @Size)
  127.         (abort #no-inst))
  128.  
  129.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  130.     (working @Working @Dest)
  131.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  132.     (delete @TMP)
  133. )
  134.  
  135. (Procedure Inst_LhaFilesnew
  136.     ;(set @In_File (tackon @Source @FName.lha))
  137.     (set @TMP (tackon "RAM:" @FName.lha))
  138.     (set @Dest_File (tackon @default-dest @Dest))
  139.     (makedir (@Dest_File)(infos))
  140.  
  141.     (if (< (getdiskspace @Dest_File) @Size)
  142.         (abort #no-inst))
  143.  
  144.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  145.     (working @Working @Dest)
  146.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  147.     (delete @TMP)
  148. )
  149.  
  150.  
  151. (message #introduction)
  152. (welcome)
  153. (set old_level @user-level)
  154.  
  155. (complete 0)
  156.  
  157. (set @default-dest                           ; Verzeichnis aussuchen 
  158.     (askdir
  159.         (prompt #COPVERZ)
  160.         (help    #askdir-help)
  161.         (default "WORK:MMAGIC")
  162.     )
  163. )
  164.  
  165. (if                                          ; Verzeichnis erzeugen
  166.     (= (exists @default-dest) 0)
  167.     (makedir @default-dest)
  168. )
  169.  
  170.  
  171.     (askdisk
  172.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonMAGIC 2.0\" ein!")
  173.         (help #askdir-help)
  174.         (dest "MaxonMAGIC_2.0")
  175.     )
  176.  
  177.  
  178.  
  179. (complete 5)
  180.  
  181. (
  182.     (set @Source "MaxonMAGIC_2.0:")
  183.     (set @Dest @default-dest)
  184.    (set @Pattern "MM_Sounds")
  185.     (set @Size #MaxonMSIZE)
  186.     (Inst_PatternFiles)
  187. )
  188.  
  189. (complete 10)
  190.  
  191. (
  192.     (set @Source "MaxonMAGIC_2.0:")
  193.     (set @Dest @default-dest)
  194.    (set @Pattern "MM_SModule")
  195.     (set @Size #MAGICSIZE)
  196.     (Inst_PatternFiles)
  197. )
  198.  
  199.  
  200. (
  201.     (set @Source "MaxonMAGIC_2.0:")
  202.     (set @Dest @default-dest)
  203.    (set @FName "MaxonMAGIC_2.0")
  204.     (set @Size #MAGICSIZE)
  205.     (Inst_NormFiles)
  206. )
  207.  
  208.  
  209. (
  210.     (set @Source "MaxonMAGIC_2.0:")
  211.     (set @Dest @default-dest)
  212.    (set @FName "MM_Prefs-HD")
  213.     (set @Size #MAGICSIZE)
  214.     (Inst_NormFiles)
  215.  
  216.     (rename (tackon @default-dest "MM_Prefs-HD") (tackon @default-dest "MM_Prefs"))
  217. )
  218.  
  219. (
  220.     (set @Source "MaxonMAGIC_2.0:")
  221.     (set @Dest @default-dest)
  222.    (set @FName "Bitte_lesen!")
  223.     (set @Size #MAGICSIZE)
  224.     (Inst_NormFiles)
  225. )
  226.  
  227. (
  228.     (set @Source "MaxonMAGIC_2.0:")
  229.     (set @Dest @default-dest)
  230.    (set @FName "Bitte_lesen!.info")
  231.     (set @Size #MAGICSIZE)
  232.     (Inst_NormFiles)
  233. )
  234.  
  235.  
  236. (complete 20)
  237.  
  238. (
  239.     (set @Source "MaxonMAGIC_2.0:")
  240.     (set @Dest @default-dest)
  241.    (set @Pattern "MM_Effekte")
  242.     (set @Size #MAGICSIZE)
  243.     (Inst_PatternFiles)
  244.  
  245. )
  246.  
  247. (complete 25)
  248.  
  249. (copylib                                            ; RCT-LIB kopieren
  250.     (prompt "Die RCT-LIBRARY wird kopiert ...")
  251.     (help
  252.         "Die RCT-Library wird zum Erzeugen von Standard-Requestern "
  253.       "benötigt. Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  254.       "installiert haben, dann ist hier eine neuere Version.\n\n"
  255.         @copyfiles-help
  256.     )
  257.     (source "MaxonMAGIC_2.0:libs/rct.library")
  258.     (dest "Libs:")
  259.     (confirm)
  260. )
  261.  
  262. (complete 30)
  263.  
  264.  
  265.     (askdisk
  266.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonMAGIC_Samples1\" ein!")
  267.         (help "Legen Sie bitte die Sample-Diskette 1 ein und wählen Sie 'Proceed'!")
  268.         (dest "MaxonMAGIC_Samples1")
  269.     )
  270.  
  271. (
  272.  
  273.     (set @Source "MaxonMAGIC_Samples1:")
  274.     (set @prompt "Installieren der zusätzlichen Samples von Disk 1\n")
  275.     (set @Dest @default-dest)
  276.    (set @Pattern "MM_Sounds")
  277.     (set @Size #MAGICSIZE)
  278.     (Inst_PatternFiles)
  279. )
  280.  
  281. (
  282.     (set @Source "MaxonMAGIC_Samples1:")
  283.     (set @Dest (pathonly @default-dest))
  284.    (set @FName "c")
  285.     (set @Size #MAGICSIZE)
  286.     (Inst_NormFiles)
  287. )
  288.  
  289. (
  290.     (set @Source "MaxonMAGIC_Samples1:")
  291.     (set @Dest @default-dest)
  292.    (set @Pattern "MM_TC")
  293.     (set @Size #MAGICSIZE)
  294.     (Inst_PatternFiles)
  295. )
  296.  
  297. (complete 60)
  298.  
  299.  
  300.     (askdisk
  301.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonMAGIC_Samples2\" ein!")
  302.         (help "Legen Sie bitte die Sample-Diskette 2 ein und wählen Sie 'Proceed'!")
  303.         (dest "MaxonMAGIC_Samples2")
  304.     )
  305.  
  306.  
  307. (
  308.  
  309.     (set @Source "MaxonMAGIC_Samples2:")
  310.     (set @prompt "Installieren der zusätzlichen Samples und Effekte von Disk 2\n")
  311.     (set @Dest @default-dest)
  312.    (set @Pattern "MM_Sounds")
  313.     (set @Size #MAGICSIZE)
  314.     (Inst_PatternFiles)
  315. )
  316.  
  317. (complete 70)
  318.  
  319. (
  320.     (set @Source "MaxonMAGIC_Samples2:")
  321.     (set @Dest @default-dest)
  322.    (set @Pattern "MM_Effekte")
  323.     (set @Size #MAGICSIZE)
  324.     (Inst_PatternFiles)
  325. )
  326.  
  327. (
  328.     (set @Source "MaxonMAGIC_Samples2:")
  329.     (set @Dest @default-dest)
  330.    (set @Pattern "MM_Anims")
  331.     (set @Size #MAGICSIZE)
  332.     (Inst_PatternFiles)
  333. )
  334.  
  335. (
  336.     (set @Source "MaxonMAGIC_Samples2:")
  337.     (set @Dest @default-dest)
  338.    (set @Pattern "MM_Brushes")
  339.     (set @Size #MAGICSIZE)
  340.     (Inst_PatternFiles)
  341. )
  342.  
  343. (complete 90)
  344.  
  345. (set changechoice 1)
  346.  
  347. (set changechoice
  348.     (askchoice
  349.         (prompt "\nMöchten Sie MaxonMagic automatisch\nbeim Starten aktivieren?\n\nDabei wird die User-Startup verändert!")
  350.         (help @askchoice-help)
  351.         (choices "Ja" "Nein")
  352.         (default 0)
  353.     )
  354. )
  355.  
  356.  
  357. (set command1 "MaxonMAGIC_2.0")
  358.     
  359. (if (not changechoice)
  360.     (
  361.     ; ------- STARTUP ÄNDERN
  362.     
  363.     
  364.     (set command1 (tackon @default-dest "MaxonMAGIC_2.0"))
  365.     
  366.     (set command1.txt
  367.         (cat 
  368.              "\n\n\nDamit MaxonMAGIC nach jedem Neustart aktiv ist"
  369.           "muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  370.              command1
  371.         )
  372.     )
  373.     
  374.     (startup "MaxonMAGIC.app"
  375.         (prompt command1.txt)
  376.         (help #help-startup)
  377.         (command command1)
  378.     )))
  379.  
  380. (complete 100)
  381.  
  382. ; ------- FERTIG
  383.  
  384. (message (cat 
  385.     "Installation von MaxonMAGIC beendet.\n"
  386.    "Falls die Zeile:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  387.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  388.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  389.    "MaxonMAGIC 2.0.\n\nViel Erfolg!")
  390. )
  391.  
  392. (exit)
  393.  
  394. ;=============================================================================
  395.  
  396.