; Remove-Installer script for Madhouse V2.12

(complete 0)

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

(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 war's dann!\n"))

))


(if (<> @language "deutsch") (
	(set #intro
	(cat "About to remove Madhouse, what a pity!\nPlease write us what you disliked! "
	     "Thankyou."))
	
	(set #extro
	(cat "Okay, that was it!\n" ))

))


(message #intro)

(run (cat "Gettooltype " (tackon #mainprgdest "Madhouse") " CONFIGED") )
(set #gtt (pathonly (getenv "Gettooltype")) )
(delete "ENV:Gettooltype")
(message #gtt)

(delete "LIBS:madblankersupport.library")
(complete 5)
(delete "ENV:Madhouse.prefs")
(complete 10)
(delete "ENVARC:Madhouse.prefs")
(complete 15)
(delete "SYS:WBStartup/Madhouse")
(complete 20)
(delete "SYS:WBStartup/Madhouse.info")
(complete 25)
(if (> (/ (getversion) 65536) 37)
	(
		(if (<> @language "English" ) (
			(delete "Locale:Catalogs/deutsch/madhouse.catalog")
			(complete 60)
			(delete "Locale:Catalogs/deutsch/madhousebg.catalog")
		))
	)
)
(complete 30)

(delete (tackon #gtt "Anleitung.guide"))
(delete (tackon #gtt "Anleitung.guide.info"))
(delete (tackon #gtt "Doc.guide"))
(delete (tackon #gtt "Doc.guide.info"))
(delete (tackon #gtt "Registration_E.txt"))
(delete (tackon #gtt "Registration_E.txt.info"))
(delete (tackon #gtt "Registration_D.txt"))
(delete (tackon #gtt "Registration_D.txt.info"))

(complete 40)

(run ("delete %s ALL" (tackon #gtt "Blankers")))
(run ("delete %s ALL" (tackon #gtt "ImportHelp")))

(complete 100)

(message #extro)