home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Misc / PGS-ART1.DMS / in.adf / ArtEffect Install-Script next >
Encoding:
Text File  |  1996-06-19  |  12.5 KB  |  420 lines
  1. ;*************************************************************************
  2. ;*  ArtEffect Installer Version 1.0 19 Juni 1996                         *
  3. ;*                                                                       *
  4. ;*  Installer Revision by Jürgen Haage                                   *
  5. ;*  ©1996 HAAGE & PARTNER Computer GmbH                                  *
  6. ;*                                                                       *
  7. ;*  If you have any installer questions please let us know!              *
  8. ;*                                                                       *
  9. ;*************************************************************************
  10. ;
  11. ; $VER: ArtEffect V1.0 Install Version 1.0 (19.6.96)
  12.  
  13. (complete 0)
  14.  
  15. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  16. ; Versionen.
  17.  
  18. (set stw-version "1.0.1")
  19. (set stw-date "(14 Juni 96)")
  20.  
  21. ;====================================================================
  22. ; Initialisierungen
  23.  
  24. (set @default-dest "")
  25.  
  26. (set os-version (/ (getversion) 65536))
  27. (set os-13 (< os-version 36))
  28. (set os-20 (>= os-version 36))
  29. (set os-21 (>= os-version 38))
  30.  
  31. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  32.  
  33. (set size-komplett    3000000)
  34.  
  35. ;====================================================================
  36. ; Initialisierungen
  37.  
  38.     (set #yeskey "Ja")
  39.     (set #nokey "Nein")
  40.  
  41.     (set #wrongos "\n Sorry, dieses Paket benoetigt mind. OS2.04.\n")
  42.  
  43. (set #welcome (cat    "\nWillkommen bei der Installation von \n\n"
  44.                "ArtEffect\n"
  45.                     "" stw-version " vom "stw-date"\n\n"
  46.                     "Dieses Skript entpackt ArtEffect, kopiert\n"
  47.                     "die aktuelle BGUI-Library auf Ihre Festplatte\n"
  48.                     "und erzeugt einen Assign.\n\n\n"
  49.                     "© Copyright 1996 HAAGE & PARTNER Computer GmbH"))
  50.  
  51.     (set #oldversion (cat "\n"
  52.         "Auf Ihrer Festplatte befindet sich bereits    \n"
  53.         "eine Installation von ArtEffect!            \n"
  54.         ))
  55.  
  56.     (set #oldversion_help (cat "\n"
  57.         "Wählen Sie einfach die bereits vorhandene     \n"
  58.         "Schublade an, wenn Sie ihr altes System       \n"
  59.         "aktualisieren möchten!                          "
  60.         ))
  61.     (set #new    "Neu installieren")
  62.     (set #update "Update über bisherige Version installieren")
  63.     (set #remove "Deinstallation - ArtEffect entfernen")
  64.  
  65.     (set #chose_path (cat
  66.         "Auswahl des Pfades für die Installation       \n"
  67.         "Bitte wählen Sie ein Laufwerk oder eine Schub-\n"
  68.         "lade! Eine Schublade \"ArtEffect\" wird auto- \n"
  69.         "matisch erzeugt.                                "
  70.         ))
  71.  
  72.     (set #chose_path_help (cat  "\n"
  73.         "Sie können über das Symbol 'Laufwerke anz.'   \n"
  74.         "(bzw. 'Show drives') eine Übersicht über alle \n"
  75.         "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
  76.         "Übersicht sollten Sie nur die oberen, nicht   \n"
  77.         "farblich gekennzeichneten Einträge auswählen. \n"
  78.         "Typische sinnvolle Namen sind z.B. \"WORK:\", \n"
  79.         "\"HD0:\" oder \"DH0:\" nicht verwenden sollten\n"
  80.         "Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\",   \n"
  81.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", \n"
  82.         "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"! \n"
  83.         "                                              \n"
  84.         "                                              \n"
  85.         "ArtEffect kann nur in eine Schublade nicht aber\n"
  86.         "auf eine Partition direkt installiert werden! \n"
  87.         "Wenn Sie also nur ein Laufwerk für die        \n"
  88.         "Installation auswählen, wird Ihnen eine       \n"
  89.         "Fehlermeldung angezeigt!\n\n"
  90.         @askdir-help))
  91.  
  92.     (set #auswahlhilfe (cat "\n"
  93.         "Auf Ihrer Festplatte befindet sich bereits    \n"
  94.         "eine Version der Datei die installiert werden \n"
  95.         "soll.                                         \n"
  96.         "                                              \n"
  97.         "Wählen Sie \"Ja\", wenn Sie die alte Datei mit\n"
  98.         "der neuen überschreiben möchten.              \n"
  99.         "Anderenfalls wählen Sie bitte \"Nein\"!       \n"
  100.         ))
  101.  
  102.     (set #wrk_justamoment (cat "\n"
  103.         "Das dauert eine geraume Zeit.                 \n"
  104.         "Bitte haben Sie etwas Geduld!                 \n"
  105.         ))
  106.  
  107.     (set #wrk_guidecrunch (cat "\n"
  108.         "Entpacke das Gestaltungssystem...             \n"
  109.         "                                              \n"
  110.         "ArtEffect - Bildbearbeitung                   \n"
  111.         "                                              \n"
  112.         #wrk_justamoment
  113.         ))
  114.  
  115.     (set #decrunch_error (cat "\n"
  116.         "                                              \n"
  117.         "Fehler beim Entpacken!                        \n"
  118.         "                                              \n"
  119.         "Stellen Sie bitte sicher, daß Ihre Festplatte \n"
  120.         "ausreichend Speicherkapazität hat, und, falls \n"
  121.         "die Dateien bereits vorhanden sind diese nicht\n"
  122.         "Lösch- oder Schreibgeschützt sind.            \n"
  123.         ))
  124.  
  125.                     
  126. (set #prp-copy-lib
  127.     "Kopiere die BGUI-LIBRARY\n")
  128. (set #hlp-copy-lib
  129.     "Ohne die aktuelle Version der BGUI-Library, funktioniert nichts!")
  130.  
  131.     (set #prp-insert-disk1 (cat "\n"
  132.         "\n\nBitte legen Sie nun die Diskette 1 \"ArtEffect_Disk1\" "
  133.         "in ein beliebiges Laufwerk ein!"
  134.         ))
  135.  
  136.     (set #prp-insert-disk2 (cat "\n"
  137.         "\n\nBitte legen Sie nun die Diskette 2 \"ArtEffect_Disk2\" "
  138.         "in ein beliebiges Laufwerk ein!"
  139.         ))
  140.  
  141.     
  142. ; ----------------------------- Prozeduren ------------------------------
  143.  
  144. (Procedure Make_Folder
  145.     (
  146.     (set folder (tackon folder "ArtEffect"))
  147.         (if (= (exists folder) 0)
  148.             (
  149.             (makedir folder (infos))
  150.             )
  151.             (
  152.             (set update 1)        ; // Doch schon vorhanden!
  153.             )
  154.         )
  155.     )
  156. )
  157.  
  158. ; // Die Pfadnamen der einzelnen Quell-Dateien.
  159. (set source-more                    "ArtEffect_Disk1:C/More")
  160. (set source-lhx                     "ArtEffect_Disk1:C/LHex")
  161. (set source-Guide                   "ArtEffect_Disk1:LIESMICH")
  162.  
  163. (set archive-ArtEffect1            "ArtEffect_Disk1:ARTEFFECT1.LHA")
  164. (set archive-ArtEffect2            "ArtEffect_Disk2:ARTEFFECT2.LHA")
  165.  
  166. ;=====================================================================================
  167. ; Beginn der Installation
  168. ;=====================================================================================
  169.  
  170. ; // wird min. unter 2.04 installiert ?
  171.  
  172. (if (< (/ (getversion) 65536) 37)
  173.  
  174.     (
  175.         (message #wrongos)
  176.  
  177.         (exit (quiet))
  178.     )
  179. )
  180.  
  181. ; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  182.  
  183. (set act-user-level @user-level)
  184. (user 1)
  185.  
  186. (message #welcome)
  187.  
  188. (user act-user-level)
  189. (welcome)
  190.  
  191.  
  192. (complete 5)
  193.  
  194. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  195.  
  196. (set update   0)
  197.  
  198. ;(if (exists "ArtEffect:" (noreq)) 
  199. ;    (
  200. ;        (set update 
  201. ;            (askchoice
  202. ;                (prompt #oldversion)
  203. ;                (help   #oldversion_help)
  204. ;                (default 1)
  205. ;                (choices
  206. ;                    #new
  207. ;                    #update
  208. ;                    #remove
  209. ;                )
  210. ;            )
  211. ;        )
  212. ;    )
  213. ;)
  214.  
  215. (set act-user-level @user-level)
  216. (user 1)
  217.  
  218. (set folder "WORK:ArtEffect")
  219.  
  220. (if (<> update 0)                        ; // altes Assign benutzen wenn update oder remove
  221.     (
  222.         (set folder (getassign "ArtEffect"))
  223.     )
  224. )
  225.  
  226. (user act-user-level)
  227.  
  228. (if (= update 0)
  229.     (
  230.     (set ok 0)
  231.         (while (not ok)
  232.             (set folder
  233.                 (askdir
  234.                 (prompt #chose_path)
  235.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  236.                 (default folder)
  237.                 (disk)
  238.                 )
  239.             )
  240.  
  241.             (Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  242.  
  243.     (set #dir_error (cat  "\n"
  244.         "Bei Ihrer Auswahl \"" folder "\" handelt es   \n"
  245.         "sich nicht um eine gültige Schublade!         \n"
  246.         "                                              \n"
  247.         "Sie können über das Symbol 'Laufwerke anz.'   \n"
  248.         "(bzw. 'Show drives') eine Übersicht über alle \n"
  249.         "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
  250.         "Übersicht sollten Sie nur die oberen, nicht   \n"
  251.         "farblich gekennzeichneten Einträge auswählen. \n"
  252.         "Über den Schalter \"Neue Schublade anlegen..\"\n"
  253.         "können Sie ein neue Schublade erzeugen. Diese \n"
  254.         "neue Schublade wird auf der Partition        \n"
  255.         "angelegt, die Sie soeben betrachten."
  256.         ))
  257.  
  258.     (set #memory_error (cat  "\n"
  259.         "Auf der ausgewählten Festplattenpartition     \n"
  260.         "steht nicht genügend freier Speicher für die  \n"
  261.         "komplette Installation des Compilersystems zur\n"
  262.         "Verfügung.                                    \n"
  263.         "                                              \n"
  264.         "Freier Speicher " freediskspace "!            \n"
  265.         "Benötigter Speicher " size-komplett "!        \n"
  266.         "                                              \n"
  267.         "Bitte wählen Sie eine andere Partition, auf   \n"
  268.         "der entsprechende Kapazitäten vorhanden sind!"
  269.         ))
  270.  
  271.  
  272.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  273.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  274.             ; // kann die Auswahl-Schleife beendet werden.
  275.             (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  276.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  277.                 ;else
  278.                 (
  279.                     (set freediskspace (getdiskspace folder))  ; // Der freie Speicher auf diesem Medium
  280.                     (if (< freediskspace size-komplett)
  281.                         (
  282.                         (user 1)
  283.                             (message #memory_error)  ; // nicht genügend freier Speicher
  284.                         )
  285.                      ;else
  286.                         (set ok 1)
  287.                     )
  288.                 )
  289.             )
  290.         )
  291.     )
  292. )
  293.  
  294. (makeassign "ArtEffect")
  295.  
  296. (user act-user-level)
  297.  
  298. ;// Hier Update-Prozedur einbauen
  299. ;
  300. ;(if (= update 1))
  301. ;    
  302.  
  303. ; // Diskette 1 einlegen!
  304.  
  305. (askdisk
  306.     (prompt #prp-insert-disk1)
  307.     (help #askdir-help)
  308.     (dest "ArtEffect_Disk1")
  309. )
  310.  
  311. (complete 10)
  312.  
  313. ; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  314. ; // geladen werden muß.
  315.  
  316. (copyfiles
  317.     (source source-lhx)
  318.     (dest "RAM:")
  319. )
  320.  
  321. ; // Handbuch auf Festplatte kopieren!
  322.  
  323. (copyfiles
  324.     (source source-Guide)
  325.     (dest folder)
  326.     (infos)
  327. )
  328.  
  329. (makeassign "ArtEffect" folder)
  330.  
  331. (run "run ArtEffect_Disk1:C/More ArtEffect:Liesmich")
  332.  
  333. ;=================== Alle 1. ArtEffect-Dateien =====================================================
  334. (complete 20)
  335.  
  336. ; Bildverarbeitung entpacken
  337.  
  338. (makeassign "lhex_temp" folder)
  339.  
  340.   (working #wrk_guidecrunch)
  341.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-ArtEffect1))
  342.   (if  ( <> COMPERROR 0)
  343.      (message #decrunch_error)
  344.   )
  345.  
  346. (complete 50)
  347. ;==================================================================================
  348.  
  349. ; // Diskette 2 einlegen!
  350.  
  351. (askdisk
  352.     (prompt #prp-insert-disk2)
  353.     (help #askdir-help)
  354.     (dest "ArtEffect_Disk2")
  355. )
  356.  
  357. ;=================== Alle 2. ArtEffect-Dateien =====================================================
  358.  
  359. ; Bildverarbeitung entpacken
  360.  
  361. (makeassign "lhex_temp" folder)
  362.  
  363.   (working #wrk_guidecrunch)
  364.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-ArtEffect2))
  365.   (if  ( <> COMPERROR 0)
  366.      (message #decrunch_error)
  367.   )
  368.  
  369.  
  370. ;==================================================================================
  371.  
  372. (complete 80)
  373. ; BGUI.Library in die Libs-Schublade kopieren!
  374.  
  375. (set sourcelib (tackon folder "DIVERSES/BGUI.library"))
  376.  
  377. (copylib
  378.     (prompt #prp-copy-lib)
  379.     (help #hlp-copy-lib)
  380.     (source sourcelib)
  381.     (dest "LIBS:")
  382.     (confirm)
  383. )
  384.  
  385. (complete 95)
  386.  
  387. ; ------- STARTUP ÄNDERN
  388.  
  389. (set command1 (cat  "ASSIGN ArtEffect: " folder " DEFER"))
  390.  
  391. (set command1.txt
  392.     (cat 
  393.          "\n\n\nUm mit ArtEffect richtig arbeiten zu "
  394.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  395.          command1
  396.     )
  397. )
  398.  
  399. (startup "ArtEffect"
  400.     (prompt command1.txt)
  401.     (help #help-startup)
  402.     (command command1)
  403. )
  404.  
  405. (makeassign "ArtEffect")
  406. ;(makeassign "ArtEffect" (pathonly @icon))
  407. (makeassign "ArtEffect" folder)
  408.  
  409. (delete "RAM:LHeX")
  410.  
  411. (complete 100)
  412.  
  413. ; ------- FERTIG
  414.  
  415. (message (cat 
  416.     "\nInstallation von ArtEffect beendet.\n\n"
  417.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  418.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  419.    "\n\nWir wünschen ihnen viel Erfolg mit ArtEffect!")
  420. )