home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Tracker / Protracker3.61.lha / Install-Protracker / ProtrackerEngl-Install < prev   
Encoding:
Text File  |  1996-08-22  |  4.0 KB  |  174 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 "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 "Welcome to the install programm from Protracker, the classical under the trackers.\n\n")
  20. (set #destdir-prompt "Select path for Protracker install ... (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.          "Remark: The assigns to ST-00: has to do manually since "
  26.               "the suggestions that almost all musicians have that already done."
  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.         (complete 100)
  166.  
  167.  
  168.         (message    "\n\n\n"#Protracker-version-full #is-installed)
  169.         (user old-level)
  170.     )
  171.  
  172. (exit (quiet))
  173. (welcome "")
  174.