; Remove-Installer script for Madhouse V2

(complete 0)

(set mainprgsource "Madhouse")
(set mainprgdest "SYS:WBStartup")

; File-sizes for space check. Including icons.
(set size-mainprg 30000 )
(set size-locale 13000 )
(set size-configed 90000 )
(set size-blankers 240000 )
(set size-germandoc 123000 )
(set size-englishdoc 78000 )
(set size-importhelp 70000 )

(if (= @language "Deutsch") (
	(set #intro
	(cat "Madhouse wieder entfernen? Schade!\nBitte schreibt uns, wenn Ihr Kritik habt. "
	     "Wir wären Euch sehr dankbar.\n\nMit Proceed geht's dann los." ))
	
	(set #extro
	(cat "Das wars dann.\nVorhin, bei der Installation, habt Ihr Euch wahrscheinlich noch "
	     "ein extra Verzeichnis für Madhouse angelegt (bzw. ausgesucht). Nur dieses müßt Ihr "
		  "jetzt noch per Hand löschen, dann ist alles wieder aufgeräumt..."))

))


(if (= @language "English") (
	(set #intro
	(cat "About to remove Madhouse, what a pity!\nPlease write us what you disliked! "
	     "Thankyou."))
	
	(set #extro
	(cat "Okay, that was it.\nPlease delete the directory that you have possibly created "
	     "at installation time yourself." ))

))


(message #intro)

(complete 10)
(delete "ENV:Madhouse.prefs")
(complete 20)
(delete "ENVARC:Madhouse.prefs")
(complete 30)
(delete "SYS:WBStartup/Madhouse")
(complete 40)
(delete "SYS:WBStartup/Madhouse.info")
(complete 50)
(if (> (/ (getversion) 65536) 37)
	(
		(if (<> @language "English" ) (
			(delete "Locale:Catalogs/deutsch/madhouse.catalog")
			(complete 60)
			(delete "Locale:Catalogs/deutsch/madhousebg.catalog")
		))
	)
)
(complete 70)
(message #extro)