(complete 0)
(welcome)

(message
	"\n\n\n\n"
	"Welcome to Ordering installation script.\n"
)


(set @default-dest
	(askdir (prompt "Please select destination directory for Ordering")
		(help @askdir-help)
		(default "SYS:")
	)
)

(copyfiles
	(prompt "\nCopying Ordering...\n")
	(help @copyfiles-help)
	(source "Ordering")
	(dest   @default-dest)
	(files)
	(infos)
)


(complete 20)

(copyfiles
	(prompt "\nCopying Ordering Preferences Editor...\n")
	(help @copyfiles-help)
	(source "OrderingPrefs")
	(dest   @default-dest)
	(files)
	(infos)
)

(complete 40)


(set wert1 (/ (getversion "libs/reqtools.library") 65536))
(set wert2 (BITAND (getversion "libs/reqtools.library") 65535))

(set	flag 1)
(if	(exists "Libs:reqtools.library" (noreq))
	(
		(set oldwert1 (/ (getversion "libs:reqtools.library") 65536))
		(set oldwert2 (BITAND (getversion "libs:reqtools.library") 65535))
		(if	(NOT(askbool
				(prompt "\nReqTools.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
				(help @askbool-help)
				(default 1)
			))
			(set	flag 0)
		)
	)
	(if	(NOT(askbool
		(prompt "\nDo you want to install\nReqTools.library version "wert1"."wert2" ?\n")
		(help @askbool_help)
		(default 1)
		))
		(set	flag 0)
	)

)

(if	(= flag 1)
	(copylib
		(prompt "\nCopying ReqTools.library...\n")
		(help @copylib-help)
		(source "Libs/reqtools.library")
		(dest   "Libs:")
	)
)


(complete 50)

(set wert1 (/ (getversion "libs/powerpacker.library") 65536))
(set wert2 (BITAND (getversion "libs/powerpacker.library") 65535))

(set	flag 1)
(if	(exists "Libs:powerpacker.library" (noreq))
	(
		(set oldwert1 (/ (getversion "libs:powerpacker.library") 65536))
		(set oldwert2 (BITAND (getversion "libs:powerpacker.library") 65535))
		(if	(NOT(askbool
				(prompt "\nPowerPacker.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
				(help @askbool-help)
				(default 1)
			))
			(set	flag 0)
		)
	)
	(if	(NOT(askbool
		(prompt "\nDo you want to install\nPowerPacker.library version "wert1"."wert2" ?\n")
		(help @askbool_help)
		(default 1)
		))
		(set	flag 0)
	)

)

(if	(= flag 1)
	(copylib
		(prompt "\nCopying PowerPacker.library...\n")
		(help @copylib-help)
		(source "Libs/powerpacker.library")
		(dest   "Libs:")
	)
)


(complete 60)

(set	flag 1)
(if	(exists "Libs:whatis.library" (noreq))
	(if	(NOT(askbool
			(prompt "\nWhatIs.library is already installed.\n\nDo you want to replace it ?\n")
			(help @askbool-help)
			(default 1)
		))
		(set	flag 0)
	)
	(if	(NOT(askbool
		(prompt "\nDo you want to install WhatIs.library ?\n")
		(help @askbool_help)
		(default 1)
		))
		(set	flag 0)
	)

)

(if	(= flag 1)
	(copylib
		(prompt "\nCopying WhatIs.library...\n")
		(help @copylib-help)
		(source "Libs/whatis.library")
		(dest   "Libs:")
	)
)


(complete 70)

(set	flag 1)
(if	(exists "S:FileTypes" (noreq))
	(if	(NOT(askbool
			(prompt "\nYou already have a 'FileTypes' file in S:.\n\nDo you want to replace it ?\n")
			(help @askbool-help)
			(default 1)
		))
		(set	flag 0)
	)
)
(if	(= flag 1)
	(copyfiles
	  	(prompt "\nCopying 'FileTypes' to S:\n")
		(help @copyfiles-help)
  		(source "s/FileTypes")
	  	(dest	"S:")
		(files)
	)
)


(complete 80)
  
(set	flag 0)
(if	(NOT(exists "Locale:Catalogs/Français/Ordering.catalog" (noreq)))
	(if	(askbool
			(prompt "\n Do you want to install french catalogs ?\n")
			(help @askbool-help)
			(default 1)
		)
		(set	flag 1)
	)
	(set	flag 1)
)

(if	(= flag 1)
	(copyfiles
		(prompt "\nCopying french catalogs...\n")
		(help @copyfiles-help)
		(source "Locale/Catalogs/Français")
		(dest   "Locale:Catalogs/Français")
		(all)
		(files)
	)
)


(complete 90)

(if 	(askbool
		(prompt "\n Do you want to install a documentation file ?\n")
		(help @askbool-help)
	)
	(
		(set doc
			(askchoice
				(prompt "Which documentation do you want to install ?")
				(help @askchoice-help)
				(choices "English documentation" "French documentation")
			)
		)

		(if (= doc 0)
			(set orddoc-source "Ordering_English.Guide")
			(set orddoc-source "Ordering_Français.Guide")
		)

		(set orddoc-dest
			(askdir
				(prompt "Select directory")
				(help @askdir-help)
				(default "HELP:")
			)
		)

		(copyfiles
			(prompt "\nCopying ducumentation...\n")
			(help @copyfiles-help)
			(source orddoc-source)
			(dest   orddoc-dest)
			(newname "Ordering.Guide")
			(files)
			(infos)
		)
	)
)

(complete 100)