;
;  Roketz HD Install script V1.0
;

(set @default-dest "Work:")	


(welcome (message "\n\n\nThis little script will help you to Install "
                  "Roketz to Your hard disk. Just follow the instructions." 
                  "Note that if you have PD version installed "
                  "in your HD then you could select this directory. " 
                  "Installer will take care of everything then.") 
)


(complete 0)
(set dest2 (askdir  (prompt "Select the directory in which you would\n"
                            "like Roketz files to be copied."
                    )
                          (default @default-dest)
                          (help "No help")
                )
     )


(set dest1 (tackon dest2 ""))

(if (<> (exists dest2) 2) (makedir dest2 (infos)))

     
     (set @default-dest dest1)    
 
(set version (/ (getversion) 65536))
     (message "\n\n\n\nAll files needed for Roketz will be copied to the\n'" dest1 "'\nDrawer or partition!" 
)

(complete 5)
(set kas 0)
	    
(if (exists (tackon dest1 "Edekad.MFB"))

(set kas
	(askbool
		(prompt "\n\nThe directory you have selected contains "
			"Hall-of-Fame file for Roketz PD. Do you want to "
	                "delete your pilot files and hall-of-fame?\n\n"
	                "If you select [Delete 'em] then all your Pilot-"
	                "files and records will be deleted. If you "
        	        "select [Keep 'em] then you have an "
                	"opportunity to play with same Pilot-files "
	                "and keep your Hall-of-Fame from PD version."  
        	)
		(help "N/A")
		(choices "Delete 'em" "Keep 'em")
		(default 0)
	)
)
)


(if (= 1 kas)
 (delete (tackon dest1 "edekad.mfb"))
)

(if (= 1 kas)
 (run (cat "Delete ALL " (tackon dest1 "pilots")))
)

(working "Cheking...")

(delete (tackon dest1 "MF_Rextra1.DAT"))
(delete (tackon dest1 "MF_Rextra2.DAT"))
(delete (tackon dest1 "MF_Rlevel1.DAT"))
(delete (tackon dest1 "MF_Rlevel2.DAT"))
(delete (tackon dest1 "MF_Roket1.DAT"))
(delete (tackon dest1 "MF_Roket2.DAT"))
(delete (tackon dest1 "readme"))
(delete (tackon dest1 "readme.info"))
(delete (tackon dest1 "roketzpd"))
(delete (tackon dest1 "roketzpd.info"))
(delete (tackon dest1 "RP_Eq3.DAT"))
(delete (tackon dest1 "RP_Eq4.DAT"))
(delete (tackon dest1 "RP_frm.DAT"))
(delete (tackon dest1 "RP_gfx.DAT"))
(delete (tackon dest1 "RP_kel.DAT"))
(delete (tackon dest1 "RP_mus.DAT"))
(delete (tackon dest1 "RP_ram.DAT"))
(delete (tackon dest1 "RP_sfx.DAT"))
(delete (tackon dest1 "RP_tit.DAT"))
(delete (tackon dest1 "RP_val.DAT"))
(delete (tackon dest1 "PDmsf.DAT"))
(delete (tackon dest1 "RP_full.DAT"))



(complete 10)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Roketz")
                (dest dest1)
		(files)
                (infos)

	)

(complete 15)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Roketz_01.Dat")
                (dest dest1)
		(files)
	)

(complete 28)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Roketz_02.Dat")
                (dest dest1)
		(files)
	)

(complete 20)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Roketz_03.Dat")
                (dest dest1)
		(files)
	)

(complete 22)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Roketz_04.Dat")
                (dest dest1)
		(files)
	)

(complete 25)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Roketz_05.Dat")
                (dest dest1)
		(files)
	)

(complete 30)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:ReadMe")
                (dest dest1)
		(files)
		(infos)
	)

(complete 32)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Intro")
                (dest dest1)
		(files)
		(infos)
	)

(complete 35)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Intro_01.Dat")
                (dest dest1)
		(files)
	)

(complete 38)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 1:Intro_02.Dat")
                (dest dest1)
		(files)
	)


(askdisk
        (prompt "\n\n\nPlease insert Roketz disk 2")
	(help "N/A")
        (dest "Roketz disk 2")
    )


(complete 40)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_06.Dat")
                (dest dest1)
		(files)

	)

(complete 43)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_07.Dat")
                (dest dest1)
		(files)

	)

(complete 46)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_08.Dat")
                (dest dest1)
		(files)

	)

(complete 50)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_09.Dat")
                (dest dest1)
		(files)

	)

(complete 53)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_10.Dat")
                (dest dest1)
		(files)

	)

(complete 56)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_11.Dat")
                (dest dest1)
		(files)

	)

(complete 60)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_12.Dat")
                (dest dest1)
		(files)

	)

(complete 63)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_13.Dat")
                (dest dest1)
		(files)

	)

(complete 66)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_14.Dat")
                (dest dest1)
		(files)

	)

(complete 70)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_15.Dat")
                (dest dest1)
		(files)

	)

(complete 73)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_16.Dat")
                (dest dest1)
		(files)

	)

(complete 76)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_17.Dat")
                (dest dest1)
		(files)

	)


(complete 80)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_18.Dat")
                (dest dest1)
		(files)

	)

(complete 83)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_19.Dat")
                (dest dest1)
		(files)

	)

(complete 86)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_20.Dat")
                (dest dest1)
		(files)

	)

(complete 90)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_21.Dat")
                (dest dest1)
		(files)

	)

(complete 92)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_22.Dat")
                (dest dest1)
		(files)

	)

(complete 94)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_23.Dat")
                (dest dest1)
		(files)

	)

(complete 95)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_24.Dat")
                (dest dest1)
		(files)

	)

(complete 97)
	(copyfiles
		(help @copyfiles-help)
		(source "Roketz disk 2:Roketz_25.Dat")
                (dest dest1)
		(files)

	)


(complete 98)
   (copyfiles 
      (source "Roketz disk 2:Pilots/")
      (help @copyfiles-help)
                (dest (tackon dest1 "Pilots"))
      (all)
   )

(complete 99)
   (copyfiles 
      (source "Roketz disk 2:Pilots.info")
      (help @copyfiles-help)
                (dest dest1 )
      (files)
   )


(complete 100)

(exit "NOTE: If you have no fast mem and have problems "
      "running Roketz from Workbench then try booting "
      "without startup-sequence and run it from DOS prompt."
      "This way you gain more free memory."
     

)