home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d807 / xtrash.lha / XTrash / Install_XTrash < prev    next >
Text File  |  1993-01-24  |  4KB  |  115 lines
  1. ; Installation Routine for XTrash
  2.  
  3. (message "\n\nWelcome to the AMIGA XTrash Installation. "
  4.          "This Installer installs XTrash on your AMIGA.\n\n"
  5.          "XTrash 1.01\n"
  6.          "© and programming 1992 by\n"
  7.          "Stefan Plöchinger\n"
  8.          "Kleiststraße 27\n"
  9.          "DW- 8012 Ottobrunn\n\n"
  10.          "All rights reserved."
  11. )
  12.  
  13. (set x_language
  14.         (askchoice
  15.                 (prompt "Select the language XTrash ought to communicate "
  16.                         "with you:")
  17.                 (help "XTrash is available in two different languages. "
  18.                       "If you select `Deutsch', the German version will be "
  19.                       "installed, if you select `English', the English one. "
  20.                       "The documents are also installed in this language. "
  21.                 )
  22.                 (choices "Deutsch" "English")
  23.                 (default 1)
  24.  
  25.         )
  26. )
  27.  
  28. (set x_source
  29.         (askdir
  30.                 (prompt "Please indicate out of what directory XTrash "
  31.                         "ought to be installed (Must be the XTrash "
  32.                         "directory containing `Deutsch' and `English'):")
  33.                 (help @askdir-help)
  34.                 (default @default-dest)
  35.         )
  36. )
  37.  
  38. (set x_locate
  39.         (askdir
  40.                 (prompt "Please indicate in which directory XTrash "
  41.                         "ought to be installed:")
  42.                 (help @askdir-help)
  43.                 (default @default-dest)
  44.         )
  45. )
  46.  
  47. (set x_locate_diskspace (getdiskspace x_locate))
  48.  
  49. (if x_language
  50.         (
  51.                 (set x_Space 101921)
  52.         )
  53.         (
  54.                 (set x_Space 115539)
  55.         )
  56. )
  57.  
  58. (if (< x_locate_diskspace x_Space)
  59.         (
  60.                 (abort "You do not have enough space on your drive "
  61.                        "to install XTrash.\n"
  62.                        "XTrash requires "x_Space" bytes of free space "
  63.                        "to install, you only have "x_locate_diskspace"."
  64.                 )
  65.         )
  66. )
  67.  
  68. (set @default-dest x_locate)
  69.  
  70. (if x_language
  71.         (
  72.                 (set x_source (tackon x_source "English"))
  73.                 (copyfiles
  74.                         (source (tackon x_source "XTrash"))
  75.                         (dest x_locate)
  76.                         (infos)
  77.                 )
  78.                 (copyfiles
  79.                         (source (tackon x_source "XTrash.doc"))
  80.                         (dest x_locate)
  81.                         (infos)
  82.                 )
  83.                 (set x_FinalLetter "c")
  84.         )
  85.         (
  86.                 (set x_source (tackon x_source "Deutsch"))
  87.                 (copyfiles
  88.                         (source (tackon x_source "XTrash"))
  89.                         (dest x_locate)
  90.                         (infos)
  91.                 )
  92.                 (copyfiles
  93.                         (source (tackon x_source "XTrash.dok"))
  94.                         (dest x_locate)
  95.                         (infos)
  96.                 )
  97.                 (set x_FinalLetter "k")
  98.         )
  99. )
  100.  
  101. (message "All files have been installed now. \n"
  102.          "Finally, a few notes about the XTrash preferences: "
  103.          "XTrash has its own Preferences program, included in "
  104.          "XTrash itself. Remember that its settings aren't "
  105.          "stored now on your partition or in your directory. XTrash "
  106.          "will give you an error message concerning this when having "
  107.          "started XTrash."
  108.          "\nDon't worry about this `trouble'. You can solve it by "
  109.          "following some instructions in XTrash.do"x_FinalLetter". Simply "
  110.          "read the manual!"
  111.          "\nBesides, a double-click on XTrash.do"x_FinalLetter" perhaps "
  112.          "won't work. You might have to change the default tool (see in your "
  113.          "AMIGA DOS manual)."
  114. )
  115.