home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / graphics / gifcomposer_0.10 / gifcomposer.install < prev    next >
Encoding:
Text File  |  1997-10-09  |  2.6 KB  |  102 lines
  1.  
  2. ; GIFComposer installer by Tomas Åkesson
  3.  
  4. (set @app-name "GIFComposer")
  5. (set #language "")
  6. (set #directory "")
  7. (set #nuffra 0)
  8.  
  9. ; Börja installationen.
  10. ; Välj språk.
  11. (set #nuffra
  12.     (askchoice
  13.         (prompt "Which language would you like to install?")
  14.         (help "If you don't choose english, a catalog file will be installed in Locale:catalogs/ with the language of your choice.")
  15.         (choices    "English (no catalog)"
  16.                     "Svenska"
  17.                     "Deutsch")
  18.         (default 0)
  19.     )
  20. )
  21.  
  22. (if (= #nuffra 0)
  23.     (set #language "English")
  24. )
  25. (if (= #nuffra 1)
  26.     (set #language "Svenska")
  27. )
  28. (if (= #nuffra 2)
  29.     (set #language "Deutsch")
  30. )
  31.  
  32. ; Välj vart GC skall hamna
  33. (set #directory
  34.     (askdir
  35.         (prompt "Choose a directory to install GIFComposer in. A drawer will not be created (make one yourself if you want to).")
  36.         (help "Specify a directory where the main program should end up. You could put the program wherever you want.\n\n")
  37.         (default "work:")
  38.     )
  39. )
  40.  
  41. ; Välj vart guidefilen skall hamna
  42. (set #docdir
  43.     (askdir
  44.         (prompt "Where do you want to install the documentation?")
  45.         (help "If you put the documentation in the HELP: directory, it may be opened from within GIFComposer when you press the Help-key")
  46.         (default "help:")
  47.     )
  48. )
  49.  
  50. ; Börja kopiera
  51. ; Program filen med ikon.
  52. (if (<> #directory "")
  53.     (copyfiles (prompt "Copying GIFComposer")
  54.                (help "")
  55.                (source "gifcomposer")
  56.                (dest #directory)
  57.     )
  58. )
  59. (if (<> #directory "")
  60.     (copyfiles (prompt "Copying GIFComposer's icon")
  61.                (help "")
  62.                (source "gifcomposer.info")
  63.                (dest #directory)
  64.     )
  65. )
  66.  
  67. (if (exists "libs:locale.library")
  68.     (
  69.         ; Katalog filen.
  70.         (if (> #nuffra 0)
  71.             (
  72.                 (set #spath (cat "catalogs/" #language))
  73.                 (set #spath (cat #spath "/gifcomposer.catalog"))
  74.                 (set #dpath (cat "Locale:Catalogs/" #language))
  75.                 (copyfiles (prompt "Copying catalog file")
  76.                            (help "")
  77.                            (source #spath)
  78.                            (dest #dpath)
  79.                 )
  80.             )
  81.         )
  82.     )
  83. )
  84.  
  85. ; Guide filen med ikon.
  86. (copyfiles (prompt "Copying GIFComposer.guide")
  87.            (help "")
  88.            (source "GIFComposer.guide")
  89.            (dest #docdir)
  90. )
  91. (copyfiles (prompt "Copying GIFComposer.guide.info")
  92.            (help "")
  93.            (source "GIFComposer.guide.info")
  94.            (dest #docdir)
  95. )
  96.     
  97.  
  98. (set @default-dest #directory)
  99.  
  100. (message "\nGIFComposer is now installed. Have fun!")
  101.  
  102.