; Install-Script for the Wildfire System
; Copyright 1996-1997 WK-Artworks & Infect

(complete 0)

(set assignpath (pathonly @icon))
(set @default-dest assignpath)

(rename "wf.info!" "wf.info")

(copylib
	(prompt "Copying Wildfire-Library to libs:")
	(help @copylib-help)
	(source "Libs/wildfire.library")
	(dest "LIBS:")
	(confirm)
)

(copylib
	(prompt "Copying XPK Master-Library to libs:")
	(help @copylib-help)
	(source "Libs/xpkMaster.library")
	(dest "LIBS:")
	(confirm)
)

(if (= (exists "libs:compressors" (noreq)) 0)
	(makedir "libs:compressors")
)

(copylib
	(prompt "Copying XPK Fast-Library to libs:compressors")
	(help @copylib-help)
	(source "Libs/compressors/xpkFAST.library")
	(dest "LIBS:compressors/")
	(confirm)
)

(set WhichHelp
	(askchoice
		(prompt "Which Help-Files do you want to be installed?")
		(help "It's up to YOU.")
		(choices "English" "German")
		(default 0)
	)
)

(if (= WhichHelp 0)
	(copyfiles
		(source "docs/English/")
		(dest "System/Help")
		(all)
	)
)

(if (= WhichHelp 1)
	(copyfiles
		(source "docs/Deutsch/")
		(dest "System/Help")
		(all)
	)
)

(complete 60)

(set WhichIcons
	(askchoice
		(prompt "Which Icons do you want to be installed? The colors will be automatically set refering to the icons you choose now. The modern style icons should be preferred as the example-transitions are using this colors! If you have NEWICONS installed in your system you should select NewIcons, ofcourse.")
		(help "It's up to YOU.")
		(choices "Chocolate" "Classic" "Modern" "Ocean" "Pewter" "Pharao" "Steal" "Sunset" "Tint" "Wine" "Workbench 4Colors" "NewIcons")
		(default 10)
	)
)


(if (= WhichIcons 0) ((set SourceName "System/Images/Storage/Chocolate/") (set Colors "envarc/Chocolate")))
(if (= WhichIcons 1) ((set SourceName "System/Images/Storage/Classic/") (set Colors "envarc/Classic")))
(if (= WhichIcons 2) ((set SourceName "System/Images/Storage/Modern/") (set Colors "envarc/Modern")))
(if (= WhichIcons 3) ((set SourceName "System/Images/Storage/Ocean/") (set Colors "envarc/Ocean")))
(if (= WhichIcons 4) ((set SourceName "System/Images/Storage/Pewter/") (set Colors "envarc/Pewter")))
(if (= WhichIcons 5) ((set SourceName "System/Images/Storage/Pharao/") (set Colors "envarc/Pharao")))
(if (= WhichIcons 6) ((set SourceName "System/Images/Storage/Steal/") (set Colors "envarc/Steal")))
(if (= WhichIcons 7) ((set SourceName "System/Images/Storage/Sunset/") (set Colors "envarc/Sunset")))
(if (= WhichIcons 8) ((set SourceName "System/Images/Storage/Tint/") (set Colors "envarc/Tint")))
(if (= WhichIcons 9) ((set SourceName "System/Images/Storage/Wine/") (set Colors "envarc/Wine")))
(if (= WhichIcons 10) ((set SourceName "System/Images/Storage/WB/") (set Colors "envarc/Modern")))
(if (= WhichIcons 11) ((set SourceName "System/Images/Storage/newicons/") (set Colors "envarc/Modern")))

(copyfiles
	(source SourceName)
	(dest "System/Images")
	(all)
)

(complete 70)

(complete 80)

(if (exists "envarc:WildFire.config" (noreq))
	(rename "envarc:WildFire.config" "envarc:WildFireOld.config"
	 (prompt "Should your Old Config-File be renamed to envarc:WildfireOLD.config?")
	 (help "Why not? Keep your old preferences, maybe you need them later... Who knows?")
	 (confirm))
)

(textfile
	(dest "envarc:WildFire.config")
	(include "envarc/WildFire-1.txt")
	(include Colors)
	(include "envarc/WildFire-2.txt")
)

(textfile
	(dest "envarc/WildFireSTD.config")
	(include "envarc/WildFire-1.txt")
	(include "envarc/Modern")
	(include "envarc/WildFire-2.txt")
)

(complete 90)

(startup "Wildfire"
	(prompt "Should the Wildfire Assign be added to your User-Startup???")
	(help "Yes!")
	(command "assign WF: \""assignpath"\"")
)

(startup "Wildfire2"
	(prompt "Should the Wildfire Path be added to your User-Startup???")
	(help assignpath)
	(command "path \""assignpath"\" add")
)

(complete 100)

(message "Thats it. Now start the Wildfire Program and edit the preferences. You should select your preferred tools and the directorys where your anims and pictures will be placed. At the moment everything is set to the Example directorys. Have fun using this great program! \nYours, WK-Artworks.")

(makeassign "WF" assignpath)