home *** CD-ROM | disk | FTP | other *** search
- ; 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)
-
-
-