(SET @default-dest "")

(IF (= @language "svenska")
	(
		(SET #welcome "\n\nDetta installationsskript installerar jAnimator åt dig!\n\n")
		(SET #needKick ("\n'jAnimator' kräver åtminstone Workbench 2.0." ) )
		(SET #componentsPrompt "Välj vilka delar av 'jAnimator' du vill installera.")
		(SET #componentsPromptHelp "Det är nödvändigt att installera programmet. Du rekommenderas att installera språkfiler och manual också.\n\nDemonstrationsanimationerna kan köras innan installationen så det kan vara en bra idé att titta på dem innan installationen.\n\n")
		(SET #destPrompt "Var vänlig välj vilken låda 'jAnimator' skall sparas i.\nIngen låda kommer att skapas.")
		(SET #destPromptHelp "Programmet kan sparas var som helst på din hårddisk, se bara till att du vet var du har det.\n\n")
		(SET #demosPrompt "Vilka demonstrationsanimationer vill du installera?")
		(SET #demosPromptHelp "Välj de demos som du vill installera. Jag rekommenderar att installera boingboll-animationen i din WBStartup-låda, de andra är mest till för att visa olika effekter och är inte så användbara.\n\n")
		(SET #demoDestPrompt "Var vänlig välj vilken låda demonstrationsanimationerna skall sparas i.\nEn låda kommer INTE att skapas.")
		(SET #demoDestPromptHelp "Demonstrationsanimationerna kan sparas var som helst på din hårddisk, men för att de skall startas varje gång din dator startas bör de läggas i WBStartup-lådan (det förvalda).\n\n")
		(SET #cpuChoicePrompt "Välj vilken processor din Amiga har.")
		(SET #cpuChoicePromptHelp "Det förvalda är vad installeraren tror att din dator har. Ändra inte detta om du inte vet vad du gör.\n\n")
		(SET #fpuChoicePrompt "Har din Amiga en matematikprocessor (FPU)?")
		(SET #fpuChoicePromptHelp "Det förvalda är vad installeraren tror att din dator har. Ändra inte detta om du inte vet vad du gör.\n\n")
		(SET #fpuChoice "Ja")
		(SET #noFpuChoice "Nej")
		(SET #docPrompt "Välj vilken låda manualen skall sparas i.")
		(SET #docPromptHelp "Spara manualen där du kan hitta den helt enkelt.\n\n")
		(SET #translatePrompt "Välj vilka översättningsfiler som skall installeras.")
		(SET #translatePromptHelp "Installera översättningsfilerna om du har tänkt översätta jAnimator till andra språk än de som medföljer.\n\n")
		(SET #translateDirPrompt "Välj vilken låda som översättningsfilerna skall sparas i.")
		(SET #translateDirPromptHelp "Installera översättningsfilerna var du vill. 'LOCALE:Catalogs' är den rekommenderade lådan.\n\n")
		(SET #localePrompt "Välj vilka språk förutom engelska som skall installeras.")
		(SET #localePromptHelp "Välj endast ditt eget språk om det finns.\n\n")
		(SET #exitHelp "Prova din nya Workbench animerare som finns i '%s'!\n\n")
		(SET #scriptInfo "Denna fil tillhör avinstallationsskriptet till jAnimator.")
		(SET #progText "Programmet")
		(SET #demosText "Demonstrationsanimationer")
		(SET #docsText "Manualen")
		(SET #localeText "Språkfiler")
		(SET #translationsText "Translation files")
		(SET #demoBoing "Den roterande boingbollen")
		(SET #demoShell "Det genomskinliga shellfönstret")
		(SET #demoCommodore "Commodorelogotyp med skugga")
	)
	(
		(SET #welcome "\n\nThis installer script will install jAnimator for you!\n\n")
		(SET #needKick ("\n'jAnimator' needs at least Workbench 2.0." ) )
		(SET #componentsPrompt "Please choose which parts of 'jAnimator' you wish to install.")
		(SET #componentsPromptHelp "It is necessary to install the program. It is recommended that you install locale files and documentation as well.\n\nThe demonstration animations can be run without installation so it might be a good idea to watch them first.\n\n")
		(SET #destPrompt "Please choose the destination directory for 'jAnimator'.\nA drawer will NOT be created.")
		(SET #destPromptHelp "The program can be stored anywhere on your harddisk, just make sure that you know where you put it.\n\n")
		(SET #demosPrompt "Which demos do you want to install?")
		(SET #demosPromptHelp "Select the demos you wish to install. It is recommended to install the boing ball demo animation in your WBStartup drawer, the other ones are mainly there to show off features and aren't really useful.\n\n")
		(SET #demoDestPrompt "Please choose the destination directory for the demonstration animations.\nA drawer will NOT be created.")
		(SET #demoDestPromptHelp "The demo animations can be stored anywhere on your harddisk, but to make them start everytime you start your computer you should put it in your WBStartup drawer (the default).\n\n")
		(SET #cpuChoicePrompt "Select the CPU you have.")
		(SET #cpuChoicePromptHelp "The default selection is what the installer believe that you have. Don't change it if you don't know what you're doing.\n\n")
		(SET #fpuChoicePrompt "Do you have a floating point unit (FPU)?")
		(SET #fpuChoicePromptHelp "The default selection is what the installer believe that you have. Don't change it if you don't know what you're doing.\n\n")
		(SET #fpuChoice "Yes")
		(SET #noFpuChoice "No")
		(SET #docPrompt "Select the directory for the documentation file.")
		(SET #docPromptHelp "Store the documentation where you can find it.\n\n")
		(SET #translatePrompt "Select which translation files should be installed.")
		(SET #translatePromptHelp "Install the translation files if you intend to translate jAnimator to other languages than the existing ones.\n\n")
		(SET #translateDirPrompt "Select a directory for the translation files.")
		(SET #translateDirPromptHelp "Install the translation files anywhere you like. 'LOCALE:Catalogs' is the recommended drawer.\n\n")
		(SET #localePrompt "Select the languages apart from english that you wish to install.")
		(SET #localePromptHelp "Select your own language if it exists.\n\n")
		(SET #exitHelp "Try your new Workbench animator in '%s'!\n\n")
		(SET #scriptInfo "This file belongs to the deinstaller script for jAnimator.\n\n")
		(SET #progText "The program")
		(SET #demosText "The demonstration animations")
		(SET #docsText "The documentation")
		(SET #localeText "The locale files")
		(SET #translationsText "The translation files")
		(SET #demoBoing "The rotating boing ball")
		(SET #demoShell "The transparent shell window")
		(SET #demoCommodore "Commodore logo with shadow")
	)
)

(WELCOME #welcome)

(IF (< (/ (GETVERSION) 65536) 36)
    (ABORT #needKick)
)

(IF (>= (/ @installer-version 65536) 44)
	(EFFECT "center" "radial" $000000 $0000FF)
)

(COMPLETE 0)

(SET #destDir "")

(SET #components
    (ASKOPTIONS (PROMPT  #componentsPrompt)
		(HELP    (CAT #componentsPromptHelp @askoptions-help))
		(CHOICES #progText #demosText #docsText #localeText #translationsText)
		(DEFAULT 15)
    )
)

(COMPLETE 5)

(IF (IN #components 0)
	(
		(SET #cpu (database "cpu"))
		(SET #cpuNr 0)
		(IF (= #cpu "68010") (SET #cpuNr 1))
		(IF (= #cpu "68020") (SET #cpuNr 2))
		(IF (= #cpu "68030") (SET #cpuNr 3))
		(IF (= #cpu "68040") (SET #cpuNr 4))
		(IF (= #cpu "68060") (SET #cpuNr 5))
		(IF (> @user-level 1)
			(SET #cpuNr
				(ASKCHOICE
					(PROMPT #cpuChoicePrompt)
					(HELP (cat #cpuChoicePromptHelp @askchoice-help))
					(CHOICES "68000" "68010" "68020" "68030" "68040" "68060")
					(DEFAULT #cpuNr)
				)
			)
		)
		(SELECT #cpuNr (SET #cpuName "000") (SET #cpuName "000") (SET #cpuName "020") (SET #cpuName "020") (SET #cpuName "040") (SET #cpuName "060"))
		(IF (database "fpu" "NOFPU") (SET #fpu 0) (SET #fpu 1))
		(IF (AND (<> #cpuNr 5) (> @user-level 1))
			(SET #fpu
				(ASKBOOL
					(PROMPT #fpuChoicePrompt)
					(HELP (cat #fpuChoicePromptHelp @askbool-help))
					(DEFAULT #fpu)
					(CHOICES #fpuChoice #noFpuChoice)
				)
			)
			(SET #fpu 1)
		)
		(IF (= #fpu 1) (SET #cpuName (cat #cpuName "FPU")))
		(IF (> @user-level 0)
			(SET #destDir
				(ASKDIR (PROMPT  #destPrompt)
					(HELP    (cat #destPromptHelp @askdir-help) )
					(DEFAULT "SYS:Utilities" )
				)
			)
		)
	)
)

(COMPLETE 10)

(IF (IN #components 1)
	(
		(SET #demos
			(ASKOPTIONS
				(PROMPT #demosPrompt)
				(HELP (cat #demosPromptHelp @askoptions-help))
				(DEFAULT 1)
				(CHOICES #demoBoing #demoShell #demoCommodore)
			)
		)
		(SET #demoDir "SYS:WBStartup")
		(IF (AND (<> #demos 0) (> @user-level 1))
			(SET #demoDir
				(ASKDIR	(PROMPT #demoDestPrompt)
					(HELP (cat #demoDestPromptHelp @askdir-help))
					(DEFAULT #demoDir)
				)
			)
		)
	)
)

(COMPLETE 20)

(IF (IN #components 2)
	(SET #docDir
	    (ASKDIR (PROMPT  #docPrompt)
	            (HELP    (cat #docPromptHelp @askdir-help))
	            (DEFAULT "Help:")
	    )
	)
)

(COMPLETE 30)

(IF (IN #components 3)
	(
		(SET #defLanguages
			(
				(IF (= @language "svenska") %1 0)
			)
		)

		(SET #languages
		    (ASKOPTIONS (PROMPT  #localePrompt)
				(HELP    (CAT #localePromptHelp @askoptions-help))
				(CHOICES "svenska")
				(DEFAULT #defLanguages)
		    )
		)
	)
)

(COMPLETE 40)

(IF (IN #components 4)
	(
		(SET #translators 0)
		(IF (> @user-level 1)
			(
				(SET #translators
				    (ASKOPTIONS (PROMPT  #translatePrompt)
						(HELP    (CAT #translatePromptHelp @askoptions-help))
						(CHOICES "jAnimator.cd" "jAnimator.ct")
						(DEFAULT 3)
				    )
				)
				(IF (<> #translators 0)
					(SET #translateDir
						(ASKDIR (PROMPT #translateDirPrompt)
							(HELP (CAT #translateDirPromptHelp @askdir-help))
							(DEFAULT "LOCALE:Catalogs")
						)
					)
				)
			)
		)
	)
)

(COMPLETE 50)

(IF (IN #components 0)
	(
		(IF (= #fpu 0)
			(RUN
				(CAT "spatch -oT:jAnimator -pjAnimator." #cpuName ".pch jAnimator")
				(SAFE)
			)
			(RUN
				(CAT "spatch -oT:jAnimator -pjAnimator." #cpuName ".pch jAnimatorFPU")
				(SAFE)
			)
		)

		(COPYFILES
			(SOURCE "T:jAnimator")
			(HELP @copyfiles-help)
			(DEST #destDir)
		)

		(DELETE "T:jAnimator" (SAFE))

		(IF (NOT (EXISTS (TACKON #destDir "jAnimator.info") (NOREQ)))
			(COPYFILES
				(SOURCE "jAnimator.info")
				(HELP @copyfiles-help)
				(DEST #destDir)
			)
		)
	)
)

(COMPLETE 60)

(IF (IN #components 1)
	(
		(SET #item 0)
		(WHILE (< #item 3)
			(IF (IN #demos #item)
				(
					(SET #anim (SELECT #item "BoingAnim" "AlphaShell" "Commodore"))
					(COPYFILES (SOURCE (cat "Demos/" #anim))
						(HELP @copyfiles-help)
						(DEST #demoDir)
					)
					(IF (NOT (EXISTS (CAT (TACKON #demoDir #anim) ".info") (NOREQ)))
						(
							(COPYFILES (SOURCE ("Demos/%s.info" #anim))
								(HELP @copyfiles-help)
								(DEST #demoDir)
							)
							(TOOLTYPE
								(DEST (TACKON #demoDir #anim))
								(SETDEFAULTTOOL (TACKON #destDir "jAnimator"))
								(IF (PATMATCH "#?WBStartup#?" #demoDir)
									(SETTOOLTYPE "DELAY" "250")
								)
							)
						)
					)
				)
			)
			(SET #item (+ #item 1))
		)
	)
)

(IF (IN #components 2)
	(COPYFILES
		(SOURCE "jAnimator.guide")
		(DEST #docDir)
		(HELP @copyfiles-help)
		(INFOS)
	)
)

(COMPLETE 70)

(IF (IN #components 3)
	(IF (IN #languages 0)
		(COPYFILES
			(SOURCE "Catalogs/svenska/jAnimator.catalog")
			(DEST "LOCALE:Catalogs/svenska")
			(HELP @copyfiles-help)
		)
	)
)

(COMPLETE 80)

(IF (IN #components 4)
	(
		(IF (IN #translators 0)
			(COPYFILES
				(SOURCE "catalogs/jAnimator.cd")
				(DEST #translateDir)
				(HELP @copyfiles-help)
			)
		)
		(IF (IN #translators 1)
			(COPYFILES
				(SOURCE "catalogs/jAnimator.ct")
				(DEST #translateDir)
				(HELP @copyfiles-help)
			)
		)
	)
)

(COMPLETE 90)

(TEXTFILE
	(SAFE)
	(DEST "T:Uninstall_jAnimator")
	(INCLUDE "S:Uninstall_jAnimator")
	(APPEND (";%s\n" #scriptInfo ))
	(APPEND "FailAt 100\n" )
	(IF (IN #components 0)
		(
			(APPEND ("Delete >NIL: \"%s\"\n" (TACKON #destDir "jAnimator")))
			(APPEND ("Delete >NIL: \"%s\"\n" (TACKON #destDir "jAnimator.info")))
		)
	)

	(IF (IN #components 1)
		(
			(SET #item 0)
			(WHILE (< #item 3)
				(IF (IN #demos #item)
					(
						(SET #anim (SELECT #item "BoingAnim" "AlphaShell" "Commodore"))
						(APPEND ("Delete >NIL: \"%s\"\n" (TACKON #demoDir #anim)))
						(APPEND ("Delete >NIL: \"%s.info\"\n" (TACKON #demoDir #anim)))
					)
				)
				(SET #item (+ #item 1))
			)
		)
	)

	(IF (IN #components 2)
		(
			(APPEND ("Delete >NIL: \"%s\"\n" (tackon #docDir "jAnimator.guide")))
			(APPEND ("Delete >NIL: \"%s\"\n" (tackon #docDir "jAnimator.guide.info")))
		)
	)

	(IF (IN #components 3)
		(IF (IN #languages 0)
			(APPEND "Delete >NIL: LOCALE:Catalogs/svenska/jAnimator.catalog\n" )
		)
	)

	(IF (IN #components 4)
		(
			(IF (IN #translators 0)
				(APPEND ("Delete >NIL: \"%s\"\n" (TACKON #translateDir "jAnimator.cd")))
			)
			(IF (IN #translators 1)
				(APPEND ("Delete >NIL: \"%s\"\n" (TACKON #translateDir "jAnimator.ct")))
			)
		)
	)
)

(COPYFILES (SOURCE "T:Uninstall_jAnimator") (DEST "S:"))
(DELETE ("T:Uninstall_jAnimator") (SAFE))

(COMPLETE 100)

(IF (IN #components 0)
	(EXIT (#exitHelp #destDir))
	(EXIT)
)