;$VER: Radio Active HD-Installer

  (welcome)
  (complete 0)
(message "\n\n\nwElCoMe tO\n\ndREAMTHEME's\n\n--=> rADIO ACTIVe <=--\n\nMuSiCdIsK")




  (set @default-dest (getassign "RadioActive" "dva"))

  (if (= @default-dest "")
   ((set @default-dest (getassign "Work" "dva"))
    (if (= @default-dest "") (set @default-dest (getassign "SYS" "dva")))
    (set @default-dest (askdir (prompt "Please select a drive or drawer where\nRadio Active should be installed!\nA drawer will be created there.")
    (help "In this location a drawer will be created. All files except the libraries and the font will be installed inside this drawer.")
    (default @default-dest)))
    (set @default-dest (tackon @default-dest "RadioActive"))
   )
   ((set bool (askbool (prompt "Installing Radio Active in\n" @default-dest) (default 1) (help @askbool-help)))
    (if (= bool 0)
     ((set @default-dest (getassign "SYS" "dva"))
      (set @default-dest (askdir (prompt "Please select a drive or drawer where\nRadio Active should be installed!\nA drawer will be created there.")
      (help "In this location a drawer will be created.")
      (default @default-dest)))
      (set @default-dest (tackon @default-dest "RadioActive"))
      (makedir (@default-dest "RadioActive")(infos))
     )
    )
   )
  )

(complete 14)
(copyfiles (prompt "Installing Radio Active")
(source "Radioactive.exe")
(dest @default-dest)
)
(copyfiles (prompt "Installing Radio Active")
(source "RA")
(dest @default-dest)
(infos)
)
 (message "Please insert Radio Active Disk 1 into drive DF0:")
 (run ("d2f \"%s/RA01\"" @default-dest))
 (complete 29)
 (message "Please insert Radio Active Disk 2 into drive DF0:")
 (run ("d2f \"%s/RA02\"" @default-dest))
 (complete 42)
 (message "Please insert Radio Active Disk 3 into drive DF0:")
 (run ("d2f \"%s/RA03\"" @default-dest))
 (complete 57)
 (message "Please insert Radio Active Disk 4 into drive DF0:")
 (run ("d2f \"%s/RA04\"" @default-dest))

(if (= 1 (askbool (prompt "Do you own DREAMTHEME'S Flying Waves Musicdisk, too?") (help "Hilfe")))
(
 (complete 713)
 (message "Please insert Flying Waves Disk 1 into drive DF0:")
 (run ("d2f \"%s/FW01\"" @default-dest))
 (complete 85)
 (message "Please insert Flying Waves Disk 2 into drive DF0:")
 (run ("d2f \"%s/FW02\"" @default-dest))
 (complete 100)
 (message "You can change to Flying Waves using SPACE in Mainmenu")
 )
 (message "You can Iconify Radio Active by pressing ESC in Menu")
)
 (complete 100)