home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / wbgames / colorriddle13 / install / color-riddle.install next >
Text File  |  1995-03-20  |  5KB  |  123 lines
  1. ;Installer-script for Color-Riddle
  2. ;$VER: Color-Riddle 1.0 (16.12.94)
  3.  
  4.  
  5. ;********************************* texts ************************************
  6.  
  7. (if (= @language "deutsch")
  8. ;********** german texts
  9.     ((set #nohelp "Zu diser Option gibt es keinen Hilfs-Text.")
  10.      (set #getdevice "In welchem Verzeichnis soll Color-Riddle installiert werden? (Ein neues Verzeichnis wird erstellt.)")
  11.      (set #copyicons "Welche Icons sollen kopiert werden?\n\nDie MagicWB-Icons sind spezielle Icons mit einer 8-farbigen Palette.\nMagicWB ist © von Martin Huttenloher.")
  12.      (set #productinfo "\nSoll das Product-Info für KingFisher 2.0 und andere ähnliche Tools kopiert werden?\n")
  13.      (set #cdtext "Soll das .cd-File für Katalogübersetzungen kopiert werden?"))
  14.  
  15. ;********** english texts
  16.     ((set #nohelp "Sorry, no help-text available.")
  17.      (set #getdevice "Please choose the the directory, Color-Riddle should be installed. (A new directory will be created.)")
  18.      (set #copyicons "Which icons should be copied?\n\nThe MagicWB-Icons are special Icons with a 8-color-palette.\nMagicWB is © by Martin Huttenloher.")
  19.      (set #productinfo "\nCopy the Product-Info for KingFisher 2.0 and other similar tools?\n")
  20.      (set #cdtext "Do you want to install the .cd-file for catalog translations?")))
  21.  
  22.  
  23. ;********************************** main ************************************
  24.  
  25. ;********** get the @default-dest
  26. (set @default-dest (askdir (prompt #getdevice)
  27.                            (help @askdir-help)
  28.                            (default @default-dest)
  29.                            (disk)))
  30. (makedir (tackon @default-dest "Color-Riddle"))
  31.  
  32. ;********** get the from-dir
  33. (set fromdir (tackon (pathonly @icon) "/"))
  34.  
  35. ;********** copy color-riddle
  36. (copyfiles (source fromdir)
  37.            (dest (tackon @default-dest "Color-Riddle"))
  38.            (choices "Color-Riddle")
  39.            (infos)
  40.            (optional fail))
  41.  
  42. ;********** copy icons
  43. (if (askbool (prompt #copyicons)
  44.              (help #nohelp)
  45.              (choices "Standard" "MagicWB")
  46.              (default 1))
  47.     ((set icons "Standard"))
  48.     ((set icons "MagicWB")))
  49.  
  50. (if (= icons "MagicWB")
  51.     ((copyfiles (source (tackon fromdir "icons/Color-Riddle.drawer.info"))
  52.                (dest @default-dest)
  53.                (newname "Color-Riddle.info")
  54.                (optional fail))
  55.      (copyfiles (source (tackon fromdir "icons/Color-Riddle.info"))
  56.                (dest (tackon @default-dest "Color-Riddle"))
  57.                (optional fail)))
  58.     (copyfiles (source (tackon fromdir "/Color-Riddle.info"))
  59.                (dest @default-dest)
  60.                (newname "Color-Riddle.info")
  61.                (optional fail)))
  62. (set @default-dest (tackon @default-dest "Color-Riddle"))
  63.  
  64. ;********** copy the .catalog and the .guide-file
  65. (if (= @language "deutsch")
  66. ;   *** copy catalogs if locale.library is present
  67.     ((if (<> (getversion "LIBS:locale.library") 0)
  68.          ((makedir (tackon @default-dest "catalogs"))
  69.           (copyfiles (source fromdir)
  70.                      (dest (tackon @default-dest "catalogs/deutsch"))
  71.                      (choices "catalogs/deutsch/Color-Riddle.catalog")
  72.                      (optional fail))))
  73.      (copyfiles (source fromdir)
  74.                 (dest @default-dest)
  75.                 (choices "docs/Color-Riddle.deutsch")
  76.                 (optional fail))
  77.      (rename (tackon @default-dest "Color-Riddle.deutsch")
  78.              (tackon @default-dest "Color-Riddle.guide")))
  79.     ((copyfiles (source fromdir)
  80.                 (dest @default-dest)
  81.                 (choices "docs/Color-Riddle.english")
  82.                 (optional fail))
  83.      (rename (tackon @default-dest "Color-Riddle.english")
  84.              (tackon @default-dest "Color-Riddle.guide"))))
  85.  
  86. (if (= icons "Standard")
  87.     ((copyfiles (source fromdir)
  88.                 (dest @default-dest)
  89.                 (choices "docs/Color-Riddle.english.info")
  90.                 (optional fail))
  91.      (rename (tackon @default-dest "Color-Riddle.english.info")
  92.              (tackon @default-dest "Color-Riddle.guide.info")))
  93.     ((copyfiles (source fromdir)
  94.                 (dest @default-dest)
  95.                 (choices "Icons/Color-Riddle.guide.info")
  96.                 (optional fail))))
  97.  
  98. ;********** copy the Product-Info
  99. (if (= @user-level 2)
  100.     (if (=
  101.          (askbool (prompt #productinfo)
  102.                   (help #nohelp)
  103.                   (default 1))
  104.          1)
  105.         (copyfiles (source fromdir)
  106.                    (dest @default-dest)
  107.                    (choices "Product-Info")
  108.                    (optional nofail)))
  109.     (copyfiles (source fromdir)
  110.                (dest @default-dest)
  111.                (choices "Product-Info")
  112.                (optional nofail)))
  113.  
  114. ;********** copy the .cd-file
  115. (if (= @user-level 2)
  116.     (if (askbool (prompt #cdtext)
  117.                  (help #nohelp)
  118.                  (default 0))
  119.         (copyfiles (source (tackon fromdir "catalogs/Color-Riddle.cd"))
  120.                    (dest (tackon @default-dest "catalogs"))
  121.                    (optional nofail))))
  122.  
  123.