;
; Blanker Installation Script $VER:Blanker 2.0 (5.6.93)
;

(set default-dir_modules "Work:")
(set installBlanker 1)
(set installReqTools 1)

;(delete
;	"ENVARC:Blanker.prefs"
;	force
;)

; Copy le main de superdark
(set @default-dest "Workbench:Wbstartup")
(if (> @user-level 1)
	(set @default-dest
		(askdir
			(prompt "Where would you like SuperDark (main prog) installed?")
			(help "The WBStartup directory on your boot disk is likely the best place to put blanker. "
			      "This will insure that Blanker is run automatically when you boot your computer."
			)
			(default @default-dest)
		)
	)
)

(working "Checking for previously installed version of SuperDark.")
(set @dark-dir @default-dest)

(if (<= (getversion (tackon (pathonly @icon) "SuperDark")) (getversion (tackon @default-dest "SuperDark")))
	(if 	(askbool
			(prompt "An equal or newer version of SuperDark already installed. "
				"Install anyway?"
			)
			(default 0)
			(help "An equal or newer version of SuperDark is already installed. "
			      "If you would like to install SuperDark anyhow, click 'Yes'. "
			      "If you don't want to install SuperDark, click 'No'."
			)
		)
		(set installBlanker 1)
		(set installBlanker 0)
	)
)


(if (= 1 installBlanker )
	(copyfiles
		(prompt ("Copying SuperDark to %s" @default-dest))
		(help @copyfiles-help)
		(source (pathonly @icon))
		(dest @default-dest)
		(choices "SuperDark" "SuperDark.info")
		(infos)
	)
	(if (< @user-level 1)
		(set temp @user-level)
		(user 2)
		(message "Not installing SuperDark because an equal or newer version is already installed.")
		(user temp)
	)
)

(set installBlanker 1)

(set @default-dest default-dir_modules)

(if 	(askbool
		(prompt "Do you want to install modules?"
			"I suggest you to do this!"
		)
		(default 1)
		(help "The modules are the heart of superdark! Heach module "
		      " correspond to a blanking effect"
		      " But if you do want to install them, click 'No'"
		)
	)
	(set installBlanker 1)
	(set installBlanker 0)
)

(if (= 1 installBlanker )
     (
	
	(if (> @user-level 0)
		(set @default-dest
			(askdir
				(prompt "Where would you like Blankers installed?")
				(default @default-dest)
				(help "You put them anywhere in your environment"
				)
			)
		)
	)
    )
)
(if (= 1 installBlanker )
   (
	(makedir (tackon @default-dest "blankers"))
	(
	copyfiles
		(prompt ("Copying SuperDark Modules to %s" @default-dest))
		(help @copyfiles-help)
		(source (pathonly "blankers/"))
		(dest  (tackon @default-dest "blankers"))
		(pattern "#?.dark" )
		(infos)
	)
   )
)
(run (cat "echo " @default-dest "/blankers >env:DARK_DIRECTORY" ))
(working "Checking for previously installed version of ReqTools.")

(if (<= (getversion (tackon (pathonly @icon) "libs/reqtools.library")) (getversion "LIBS:reqtools.library"))
	(if 	(askbool
			(prompt "An equal or newer version of ReqTools already installed. "
				"Install anyway?"
			)
			(default 0)
			(help "An equal or newer version of ReqTools is already installed. "
			      "If you would like to install ReqTools anyhow, click 'Yes'. "
			      "If you don't want to install ReqTools, click 'No'."
			)
		)
		(set installReqTools 1)
		(set installReqTools 0)
	)
)

(if (= 1 installReqTools)
	(copyfiles
		(prompt "Copying ReqTools library to LIBS:")
		(source (tackon (pathonly @icon) "reqtools.library"))
		(dest "LIBS:")
	)
	(if (< @user-level 1)
		(set temp @user-level)
		(user 2)
		(message "Not installing reqtools.library because an equal or newer version is already installed.")
		(user temp)
	)
)

(message "Now I'll start superdark"
        "If it's the first time that superdark is running,"
	"configuration will be created. If no, you'll"
	"have to update configuration!"
)

(if (= 1 installBlanker )
	(set start_dark (cat "run \""(tackon @dark-dir "SuperDark -w \"")))
)
(message start_dark)
(run start_dark)
(set start_dark (cat "run \""(tackon @dark-dir "SuperDark\"")))
(run start_dark)