(message "This script will install GOldNEST on your HD\n>-----------------------------<\n(C) 1998 Lennart Johannesson\n95lenjo@ostrabo.uddevalla.se\n")
(complete 0)
;MAKES THE "GOldNEST" DIRECTORY
(set dest_dir
(tackon (askdir
(prompt "Where do you want to install GOldNEST?\n"
"A drawer called GOldNEST will be created.")
(help @askdir-help)
(default "ram:")
(disk)
)
"GOldNEST"
)
)
(set @default-dest dest_dir)
(makedir dest_dir)
; COPIES THE GOldNEST EXECUTABLE & START SCRIPT TO THE DESTINATION DIRETORY
(copyfiles
(source "GOldNEST.exe")
(dest (dest_dir))
)
(copyfiles
(source "Start_GOldNEST")
(dest (dest_dir))
)
(Complete 50)
; COPIES THE GOldNEST GUIDE FILE TO THE DESTINATION DIRETORY
(copyfiles
(source "GOldNEST.Guide")
(dest (dest_dir))
)
(set icontype
(askchoice
(prompt "Which icon type would you like?")
(choices
"MagicWB"
"NewIcons (Not Available Yet!)"
"Normal (Not Available Yet!)"
)
(help @askchoice-help)
(default 0)
)
)
; ASKS FOR ICONTYPE AND INSTALLS THE CORRECT ONE (ALMOST)