; Chorus Installer Utility
;
; This script is Copyright © 1995 by Gerd Feldkirch & Bastian Spiegel

(set @askicons
 (cat "\n\n\n\n\n"
      "  If you want to install the MagicWB-icons, you will\n"
      "   have to run a Screenmode with at least 8 colors!\n"
))

(set @askdemosongs
 (cat "\n\n\n\n\n"
      "           If you have few Diskspace left,\n"
      "            don't install the Demosongs ! "
))

(set @asknohelp
 (cat "\n\n\n\n\n\n"
      "                    No help here..."
))

(complete 0)

(set destination
  (askdir 
   (prompt "Select Chorus directory...")
   (help @askdir-help)
   (default "?:")                              ; <--- Ha! That's it !!! =^)
  )
)

(set @default-dest destination)
(makeassign "AONn" @default-dest) 

(makedir "AONn:Blankermodules"
 (prompt "Creating directory: Blankermodules")
)
(complete 6)


(copyfiles
 (prompt "Installing Chorus...")
 (help @copyfiles-help)
 (source "Chorus:")
 (dest "AONn:")
 (choices "Chorus" "Chorus.config" "ReadMe.txt")
)
(complete 27)

(copyfiles
 (prompt "Installing Blankermodules...")
 (help @copyfiles-help)
 (source "Chorus:blankermodules")
 (dest "AONn:Blankermodules")
 (all)
)
(complete 41)


(set request
 (askbool
  (prompt "\n\n\n\n\n\n"
          "Do you want to install the FM-Sounds ?")
  (help @asknohelp)
  (default 1)
 )
)
(if (= request 1) 
 (copyfiles
  (prompt "Installing FM-Sounds...")
  (help @copyfiles-help)
  (source "Chorus:fm-sounds")
  (dest "AONn:FM-Sounds")
  (all)
 )
)
(complete 55)


(set request
 (askbool
  (prompt "\n\n\n\n\n\n"
          "Do you want to install the DemoSongs ?")
  (help @askdemosongs)
  (default 1)
 )
)
(if (= request 1)
 (copyfiles
  (prompt "Installing DemoSongs...")
  (help @copyfiles-help)
  (source "Chorus:DemoSongs")
  (dest "AONn:DemoSongs")
  (all)
 )
)
(complete 67)



(set request
 (askbool
  (prompt "\n\n\n\n\n\n"
          "Do you want to install the Instruments ?")
  (help @asknohelp)
  (default 1)
 )
)
(if (= request 1)
 (copyfiles
  (prompt "Installing Instruments...")
  (help @copyfiles-help)
  (source "Chorus:Instruments")
  (dest "AONn:Instruments")
  (all)
 )
)
(complete 80)




(set request
 (askbool
  (prompt "\n\n\n\n\n\n"
          "Do you want to install the MagicWB-Icons?")
  (help @askicons)
  (default 0)
 )
)
(if (= request 0)
 (copyfiles
  (prompt "Installing Chorus-Icons...")
  (help @copyfiles-help)
  (source "Chorus:Chorus.info")
  (dest "AONn:")
 )
)
(if (= request 1)
 (copyfiles
  (prompt "Installing Chorus-Icon...")
  (help @copyfiles-help)
  (source "Chorus:MagicWBIcon")
  (newname "Chorus.info")
  (dest "AONn:")
 )
)
(if (= request 0)
 (copyfiles
  (prompt "Installing Text-Icons...")
  (help @copyfiles-help)
  (source "Chorus:ReadMe.txt.info")
  (dest "AONn:")
 )
)
(if (= request 1)
 (copyfiles
  (prompt "Installing Text-Icon...")
  (help @copyfiles-help)
  (source "Chorus:MagicWBtxt")
  (newname "ReadMe.txt.info")
  (dest "AONn:")
 )
)

(copyfiles
 (prompt "Installing Chorus.Font...")
 (help @copyfiles-help)
 (source "Chorus:fonts")
 (dest "FONTS:")
 (all)
)
(complete 91)

(copylib
 (prompt "Installing diskfont.library...") 
 (help @copylib-help)
 (source "Chorus:libs/diskfont.library")
 (dest "LIBS:")
)
(complete 98)

(copylib
 (prompt "Installing powerpacker.library...") 
 (help @copylib-help)
 (source "Chorus:libs/powerpacker.library")
 (dest "LIBS:")
)
(complete 99)

(copylib
 (prompt "Installing reqtools.library...") 
 (help @copylib-help)
 (source "Chorus:libs/reqtools.library")
 (dest "LIBS:")
)
(complete 100)



(exit
 (cat "Have fun !!!")
)