home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 117 / af117sub.adf / PlayHD.lzx / PlayHD / InstallPlayHD < prev    next >
Encoding:
Text File  |  1998-09-08  |  3.5 KB  |  106 lines
  1. ; $VER: Install_Installer_Guide 1.1 (16.10.94) by Gérard Cornu ;-)
  2. (complete 0)
  3. (set @default-dest "Work:")
  4.  
  5. (message (cat "\n\nWelcome to the PlayHD installation utility!\n\n\n"
  6.               "Note that PlayHD requires AHI V4 or higher.\n\n" )
  7. )
  8. (welcome)
  9.  
  10.  
  11. (set dest_dir
  12.    (askdir (prompt "Where would you like PlayHD to be installed?\n"
  13.                     "A new drawer will be created there.")
  14.            (help @askdir-help)
  15.            (default @default-dest)
  16.            (newpath))
  17. )
  18.  
  19. (set @default-dest (tackon dest_dir "PlayHD"))
  20. (makedir @default-dest)
  21. (makedir (tackon @default-dest "samples"))
  22. (makedir (tackon @default-dest "filters"))
  23. (makedir (tackon @default-dest "projects"))
  24. (makedir (tackon @default-dest "eventlists"))
  25.  
  26.  
  27. (set processor 0)
  28. (if (= (run "c:cpu check 68881") 0) (set processor 1))
  29. (if (= (run "c:cpu check 68040") 0) (set processor 1))
  30. (set processor
  31.      (askchoice (prompt "Select your processor")
  32.                 (help (cat "Select the kind of processor you have in your machine:\n\n"
  33.                       "68020: Select this if you have an '020 or '030 without FPU\n\n"
  34.                       "68020 + FPU: Select this if you have an '020 or '030 with FPU or an 68040 (not 68EC040!)\n\n"
  35.                       "68060: Select this if you have an 68060"
  36.                       )
  37.                 )
  38.                 (choices "68020" "68020 + FPU" "68060")
  39.                 (default processor)
  40.      )
  41. )
  42.  
  43. (if (= processor 0) ((set SourceName "PlayHD.020") (set SourceNameInfo "PlayHD.020.info")) )
  44. (if (= processor 1) ((set SourceName "PlayHD.020fpu") (set SourceNameInfo "PlayHD.020fpu.info")) )
  45. (if (= processor 2) ((set SourceName "PlayHD.060") (set SourceNameInfo "PlayHD.060.info")) )
  46.  
  47. (copyfiles (prompt ("Copying PlayHD to %s.\n" @default-dest))
  48.                               (source SourceName)
  49.                               (dest @default-dest)
  50.                               (confirm)
  51.                               (infos)
  52.                               (help "\nThis will copy the main PlayHD file.")
  53. )
  54.  
  55. (rename (tackon @default-dest SourceName) (tackon @default-dest "PlayHD") )
  56. (rename (tackon @default-dest SourceNameInfo) (tackon @default-dest "PlayHD.info") )
  57.  
  58.  
  59. (complete 60)
  60.  
  61. (copyfiles (prompt ("Copying PlayHD.guide to %s.\n" @default-dest))
  62.                               (source "PlayHD.guide")
  63.                               (dest @default-dest)
  64.                               (confirm)
  65.                               (infos)
  66.                               (help "\nThis will copy the PlayHD documentation.")
  67. )
  68.  
  69.  
  70. (copyfiles (prompt ("Copying History to %s.\n" @default-dest))
  71.                               (source "History")
  72.                               (dest @default-dest)
  73.                               (confirm)
  74.                               (infos)
  75.                               (help "\nThis will copy the history file.")
  76. )
  77.  
  78.  
  79. (complete 70)
  80.  
  81. (copyfiles (prompt ("Copying filters to %s.\n" (tackon @default-dest "filters") ))
  82.                               (source "filters")
  83.                               (dest (tackon @default-dest "filters"))
  84.                               (all)
  85.                               (help "\nThis will copy some example FIR-filter files.")
  86. )
  87. (complete 90)
  88.  
  89.  
  90. (copyfiles (prompt "PlayHD needs the 'Trinomic' font in the FONTS: directory.\n")
  91.            (source "fonts/")
  92.            (dest "FONTS:")
  93.            (all)
  94.            (confirm)
  95.            (help "\nThis will copy the Trinomic fonts.")
  96. )
  97.  
  98. (complete 100)
  99.  
  100. (set installed "YES")         
  101.  
  102. (if (= installed "YES") 
  103.    (exit ("\n\nThank you for installing PlayHD!"))
  104.    (exit)
  105. )   
  106.