home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / DPAINT4-1.DMS / in.adf / install-floppy < prev    next >
Encoding:
Text File  |  1993-01-11  |  11.6 KB  |  462 lines
  1. ; $Id: Install-floppy,v 1.12 92/11/09 13:24:14 djh Stable $
  2. ; This is the floppy-disk install script for DeluxePaint AGA -djh
  3. ;
  4.  
  5. (set osversion (/ (getversion) 65536))
  6. (if (< osversion 37)
  7.     (abort    "DeluxePaint benötigt AmigaDOS 2.04 oder höher.")
  8. )
  9.  
  10. (set localized (> osversion 38))
  11.  
  12. ;
  13. ;(if (not localized)
  14.     (askbool (prompt 
  15.              (cat "Gewisse Installationsoptionen wurden nicht "
  16.                   "übersetzt.\n\n"
  17.          
  18.           "Für Übersetzungen der englischen Optionen klicken "
  19.                   "Sie auf die Hilfe-Schaltfläche weiter unten.\n\n"                 
  20.  
  21.                   "Möchten Sie weiterfahren?"
  22.              ))
  23.              (help "")
  24.              (default 1)
  25.              )
  26. ;(if (not localized)
  27.   (welcome "Willkommen beim DPaint Installations-Utility. "
  28.          "Wählen Sie das Verfahren je nachem, wie "
  29.          "gut Sie den Amiga kennen.\n\n"
  30.  
  31.          "Hilfe zum Installationsverfahren\n\n"
  32.          "    Sie müssen eine Benutzerebene wählen, um mit der "
  33.          "Installation fortzufahren. Die Ebenen sind:\n\n"
  34.  
  35.          "    \"NOVICE\" = NEULING: Bei diesem Verfahren erfolgt die "
  36.          "Installation vollautomatisch. Der Benutzer braucht keine "
  37.          "Entscheidungen zu treffen. Es empfiehlt sich jedoch "
  38.          "nur für Amiga-Rechner, die nicht in irgendeiner Weise "
  39.          "modifiziert wurden, also nur für Rechner in Grundausstattung. "
  40.          "Möglicherweise müssen Disketten ausgetauscht und ein paar Eingaben "
  41.          "gemacht werden.\n\n"
  42.  
  43.          "    \"INTERMEDIATE\" = FORTGESCHRITTEN: Hier kann der Benutzer die wichtigen "
  44.          "Entscheidungen treffen, z.B. wo die Anwendung installiert werden soll. "
  45.          "Details wie das Kopieren von Dateien, das Anlegen von Verzeichnissen, "
  46.          "besorgt das Installations-Utility jedoch selbst.\n\n"
  47.  
  48.          "    \"EXPERT\" = EXPERTE: Hier werden Sie bei jedem Schritt um "
  49.          "Bestätigung gebeten (in manchen Fällen sind mehrere "
  50.          "Schritte zu einem Schritt zusammengefaßt). Außerdem "
  51.          "können Sie bestimmen, wo die einzelnen Komponenten "
  52.          "installiert werden, und im unteren Bereich gibt es "
  53.          "mehrere Schaltflächen:\n\n"
  54.  
  55.          "    \"Proceed\" = \"Weiter\" bedeutet, daß eine Benutzerebene gewählt "
  56.          "wurde und mit der Installation weitergefahren werden "
  57.          "kann.\n"
  58.          "    \"About\" = \"Über\" liefert Informationen über das "
  59.          "Installationsprogramm, Copyright und Versions-Nr., "
  60.          "Verfasser u.ä.\n"
  61.          "    \"Abort\" = \"Abbrechen\" bedeutet, daß Sie Ihre Meinung geändert "
  62.          "haben und die Anwendung im Moment nicht durchführen wollen. "
  63.          "    \"Help...\" = \"Hilfe....\" blendet diesen Text ein.\n\n"
  64. ;
  65. ; Note the following should really be assigned to @asksettings-help 
  66. ; or some other such variable; unfortunately such a variable does not exist
  67.  
  68.          (cat  
  69.            "Hilfe mit weiteren Einstellungen\n\n"
  70.            "Erläuterungen:\n"
  71.            "    \"Install For Real\" = \"Richtige Installation:\" "
  72.            "Das Installationsprogramm nimmt die Installation vor.\n"
  73.            "    \"Pretend to Install\" = \"Probe-Installation:\" "
  74.            "Das Installatinsprogramm durchläuft alle Schritte, macht "
  75.            "jedoch keine endgültigen Änderungen. Auf diese Weise können "
  76.            "Sie sich eine "Vorschau" der Installation geben lassen. "
  77.            "Sie können diese Option auch zusammen mit der \"Log-Datei\" "
  78.            "benutzen, um ein Protokoll der "Probe" zu bekommen.\n"
  79.            "    \"Printer\" = \"Drucker\" - dadurch werden alle "
  80.            "Installationsschritte über den Drucker ausgegeben.\n"
  81.            "    \"Log File\" = \"Log-Datei\" - dadurch werden alle "
  82.            "Installationsschritte in eine Log-Datei geschrieben. "
  83.            "Zum Schluß werden Sie informiert, wo sich diese Datei "
  84.            "befindet. Sie kann mit einem Texteditor gelesen werden. "
  85.            "    \"None\" = \"Nein\" - es werden keinerlei Aufzeichnungen "
  86.            "vorgenommen.\n\n\n"
  87.          )
  88.    )
  89. ;)
  90.  
  91. (if (not localized)
  92.   (set @askdisk-help 
  93.      "Zum Weiterfahren richtige Disk einlegen"
  94.   )
  95. )
  96.  
  97. (if (not localized)
  98.   (set @askdir-help
  99.      (cat "Zum Wechseln des Verzeichnisses können Sie entweder "
  100.           "einen anderen Namen in das Textfeld eingeben oder "
  101.           "einen Namen in der Liste klicken.\n"
  102.           "    Mit der Schaltfläche \"Oberverzeichnis\" können Sie "
  103.           "sich das Verzeichnis oberhalb des aktuellen ansehen.\n"
  104.           "    Die Schaltfläche \"Verzeichnis zeigen\" zeigt eine "
  105.           "Liste aller Laufwerke Ihres Systems. Durch Anklicken "
  106.           "eines Namens können Sie sich den Inhalt des "
  107.           "betreffenden Laufwerks anzeigen.\n"
  108.           "    Die Schaltfläche \"Neues Verzeichnis\" erstellt ein "
  109.           "neues Verzeichnis. Es wird im aktuell angezeigten "
  110.           "Verzeichnis abgelegt. "
  111.           "    Die Schaltfläche \"Weiter\" bedeutet, daß Sie mit dem "
  112.           "ausgewählten Verzeichnis einverstanden sind. Die "
  113.           "Schaltfläche "Abbrechen" stoppt die Installation. "
  114.           "Es werden keine weiteren Änderungen vorgenommen. "
  115.           "Hilfe blendet diesen Text ein.\n\n "
  116.      )
  117.   )
  118. )
  119.  
  120.  
  121. (if (not localized)
  122.   (set @makedir-help 
  123.      (cat "Neues Verzeichnis...\n\n"
  124.           "Geben Sie den vollständigen Pfad des neuen "
  125.           "Verzeichnisses ein. Wenn Sie nichts anderes "
  126.           "vorsehen, wird automatisch ein Icon dafür erstellt."
  127.  
  128.           "\"Create Icon for drawer\" = \"Verzeichnis-Icon\"\n\n"
  129.      )
  130.   )
  131. )
  132.  
  133. (if (not localized)
  134.     (set ASKBOOL-HELP "JA = YES, NEIN = NO")
  135.     (set ASKBOOL-HELP "")
  136. )
  137.  
  138. (set DISKPROMPT   "Bitte die Diskette einlegen mit dem Namen \"%s\"." )
  139. ;
  140.  
  141. (set SOURCE_1n "DPaintIV Installationsdisk 1")
  142. (set SOURCE_2n "DPaintIV Installationsdisk 2")
  143. (set SOURCE_1 (cat SOURCE_1n ":"))
  144. (set SOURCE_2 (cat SOURCE_2n ":"))
  145.  
  146. (set DEST_1n "DPaintIV")
  147. (set DEST_2n "Art1")
  148. (set DEST_3n "Art2")
  149. (set DEST_1 (cat DEST_1n ":"))
  150.  
  151. (set PROGNAME "DPaint")
  152. (set UNPACKER "lharc")
  153. (set PACKWIN "NIL:")
  154.  
  155. (set RUNHELP
  156.     (cat
  157.         "Die Dekomprimierung erfolgt mit LHARC. Bei dieser Methode "
  158.           "werden viele Dateien aus einer Datei entnommen."
  159.     )
  160. )
  161.  
  162. (set FORMATHELP
  163.     ("%s %s %s"
  164.           "DeluxePaint benötigt drei nicht schreibgeschützte "
  165.           "Disketten zum Formatieren und Dekomprimieren. Der "
  166.           "bisherige Inhalt dieser Disketten geht dabei verloren."
  167.     )
  168. )
  169.  
  170. (procedure ask_sourcedisk
  171.     (askdisk
  172.         (prompt ("Bitte Diskette einlegen mit der Aufschrift \"%s\"." SrcDiskE))
  173.         (help @askdisk-help)
  174.         (dest SrcDiskE)
  175.     )
  176.  
  177.     (set SrcDiskE (cat SrcDiskE ":"))
  178. )
  179.  
  180. (procedure ask_destdisk
  181.     (askdisk
  182.         (prompt ("Bitte eine leere, nicht schreibgeschützte einlegen \"%s\"." DstDiskE))
  183.         (help @askdisk-help)
  184.         (dest DstDiskE)
  185.     )
  186.  
  187.     (set DstDiskE (cat DstDiskE ":"))
  188. )
  189.  
  190. (procedure expand_basic
  191.         (set tmp (cat FileE ".LZH"))
  192.     (working ("Dekomprimierung der Datei \"%s\"" tmp))
  193.  
  194.     (run
  195.         ("%s -mn x \"ram:%s\" \"%s\" > %s" UNPACKER tmp DestF PACKWIN)
  196.         (help RUNHELP)
  197.         (prompt ("Dekomprimierung der Datei \"%s\"" tmp))
  198.         (confirm)
  199.     )
  200.  
  201.     (delete ("ram:%s" tmp))
  202. )
  203.  
  204. (procedure expand_root
  205.     (set DestF DstDiskE)
  206.     (expand_basic)
  207. )
  208.  
  209. (procedure expand_icondir
  210. ;    (debug ("DstDiskE=%s, FileE=%s\n" DstDiskE FileE))
  211.  
  212.     (set basename FileE)                    ; basename = "Colors"
  213.     (set FileE (cat FileE "_dir"))        ; FileE    = "Colors_dir"
  214.     (expand_root)
  215.  
  216.         (set tmp2 (cat DstDiskE FileE))        ; tmp2=DPaintIV:Colors_dir
  217.         (set tmp3 (tackon tmp2 basename))       ; tmp3=DPaintIV:Colors_dir/Colors
  218.         (set tmp4 (tackon DstDiskE basename))    ; tmp4=DPaintIV/Colors
  219.  
  220. ;       (debug ("tmp2=%s, tmp3=%s, tmp4=%s" tmp2 tmp3 tmp4))
  221.  
  222.         (rename tmp3 tmp4)
  223.  
  224.         (set tmp3 (cat tmp3 ".info"))
  225.  
  226.         (if (exists tmp3)
  227.         (rename tmp3 (cat tmp4 ".info"))
  228.     )
  229.  
  230.     (delete tmp2)
  231. )
  232.  
  233. (procedure format_disk
  234.     (if    (askbool
  235.             (prompt "Bitte eine neue, nicht schreibgeschützte Diskette "
  236.                 "in Laufwerk DF0 einlegen."
  237.             )
  238.             (help FORMATHELP)
  239.             (choices "Beginn der Formatierung" "Cancel")
  240.             (default 1)
  241.         )
  242.  
  243.                 (set dummy 1)
  244.         (abort "Vom Anwender abgebrochene Installation.")
  245.     )
  246.  
  247.     (set result
  248.         (run
  249.             ("ram:format DRIVE DF0: NAME \"%s\" FFS NOICONS >NIL: <ram:nl_file" SrcDiskE)
  250.             (help RUNHELP)
  251.             (prompt ("Formatierung der Diskette \"%s\"..." SrcDiskE))
  252.             (confirm)
  253.         )
  254.     )
  255.  
  256.         (if result
  257.             (abort "Fehler bei der Formatierung der Diskette.")
  258.         )
  259.  
  260.     (if    (askbool
  261.             (prompt "Formatierung abgeschlossen. Bitte Diskette aus "
  262.                 ("Laufwerk DF0 entnehmen und mit Etikett versehen \"%s\"." SrcDiskE)
  263.             )
  264.             (help FORMATHELP)
  265.             (choices "Fortfahren" "Abbruch")
  266.             (default 1)
  267.         )
  268.  
  269.                 (set dummy 1)
  270.         (abort "Vom Anwender abgebrochene Installation.")
  271.     )
  272. )
  273.  
  274. (set osversion (/ (getversion) 65536))
  275. (if (< osversion 37)
  276.     (abort    "DeluxePaint benötigt AmigaDOS 2.04 oder höher.")
  277. )
  278.  
  279. ; Make sure the user has three blank floppies handy
  280. (
  281.     (if    (askbool
  282.             (prompt "Sie benötigen drei nicht schreibgeschützte Disketten. "
  283.                     "Sämtliche Daten auf diesen Disketten WERDEN ÜBERSCHRIEBEN. "
  284.                     ""
  285.             )
  286.             (help FORMATHELP)
  287.             (choices "Weiter" "Abbruch")
  288.             (default 1)
  289.         )
  290.  
  291.                 (set dummy 1)
  292.         (abort "Vom Anwender abgebrochene Installation.")
  293.     )
  294. )
  295.  
  296. (
  297.     (set SrcDiskE SOURCE_1n)
  298.     (ask_sourcedisk)
  299.  
  300.     (copyfiles
  301.         (prompt "")
  302.         (help "")
  303.         (source (tackon SrcDiskE "nl_file"))
  304.         (dest "ram:")
  305.     )
  306.  
  307.     (copyfiles
  308.         (prompt "")
  309.         (help "")
  310.         (source (tackon SrcDiskE "System/format"))
  311.         (dest "ram:")
  312.     )
  313.  
  314.     (copyfiles
  315.         (prompt "")
  316.         (help "")
  317.         (source (tackon SrcDiskE UNPACKER))
  318.         (dest "ram:")
  319.     )
  320.  
  321.  
  322.     (copyfiles
  323.         (prompt "")
  324.         (help "")
  325.         (source (tackon SrcDiskE "Liesmich"))
  326.         (dest "ram:")
  327.         (infos)
  328.     )
  329.  
  330.     (copyfiles
  331.         (prompt "")
  332.         (help "")
  333.         (source SrcDiskE)
  334.         (pattern "#?.lzh")
  335.         (dest "ram:")
  336.     )
  337.  
  338.            (set UNPACKER (tackon "ram:" UNPACKER))
  339. )
  340.  
  341. ;format the floppies
  342.  
  343. (set SrcDiskE DEST_1n)
  344. (format_disk)
  345.  
  346. (set SrcDiskE DEST_2n)
  347. (format_disk)
  348.  
  349. (set SrcDiskE DEST_3n)
  350. (format_disk)
  351.  
  352. ; Create the Program (DPaintIV) disk
  353.  
  354. (set DstDiskE DEST_1n)
  355. (ask_destdisk)
  356.  
  357. (copyfiles
  358.     (prompt "")
  359.     (help "")
  360.     (source "ram:Liesmich")
  361.     (dest DstDiskE)
  362.     (infos)
  363. )
  364.  
  365. (delete "ram:Liesmich#?")
  366.  
  367. (set FileE "Colors")
  368. (expand_icondir)
  369.  
  370. (set FileE "Move")
  371. (expand_icondir)
  372.  
  373. (set FileE "KaraFonts")
  374. (expand_icondir)
  375.  
  376. (set FileE "DPaint")
  377. (expand_root)
  378.  
  379. (set FileE "Player")
  380. (expand_root)
  381.  
  382. (set FileE "Fonts")
  383. (expand_icondir)
  384.  
  385. (set FileE "2.0Icons")
  386. (expand_icondir)
  387.  
  388. ; Create the Pictures (Art1) disk
  389.  
  390. (set SrcDiskE SOURCE_2n)
  391. (ask_sourcedisk)
  392.  
  393. (copyfiles
  394.     (prompt "")
  395.     (help "")
  396.     (source SrcDiskE)
  397.     (pattern "#?.lzh")
  398.     (dest "ram:")
  399. )
  400.  
  401. (set DstDiskE DEST_2n)
  402. (ask_destdisk)
  403.  
  404. (set FileE "Picture")
  405. (expand_icondir)
  406.  
  407. (set FileE "Picture2")
  408. (expand_icondir)
  409.  
  410. (set FileE "Brush")
  411. (expand_icondir)
  412.  
  413. ; Create the Anim (Art2) disk
  414.  
  415. (set DstDiskE DEST_3n)
  416. (ask_destdisk)
  417.  
  418. (set FileE "Anim")
  419. (expand_icondir)
  420.  
  421. (set FileE "AnimBrush")
  422. (expand_icondir)
  423.  
  424. ;remove cached files
  425. (delete "ram:nl_file")
  426. (delete "ram:format")
  427. (delete UNPACKER)
  428.  
  429. ; Ask if the user would like to register
  430. ; his/herself by running the main program
  431. (if    (askbool
  432.         (prompt "Wollen Sie Ihre Kopie von DeluxePaint laufen lassen "
  433.                         "und mit Ihren persönlichen Datenb versehen?")
  434.         (help
  435.             "DeluxePaint muß bei der ersten Verwendung mit den persönlichen "
  436.             "Daten des Anwenders versehen werden. Sie können DeluxePaint auch "
  437.             "später laufen lassen, müssen dann aber erst die Daten eingeben."
  438.             )
  439.         (default 1)
  440.     )
  441.  
  442.     (
  443.         (set SrcDiskE DEST_1n)
  444.         (ask_sourcedisk)
  445.  
  446.         (debug ("run >NIL: <NIL: \"%s\"" (cat SrcDiskE PROGNAME)))
  447.  
  448.         (makeassign "FONTS" (cat DEST_1 "Fonts"))
  449.  
  450.         (run
  451.             ("run >NIL: <NIL: \"%s\"" (cat SrcDiskE PROGNAME))
  452.             (help RUNHELP)
  453.             (prompt "Starten von DeluxePaint")
  454.             (confirm)
  455.         )
  456.     )
  457. )
  458.  
  459. (set @default-dest SrcDiskE)
  460.  
  461. (exit)
  462.