; Install Script for Paradisio! From Drifters! By Zinko (Je Suis Lent! ;)

(COMPLETE 0)
(message "\nDRIFTERS\n"
         "INVITES YOU TO\n\n"
         "PARADISIO!\n\n"
         "This installer will create a drawer in your chosen\n"
         "destination directory called DFT-Paradisio.")

   (set @default-dest "Drifters:")
   (set dest1
      (askdir
         (prompt "\nSelect the location to install the Paradisio.\n")
           (help "Choose a destination partition or directory"
                 " to install Paradisio. The Installer will"
                 " create a directory called 'DFT-Paradisio' in the"
                 " location directory you choose and then install"
                 " Paradisio to it."
(default @default-dest))))
  
(set @default-dest (tackon dest1 "DFT-Paradisio"))
(set datadest (tackon dest1 "DFT-Paradisio/"))

(makedir @default-dest (safe) (infos))

(complete 10)


(makeassign "Paradisko" datadest)



(makedir datadest (safe))

(working "Copying unarchiver to RAM...")
(copyfiles (source "C")
           (dest "Ram:")
           (pattern "lha")
           (nogauge)
           (optional "force")
           (safe))
(copyfiles (source "C")
           (dest "Ram:")
           (pattern "Join")
           (nogauge)
           (optional "force")
           (safe))
(copyfiles (source "C")
           (dest "Ram:")
           (pattern "Assign")
           (nogauge)
           (optional "force")
           (safe))

(if (= serverMode FALSE)
    (askdisk (prompt "\nPlease make sure the 1st disk is inserted correctly.\nThe install procedure is about to continue.")
             (help @askdisk-help)
	         (dest "Paradisio-1")))

(working "Unpacking 1st archive to " datadest" ...")
(run ("RAM:lha x Paradisio-1:DFT-PAR1.lha Paradisko:"))

(delete "Paradisko:file_id.diz" (optional "force") (safe))
(delete "Paradisko:Paradisio!/DriftersShow.txt" (optional "force") (safe))

(complete 25)

(if (= serverMode FALSE)
    (askdisk (prompt "\nPlease make sure the 2nd disk is inserted correctly.\nThe install procedure is about to continue.")
             (help @askdisk-help)
	         (dest "Paradisio-2")))

(working "Unpacking 2nd archive to " datadest" ...")
(run ("RAM:lha x Paradisio-2:DFT-PAR2.lha Paradisko:"))

(delete "Paradisko:file_id.diz" (optional "force") (safe))
(delete "Paradisko:Paradisio!/DriftersShow.txt" (optional "force") (safe))
(delete "Paradisko:Paradisio!/installer" (optional "force") (safe))

(complete 50)

(if (= serverMode FALSE)
    (askdisk (prompt "\nPlease make sure the 3rd disk is inserted correctly.\nThe install procedure is about to continue.")
             (help @askdisk-help)
	         (dest "Paradisio-3")))

(working "Unpacking 3rd archive to " datadest" ...")
(run ("RAM:lha x Paradisio-3:DFT-PAR3.lha Paradisko:"))

(complete 75)

(delete "Paradisko:Paradisio!/DFT-Install" (optional "force") (safe))
(delete "Paradisko:Paradisio!/DFT-Install.info" (optional "force") (safe))


(working "Joining The Demo-Files...")
(run "ram:join Paradisko:Paradisio!/Paradisio.000 Paradisko:Paradisio!/Paradisio.001 Paradisko:Paradisio!/Paradisio.002 to Paradisko:Paradisio.exe") 

(delete "Paradisko:Paradisio!/Paradisio.000" (optional "force") (safe))
(delete "Paradisko:Paradisio!/Paradisio.001" (optional "force") (safe))
(delete "Paradisko:Paradisio!/Paradisio.002" (optional "force") (safe))

(copyfiles (source "Paradisko:Paradisio!/")
           (dest "Paradisko:")
           (all)
           (nogauge)
           (optional "force")
           (safe))

(Delete "Paradisko:Paradisio!/#?" (optional "force") (safe))

(rename "Paradisko:paradisio.icon" "Paradisko:Paradisio.info")

(Delete "Paradisko:Paradisio!" (optional "force") (safe))
(Delete "Paradisko:Paradisio!.info" (optional "force") (safe))
               
(complete 90)

(working "Deleting unarchiver from RAM...")


(run "ram:assign Paradisko: remove")

(working "Deleting unarchiver from RAM...")
(delete "Ram:lha" (optional "force") (safe))
(delete "Ram:join" (optional "force") (safe))
(delete "Ram:assign" (optional "force") (safe))

(complete 100)

(exit "\n The Installation was successful.\n\nYou can find Paradisio\nin " datadest"\n\nNow go and enjoy the party!"
      (quiet))