(transcript "On Installing \"RALLY\"...")

; --------------------
; Get users choice to place Diggers ....
;
(complete 0)

(set diggers_dest
     (tackon
          (askdir
               (prompt "\nIn which disk (or drawer) should the Diggers drawer be installed?")
               (help @askdir-help)
               (default @default-dest)
               )
          "Rally"
          )
     )

; --------------------
; Make our drawer ....
;
(complete 5)

(if (NOT (exists diggers_dest))
     (makedir diggers_dest
          (prompt "I will now create the Diggers drawer")
          (help @makedir-help)
          (infos)          
          )
     )


(set @default-dest diggers_dest)



; --------------------
; Install all data from disk 1 ....
; 


(askdisk
     (prompt "\n\nPlease insert disk 1")
     (dest "Disk1")
     (help @askdisk-help)
     )


	(copyfiles
		(source "")
		(dest diggers_dest)
        	(choices "Rally.info")
	)

	(copyfiles
		(source "")
		(dest diggers_dest)
        	(choices "Rally")
	)

(copyfiles
     (prompt "Copying Disk 1 data")
     (help @copyfiles-help)
     (source "disk1:")
     (dest diggers_dest)
     (all)
     (infos)
     )

(complete 25)

; --------------------
; Install all data from disk 2 ....
; 
(askdisk
     (prompt "\n\nPlease insert disk 2")
     (dest "disk2")
     (help @askdisk-help)
     )
(copyfiles
     (prompt "Copying Disk 2 data")
     (help @copyfiles-help)
     (source "disk2:")
     (dest diggers_dest)
     (all)
     (infos)
     )
(complete 50)

; --------------------
; Install all data from disk 3 ....
; 
(askdisk
     (prompt "\n\nPlease insert disk 3")
     (dest "disk3")
     (help @askdisk-help)
     )
(copyfiles
     (prompt "Copying Disk 3 data")
     (help @copyfiles-help)
     (source "disk3:")
     (dest diggers_dest)
     (all)
     (infos)
     )
(complete 75)

; --------------------
; Install all data from disk 4 ....
; 
(askdisk
     (prompt "\n\nPlease insert disk 4")
     (dest "disk4")
     (help @askdisk-help)
     )
(copyfiles
     (prompt "Copying Disk 4 data")
     (help @copyfiles-help)
     (source "disk4:")
     (dest diggers_dest)
     (all)
     (infos)
     )
(complete 90)


; --------------------
; Now add lines to the user-startup file
;
(startup "Diggers"
     (prompt "Some instructions need to be added to the \"S:user-startup\""
             " so that your system will be properly configured to run.")
     (help @startup-help)
     (command  "assign disk1: " diggers_dest"\n"
               "assign disk2: " diggers_dest"\n"
               "assign disk3: " diggers_dest"\n"
               "assign disk4: " diggers_dest"\n")
     )
(complete 100)

; --------------------
; All done, ask user to re-boot ....
;
(exit "Now remove any Disks from your floppy drive units, "
	"and reboot your Amiga.")