; $VER: Install Eldritch V1.27 (BETA) (17 September 1995)
; This script can be distributed with the Eldritch game by
; James N. Weatherall (WEZ of SCROTUM)

; ask where to install Eldritch
(set @default-dest
 (askdir
   (prompt "Please select the Distribution Disk to install"
           " the system files to. ")
   (help @askdir-help)
   (default "DF0:")
 )
)

(working "Installing System fonts:")

(makedir (tackon @default-dest "Fonts"))

(makedir (tackon @default-dest "C"))

(copyfiles
   (prompt "Peridot font")
   (help @copyfiles-help)
   (source "Fonts:peridot")
   (dest (tackon @default-dest "Fonts/peridot"))
   (all)
)

(copyfiles
   (prompt "diamond font")
   (help @copyfiles-help)
   (source "Fonts:diamond")
   (dest (tackon @default-dest "Fonts/diamond"))
   (all)
)

(copyfiles
   (prompt "Peridot.font")
   (help @copyfiles-help)
   (source "Fonts:peridot.font")
   (dest (tackon @default-dest "Fonts"))
)

(copyfiles
   (prompt "diamond.font")
   (help @copyfiles-help)
   (source "Fonts:diamond.font")
   (dest (tackon @default-dest "Fonts"))
)

(copylib
   (prompt "Mathtrans.library")
   (help @copylib-help)
   (source "Libs:mathtrans.library")
   (dest (tackon @default-dest "Libs"))
   (confirm)
)

(copylib
   (prompt "Diskfont.library")
   (help @copylib-help)
   (source "Libs:diskfont.library")
   (dest (tackon @default-dest "Libs"))
   (confirm)
)

(copyfiles
   (prompt "Assign command")
   (help @copyfiles-help)
   (source "C:Assign")
   (dest (tackon @default-dest "C"))
)

(exit)
