home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Screenblanker / SLT-MH25.LZX / Madhouse / Install&Remove / Remove < prev   
Encoding:
Text File  |  1997-01-01  |  1.7 KB  |  77 lines
  1. ; Remove-Installer script for Madhouse V2.12
  2.  
  3. (complete 0)
  4.  
  5. (set #mainprgsource "Madhouse")
  6. (set #mainprgdest "SYS:WBStartup")
  7.  
  8. (if (= @language "deutsch") (
  9.     (set #intro
  10.     (cat "Madhouse wieder entfernen? Schade!\nBitte schreibt uns, wenn Ihr Kritik habt. "
  11.          "Wir wären Euch sehr dankbar.\n\nMit Proceed geht's dann los." ))
  12.     
  13.     (set #extro
  14.     (cat "Das war's dann!\n"))
  15.  
  16. ))
  17.  
  18.  
  19. (if (<> @language "deutsch") (
  20.     (set #intro
  21.     (cat "About to remove Madhouse, what a pity!\nPlease write us what you disliked! "
  22.          "Thankyou."))
  23.     
  24.     (set #extro
  25.     (cat "Okay, that was it!\n" ))
  26.  
  27. ))
  28.  
  29.  
  30. (message #intro)
  31.  
  32. (run (cat "Gettooltype " (tackon #mainprgdest "Madhouse") " CONFIGED") )
  33. (set #gtt (pathonly (getenv "Gettooltype")) )
  34. (delete "ENV:Gettooltype")
  35. (message #gtt)
  36.  
  37. (delete "LIBS:madblankersupport.library")
  38. (complete 5)
  39. (delete "ENV:Madhouse.prefs")
  40. (complete 10)
  41. (delete "ENVARC:Madhouse.prefs")
  42. (complete 15)
  43. (delete "SYS:WBStartup/Madhouse")
  44. (complete 20)
  45. (delete "SYS:WBStartup/Madhouse.info")
  46. (complete 25)
  47. (if (> (/ (getversion) 65536) 37)
  48.     (
  49.         (if (<> @language "English" ) (
  50.             (delete "Locale:Catalogs/deutsch/madhouse.catalog")
  51.             (complete 60)
  52.             (delete "Locale:Catalogs/deutsch/madhousebg.catalog")
  53.         ))
  54.     )
  55. )
  56. (complete 30)
  57.  
  58. (delete (tackon #gtt "Anleitung.guide"))
  59. (delete (tackon #gtt "Anleitung.guide.info"))
  60. (delete (tackon #gtt "Doc.guide"))
  61. (delete (tackon #gtt "Doc.guide.info"))
  62. (delete (tackon #gtt "Registration_E.txt"))
  63. (delete (tackon #gtt "Registration_E.txt.info"))
  64. (delete (tackon #gtt "Registration_D.txt"))
  65. (delete (tackon #gtt "Registration_D.txt.info"))
  66.  
  67. (complete 40)
  68.  
  69. (run ("delete %s ALL" (tackon #gtt "Blankers")))
  70. (run ("delete %s ALL" (tackon #gtt "ImportHelp")))
  71.  
  72. (complete 100)
  73.  
  74. (message #extro)
  75.  
  76.  
  77.