home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 25 / GNOME_DEMO.iso / amiga / music / pt3_61.lzx / Install-Protracker / Protracker-Install next >
Text File  |  1997-02-18  |  4KB  |  176 lines
  1. ;$VER: Protracker 3.61 Install 1.2 (18.8.96)
  2. ;⌐ 1996 Tom Beyer
  3.  
  4. (set #install-version "3.61")
  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.  
  15. (set #na "\n Lesen Sie die Dokumentation betreffs Hilfe.")
  16. (set #superior "\n Installationsprogramm.\n\n")
  17. (set #rights "Alle Rechte vorbehalten.\n")
  18. (set #install "Install/Update Protracker")
  19. (set #welcome "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")
  20. (set #destdir-prompt "Wohin soll das Hauptprogramm installiert werden (Ordner mit Namen 'ProTracker' wird erzeugt)?")
  21. (set #destdir-help "Das Protracker-Hauptprogramm sowie einige Zusatzdateien werden nach Ihrer Wahl installiert, wobei eine neue Schublade namens 'Protracker' dort erzeugt wird")
  22. (set #is-installed
  23.     (cat "ist nun installiert.\n\n"
  24.         "Viel Spa▀ beim Komponieren\n"
  25.     )
  26. )
  27.  
  28. (run (prompt "Version") (help    #na) "C:Version Protracker/Main/Protracker FULL >ENV:Protracker.Version")
  29. (set #Protracker-version-full (getenv "Protracker.Version"))
  30. (delete (prompt "Cleanup") (help    #na) "ENV:Protracker.Version"    (optional force))
  31.  
  32. (user 2)
  33.  
  34.        (
  35.      (message #welcome)
  36.     (set ptdir
  37.       (askdir
  38.         (prompt #destdir-prompt)
  39.         (help #destdir-help)
  40.         (default "SYS:")
  41.         (disk)
  42.         )
  43.     )
  44.  
  45.     (set pt-dir (tackon ptdir "ProTracker") )
  46.  
  47.     (if (not (exists pt-dir) )
  48.       ( (makedir pt-dir) ) )
  49.     (if (not (exists (tackon pt-dir "ProTracker.info") ) )
  50.       (copyfiles (source "Protracker/ICON/Drawer.info") (dest ptdir) (newname "Protracker.info") ) )
  51.     (complete 15)
  52.  
  53.     (set ptdir (tackon ptdir "ProTracker"))
  54.     (set @default-dest ptdir)
  55.  
  56.  
  57.     (set pt-oldfile (tackon ptdir "ProTracker") )
  58.     (set oldptver (/ (getversion pt-oldfile) 65536) )
  59.     (set oldptrev (- (getversion pt-oldfile) (* oldptver 65536) ) )
  60.     (if (<> oldptver 0)
  61.  
  62.     (set action
  63.       (askchoice
  64.         (set str (cat str "Bereits existierende Version in dieser Schublade: " oldptver ",Rev. " oldptrev))
  65.             (prompt str)
  66.         (help #na)
  67.         (choices "▄berschreiben" "Nicht ⁿberschreiben")
  68.       ))
  69.     )
  70.     (copyfiles
  71.         (prompt "Installiere 68030 Hauptprogramm ...")
  72.         (help #na)
  73.         (source "ProTracker/Main/Protracker")
  74.         (dest ptdir)
  75.         (protect "ptdir/ProTracker" "+rwed")
  76.     )
  77.         (complete 20)
  78.  
  79.         (copyfiles
  80.             (prompt "Installiere 68030 Piktogramm ...")
  81.             (help #na)
  82.             (source "ProTracker/Icon/project.info")
  83.             (dest ptdir)
  84.             (newname "ProTracker.info")
  85.         )
  86.         (complete 30)
  87.  
  88.  
  89.  
  90.     (copyfiles
  91.         (prompt "Installiere 68000 main program ...")
  92.         (help #na)
  93.         (source "ProTracker/Main/Protracker_000")
  94.         (dest ptdir)
  95.         (protect "ptdir/ProTracker_000" "+rwed")
  96.     )
  97.         (complete 35)
  98.  
  99.         (copyfiles
  100.             (prompt "Installiere 68000 Icon ...")
  101.             (help #na)
  102.             (source "ProTracker/Icon/project2.info")
  103.             (dest ptdir)
  104.             (newname "ProTracker_000.info")
  105.         )
  106.  
  107.  
  108.  
  109.         (copyfiles
  110.             (prompt "Installiere deutsche Anleitung ...")
  111.             (help #na)
  112.             (source "ProTracker/Main/PT361deutsch.guide")
  113.             (dest ptdir)
  114.             (newname "Protracker.guide")
  115.         )
  116.         (complete 40)
  117.  
  118.         (copyfiles
  119.             (prompt "Installiere Piktogramm ...")
  120.             (help #na)
  121.             (source "ProTracker/ICON/DOC.info")
  122.             (dest ptdir)
  123.             (newname "Protracker.guide.info")
  124.         )
  125.         (complete 50)
  126.  
  127.  
  128.         (set pt-dir (tackon ptdir "Docs"))
  129.         (if (<> (exists pt-dir) 2) (makedir pt-dir ))
  130.         (copyfiles
  131.             (prompt "Kopiere Sources & Docs ...")
  132.             (help #na)
  133.             (source "ProTracker/DOCS")
  134.             (dest pt-dir)
  135.             (pattern "#?")
  136.             (infos)
  137.             (optional nofail askuser)
  138.         )
  139.         (complete 80)
  140.  
  141.  
  142.  
  143.         (if (exists "LIBS:")
  144.             (copylib
  145.                 (prompt "Installiere MOD2SMP Dateien...")
  146.                 (help #na)
  147.                 (source "ProTracker/LIBS/mod2smp.library")
  148.                 (dest "LIBS:")
  149.         (protect "LIBS:mod2smp.library" "+rwed")
  150.             )
  151.         )
  152.  
  153.  
  154.         (complete 90)
  155.         (user 2)
  156.         (copyfiles
  157.             (prompt "\nSollen die predefinierten Voreinstellungen auch installiert werden?\n")
  158.             (help #na)
  159.             (source "ProTracker/Data")
  160.             (dest "S:")
  161.             (pattern "pt.config#?")
  162.             (infos)
  163.             (confirm)
  164.         )
  165.  
  166.  
  167.         (complete 100)
  168.  
  169.  
  170.         (message    "\n\n\n"#Protracker-version-full #is-installed)
  171.         (user old-level)
  172.     )
  173.  
  174. (exit (quiet))
  175. (welcome "")
  176.