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