; Install script for LastAlert3
;
; Note: What a mess !!!
;

(set @default-dest (cat ""))
(set #bad-kick (cat "You must be using Kickstart 2.0 or higher to use LastAlert3."))

;=============================================================================

; make sure we are running under a 2.0 ROM

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

;=============================================================================


(set #path-alerts ("S/DaLastAlert3.alerts"))

	(set #path-check ("68000/DaLastAlert3-Check"))
	(set #path ("68000/DaLastAlert3"))
	(set #cpu "68000")

(complete 0)

;=============================================================================


(set name-check
	(askfile
		(prompt "OK, where to install LastAlert3-Check ??")
		(help @askfile-help)
		(default "SYS:WbStartup/")
	)
)

(copyfiles
(
	(prompt "Copying DaLastAlert3...")
	(help @copyfiles-help)
	(source "")
	(choices #path-check)
	(dest name-check)
))

(complete 25)

;=============================================================================

(set name
	(askfile
		(prompt "OK, where to install LastAlert3 ??")
		(help @askfile-help)
		(default "SYS:Utilities/")
	)
)

(copyfiles
(
	(prompt "Copying DaLastAlert3...")
	(help @copyfiles-help)
	(source "")
	(choices #path)
	(dest name)
))

(complete 50)

;=============================================================================

(set name-alerts
	(askfile
		(prompt "OK, where to install LastAlert3.alerts ??")
		(help @askfile-help)
		(default "S:")
	)
)

(copyfiles
(
	(prompt "Copying DaLastAlert3.alerts ...")
	(help @copyfiles-help)
	(source "")
	(choices #path-alerts)
	(dest name-alerts)
))

(complete 75)

;=============================================================================

(set icon
	(askchoice
		(prompt "What icon do you want ??")
		(help @askoptions-help)
		(choices "Magic Workbench Icon" "NewIcons")
		(default 1)
	)
)

(if (= icon 1)
	(
	 (copyfiles
	    (
		(prompt "Copying DaLastAlert3-Check.info...")
		(help @copyfiles-help)
		(source "")
		(choices "68000/DaLastAlert3-Check.info")
		(dest name-check)
	    )
     )
	 (copyfiles
		(
		(prompt "Copying DaLastAlert3.info...")
		(help @copyfiles-help)
		(source "")
		(choices "68000/DaLastAlert3.info")
   	    (dest name)
		)
     )
	)
	(
	 (copyfiles
	    (
		(prompt "Copying LastAlert3-Check.info...")
		(help @copyfiles-help)
		(source "")
		(choices "MWBIcons/DaLastAlert3-Check.info")
		(dest name-check)
	    )
     )
	 (copyfiles
		(
		(prompt "Copying LastAlert3.info...")
		(help @copyfiles-help)
		(source "")
		(choices "MWBIcons/DaLastAlert3.info")
   	    (dest name)
		)
     )
	)
)

(complete 90)

;=============================================================================

(set #newname-check (cat name-check "DaLastAlert3-check"))
(set #newname-alerts (cat (expandpath name-alerts)"/DaLastAlert3.alerts"))
(set #newname (cat name "DaLastAlert3"))

(tooltype 
	(dest #newname-check)
	(settooltype "EXEC" #newname)
	(setstack 4096)
	(noposition)
)

(tooltype 
	(dest #newname)
	(setstack 4096)
	(noposition)
)

(complete 96)

(set #string3 (cat "setenv " "DaLastAlert3 " #newname-alerts))
(set #string4 (cat "copy env:DaLastAlert3 envarc:"))

(run #string3)
(run #string4)

(complete 100)
