home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 96
/
af096sub.adf
/
playpac.LZX
/
PlayPac
/
PlayPac.install
< prev
next >
Wrap
Text File
|
1997-01-11
|
3KB
|
72 lines
;+----------------------------------------------------------------------------+
;| |
;| PlayPac install script v1.01 (10-Feb-97) |
;| |
;| |
;#============================================================================#
;******************************************************************************
;Set strings
;******************************************************************************
(set #where-prompt
(cat "Where should I install PlayPac?"
))
;******************************************************************************
;Here we go...
;******************************************************************************
(welcome)
(if (< (/ (getversion) 65536) 39) (abort "PlayPac requires OS3.0 to run"))
;******************************************************************************
;Ask destination directory
;******************************************************************************
(set where (askdir (prompt #where-prompt)
(help @askdir-help)
(default @default-dest)
)
)
(set @default-dest where)
;******************************************************************************
;Copy font
;******************************************************************************
(copyfiles (source "Fonts") (dest "SYS:Fonts") (all))
;******************************************************************************
;Copy files
;******************************************************************************
(copyfiles (source "PlayPac") (dest where))
(copyfiles (source "PlayPac.info") (dest where))
(copyfiles (source "PlayPac.guide") (dest where))
(copyfiles (source "PlayPac.guide.info") (dest where))
(if (exists (tackon where "PlayPacData"))
(
(foreach (tackon where "PlayPacData") "#?"
(delete (cat (tackon where "PlayPacData/") @each-name))
)
(copyfiles (source "PlayPacData")
(dest (tackon where "PlayPacData"))
(all))
)
(
(makedir (tackon where "PlayPacData"))
(copyfiles (source "PlayPacData")
(dest (tackon where "PlayPacData"))
(all))
)
)
;******************************************************************************
;That's it!
;******************************************************************************