; $VER: AStart 1.00 (27.07.97)

; LANGUAGES
(procedure polish (
	(set language0 "Polski")
	(set MSG_WELCOME "\nWelcome to AStart V1.1\n\nthe ultimate alternate bootup maker\n\nAStart © 1997 Wojciech Kocjan\n\nAStart is mailware\n\n")
	(set MSG_ASKCMDDIR "Podaj ōcieūkė docelowā dla komend")
	(set MSG_COPYPQ "Kopiowanie komendy uruchamiajācej AStart")
	(set MSG_COPYASTARTUP "Kopiowanie skryptu AStart")
	(set MSG_ASKMODIFY "Czy mam modyfikowaź plik s:startup-sequence?")
	(set MSG_ASKMODIFY_YES "Modyfikuj")
	(set MSG_ASKMODIFY_NO "Nie modyfikuj")
	(set MSG_ASKBACKUP "Czy mam zrobiź kopiė oryginalnego pliku s:startup-sequence?")
	(set MSG_ASKBACKUP_YES "Zrób kopiė")
	(set MSG_ASKBACKUP_NO "Nie rób kopii")
	(set MSG_MODIFYSTARTUP0 "Modyfikowanie pliku startup-sequence")
	(set MSG_COPYSTARTUP "Kopiowanie zmodyfikowanego pliku startup-sequence")
	(set MSG_EXISTS "Plik juū istnieje! Czy chcesz wybraź inny katalog?")
	(set MSG_EXISTS_YES "Inny katalog")
	(set MSG_EXISTS_NO "Kontynuuj")
))

(procedure english (
	(set language0 "English")
	(set MSG_WELCOME "\nWelcome to AStart V1.1\n\nthe ultimate alternate bootup maker\n\nAStart © 1997 Wojciech Kocjan\n\nAStart is mailware\n\n")
	(set MSG_ASKCMDDIR "Enter path for commands")
	(set MSG_COPYPQ "Copying AStart running command")
	(set MSG_COPYASTARTUP "Copying AStart script")
	(set MSG_ASKMODIFY "Should I modify s:startup-sequence?")
	(set MSG_ASKMODIFY_YES "Modify")
	(set MSG_ASKMODIFY_NO "Don't modify")
	(set MSG_ASKBACKUP "Should I backup the original s:startup-sequence?")
	(set MSG_ASKBACKUP_YES "Backup")
	(set MSG_ASKBACKUP_NO "Don't backup")
	(set MSG_MODIFYSTARTUP0 "Modyfying s:startup-sequence")
	(set MSG_COPYSTARTUP "Copying modified startup-sequence")
	(set MSG_EXISTS "File already exists! Do you want to select another directory?")
	(set MSG_EXISTS_YES "Another directory")
	(set MSG_EXISTS_NO "Continue")
))

(set language0 "")
(if (= @language "english")  (english))
(if (= @language "polski")  (polish))
(if (= language0 "") (english))

(procedure modifystartup (
	(textfile (dest "T:startup-sequence")
	(append ("%s S:alternate-startup\nIF WARN\n  EndCLI >NIL:\nEndIF\n\n" pqpath)) (include "s:startup-sequence"))
	(copyfiles
		(prompt MSG_COPYSTARTUP)
		(help @copyfiles-help)
		(source "T:startup-sequence")
		(dest "S:")
		(files)
		(confirm)
	)	
))

(procedure askdestdir (
	(set dest_dir2 dest_dir)
	(set dest_dir
	   (askdir (prompt MSG_ASKCMDDIR)
	           (help @askdir-help)
	           (default dest_dir2))
	)
	(set pqpath (tackon dest_dir "AStart"))
	)
)

(welcome)

(message MSG_WELCOME)
(complete 0)

(set dest_dir "C:")
(askdestdir)
(set @default-dest dest_dir)

(set backup
	(askbool 
		(prompt MSG_ASKBACKUP)
		(help @askbool-help)
		(default 1)
		(choices MSG_ASKBACKUP_YES MSG_ASKBACKUP_NO))
)

(complete 15)

(set modify
	(askbool 
		(prompt MSG_ASKMODIFY)
		(help @askbool-help)
		(default 1)
		(choices MSG_ASKMODIFY_YES MSG_ASKMODIFY_NO))
)

(complete 30)

(copyfiles
	(prompt MSG_COPYPQ)
	(help @copyfiles-help)
	(source "C")
	(dest dest_dir)
	(choices "AStart" "Beep" "ConvertX")
	(confirm)
	(files)
)

(complete 45)

(copyfiles
	(prompt MSG_COPYPQ)
	(help @copyfiles-help)
	(source "S")
	(dest "S:")
	(choices "alternate-startup")
	(confirm)
	(files)
)

(complete 55)

(if backup
	(copyfiles
		(prompt MSG_COPYPQ)
		(help @copyfiles-help)
		(source "S:startup-sequence")
		(dest "Sys:Storage")
		(newname "startup-sequence.bak")
	)
)

(complete 70)

(if modify 
	(modifystartup)
)

(complete 85)

(copyfiles
	(prompt MSG_COPYASTARTUP)
	(help @copyfiles-help)
	(source "S")
	(dest dest_dir)
	(choices "alternate-startup")
	(confirm)
	(files)
)
(complete 100)

(exit)