home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Ascii-Ansi / ADRAW097.LHA / ANSI-Draw / HD-Install < prev    next >
Encoding:
Text File  |  1995-10-31  |  3.4 KB  |  86 lines
  1. ; installation script for ANSI-Draw
  2. ; (c) 1995 Kjell Andersson
  3.  
  4.  
  5. (set destdir
  6.         (askdir
  7.                 (prompt "Please indicate where you want the ANSI-Draw drawer to be created.")
  8.                 (help @askdir-help)
  9.                 (default @default-dest)
  10.         )
  11. )
  12.  
  13. (set destdir (tackon destdir "ANSI-Draw"))
  14.  
  15.  
  16. (if (= destdir "") (set destdir (tackon @default-dest "ANSI-Draw")))
  17.  
  18.  
  19. (if (= (exists destdir) 2)
  20.         (if
  21.                 (askbool
  22.                         (prompt "\n"
  23.                                 "The directory \"" destdir "\" already exists, do you wish to"
  24.                                 " replace the old files?" )
  25.                         (help "The old files placed in this directory will be replaced"
  26.                                         " by the new ones.")
  27.                 )
  28.                 (set dummy 0)
  29.                 (abort "Installation not done.\nAll files are intact.")
  30.         )
  31.         (if
  32.                 (askbool
  33.                         (prompt "\n"
  34.                                 "I'm going to create the directory \""destdir "\" were all "
  35.                                 "files needed for ANSI-Draw will be placed.\n\n"
  36.                                 "You have " (getdiskspace((pathonly destdir))) " bytes free "
  37.                                 "on \"" (pathonly destdir) "\".\n"
  38.                                 "Approximately 200000 bytes will be needed for installation.\n\n"
  39.                                 "Do you wish to continue?")
  40.                         (help "A directory will be created and all vital files will be"
  41.                                         " copied into the created directory.")
  42.                 )
  43.                 (set dummy 0)
  44.                 (abort "Installation not done.\nNo directory created.")
  45.         )
  46. )
  47.  
  48. (if (<> (exists destdir) 2) (makedir destdir (infos)))
  49. (if (<> (exists destdir) 2) (makedir (tackon destdir "Prefs")))
  50.  
  51. (set @default-dest destdir)
  52.  
  53. (copyfiles (source "RegForm.txt") (dest destdir))
  54. (copyfiles (source "ANSI-Draw") (dest destdir) (infos))
  55. (copyfiles (source "ANSI-Draw.guide") (dest destdir) (infos))
  56. (if (= (exists "FONTS:PC") 2)
  57.    (if (askbool (prompt "\nYou already have a font in your FONTS: that is "
  58.                     "named PC, do you wish to replace it with my one?\n")
  59.             (help "If you select yes on this question your old font "
  60.                   "will be replaced"))
  61.       (set dummy 1)
  62.    )
  63.  
  64.    (if (askbool (prompt "\nI am going to place a font named PC "
  65.                     "in your FONTS:\n"
  66.                     "\nIs it OK for me to do that?\n")
  67.             (help "If you select yes on this question a new font "
  68.                   "named PC will be placed in your FONTS:"))
  69.       (set dummy 1)
  70.    )
  71. )
  72. (if (= dummy 1) (copyfiles (source "fonts") (dest "FONTS:") (infos) (all)))
  73. (if (askbool (prompt "\nDo you wish to copy the ANSI example files?\n")
  74.              (help "The examplefiles are (ANSI) pictures drawn in ANSI-Draw.\n"
  75.                    "(They won't take that much diskspace.)\n")
  76.    )
  77.    (copyfiles (source "Examples") (dest (tackon destdir "Examples")) (infos) (all))
  78. )
  79. (if (askbool (prompt "\nDo you wish to copy the ARexx example files?\n")
  80.              (help "The examplefiles are ARexx programs that shows how to"
  81.                    " use the ARexx interface.\n"
  82.                    "(They won't take that much diskspace.)\n")
  83.    )
  84.    (copyfiles (source "ARexx") (dest (tackon destdir "ARexx")) (infos) (all))
  85. )
  86.