;
;  Roketz HD Install script V1.0
;

(set @default-dest "Work:") 


(welcome (message "\n\n\nThis little script will help you to install "
                  "RoketzPD V2.28 to Your hard disk. Just follow the instructions. " 
                  "Note that if you have older PD version of Roketz 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 RoketzPD V2.28 files to 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 RoketzPD V2.28 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 older 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"))

(complete 5)
   (copyfiles
      (help @copyfiles-help)
      (source "RoketzPD")
                (dest dest1)
      (files)
      (infos)

   )

(complete 10)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_01.DAT")
                (dest dest1)
      (files)
   )

(complete 15)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_02.DAT")
                (dest dest1)
      (files)
   )

(complete 20)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_03.DAT")
                (dest dest1)
      (files)
   )

(complete 30)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_04.DAT")
                (dest dest1)
      (files)
   )

(complete 35)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_05.DAT")
                (dest dest1)
      (files)
   )

(complete 40)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_06.DAT")
                (dest dest1)
      (files)
   )

(complete 50)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_07.DAT")
                (dest dest1)
      (files)
   )

(complete 55)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_10.DAT")
                (dest dest1)
      (files)
   )

(complete 60)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_11.DAT")
                (dest dest1)
      (files)
   )

(complete 65)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_14.DAT")
                (dest dest1)
      (files)
   )


(complete 70)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_15.DAT")
                (dest dest1)
      (files)
   )


(complete 75)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_16.DAT")
                (dest dest1)
      (files)
   )

(complete 80)
   (copyfiles
      (help @copyfiles-help)
      (source "Roketz_17.DAT")
                (dest dest1)
      (files)
   )


(complete 85)
   (copyfiles
      (help @copyfiles-help)
      (source "ReadMe")
                (dest dest1)
      (files)
      (infos)
   )

(complete 90)
   (copyfiles 
      (source "Pilots/")
      (help @copyfiles-help)
                (dest (tackon dest1 "Pilots"))
      (all)
   )

(complete 95)
   (copyfiles 
      (source "Pilots.info")
      (help @copyfiles-help)
                (dest dest1 )
      (files)
   )


(complete 100)

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

)