home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 29 / amigaformatcd29.iso / -screenplay- / shareware / playpac / playpac.install < prev    next >
Text File  |  1998-06-01  |  4KB  |  134 lines
  1. ;+----------------------------------------------------------------------------+
  2. ;|                                                                            |
  3. ;|                  PlayPac install script v1.10 (1-Oct-97)                   |
  4. ;|                                                                            |
  5. ;|                                                                            |
  6. ;#============================================================================#
  7.  
  8. ;******************************************************************************
  9. ;Set strings
  10. ;******************************************************************************
  11.  
  12. (set #where-prompt 
  13. (cat "Where should I install PlayPac?"))
  14.  
  15. (set #abort-message
  16. (cat "PlayPac requires OS3.0 to run"))
  17.  
  18. (set #gfxdata-prompt
  19. (cat "Do you want to install Hires64 graphic files?"))
  20.  
  21. (set #gfxdata-help
  22. (cat "Hires64 graphics require AGA chipset. To use Hires64 data files in game set PlayPac's tooltype GRAPHICSDATA=HIRES64.")
  23. )
  24.  
  25. ;******************************************************************************
  26. ;Here we go...
  27. ;******************************************************************************
  28.  
  29. (welcome)
  30.  
  31. (if (< (/ (getversion) 65536) 39) (abort #abort-message))
  32.  
  33. ;******************************************************************************
  34. ;Ask destination directory
  35. ;******************************************************************************
  36.  
  37. (set where (askdir (prompt #where-prompt)
  38.                    (help @askdir-help)
  39.                    (default @default-dest)
  40.            )
  41. )
  42.  
  43. (set @default-dest where)
  44.  
  45. ;******************************************************************************
  46. ;Ask graphic data choice
  47. ;******************************************************************************
  48.  
  49. (set gfxchoice (askbool (prompt #gfxdata-prompt)
  50.                         (help #gfxdata-help)
  51.                         (choices "Yes" "No")
  52.                         (default 1)
  53.                )
  54. )
  55.  
  56. ;******************************************************************************
  57. ;Create destination directories (or delete old files)
  58. ;******************************************************************************
  59.  
  60. (if (exists (tackon where "PlayPacData/"))
  61.   (
  62.     (foreach (tackon where "PlayPacData/") "#?"
  63.     (delete (cat (tackon where "PlayPacData/") @each-name)))
  64.   )
  65.   (
  66.     (makedir (tackon where "PlayPacData"))
  67.   )
  68. )
  69.  
  70. (if (exists (tackon where "PlayPacData/Lores16/"))
  71.   (
  72.     (foreach (tackon where "PlayPacData/Lores16/") "#?"
  73.     (delete (cat (tackon where "PlayPacData/Lores16/") @each-name)))
  74.   )
  75.   (
  76.     (makedir (tackon where "PlayPacData/Lores16"))
  77.   )
  78. )
  79.  
  80. (if (= gfxchoice 1) ;Hires64 selected
  81.   (if (exists (tackon where "PlayPacData/Hires64/"))
  82.     (
  83.       (foreach (tackon where "PlayPacData/Hires64/") "#?"
  84.       (delete (cat (tackon where "PlayPacData/Hires64/") @each-name)))
  85.     )
  86.     (
  87.       (makedir (tackon where "PlayPacData/Hires64"))
  88.     )
  89.   )
  90. )
  91.  
  92. (if (exists (tackon where "PlayPacData/Sound/"))
  93.   (
  94.     (foreach (tackon where "PlayPacData/Sound/") "#?"
  95.     (delete (cat (tackon where "PlayPacData/Sound/") @each-name)))
  96.   )
  97.   (
  98.     (makedir (tackon where "PlayPacData/Sound"))
  99.   )
  100. )
  101.  
  102. ;******************************************************************************
  103. ;Copy files
  104. ;******************************************************************************
  105.  
  106. (copyfiles (source "Fonts/") (dest "SYS:Fonts") (all))
  107.  
  108. (copyfiles (source "PlayPac") (dest where))
  109. (copyfiles (source "PlayPac.info") (dest where))
  110. (copyfiles (source "PlayPac.guide") (dest where))
  111. (copyfiles (source "PlayPac.guide.info") (dest where))
  112.  
  113. (copyfiles (source "PlayPacData/Lores16/")
  114.            (dest (tackon where "PlayPacData/Lores16/"))
  115.            (all)
  116. )
  117.  
  118. (if (= gfxchoice 1) ;Hires64 selected
  119.   (copyfiles (source "PlayPacData/Hires64/")
  120.              (dest (tackon where "PlayPacData/Hires64/"))
  121.              (all)
  122.   )
  123. )
  124.  
  125. (copyfiles (source "PlayPacData/Sound/")
  126.            (dest (tackon where "PlayPacData/Sound/"))
  127.            (all)
  128. )
  129.  
  130. ;******************************************************************************
  131. ;That's it!
  132. ;******************************************************************************
  133.  
  134.