; Hillsea Lido Hard Disk Install script


(complete 0)

(set name
  (askdir
    (prompt "Please select the directory where you\n"
            "would like to install Hillsea Lido"
            "NOTE: Make the directory before installing!"
            "Ex. Makedir Work:Games/HillseaLido")
    (help @askdir-help)
    (default "Work:Games/")
  )
)

(set fullname (cat name "HillseaLido"))

(makedir fullname)

(set fullname (cat fullname "/"))


(textfile
   (prompt "Creating executable script")
   (help "This script file must be executed either from CLI or WorkBench to run the game.")
   (dest (cat fullname "HillseaLidoHD"))
   (append (cat "Assign DISK1: " fullname))
   (append "\n")
   (append (cat "Assign DISK2: " fullname))
   (append "\n")
   (append (cat "cd " fullname))
   (append "\n")
)

(copyfiles
   (prompt "Copying Disk 1 files to %s" fullname)
   (help "The installer is currently copying the files from Disk 2 to %s. There is nothing to fear." name)
   (source "DISK1:")
   (dest fullname)
   (all)
)

(complete 50)

(askdisk
   (prompt "Please insert Disk 2")
   (help "The installer now needs Disk Two to complete the installation.")
   (dest "DISK2")
)

(copyfiles
   (prompt "Copying Disk 2 files to %s" fullname)
   (help "The installer is currently copying the files from Disk 1 to %s. There is nothing to fear." name)
   (source "DISK2:")
   (dest fullname)
   (all)
)

(complete 100)