; Monsoon Beta Install Script V1.01 (28.11.97)
; © 1996 Gary Colville
;

; -- SET UP STRINGS ---------------------------------------
(set MSG_ASKDEST "Where would you like Monsoon to be installed?\nA drawer called Monsoon will be created.")
(set MSG_COPY "Please Wait - Copying Files\n")
(set MSG_THANKS "Monsoon Beta now installed!\n")
(set mondir "")


; -- GET DESTINATION DIR ----------------------------------
(set dest_dir
  (tackon
   (askdir (prompt MSG_ASKDEST ) 
                   (help @askdir-help)
                   (default @default-dest)
   )
   "Monsoon"
  )
)


; -- MAKE DIRECTORIES --------------------------------------
(set @default-dest dest_dir)      
(makedir dest_dir (infos))
(makedir (tackon dest_dir "Areas"))
(makedir (tackon dest_dir "Docs"))
(makedir (tackon dest_dir "Data"))
(makedir (tackon dest_dir "Rexx"))


; -- COPY FILES --------------------------------------------
(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Monsoon")
           (dest dest_dir)
           (infos)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Monsoon.Guide")
           (dest dest_dir)
           (infos)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "C/Punarc")
           (dest "C:")
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "S/Punarc.Cfg")
           (dest "S:")
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Libs/Config.Library")
           (dest "Libs:")
)


(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "MUI")
           (dest "MUI:Libs/mui")
           (all)
)

(exit MSG_THANKS)
(exit)