; IFX V2.00 Example Sounds
;

;START

(welcome "About to install\nExample Sounds for IFX")
(set @app-name "Sounds")
(set @default-dest "SYS:")

(set #soundsdir
   (askdir
      (prompt "Where would you like me\nto install the sounds?")
      (help "Find the directory where\nyou would like\nto save the example\nsoundset, and press\nProceed.\n")
      (default "SYS:Prefs/Sounds")
      )
   )

(copyfiles
   (prompt ("Copying Example Sounds to:\n" #soundsdir))
   (help "Make sure all boxes\nare checked and press \nProceed.\n")
   (source "")
   (pattern "~(Install#?)")
   (dest #soundsdir)
   )         

(complete 50)
(if (askbool
      (prompt "Okay to add IDS file to S:IFX.ids?\nNote: the IDs already there" 
              "will be KEPT")
      (help "Press Yes, or, if you\nonly want the example sounds\nwithout configuration, Press \nNo")
      (default 1)
      )
   (
   (textfile
      (dest "RAM:IFX.ids")
      (append "defprefsdir ")
      (append #soundsdir)
      (append "\n")
      (include "S:IFX.ids")
      (include "IFX.ids")
      )
   (copyfiles
        (source "RAM:IFX.ids")
        (dest "S:")
        )
   )
   )