home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Tracker / PT362FNL.LHA / Install-Protracker / ProtrackerEngl-Install < prev   
Encoding:
Text File  |  1996-10-18  |  4.9 KB  |  181 lines
  1. ;$VER: Protracker 3.62 Install 1.3 (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 "english")
  8. (set @abort-button "Abort Install")
  9. (set @error-msg "Error!")
  10. (set @pretend 0)
  11. (set @special-msg "Fatal Error!")
  12. (set @user-level 2)
  13. (set @minuser "Expert")
  14.  
  15. (set #na "\n Please read the Documentation about the installation.")
  16. (set #superior "\n Install program.\n\n")
  17. (set #rights "All Rights Reserved.\n")
  18. (set #install "Install/Update Protracker")
  19. (set #welcome "\n\nWelcome to the install programm from Protracker 3.62, the music composing program. It installs all needed files on your harddisk.\n\n Note: You MUST have had booted from HD.\n\nThis is the official Aminet release. For all german users: please use the Installer script Protracker-Install due the fact of an partially different installation. \n")
  20. (set #destdir-prompt "Select path for Protracker install ... \n(An drawer named 'Protracker' would be created)")
  21. (set #destdir-help "Install of the mainprogram and the needed additionaly files")
  22. (set #is-installed
  23.     (cat "is now installed.\n\n"
  24.         "Have fun with composing ...\n"
  25.          "Note: The assigns to ST-00: has to do manually (read the docs).\n"
  26.              "Protracker is using parts of the xpk (de)packing standart, wich is not included, but available on Aminet. For further information please read the Protracker.guide in the installed drawer or check the distribution, who the mod2smp drawer is also included (would NOT be installed, you'll check this manually.)"
  27.     )
  28. )
  29.  
  30. (run (prompt "Version") (help    #na) "C:Version Protracker/Main/Protracker FULL >ENV:Protracker.Version")
  31. (set #Protracker-version-full (getenv "Protracker.Version"))
  32. (delete (prompt "Cleanup") (help    #na) "ENV:Protracker.Version"    (optional force))
  33.  
  34. (user 2)
  35.  
  36.        (
  37.      (message #welcome)
  38.     (set ptdir
  39.       (askdir
  40.         (prompt #destdir-prompt)
  41.         (help #destdir-help)
  42.         (default "SYS:")
  43.         (disk)
  44.         )
  45.     )
  46.  
  47.     (set pt-dir (tackon ptdir "ProTracker") )
  48.  
  49.     (if (not (exists pt-dir) )
  50.       ( (makedir pt-dir) ) )
  51.     (if (not (exists (tackon pt-dir "ProTracker.info") ) )
  52.       (copyfiles (source "Protracker/ICON/Drawer.info") (dest ptdir) (newname "Protracker.info") ) )
  53.     (complete 15)
  54.  
  55.     (set ptdir (tackon ptdir "ProTracker"))
  56.     (set @default-dest ptdir)
  57.  
  58.  
  59.     (set pt-oldfile (tackon ptdir "ProTracker") )
  60.     (set oldptver (/ (getversion pt-oldfile) 65536) )
  61.     (set oldptrev (- (getversion pt-oldfile) (* oldptver 65536) ) )
  62.     (if (<> oldptver 0)
  63.  
  64.     (set action
  65.       (askchoice
  66.         (set str (cat str "Already installed Protracker file: " oldptver ",Rev. " oldptrev))
  67.             (prompt str)
  68.         (help #na)
  69.         (choices "Overwrite" "Skip")
  70.       ))
  71.     )
  72.     (copyfiles
  73.         (prompt "Installing 68030 main program ...")
  74.         (help #na)
  75.         (source "ProTracker/Main/Protracker")
  76.         (dest ptdir)
  77.         (protect "ptdir/ProTracker" "+rwed")
  78.     )
  79.         (complete 20)
  80.  
  81.         (copyfiles
  82.             (prompt "Installing 68030 Icon ...")
  83.             (help #na)
  84.             (source "ProTracker/Icon/project.info")
  85.             (dest ptdir)
  86.             (newname "ProTracker.info")
  87.         )
  88.         (complete 30)
  89.  
  90.     (copyfiles
  91.         (prompt "Installing 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 "Installing 68000 Icon ...")
  101.             (help #na)
  102.             (source "ProTracker/Icon/project2.info")
  103.             (dest ptdir)
  104.             (newname "ProTracker_000.info")
  105.         )
  106.  
  107.  
  108.         (copyfiles
  109.             (prompt "Installing userguide ...")
  110.             (help #na)
  111.             (source "ProTracker/Main/Protracker.guide")
  112.             (dest ptdir)
  113.         )
  114.         (complete 40)
  115.  
  116.         (copyfiles
  117.             (prompt "Installing Icon ...")
  118.             (help #na)
  119.             (source "ProTracker/ICON/DOC.info")
  120.             (dest ptdir)
  121.             (newname "Protracker.guide.info")
  122.         )
  123.         (complete 50)
  124.  
  125.  
  126.         (set pt-dir (tackon ptdir "Docs"))
  127.         (if (<> (exists pt-dir) 2) (makedir pt-dir ))
  128.         (copyfiles
  129.             (prompt "Copying Sources & Docs ...")
  130.             (help #na)
  131.             (source "ProTracker/DOCS")
  132.             (dest pt-dir)
  133.             (pattern "#?")
  134.             (infos)
  135.             (optional nofail askuser)
  136.         )
  137.         (complete 80)
  138.  
  139.  
  140.  
  141.         (if (exists "LIBS:")
  142.             (copylib
  143.                 (prompt "Installing MOD2SMP files...")
  144.                 (help #na)
  145.                 (source "ProTracker/LIBS/mod2smp.library")
  146.                 (dest "LIBS:")
  147.         (protect "LIBS:mod2smp.library" "+rwed")
  148.             )
  149.         )
  150.  
  151.  
  152.         (complete 90)
  153.         (user 2)
  154.         (copyfiles
  155.             (prompt "\nAlso copying these pre-defined user-prefs?\n")
  156.             (help #na)
  157.             (source "ProTracker/Data")
  158.             (dest "S:")
  159.             (pattern "pt.config#?")
  160.             (infos)
  161.             (confirm)
  162.         )
  163.  
  164.  
  165.     (copyfiles (prompt "\nInstallation Onlinehelp s:pt.help?\n") (help #prefsfiles) (source "ProTracker/Data") (dest "S:") (pattern "pt.help#?") (infos) (confirm) )
  166.     (complete 96)
  167.  
  168.     (copyfiles (prompt "\nInstallation external keyboard driver s:pt.keymap?\n") (help #prefsfiles) (source "ProTracker/Data") (dest "S:") (pattern "pt.key#?") (infos) (confirm) )
  169.     (complete 97)
  170.  
  171.  
  172.         (complete 100)
  173.  
  174.  
  175.         (message    "\n\n\n"#Protracker-version-full #is-installed)
  176.         (user old-level)
  177.     )
  178.  
  179. (exit (quiet))
  180. (welcome "")
  181.