home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 96 / af096sub.adf / playpac.LZX / PlayPac / PlayPac.install < prev    next >
Encoding:
Text File  |  1997-02-11  |  2.5 KB  |  72 lines
  1. ;+----------------------------------------------------------------------------+
  2. ;|                                                                            |
  3. ;|                  PlayPac install script v1.01 (10-Feb-97)                  |
  4. ;|                                                                            |
  5. ;|                                                                            |
  6. ;#============================================================================#
  7.  
  8. ;******************************************************************************
  9. ;Set strings
  10. ;******************************************************************************
  11.  
  12. (set #where-prompt 
  13. (cat "Where should I install PlayPac?"
  14. ))
  15.  
  16. ;******************************************************************************
  17. ;Here we go...
  18. ;******************************************************************************
  19.  
  20. (welcome)
  21.  
  22. (if (< (/ (getversion) 65536) 39) (abort "PlayPac requires OS3.0 to run"))
  23.  
  24. ;******************************************************************************
  25. ;Ask destination directory
  26. ;******************************************************************************
  27.  
  28. (set where (askdir (prompt #where-prompt)
  29.                    (help @askdir-help)
  30.                    (default @default-dest)
  31.            )
  32. )
  33.  
  34. (set @default-dest where)
  35.  
  36. ;******************************************************************************
  37. ;Copy font
  38. ;******************************************************************************
  39.  
  40. (copyfiles (source "Fonts") (dest "SYS:Fonts") (all))
  41.  
  42. ;******************************************************************************
  43. ;Copy files
  44. ;******************************************************************************
  45.  
  46. (copyfiles (source "PlayPac") (dest where))
  47. (copyfiles (source "PlayPac.info") (dest where))
  48. (copyfiles (source "PlayPac.guide") (dest where))
  49. (copyfiles (source "PlayPac.guide.info") (dest where))
  50.  
  51. (if (exists (tackon where "PlayPacData"))
  52.   (
  53.     (foreach (tackon where "PlayPacData") "#?"
  54.       (delete (cat (tackon where "PlayPacData/") @each-name))
  55.     )
  56.     (copyfiles (source "PlayPacData")
  57.                (dest (tackon where "PlayPacData"))
  58.                (all))
  59.   )
  60.   (
  61.     (makedir (tackon where "PlayPacData"))
  62.     (copyfiles (source "PlayPacData")
  63.                (dest (tackon where "PlayPacData"))
  64.                (all))
  65.   )
  66. )
  67.  
  68. ;******************************************************************************
  69. ;That's it!
  70. ;******************************************************************************
  71.  
  72.