home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma62.dms / ma62.adf / Voyager10 / Tools / Uninstall < prev    next >
Text File  |  1996-05-03  |  6KB  |  144 lines
  1. ;******************************************************************************
  2. ;         __  __                                     
  3. ;        / / / /                                    
  4. ;       / / / /______ __  __ ______  ______ ______ _____
  5. ;      / / / // __  / \ \/ // __  / / __  // ____// .__/
  6. ;     /  \/ // /_/ /   \  // __  / / /_/ // __/_ / /
  7. ;     \____//_____/    / //_/ /_/ _\__  //_____//_/
  8. ;                     /_/        /_____/   
  9. ; Uninstall
  10. ;
  11. ; $VER: .101a_Voyager_Installer (May-01-1996) 
  12. ; Changes, suggestions or problems: rcr@netcom.com
  13. ; May not be hacked into any "internet pack"!
  14. ; If you wish to use any part of this installer you must ask.
  15. ;
  16. ; Installer by Robert C. Reiswig ©1995, 1996 
  17. ; Voyager by Oliver Wagner ©1995, 1996 
  18. ;******************************************************************************
  19. ;*** System Stuff ***
  20. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  21. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  22. (set osver (/ (getversion "LIBS:version.library") 65536))
  23. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  24. (set fastmem (- totmem graphmem))
  25.  
  26. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  27. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  28. (if (= osver 41) (set workbench "3.2"))
  29.  
  30. (set cpu (database "cpu"))
  31. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  32. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  33. (if (= cpu 68040) (set #cpu 4)) 
  34. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  35.  
  36. (if (> cpu 68010)  (set #fpuGuess 0)  (set #fpuGuess 1) )
  37.    
  38. (set vernum1 (getversion "V")) (set ver1 (/ vernum1 65536)) 
  39. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Voyagerver (cat ver1 "." rev1))
  40.  
  41. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  42. (set lan 0)
  43.  
  44. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  45. (set #English    "English")  (set #Deutsch    "Deutsch")
  46.  
  47. (set mfound 0) (set newicon1 1) 
  48. (set keeper 1) (set firsttime 0)
  49.  
  50. (if (= OlliSendMePizza 1) (welcome))
  51. ;********************************************************************
  52. ; English Strings
  53. ;********************************************************************
  54. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer, Version 43.1\n\n\nIt can be found on Aminet in:\n\n/util/misc/Installer-43_1.lha\n\n\nYou might want to upgrade soon.")
  55.  
  56. (set #tobedone "\n\nThe Voyager installer installs 2 sets of files outside of the main Voyager directory. The custom Voyager classes in 'mui:libs/mui' and the Environment Variables in 'env(arc):Voyager'.\n\nThis Uninstall will delete these files from your system. The Voyager program directory can be deleted from the Workbench or with a Directory Utility.")
  57. (set #Skip "Skip")
  58. (set #delete "Delete")
  59. (set #muitodelete "\nThe following Voyager MUI Custom Classes will be deleted from 'mui:libs/mui':\n\nBookmarks.mcc\nListTree.mcc\nTextField.mcc\nTextField.mcp\nToolBar.mcc\nToolButton.mcc")
  60.  
  61. (set #deletefile "\n\nDeleteing file:\n\n")
  62.  
  63. (set #byebyec (cat "\nVoyager Uninstall Complete!\n\n" ))
  64.  
  65. ;********************************************************************
  66. ; German Strings
  67. ;********************************************************************
  68. (if (= lan 1)
  69.  (set OlliDontShareThePizza TRUE)
  70. )
  71.  
  72. ;********************************************************************
  73. ; Note on what will be done
  74. ;********************************************************************
  75. (message #tobedone)
  76.  
  77. ;********************************************************************
  78. ; Ask to delete mui custom stuff 
  79. ;********************************************************************
  80. (set killm (askbool (prompt #muitodelete)
  81.                     (help   #muitodelete)
  82.                     (choices #delete #Skip)
  83.            )
  84. )
  85.  
  86.  
  87. (if (= killm 1) 
  88.   (
  89.    (delete "mui:libs/mui/Bookmarks.mcc")  (delete "mui:libs/mui/ListTree.mcc")
  90.    (delete "mui:libs/mui/TextField.mcc")  (delete "mui:libs/mui/TextField.mcp")
  91.    (delete "mui:libs/mui/ToolBar.mcc")    (delete "mui:libs/mui/ToolButton.mcc")
  92.   )    
  93. )
  94.  
  95. ;********************************************************************
  96. ; Ask to delete env:voyager stuff. 
  97. ;********************************************************************
  98. (set #envtodelete "\n\n\nThe Environment Variables in:\n\n'env:Voyager/#?' & 'envarc:Voyager/#?'\n\n will be deleted.") 
  99. (set kille (askbool (prompt #envtodelete)
  100.                     (help   #envtodelete)
  101.                     (choices #delete #Skip)
  102.            )
  103. )
  104.  
  105.  
  106.  
  107. (if (= kille 1) 
  108.   (
  109.    (if (> (exists ("env:Voyager")) 0)
  110.     (foreach "env:Voyager" "#?"
  111.       ( (working (cat #deletefile " env:Voyager/" @each-name)) (delete (tackon "env:Voyager" @each-name)) ) 
  112.     )
  113.    )
  114.  
  115.    (delete "env:Voyager")
  116.  
  117.    (if (> (exists ("envarc:Voyager")) 0)
  118.     (foreach "envarc:Voyager" "#?"
  119.       ( (working (cat #deletefile " envarc:Voyager/" @each-name)) (delete (tackon "envarc:Voyager" @each-name)) ) 
  120.     )
  121.    )
  122.  
  123.    (delete "envarc:Voyager")
  124.  
  125.   )    
  126. )
  127.  
  128.  
  129.  
  130. ;********************************************************************
  131. ; Check on New installer 
  132. ;********************************************************************
  133. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  134. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  135.  
  136. (if (< InstallerVer 43.1)
  137.  (message #updateinstaller)
  138. )
  139.  
  140. ;********************************************************************
  141. ; End Bye 
  142. ;********************************************************************
  143. (exit #byebyec)
  144.