home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / MAXONTWIST202.DMS / in.adf / INSTALL-MaxonTWIST-HD < prev    next >
Encoding:
Text File  |  1994-10-26  |  9.5 KB  |  265 lines
  1. ; $VER: MaxonTWIST Install Version 2.0 (18.10.94)
  2. ; Script zum Installieren von MaxonTWIST 2 auf Festplatte
  3. ; Dipl.-Ing. Michael Giebel
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "Mit diesem Installationsprogramm können Sie \n\n MaxonTWIST 2\n\n auf einer "
  9.      "Festplatte installieren.\nDie komplette Installation läuft "
  10.      "nahezu vollständig automatisch ab.\n"
  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 MaxonTWIST 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:TWIST2). 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.      "nötigsten MaxonTWIST-Dateien zu kopieren\n\n"
  88.      "!!! Die Installation wird abgebrochen !!!"))
  89. (set #no-ram
  90. (cat "\nDer Speicherplatz Ihres Computers reicht nicht aus, um "
  91.      "MaxonTWIST zu installieren und zu betreiben!\n\n"
  92.      "!!! Die Installation wird abgebrochen !!!"))
  93.  
  94. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  95.  
  96. (set #COPYFILES (cat "\nKopiere Dateien!\n"))
  97. (set #COPVERZ    (cat "\nBitte wählen Sie das Verzeichnis,\nin das die letzte TWIST-Version\ninstalliert wurde!\n"))
  98. (set #TWDEFAULTS (cat "\n Kopiere die Default-Icons!\n"))
  99. (set #TWPROGRAMM (cat "\n Kopiere das TWIST Hauptprogramm!\n"))
  100. (set #TWUTIL (cat "\n Kopiere Icons und ARexx-Skripte!\n"))
  101. (set #TWSONSTIGES (cat "\n Kopiere Zusatzdateien!\n"))
  102. (set #TWDEMOS (cat "\nKopiere die Beispiele!\n"))
  103.  
  104. (set @abort-button "Abbruch")
  105. (set @language "Deutsch")
  106.  
  107. (Procedure Inst_NormFiles
  108.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  109.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  110. )
  111.  
  112. (Procedure Inst_PatternFiles
  113.     (set @Dest_File (tackon @default-dest @Dest))
  114.     (if                                          ; Verzeichnis erzeugen
  115.         (= (exists @Dest_File) 0)
  116.         (makedir (@Dest_File))
  117.     )
  118.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  119.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  120. )
  121.  
  122. (Procedure Inst_LhaFiles
  123.     (set @TMP (tackon "RAM:" @FName.lha))
  124.     (set @Dest_File @default-dest)
  125.     (if                                          ; Verzeichnis erzeugen
  126.         (= (exists @Dest_File) 0)
  127.         (makedir (@Dest_File)(infos))
  128.     )
  129.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:"))
  130.     (working @Working @Dest)
  131.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @Souce @Dest))
  132.     (delete @TMP)
  133. )
  134.  
  135. (complete 0)
  136.  
  137. (message #introduction)
  138. (welcome)
  139.  
  140. (set @default-dest                           ;Verzeichnis aussuchen 
  141.     (askdir
  142.         (prompt #COPVERZ)
  143.         (help    #askdir-help)
  144.         (default "WORK:")
  145.     )
  146. )
  147.  
  148. (if                                          ; Verzeichnis erzeugen
  149.     (= (exists @default-dest) 0)
  150.     (makedir @default-dest)
  151. )
  152.  
  153. (askdisk
  154.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST2\" ein!")
  155.     (help #askdir-help)
  156.     (dest "MaxonTWIST2")
  157. )
  158.  
  159. (copyfiles                                            ; LHX kopieren
  160.     (prompt #COPYRAM)
  161.     (help @copyfiles-help)
  162.     (source "MaxonTWIST2:c/LHX")
  163.     (dest "RAM:")
  164.    (choices "Lhx")
  165. )
  166. (if(= 0 (exists "RAM:Lhx"))
  167.     (abort #ERRORRAM)
  168. )
  169.  
  170. (complete 5)
  171.  
  172. (copylib                                            ; RCT-LIB kopieren
  173.     (prompt "Die RCT-LIBRARY wird kopiert ...")
  174.     (help
  175.         "Die RCT-Library enthält einen Standard-Filerequester "
  176.       "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  177.       "installiert haben, dann ist hier eine neuere Version.\n\n"
  178.         @copyfiles-help
  179.     )
  180.     (source "MaxonTWIST2:libs/rct.library")
  181.     (dest "Libs:")
  182.     (confirm)
  183. )
  184.  
  185. (complete 10)
  186.  
  187. (
  188.     (set @Working #TWPROGRAMM)                ; Programm entpacken
  189.     (set @Source "MaxonTWIST2:twist2bin.lha")
  190.     (set @Dest @default-dest)
  191.     (working @Working @Dest)
  192.     (run ("RAM:Lhx -x -a -N x %s \"%s/\"" @Source @Dest))
  193. )
  194.  
  195. (complete 30)
  196.  
  197. (
  198.     (set @Working #TWUTIL)                    ; Zusätze (ARexx, Icons) entpacken
  199.     (set @Source "MaxonTWIST2:twist2util.lha")
  200.     (set @Dest @default-dest)
  201.     (working @Working @Dest)
  202.     (run ("RAM:Lhx -x -a -N x %s \"%s/\"" @Source @Dest))
  203. )
  204.  
  205. (complete 50)
  206.  
  207. (
  208.     (set @Working #TWDEMOS)                    ; Demobeispiele entpacken
  209.     (set @Source "MaxonTWIST2:twist2bsp1.lha")
  210.     (set @Dest @default-dest)
  211.     (working @Working @Dest)
  212.     (run ("RAM:Lhx -x -a -N x %s \"%s/\"" @Source @Dest))
  213. )
  214. (
  215.     (set @Working #TWDEMOS)
  216.     (set @Source "MaxonTWIST2:twist2bsp2.lha")
  217.     (set @Dest @default-dest)
  218.     (working @Working @Dest)
  219.     (run ("RAM:Lhx -x -a -N x %s \"%s/\"" @Source @Dest))
  220. )
  221. (
  222.     (set @Working #TWDEMOS)
  223.     (set @Source "MaxonTWIST2:twist2bsp3.lha")
  224.     (set @Dest @default-dest)
  225.     (working @Working @Dest)
  226.     (run ("RAM:Lhx -x -a -N x %s \"%s/\"" @Source @Dest))
  227. )
  228.  
  229. (complete 90)
  230.  
  231. ; ------- STARTUP ÄNDERN
  232.  
  233. (set command1 (cat  "ASSIGN TWIST: " @default-dest "\nASSIGN TWISTICON: TWIST:ICONS\n"))
  234. (set command1.txt
  235.     (cat 
  236.          "\n\n\nUm mit dem MaxonTWIST richtig arbeiten zu "
  237.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  238.          command1
  239.     )
  240. )
  241.  
  242. (startup "MaxonTWIST.app"
  243.     (prompt command1.txt)
  244.     (help #help-startup)
  245.     (command command1)
  246. )
  247.  
  248. (makeassign "TWIST")
  249. (makeassign "TWIST" @default-dest)
  250. (makeassign "TWISTICON")
  251. (makeassign "TWISTICON" "TWIST:Icons")
  252.  
  253. (complete 100)
  254.  
  255. ; ------- FERTIG
  256.  
  257. (message (cat 
  258.     "Installation der Datenbank MaxonTWIST 2 beendet.\n"
  259.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  260.    "User-Startup eingefügt wurden, holen Sie dies bitte nach.\n\n"
  261.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  262.    "MaxonTWIST 2.\n\nViel Erfolg!")
  263. )
  264.  
  265.