home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / PICACC.DMS / in.adf / PicAccess-Install.de < prev    next >
Encoding:
Text File  |  1994-04-15  |  10.6 KB  |  316 lines
  1. ;
  2. ;PicAccess Installation-Script
  3. ;
  4. ;$VER: Install-Script 1.0 (05 Apr 1994) by MvK
  5. ;
  6. ;©1993 by DTM all rights revserved.
  7. ;
  8. ;**** Global variables and definitons ****
  9.  
  10. (set Disk1   "PicAccess-Disk")
  11. (set Disk1:  (cat Disk1 ":"))
  12. (set EGSSysDir "EGS:")
  13.  
  14.  
  15. ;*** First thing to do anyway - is this system at least running 2.04 ?
  16. (if
  17.     (< (/ (getversion) 65536) 37)
  18.     (
  19.         (abort "Sie benötigen mindestens AmigaOS 2.04, um die EGS-Software installieren zu können.")
  20.     )
  21. )
  22.  
  23.  
  24. ;*** now, check for the newer version of EGS with an EGS: assignment
  25.  
  26. (if (= 0 (exists "EGS:" (noreq)))
  27. (
  28.     (set InstSystem
  29.         (askbool
  30.         (prompt "Es wurde kein logische Gerät 'EGS:' in Ihrem System gefunden.\n"
  31.                 "Es scheint, als wäre das EGS-System Ihrem System nicht vorhanden.\n\n"
  32.                 "WARNUNG: Für das Programm PicAccess benötigen "
  33.                 "Sie ein Installierten Amiga mit dem EGS-System! ")
  34.  
  35.         (help "In Ihrem System wurde ein kein logisches Gerät mit dem Namen 'EGS' entdeckt.\n"
  36.               "Das heißt das auf Ihrem Amiga kein EGS-System installiert ist. "
  37.               "Um das Programm PicAccess setzt ein EGS-System voraus, Sie "
  38.               "können das EGS-System mit der Grafikkarte Spectrum von DTM "
  39.               "in Dreiherrenstein 6a, 65207 Wiesbaden, Tel: 06127 /4065 beziehen."
  40.               )
  41.         (default 1)
  42.             )
  43.     )
  44.     (if (= 0 InstSystem)
  45.     (
  46.         (message  "Die alte existierende Software wurde nicht verändert! "
  47.                   "Sie können den Installer neustarten, nachdem Sie "
  48.                   "die EGS-Software (System) installiert haben.")
  49.         (exit (quiet))
  50.     )
  51.     )
  52. )
  53. ; else...install for sure
  54.     (
  55.         (set InstSystem 1)
  56.     )
  57. )
  58.  
  59. ;*** Selection of EGS-System-drawer ***
  60. (set @default-dest EGSSysDir)
  61.  
  62. (message "\n\nSoll jetzt mit der eigentlichen Installation begonnen werden ?\n\n"
  63.          "Es sind dafür mindestens etwa 2 MByte freier Festplatten Platz nötig.")
  64.  
  65. (set diskfree (getdiskspace EGSSysDir))
  66. (if (< diskfree neededspace)(
  67.   (set MSG  (cat "Fehler: Sie benötigen für eine minimale Installation der "
  68.                  "EGS-Software mindestens %ld Bytes freien Plattenplatz. Soviel Platz "
  69.                  "ist auf der angegebenen Festplatte/Partition %s aber anscheinend nicht mehr "
  70.                  "frei. \n" ))
  71.  
  72.   (abort (MSG neededspace EGSSysDir) )
  73. ))
  74.                                              ;*** Test sys: Space
  75. ;*** create EGS top level directory
  76. ;(makedir (tackon EGSSysDir PicDir)
  77. ;    (prompt  "Erzeuge EGS:PA-Main Software-Verzeichnis.")
  78. ;    (help    "Jetzt wird das Hauptverzeichnis für das Programm PicAccess angelegt. ")
  79. ;    (infos)
  80. ;    (confirm "expert")
  81. ;)
  82.  
  83.  
  84. ;*** Ask user to insert disk 1 ***
  85. (askdisk
  86.     (prompt "Bitte legen Sie " Disk1 " in ein beliebiges Laufwerk...")
  87.     (help @askdisk-help)
  88.     (dest Disk1)
  89. )
  90.  
  91. ;*** Copy LHARC to RAM ***
  92. (copyfiles
  93.     (confirm "expert")
  94.     (prompt  "Kopiere Dateien nach T:.")
  95.     (source   Disk1:)
  96.     (choices "bin")
  97.     (dest    "t:")
  98.     (help    "Es werden für Installation von EGS Programme"
  99.              "für das Entpacken der LHA-Files ins Verzeichnis"
  100.              "T: kopiert !")
  101. )
  102.  
  103.  
  104. ;****
  105. ;**** Unarchive PicAccess-Files
  106. ;****
  107.  
  108. (If (exists "egs:")
  109.     (
  110.  
  111.      ;*** Ask user to insert disk 2 ***
  112.      (askdisk
  113.          (prompt "Bitte legen Sie " Disk1 " in ein beliebiges Laufwerk...")
  114.          (help @askdisk-help)
  115.          (dest Disk1)
  116.      )
  117.  
  118.         (working "Installiere PicAccess ...")
  119.         (if (= @user-level 2)
  120.             (
  121.                 (set ReallyInst
  122.                     (askbool
  123.                         (prompt "Archiv 'PicAccess.lha' nach " EGSSysDir " entpacken ?")
  124.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  125.                             "Installation von 'EGS' überspringen.")
  126.                         (choices "Ja" "Nein")
  127.                     )
  128.                 )
  129.             )
  130.             (set ReallyInst 1)
  131.         )
  132.  
  133.         (if (= ReallyInst 1)
  134.             (
  135.                 (set @execute-dir EGSSysDir)
  136.                     (if (= @user-level 2)
  137.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk1: "PicAccess"))
  138.                         (set hjob (cat "t:bin/lz -2 -m e " Disk1: "PicAccess"))
  139.                     )
  140.  
  141.                 (set lzrc (run hjob
  142.                                (prompt "Entpacke Archiv 'PicAccess.lha' nach" EGSSysDir ".")
  143.                           )
  144.                 )
  145.                 (if (<> lzrc 0)
  146.                     (message "Fehler beim Dekomprimieren von PicAccess.lha!")
  147.                 )
  148.             )
  149.         )
  150.  
  151. ;*** unarchive Pics
  152.  
  153.         (working "Installiere PicAccess Bilder")
  154.         (if (= @user-level 2)
  155.             (
  156.                 (set ReallyInst
  157.                     (askbool
  158.                         (prompt "Archiv 'Pics.lha' nach " EGSSysDir " entpacken ?")
  159.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  160.                             "Installation von 'EGS' überspringen.")
  161.                         (choices "Ja" "Nein")
  162.                     )
  163.                 )
  164.             )
  165.             (set ReallyInst 1)
  166.         )
  167.  
  168.         (if (= ReallyInst 1)
  169.             (
  170.                 (set @execute-dir EGSSysDir)
  171.                     (if (= @user-level 2)
  172.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk1: "Pics"))
  173.                         (set hjob (cat "t:bin/lz -2 -m e " Disk1: "Pics"))
  174.                     )
  175.  
  176.                 (set lzrc (run hjob
  177.                                (prompt "Entpacke Archiv 'Pics.lha' nach" EGSSysDir ".")
  178.                           )
  179.                 )
  180.                 (if (<> lzrc 0)
  181.                     (message "Fehler beim Dekomprimieren von Pics.lha!")
  182.                 )
  183.             )
  184.         )
  185.  
  186. ;*** Pic-Library
  187.  
  188.         (working "Installiere Pic.library ...")
  189.         (if (= @user-level 2)
  190.             (
  191.                 (set ReallyInst
  192.                     (askbool
  193.                         (prompt "Soll die Pic.library wird nach 'libs:' kopiert werden? ")
  194.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  195.                             "Installation der 'Pic.library' überspringen. "
  196.                             "Die 'Pic:library' enthält die Bildlade-Module für "
  197.                             "das Programm PicAccess!")
  198.                         (choices "Ja" "Nein")
  199.                     )
  200.                 )
  201.             )
  202.             (set ReallyInst 1)
  203.         )
  204.  
  205.         (if (exists "libs:pic.library")
  206.              (set InstSystem
  207.                 (askbool
  208.                 (prompt "Es wurde die 'pic.library' im 'LIBS:'-Verzeichnis gefunden!\n"
  209.                     "Es scheint, als wäre bereits ein altes EGS-System "
  210.                     "auf Ihrem Rechner installiert.\n\nWARNUNG: Dieses alte EGS-System wird "
  211.                     "jetzt gelöscht, um Versionskonflikten vorzubeugen.")
  212.              (help  "In Ihrem System wurde eine (alte) 'pic.library' in 'LIBS:' gefunden. "
  213.                     "Dies kann zu Kollisionen der verschiedenen Versionen der Bibliotheken "
  214.                     "führen; es ist darum dringend anzuraten, die alten Bibliotheken zu löschen.")
  215.                 (default 1)
  216.                 )
  217.             )
  218.         )
  219.  
  220.         (if (= 0 InstSystem)
  221.         (
  222.             (message  "Die alte existierende EGS-Software wurde nicht verändert! "
  223.                       "Sie können den Installer neustarten, nachdem Sie "
  224.                       "von Ihrer EGS-Software ein Backup gemacht haben.")
  225.             (exit (quiet))
  226.         ))
  227.  
  228.         (if (= 1 InstSystem)
  229.         (
  230.             (delete "libs:pic.library")
  231.             (run "c:delete libs:PicFormats#? all")
  232.         ))
  233.  
  234.         (if (exists "EGS:Libs/pic.library")
  235.              (set InstSystem
  236.                 (askbool
  237.                 (prompt "Es wurde die 'pic.library' im 'EGS:LIBS'-Verzeichnis gefunden!\n"
  238.                     "Es scheint, als wäre bereits ein altes EGS-System "
  239.                     "auf Ihrem Rechner installiert.\n\nWARNUNG: Dieses alte EGS-System wird "
  240.                     "jetzt gelöscht, um Versionskonflikten vorzubeugen.")
  241.              (help  "In Ihrem System wurde eine (alte) 'pic.library' in 'EGS:LIBS:' gefunden. "
  242.                     "Dies kann zu Kollisionen der verschiedenen Versionen der Bibliotheken "
  243.                     "führen; es ist darum dringend anzuraten, die alten Bibliotheken zu löschen.")
  244.                 (default 1)
  245.                 )
  246.             )
  247.         )
  248.  
  249.         (if (= 0 InstSystem)
  250.         (
  251.             (message  "Die alte existierende EGS-Software wurde nicht verändert! "
  252.                       "Sie können den Installer neustarten, nachdem Sie "
  253.                       "von Ihrer EGS-Software ein Backup gemacht haben.")
  254.             (exit (quiet))
  255.         ))
  256.  
  257.         (if (= 1 InstSystem)
  258.         (
  259.             (delete "EGS:Libs/pic.library")
  260.             (run "c:delete EGS:Libs/PicFormats#? all")
  261.         ))
  262.  
  263.         (if (= ReallyInst 1)
  264.             (
  265.                 (set @execute-dir "EGS:Libs")
  266.                 (copylib
  267.                         (prompt "Kopiere Libs/pic.library nach EGS:Libs !")
  268.                         (source "PicAccess-Disk:libs/pic.library")
  269.                         (dest   "EGS:Libs")
  270.                         (confirm "expert")
  271.                         (help    "Es wird die pic.library kopiert !")
  272.                 )
  273.                 (copyfiles
  274.                         (prompt "Kopiere libs/PicFormats nach EGS:Libs !")
  275.                         (source "PicAccess-Disk:libs/PicFormats")
  276.                         (dest   "EGS:libs/PicFormats")
  277.                         (all)
  278.                         (confirm "expert")
  279.                         (help    "Es werden die pic.library module kopiert !")
  280.                 )
  281.             )
  282.         )
  283.    )
  284. )
  285.  
  286. ;*** Install assign PicAccess in userstartup
  287.  
  288. (
  289.    (startup  "EGS-PicAccess"
  290.    (prompt   "Füge in der s:user-Startup 'assign PicAccess:' ein.")
  291.    (set      PD (expandpath EGSSysDir))
  292.    (set      PD (cat PD "/PA-Main"))
  293.    (command  "Assign PicAccess: " PD)
  294.    (help     @startup-help))
  295. )
  296. (set @default-dest PD)
  297.  
  298. ;(copyfiles
  299. ;        (prompt "Kopiere Anleitung nach EGS:PA-Main")
  300. ;        (source "PicAccess-Disk:Anleitung")
  301. ;        (dest   "EGS:PA-Main")
  302. ;        (all)
  303. ;        (infos)
  304. ;        (confirm "expert")
  305. ;        (help "Es wird die PicAccess-Kurzanleitung kopiert !")
  306. ;)
  307.  
  308. ;*** Ask user to reboot ***
  309. (complete 100)
  310. (message "Die System-Software für die Spectrum-Grafikkarte ist nun installiert. \n"
  311.          "Bitte führen Sie nun einen RESET durch, damit die gemachten Einstellungen "
  312.          "wirksam werden !!!\n\n Viel Spaß mit Ihrer Bilddatenbank PicAccess !!!")
  313.  
  314. (run "PicAccess-Disk:bin/Reboot")
  315. (exit)
  316.