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