home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / MT281.DMS / in.adf / INSTALL-MaxonTWIST-HD < prev    next >
Encoding:
Text File  |  1995-02-05  |  13.2 KB  |  410 lines
  1. ; $VER: MaxonTWIST Install Version 2.5 (24.11.94)
  2. ; Script zum Installieren von MaxonTWIST 2 auf Festplatte
  3. ; Dipl.-Ing. Michael Giebel (:-{==
  4. ;
  5. ;============================
  6. ;=== Deutsche Erklärungen ===
  7. ;============================
  8. (set #introduction
  9. (cat "Mit diesem Programm wird \n\n MaxonTWIST 2\n\n auf einer "
  10.      "Festplatte installiert.\nDie komplette Installation läuft "
  11.      "nahezu vollständig automatisch ab.\n"
  12.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  13.      "Drücken Sie \"Abbruch\", um die Installation abzubrechen."
  14.      "\n\n Cracked by Sceptic"))
  15.  
  16. (set #askdir-help
  17. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  18.      "Sie gerne MaxonTWIST installieren möchten. Danach klicken Sie "
  19.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  20.      "Namen des Verzeichnisses an (z.B. WORK:TWIST2). Dann drücken Sie "
  21.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  22.      "Beschreibung der Schalter:\n\n"
  23.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  24.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  25.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  26.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  27.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  28.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  29.      "befindete sich ein Schieber, mit dem man sich durch eine "
  30.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  31.      "alle Einträge ausreicht.\n\n"
  32.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  33.      "einer Schublade geklickt wird.\n\n"
  34.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  35.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  36.      "wurde.)\n\n"
  37.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  38.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  39.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  40.      "anzusehen.\n\n"
  41.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  42.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  43.      "angelegt, das Sie soeben betrachten.\n\n"
  44.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  45.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  46.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  47.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  48.      "vorgenommen.\n\n"
  49.      "\"Help...\" zeigt diesen Text."))
  50. (set #help-startup
  51. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  52.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  53.      "bereits beim Systemstart ausführen.\n\n"
  54.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  55.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  56.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  57.      "den Schalter \"Skip This Part\"\n\n"
  58.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  59. (set #help-delete
  60. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  61.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  62.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  63.      "\"Assigns\" gelöscht.\n\n"
  64.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  65.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  66.      "Installationsverzeichnis erhalten.\n\n"
  67.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  68. (set #startup-help
  69. (cat "Erklärung der Schalter:\n\n"
  70.      "\"Install for Real\"\n"
  71.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  72.      "\"Pretend to Install\"\n"
  73.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  74.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  75.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  76.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  77.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  78.      "Liste über alle durchgeführten Aktionen.\n\n"
  79.      "\"Printer\"\n"
  80.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  81.      "ausgegeben.\n\n"
  82.      "\"Log File\"\n"
  83.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  84.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  85.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  86.      "\"None\"\n"
  87.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  88. (set #no-inst
  89. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  90.      "nötigsten MaxonTWIST-Dateien zu kopieren\n\n"
  91.      "!!! Die Installation wird abgebrochen !!!"))
  92. (set #no-ram
  93. (cat "\nDer Speicherplatz Ihres Computers reicht nicht aus, um "
  94.      "MaxonTWIST zu installieren und zu betreiben!\n\n"
  95.      "!!! Die Installation wird abgebrochen !!!"))
  96. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  97. (set #COPYFILES (cat "\nKopiere Dateien!\n"))
  98. (set #COPVERZ
  99. (cat "Bitte wählen Sie das Verzeichnis, in das das\nTWIST-Programm installiert werden soll!\n"
  100.      "Ein Verzeichnis z.B. \"MaxonTWIST\" muß evtl. erzeugt werden!"))
  101. (set #TWDEFAULTS (cat "\n Kopiere die Default-Icons!\n"))
  102. (set #TWPROGRAMM (cat "\n Kopiere das TWIST Hauptprogramm!\n"))
  103. (set #TWUTIL (cat "\n Kopiere Icons und ARexx-Skripte!\n"))
  104. (set #TWSONSTIGES (cat "\n Kopiere Zusatzdateien!\n"))
  105. (set #TWDEMOS (cat "\nEntpacke die Beispiele nach\n\n"))
  106.  
  107. ;=================
  108. ;=== Variablen ===
  109. ;=================
  110.  
  111. (set @abort-button "Abbruch")
  112. (set @language "Deutsch")
  113.  
  114. (set Disk1 "MaxonTWIST2-1")
  115. (set Disk2 "MaxonTWIST2-2")
  116. (set source-lha "MaxonTWIST2-1:c/LHX")
  117. (set dest-lha "RAM:LHX")
  118.  
  119. ;=================
  120. ;===    MAIN   ===
  121. ;=================
  122.  
  123. (complete 0)
  124. (message #introduction)
  125. (welcome)
  126.  
  127. ; Verzeichnis aussuchen
  128. ;----------------------
  129. (set @default-dest
  130.     (askdir
  131.         (prompt #COPVERZ)
  132.         (help
  133.             "Sie wählen hier das Verzeichnis aus, in das MaxonTWIST und die Zusatzdateien "
  134.             "kopiert werden sollen. Eine Schublade wird NICHT automatisch erzeugt. Ein "
  135.             "separates Unterverzeichnis müssen Sie \"von Hand\" über den Schalter \"Make "
  136.             "New Drawer\" erzeugen.\n\n"
  137.             #askdir-help)
  138.         (default "WORK:")
  139.     )
  140. )
  141. (complete 1)
  142.  
  143. ; Verzeichnis erzeugen
  144. ;---------------------
  145. (if
  146.     (= (exists @default-dest) 0)
  147.     (makedir @default-dest
  148.         (safe)                                        ; auch bei scheinbarer Installation
  149.         (infos)
  150.     )
  151. )
  152. (complete 2)
  153.  
  154. ; zur Sicherheit nach Installationsdiskette fragen
  155. ;-------------------------------------------------
  156. (askdisk
  157.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST2-1\" ein!")
  158.     (help "\nAuf Diskette 1 befindet sich das Hauptprogramm!")
  159.     (dest Disk1)
  160. )
  161. (complete 3)
  162.  
  163. ; LHX kopieren
  164. ;-------------
  165. (copyfiles
  166.     (prompt "Kopiere LHX in die RAM-Disk !"); was sieht der User
  167.     (help                                                ; der User drückt auf HELP
  168.         "Der Archivierer wird benötigt zum Entpacken zweier Beispieldatenbanken.\n\n"
  169.         @copyfiles-help)
  170.     (source source-lha)                            ; wo ist welche die Datei
  171.     (dest "RAM:")                                    ; wohin soll sie
  172.     (files)                                            ; nur Dateien kopieren
  173.     (confirm)                                        ; fragen im Expert-Modus
  174.     (safe)                                            ; auch im "scheinbar"-Modus
  175. )
  176. (complete 4)
  177.  
  178. ; TWIST2, TWIST2.info und TWIST.inf kopieren
  179. ;-------------------------------------------
  180. (copyfiles
  181.     (prompt "Kopiere das Programm \"MaxonTWIST2\" !")
  182.     (help
  183.         "Es werden das Hauptprogramm, sowie die Voreinstellungsdatei kopiert.\n\n"
  184.         @copyfiles-help)
  185.     (source "MaxonTWIST2-1:")
  186.     (dest @default-dest)
  187.     (pattern "TWIST#?")
  188.     (files)
  189.     (infos)                                            ; auch .info-Dateien kopieren
  190.     (confirm)
  191. )
  192. (complete 27)
  193.  
  194. ; SORTING.dat kopieren
  195. ;---------------------
  196. (copyfiles
  197.     (prompt "Kopiere die Datei \"sorting.dat\" !")
  198.     (help
  199.         "Die Datei \"sorting.dat\" enthält Informationen über die Reihenfolge, in der "
  200.         "MaxonTWIST2 Daten sortieren soll.\n\n"
  201.         @copyfiles-help)
  202.     (source "MaxonTWIST2-1:")
  203.     (dest @default-dest)
  204.     (pattern "sorting.dat")
  205.     (files)
  206.     (confirm)
  207. )
  208. (complete 28)
  209.  
  210. ; Liesmich und Liesmich.info kopieren
  211. ;------------------------------------
  212. (copyfiles
  213.     (prompt "Kopiere die Datei \"Liesmich\" !")
  214.     (help
  215.         "In der Datei \"Liesmich\" stehen WICHTIGE Informationen über Änderungen im Programm "
  216.         "gegenüber dem Handbuch.\n\nLesen Sie diese Datei unbedingt!\n\n"
  217.         @copyfiles-help)
  218.     (source "MaxonTWIST2-1:")
  219.     (dest @default-dest)
  220.     (pattern "Liesmic#?")
  221.     (files)
  222.     (infos)
  223.     (confirm)
  224. )
  225. (complete 29)
  226.  
  227. ; Inhalt und Inhalt.info kopieren
  228. ;--------------------------------
  229. (copyfiles
  230.     (prompt "Kopiere die Datei \"Inhalt\" !")
  231.     (help
  232.         "In der Datei \"Inhalt\" stehen Informationen zur Installation, dem Support, sowie "
  233.         "zum Urheberrechtsschutz\n\n"
  234.         @copyfiles-help)
  235.     (source "MaxonTWIST2-1:")
  236.     (dest @default-dest)
  237.     (pattern "Inhal#?")
  238.     (files)
  239.     (infos)
  240.     (confirm)
  241. )
  242. (complete 30)
  243.  
  244. ; Assigns und Assigns.info kopieren
  245. ;----------------------------------
  246. (copyfiles
  247.     (prompt "Kopiere die Datei \"Assigns\" !")
  248.     (help
  249.         "Die Datei \"Assigns\" wird benötigt, wenn Sie die für MaxonTWIST unbedingt "
  250.         "erforderlichen Zuweisungen nicht automatisch am Ende der Installation in der "
  251.         "Datei \"user-startup\" vornehmen lassen wollen.\n\n"
  252.         "Sie MÜSSEN dann jedes Mal vor dem Start von MaxonTWIST diese Datei starten!\n\n"
  253.         @copyfiles-help)
  254.     (source "MaxonTWIST2-1:")
  255.     (dest @default-dest)
  256.     (pattern "Assign#?")
  257.     (files)
  258.     (infos)
  259.     (confirm)
  260. )
  261. (complete 31)
  262.  
  263. ; RCT-LIB kopieren
  264. ;-----------------
  265. (copylib
  266.     (prompt "Kopiere die RCT-LIBRARY !")
  267.     (help
  268.         "Die RCT-Library enthält einen Standard-Filerequester "
  269.         "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  270.         "installiert haben, dann ist hier eine neuere Version.\n\n"
  271.         @copyfiles-help)
  272.     (source "MaxonTWIST2-1:libs/rct.library")
  273.     (dest "Libs:")
  274.     (confirm)
  275. )
  276. (complete 35)
  277.  
  278. ; ARexx-Programme kopieren
  279. ;-------------------------
  280. (if
  281.     (= (exists (tackon @default-dest "ARexx")) 0)
  282.     (makedir (tackon @default-dest "ARexx")
  283.         (safe)
  284.         (infos)
  285.     )
  286. )
  287. (copyfiles
  288.     (prompt "Kopiere die ARexx-Programme !")
  289.     (help
  290.         "Die Programme im Verzeichnis \"ARexx\" im MaxonTWIST-Ordner zeigen die "
  291.         "Leistungsfähigkeit dieser Sprache zusammen mit TWIST. Einige der Scripten "
  292.         "sind für den Gebrauch externer Dateien in einer MaxonTWIST-Datenbank "
  293.         "unabdingbar !\n\n"
  294.         @copyfiles-help)
  295.     (source "MaxonTWIST2-1:ARexx")
  296.     (dest (tackon @default-dest "Arexx"))
  297.     (all)                                                ; auch Unterverzeichnisse kopieren
  298.     (infos)
  299.     (confirm)
  300. )
  301. (complete 36)
  302.  
  303. ; Icons kopieren
  304. ;---------------
  305. (if
  306.     (= (exists (tackon @default-dest "Icons")) 0)
  307.     (makedir (tackon @default-dest "Icons")
  308.         (safe)
  309.         (infos)
  310.     )
  311. )
  312. (copyfiles
  313.     (prompt "Kopiere die MaxonTWIST-Piktogramme !")
  314.     (help
  315.         "Die Piktogramme im Verzeichnis \"Icons\" im MaxonTWIST-Ordner werden "
  316.         "verwendet z.B. für die Icons auf dem MaxonTWIST-Desktop. Aber auch in "
  317.         "einer Datensatzmaske können sie zum Einsatz kommen.\n\n"
  318.         @copyfiles-help)
  319.     (source "MaxonTWIST2-1:Icons")
  320.     (dest (tackon @default-dest "Icons"))
  321.     (all)
  322.     (infos)
  323.     (confirm)
  324. )
  325. (complete 39)
  326.  
  327. ; nach Diskette 2 fragen
  328. ;-----------------------
  329. (askdisk
  330.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST2-2\" ein!")
  331.     (help "\nAuf Diskette 2 befinden sich die Beispiele!")
  332.     (dest Disk2)
  333. )
  334. (complete 40)
  335.  
  336. ; Demobeispiele entpacken
  337. ;------------------------
  338. (
  339.     (set @Working #TWDEMOS)
  340.     (set @Source "MaxonTWIST2-2:twist2bsp1.lha")
  341.     (set @Dest @default-dest)
  342.     (working @Working @Dest)
  343.     (run ("RAM:Lhx -x -a -N x %s \"%s/\"" @Source @Dest))
  344. )
  345. (complete 77)
  346.  
  347. ; Weitere Beispiele kopieren (<= Verz. BEISPIELE existiert seit Entpacken)
  348. ;---------------------------
  349. (if
  350.     (= (exists (tackon @default-dest "Beispiele")) 0)
  351.     (makedir (tackon @default-dest "Beispiele")
  352.         (safe)
  353.         (infos)
  354.     )
  355. )
  356. (copyfiles
  357.     (prompt "Kopiere weitere Beispiel-Dateien !")
  358.     (help
  359.         "Hier finden Sie Beispiele zu den verschiedenen Relationsarten, aber auch zum "
  360.         "Umgang mit externen Dateien.\n\n"
  361.         @copyfiles-help)
  362.     (source "MaxonTWIST2-2:Beispiele")
  363.     (dest (tackon @default-dest "Beispiele"))
  364.     (all)
  365.     (infos)
  366.     (confirm)
  367. )
  368. ;(complete 96)
  369.  
  370. ; LHX löschen (keine Spuren zurücklassen)
  371. ;------------
  372. (delete dest-lha
  373.     (optional "force")                            ; auch löschen, wenn schreibgeschützt
  374.     (safe)                                            ; wurde ja auch in jedem Fall kopiert
  375. )
  376. ;(complete 97)
  377.  
  378. ; STARTUP ändern
  379. ;---------------
  380. (set command1
  381. (cat  "ASSIGN TWIST: " @default-dest "\nASSIGN TWISTICON: TWIST:ICONS\n"))
  382. (set command1.txt
  383. (cat    "\n\n\nUm mit dem MaxonTWIST richtig arbeiten zu können, muß eine "
  384.         "Änderung an der User-Startup vorgenommen werden.\n\n"
  385.         command1))
  386. (startup "MaxonTWIST.app"
  387.     (prompt command1.txt)
  388.     (help #help-startup)
  389.     (command command1)
  390. )
  391. (complete 98)
  392.  
  393. ; ASSIGNS durchführen (=> sofort startbar)
  394. ;--------------------
  395. (makeassign "TWIST")
  396. (makeassign "TWIST" @default-dest)
  397. (makeassign "TWISTICON")
  398. (makeassign "TWISTICON" "TWIST:Icons")
  399. (complete 99)
  400.  
  401. ; FERTIG
  402. ;-------
  403. (message
  404. (cat    "Installation der Datenbank MaxonTWIST 2 beendet.\n"
  405.         "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  406.         "User-Startup eingefügt wurden, holen Sie dies bitte nach.\n\n"
  407.         "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  408.         "MaxonTWIST 2.\n\nViel Erfolg!"))
  409. (complete 100)
  410.