home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Tracker / PT362FNL.LHA / Install-Protracker / Protracker-Install < prev    next >
Encoding:
Text File  |  1996-10-18  |  7.3 KB  |  183 lines
  1. ;$VER: Protracker 3.62 Install 1.4 (17.10.96)
  2. ;© 1996 Tom Beyer
  3.  
  4. (set #install-version "3.62")
  5. (set old-level @user-level)
  6. (set @app-name "Protracker")
  7. (set @language "deutsch")
  8. (set @abort-button "Installation abbrechen")
  9. (set @error-msg "Fehler!")
  10. (set @pretend 0)
  11. (set @special-msg "Schwerer Fehler!")
  12. (set @user-level 2)
  13. (set @minuser "Expert")
  14. (set @user-level 2)
  15.  
  16. (set #na "\n Lesen Sie die Dokumentation betreffs Hilfe.")
  17. (set #superior "\n Installationsprogramm.\n\n")
  18. (set #rights "Alle Rechte vorbehalten.\n")
  19. (set #install "Install/Update Protracker")
  20.  
  21. (set #destdir-prompt "Wohin soll das Hauptprogramm installiert werden\n (Ein Ordner mit Namen 'ProTracker' wird erzeugt)?")
  22. (set #destdir-help "Das Protracker-Hauptprogramm sowie einige Zusatzdateien werden nach Ihrer Wahl installiert, wobei eine neue Schublade namens 'Protracker' dort erzeugt wird")
  23. (set #prefsfiles "Falls Sie bisher mit Protracker-Versionen vor V3.58 gearbeitet haben bzw. eine Neuinstallation vornehmen, erhalten Sie hiermit zwei sinnvolle Voreinstellungen, wobei die Datei mit der Endung '00' automatisch bei jedem Programmstart eingelesen wird.\n\nSollten Sie bereits mit Programmversionen nach V3.58 gearbeitet und Voreinstellungen gespeichert haben, überschreibt dieser Installationspunkt, wenn Sie ihn nicht übergehen, Ihre alten Voreinstellungen.")
  24. (set #is-installed
  25.     (cat "ist nun installiert.\n\n"
  26.         "Viel Spaß beim Komponieren\n"
  27.     )
  28. )
  29.  
  30. (if (= @installer-version 0)
  31.   (message "\n\nSie benötigen mindestens den Installer V42.9 von Amiga Technologies, da einige Punkte dieser Installation darauf abgestimmt sind.\n\n Es wurde eine ältere Installer-Version gestartet. Trotzdem fortfahren?")
  32. )
  33.  
  34. (set cpu (database "cpu"))
  35. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  36.  
  37. (if (and (<> cpu "68000") (<> cpu "68010") )
  38.   (set cpu-install 0) )
  39. (if (and (<> "NOFPU" (database "fpu") (= cpu-install 0) ) )
  40.   (set cpu-install 1) )
  41.  
  42. (run (prompt "Version") (help    #na) "C:Version Protracker/Main/Protracker FULL >ENV:Protracker.Version")
  43. (set #Protracker-version-full (getenv "Protracker.Version"))
  44. (delete (prompt "Cleanup") (help    #na) "ENV:Protracker.Version"    (optional force))
  45.  
  46. (set instvers @installer-version)
  47. (set installerversion (/ instvers 65536))
  48.  
  49.  
  50.     (
  51.      (message "Willkommen zum Installationsprogramm von Protracker, dem Klassiker der Trackerprogramme.\n\nBeachten Sie bitte:\nInstallieren Sie Protracker UNBEDINGT mit diesem Installskript, um spätere unliebsame Überraschungen zu vermeiden.\n\nErkannte CPU: " cpu "\nInstaller-Version: " installerversion "\n\nZu installierender Protracker: \n" #Protracker-version-full)
  52.  
  53.  
  54.     (set cpu-install
  55.      (askchoice
  56.  
  57.        (if (= cpu-install 1)
  58.          (set #agcpu "Ab einer 68020´er CPU können Sie die die optimierte Protracker-Variante installieren, was bei Ihnen zutrifft. Welche Version wollen Sie installieren?\n\n")
  59.        )
  60.        (if (= cpu-install 0)
  61.          (set #agcpu "Sie benutzen eine 68000´er CPU.")
  62.        )
  63.        (prompt #agcpu)
  64.        (choices "68000´er Version" "68030´er Version")
  65.        (help "Die an schnellere Prozessoren angepaßte Version hat Vorteile in Bezug auf verschiedene Berechnungen des Programmes sowie eine genauere 32Bit-Kalkulation. Wenn Sie im Besitz mindestens einer 68020'er CPU sind, sollten Sie also unbedingt den Protracker 030 installieren.")
  66.        (default cpu-install)))
  67.  
  68.  
  69.        (set ptdir
  70.         (askdir
  71.           (prompt #destdir-prompt)
  72.           (help #destdir-help)
  73.           (default "SYS:")
  74.           (disk)
  75.         )
  76.        )
  77.  
  78.        (set pt-dir (tackon ptdir "ProTracker") )
  79.  
  80.        (if (not (exists pt-dir) )
  81.         ( (makedir pt-dir) ) )
  82.  
  83.        (if (not (exists (tackon pt-dir "ProTracker.info") ) )
  84.          (copyfiles (source "Protracker/ICON/Drawer.info") (dest ptdir) (newname "Protracker.info") )
  85.        )
  86.        (complete 15)
  87.  
  88.       (set ptdir (tackon ptdir "ProTracker"))
  89.       (set @default-dest ptdir)
  90.  
  91.  
  92.       (set pt-oldfile (tackon ptdir "ProTracker") )
  93.       (set vernum  (getversion pt-oldfile))
  94.       (set oldptver (/ vernum 65536))
  95.       (set oldptrev (- (getversion pt-oldfile) (* oldptver 65536) ) )
  96.       (if (<> oldptver 0)
  97.  
  98.         (set action
  99.           (askchoice
  100.             (set str (cat str "Bereits existierende Version in dieser Schublade: Vers. " oldptver " ,Rev. " oldptrev))
  101.                 (prompt str)
  102.             (help @askchoice-help)
  103.             (choices "Überschreiben" "Nicht überschreiben")
  104.           )
  105.         )
  106.       )
  107.  
  108.     (if (= action 0)
  109.     (if (= cpu-install 1)
  110.      (copyfiles (prompt "Installiere 68030 Hauptprogramm ...") (help @copyfiles-help) (source "ProTracker/Main/Protracker") (dest ptdir) (infos) (protect "ptdir/ProTracker" "+rwed") )
  111.     ))
  112.     (if (= action 0)
  113.     (if (= cpu-install 1)
  114.      (copyfiles (prompt "Installiere 68030 Piktogramm ...") (help @copyfiles-help) (source "ProTracker/Icon/project.info") (dest ptdir) (newname "ProTracker.info") (infos) )
  115.     ))
  116.     (if (= action 0)
  117.     (if (= cpu-install 0)
  118.          (copyfiles (prompt "Installiere 68000 main program ...") (help @copyfiles-help) (source "ProTracker/Main/Protracker_000") (dest ptdir) (newname "ProTracker") (infos) (protect "ptdir/ProTracker" "+rwed") )
  119.     ))
  120.     (if (= action 0)
  121.     (if (= cpu-install 0)
  122.      (copyfiles (prompt "Installiere 68000 Icon ...") (help @copyfiles-help) (source "ProTracker/Icon/project.info") (dest ptdir) (infos) (newname "ProTracker.info") )
  123.     ))
  124.      (copyfiles (prompt "Installiere deutsche Anleitung ...") (help @copyfiles-help) (source "ProTracker/Main/PT362deutsch.guide") (dest ptdir) (newname "Protracker.guide") )
  125.       (complete 40)
  126.  
  127.      (copyfiles (prompt "Installiere Piktogramm ...") (help @copyfiles-help) (source "ProTracker/ICON/DOC.info") (dest ptdir) (newname "Protracker.guide.info") )
  128.        (complete 50)
  129.  
  130.  
  131.      (set pt-dir (tackon ptdir "Docs"))
  132.      (if (<> (exists pt-dir) 2) (makedir pt-dir ))
  133.        (copyfiles (prompt "Kopiere Sources & Docs ...") (help @copyfiles-help) (source "ProTracker/DOCS") (dest pt-dir) (pattern "#?") (infos) (optional nofail askuser) )
  134.          (complete 80)
  135.  
  136.  
  137.  
  138.     (set mvernum  (getversion "LIBS:mod2smp.library"))
  139.     (set msoldptver (/ mvernum 65536))
  140.     (set msoldptrev (- (getversion "LIBS:mod2smp.library") (* msoldptver 65536) ) )
  141.     (if (<> msoldptver 0)
  142.  
  143.     ;(set #msname "libs:mod2smp.library")
  144.     ;(if (exist #msname (noreq) )
  145.  
  146.     (set action
  147.       (askchoice
  148.         (set stra (cat stra "Bereits existierende Version der mod2smp.library: Vers. " msoldptver " ,Rev. " msoldptrev))
  149.             (prompt stra)
  150.         (help @copyfiles-help)
  151.         (choices "Überschreiben" "Nicht überschreiben")
  152.       )
  153.      )))
  154.  
  155.     (if (= action 0)
  156.      (copyfiles (prompt "Installiere MOD2SMP Dateien...") (help @copyfiles-help) (source "ProTracker/LIBS") (dest "LIBS:") (pattern "#?.library") (infos) (optional nofail askuser) (protect "LIBS:mod2smp.library" "+rwed") )
  157.     )
  158.     (complete 90)
  159.     (user 2)
  160.     (copyfiles (prompt "\nSollen die predefinierten Voreinstellungen auch installiert werden?\n") (help #prefsfiles) (source "ProTracker/Data") (dest "S:") (pattern "pt.config#?") (infos) (confirm) )
  161.     (complete 95)
  162.  
  163.     (copyfiles
  164.           (prompt "\nInstallation der Online-Hilfe s:pt.help?\n")
  165.           (help #prefsfiles)
  166.           (source "ProTracker/Data")
  167.           (dest "S:")
  168.           (pattern "pt.help#?")
  169.           (infos)
  170.           (confirm)
  171.         )
  172.     (complete 96)
  173.  
  174.     (copyfiles (prompt "\nInstallation des externen Keyboardtreiber s:pt.keyboard?\n") (help #prefsfiles) (source "ProTracker/Data") (dest "S:") (pattern "pt.key#?") (infos) (confirm) )
  175.     (complete 97)
  176.  
  177.  
  178.     (message    "\n\n\n"#Protracker-version-full #is-installed)
  179.     (user old-level)
  180.  
  181. (exit (quiet))
  182. (welcome "")
  183.