home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MagicWB / DAT-GWB1.DMS / in.adf / tmcfiles / TMC / re-install_old_icons_etc < prev    next >
Encoding:
Text File  |  1995-10-21  |  3.3 KB  |  126 lines
  1.  (SET DRIVE (getassign "dh0" 'd'))
  2. (SET DRIVE1 (getassign "dh1" 'd'))
  3. (SET DRIVE2 (getassign "dh2" 'd'))
  4. (SET DRIVE3 (getassign "dh3" 'd'))
  5. (SET DRIVE4 (getassign "dh4" 'd'))
  6.  (if (exists "sys:Prefs/T.M.C/WorkBench.info")
  7. (SET NEW_USER "NO")
  8. (SET NEW_USER "YES")
  9. )
  10. (if(= NEW_USER "NO")
  11. (message "THE MACKS CONSPIRACY \n \n"
  12. "OK SO YOU DON'T LIKE OUR BACKDROPS AND YOU WANT US TO PUT YOUR "
  13. " OLD ICONS BACK OR DID YOU HAVE PROBLEMS \n \n "
  14. "If so then we THE CONSPIRACY apologise \n please drop us a line "
  15. "and tell us what went wrong \n \n "
  16. " WHY DON'T YOU TRY INVESTIGATNG SOME OF OUR EVER EXPANDING RANGE OF DATA DISKS ")
  17. (if (exists "ram:Disk.Info")
  18. (copyfiles
  19. (prompt"As This Is Your First Time Using This Program "newline
  20. "We Are Going To Save Your Old Icons Just In Case You Want Them Back")
  21. (HELP @copyfiles-help)
  22. (source "ram:Disk.Info")
  23. (dest "sys:prefs/T.M.C")
  24. (confirm)
  25. (NEWNAME "Ram.Info"))
  26. ))
  27. (if(= NEW_USER "NO")
  28. (run "sys:prefs/wbpattern sys:prefs/T.M.C/clear.prefs use ")
  29. )
  30. (if(= NEW_USER "NO")
  31. (run "delete sys:prefs/env-archive/sys/wbpattern.prefs")
  32. )
  33. (if(= NEW_USER "NO")
  34. (run "delete sys:prefs/env-archive/sys/screenmode.prefs")
  35. )
  36. (if(= NEW_USER "NO")
  37. (run "delete sys:prefs/backdrop.pic")
  38. )
  39. (if(= NEW_USER "NO")
  40. (run "delete sys:WBstartup/WBverlau#?")
  41. )
  42. (IF(= NEW_USER "NO")
  43.    (copyfiles
  44.    (source "sys:PREFS/T.M.C/WORKBENCH.INFO")
  45.               (DEST "sys:")
  46.               (NEWNAME "DISK.Info"))
  47. )
  48. (if(= NEW_USER "NO")
  49. (if (exists "sys:prefs/T.M.C/def_Disk.Info")
  50. (copyfiles
  51. (source "sys:prefs/T.M.C/def_Disk.Info")
  52. (dest "sys:prefs/env-archive/sys"))
  53. ))
  54. (if(= NEW_USER "NO")
  55. (if (exists "sys:prefs/T.M.C/def_Ramdisk.Info")
  56. (copyfiles
  57. (source "sys:prefs/T.M.C/def_Ramdisk.Info")
  58. (dest "sys:prefs/env-archive/sys"))
  59. ))
  60. (if(= NEW_USER "NO")
  61. (if (<> DRIVE1 "")
  62.     (copyfiles
  63.     (source "sys:PREFS/T.M.C/WORK.Info")
  64.     (dest (DRIVE1""))
  65.     (NEWNAME "DISK.Info"))
  66. ))
  67. (if(= NEW_USER "NO")
  68. (if (<> DRIVE2 "")
  69.    (copyfiles
  70.    (source "sys:prefs/T.M.C/Pastimes.Info")
  71.    (dest (DRIVE2""))
  72.    (NEWNAME "Disk.Info"))
  73. ))
  74. (if(= NEW_USER "NO")
  75. (if (<> DRIVE3 "")
  76.    (copyfiles
  77.    (source "sys:prefs/T.M.C/Games.info")
  78.               (dest (DRIVE3""))
  79.               (NEWNAME "Disk.Info"))
  80. ))
  81. (IF(= NEW_USER "NO")
  82. (if (<> DRIVE4 "")
  83.    (copyfiles
  84.    (source "sys:prefs/T.M.C/Default.info")
  85.               (dest (DRIVE4""))
  86.               (NEWNAME "Disk.Info"))
  87. ))
  88. (if(= NEW_USER "NO")
  89. (if (exists "sys:Prefs/T.M.C/Screenmode.Prefs")
  90.    (copyfiles
  91.    (source "sys:Prefs/T.M.C/screenmode.prefs")
  92.               (dest "sys:prefs/env-archive/sys"))
  93. ))
  94. (if(= NEW_USER "NO")
  95. (if (exists "sys:prefs/T.M.C/wbpattern.prefs")
  96.    (copyfiles
  97.    (source "sys:prefs/T.M.C/wbpattern.prefs")
  98.               (dest "sys:prefs/env-archive/sys"))
  99. ))
  100. (if(= NEW_USER "NO")
  101. (if (exists "sys:prefs/T.M.C/TMC.pic")
  102.    (copyfiles
  103.    (source "sys:prefs/T.M.C/TMC.pic")
  104.               (dest "sys:prefs")
  105.               (NEWNAME "Backdrop.pic"))
  106. ))
  107. (if(= NEW_USER "NO")
  108. (if (exists "sys:Prefs/T.M.C/WBverlauf")
  109.    (copyfiles
  110.    (source "sys:prefs/T.M.C/WBverlauf")
  111.               (dest "sys:WBstartup"))
  112. ))
  113. (if(= NEW_USER "NO")
  114. (if (exists "sys:Prefs/T.M.C/WBverlauf.Info")
  115.    (copyfiles
  116.    (source "sys:prefs/T.M.C/WBverlauf.Info")
  117.               (dest "sys:WBstartup"))
  118. ))
  119. (if(= NEW_USER "NO")
  120. (run "delete sys:Prefs/T.M.C all")
  121. )
  122. (if(= NEW_USER "NO")
  123. (run "delete sys:Re-Install_Old_Icon#?")
  124. )
  125. (exit(quiet))
  126.