; script to install Bunnys BoingBall Bounty onto hard disk, RAM-disk or other suitable devices
; Should be run from Workbench by double-clicking on the icon

(complete 0)

(set @default-dest "Work:")

(set dest1 "")

(set dest2 (askdir 
                  (prompt "Select the location to install Bunnys Bounty. A directory called PresentDrop3 will be created.")

(default @default-dest)
(help "Choose a destination partition or directory "
      "for Bunnys Bounty.  The install "
      "program will create a directory called 'BunnysBounty' "
      "in the location you choose and copy the "
      "files to it."
      )
   )
)

(set dest1 (tackon dest2 "BunnysBounty"))

(set @default-dest dest1)

(message "Files will be installed in " dest1)

(set dest2 (tackon dest1 "data"))
          
(makedir dest1 (infos))
(if dest2 
      (makedir dest2)
          )

(working "Installing...." )
(copyfiles (source "data" (all)) (dest ("%s" dest2)))
(complete 75)
(copyfiles (source "BunnysBountyAmos.amos") (dest ("%s" dest1)))
(copyfiles (source "BunnysBountyAmos.amos.info") (dest ("%s" dest1)))
(copyfiles (source "Readme") (dest ("%s" dest1)))
(copyfiles (source "Readme.info") (dest ("%s" dest1)))

(complete 80)
(copyfiles (source "BunnysBounty") (dest ("%s" dest1)))
(complete 95)
(copyfiles (source "BunnysBounty.info") (dest ("%s" dest1)))
(complete 100)
