home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma48.dms / ma48.adf / XPKatana / Install / Italiano < prev    next >
Encoding:
Text File  |  1995-12-20  |  3.7 KB  |  164 lines
  1. ; XPKatana Installer Script
  2. ; $Ver: 1.0 (28.11.95)
  3. ; Written by Philip A. Vedovatti
  4. ; for Program Author Eric Sauvageau.
  5. ; Translated to Italian by Claudio Di Martino.
  6.  
  7. (set #bad-kick
  8.    (cat "\n\nQuesto programma necessita almeno del"
  9.         "Workbench 2.0 per funzionare."))
  10.  
  11. (set #hello-message
  12.    (cat "\n\n\"Riduci i tuoi file a brandelli!\""
  13.         "\n\nBenvenuto nello script di installazione di XPKatana."
  14.         "\n\nSei pregato di leggere la documentazione per"
  15.         "\nottenere il massimo da questo programma."
  16.         "\n\n\nPREMI IL BOTTONE PER PROCEDERE"))
  17.  
  18. (set #install-which
  19.    (cat "\nQuale parte dell'archivio di XPKatana vuoi"
  20.         "\ninstallare sul tuo disco rigido?\n"))
  21.  
  22. (set #tools-dest
  23.    (cat "\nIn quale cassetto vuoi che sia installato"
  24.         "\nil programma principale XPKatana?\n"))
  25.  
  26. (set #docs-dest
  27.    (cat "\nDove vuoi che sia installata"
  28.         "\nla documentazione?\n"))
  29.  
  30. (set #rexx-dest
  31.    (cat "\nDove vuoi che siano installati"
  32.         "\ngli script Arexx di Katana?\n"))
  33.  
  34. (set #install-arexx-help
  35.    (cat "\nInstalla gli script Arexx per migliorare"
  36.         "\nla funzionalità di XPKatana."))
  37.  
  38. (set #exit-message
  39.    (cat "\nL'installazione di XPKatana è completata!"
  40.         "\nBuon divertimento."))
  41.  
  42. (set #install-library
  43.    ("\nInstallazione di FileID.library in Libs:"))
  44.  
  45. ; -----------------------------------
  46. ; Controlla la versione del Kickstart
  47. ; -----------------------------------
  48.  
  49.  (if (< (getversion "LIBS:version.library") (* 37 65536))
  50.         (abort #bad-kick)
  51.  )
  52.  
  53. (message #hello-message)
  54.  
  55. ; ------------------------------
  56. ; Cosa devo installare?
  57. ; ------------------------------
  58.  
  59. (set InstallOpt
  60.       (askoptions (prompt #install-which)
  61.                   (help @askoptions-help)
  62.                   (choices "XPKatana" "Script Arexx" "FileID.library"
  63.                            "Documentazione")
  64.       )
  65. )
  66.  
  67. (if (= InstallOpt 0)
  68.       (abort (cat "\n\nInstallazione interrotta :(")
  69.                   "\n\nNessun file selezionato per l'installazione!")
  70. )
  71.  
  72.  
  73. ;-------------------------------------------------------
  74. ;Installo l'eseguibile, le icone e i file di supporto
  75. ;-------------------------------------------------------
  76.  
  77.  
  78. (if (BITAND InstallOpt 1)
  79.  
  80.   ((set destdir
  81.       (askdir
  82.             (prompt #tools-dest)
  83.             (help @askdir-help)
  84.             (default "Sys:Utilities")
  85.       )
  86.    )
  87.  
  88.    (set @default-dest destdir)
  89.    (copyfiles
  90.       (source "/XPKatana")
  91.       (dest destdir)
  92.       (infos)
  93.    )
  94.   )
  95. )
  96.  
  97. ;-------------------------------------------------------
  98. ;Installo gli script Arexx
  99. ;-------------------------------------------------------
  100.  
  101.  
  102.  
  103. (if (BITAND InstallOpt 2)
  104.  
  105.   ((set destdir
  106.       (askdir
  107.             (prompt #rexx-dest)
  108.             (help #install-arexx-help)
  109.             (default "REXX:")
  110.       )
  111.    )
  112.  
  113.    (copyfiles
  114.       (source "/ARexx")
  115.       (dest destdir)
  116.       (all)
  117.    )
  118.   )
  119. )
  120.  
  121. ;-------------------------------------------------------
  122. ;Installo i file di FileID.library
  123. ;-------------------------------------------------------
  124.  
  125. (if (BITAND InstallOpt 4)
  126.  
  127.   ((copylib
  128.       (prompt #install-library)
  129.       (source "/Libs/FileID.library")
  130.       (dest "Libs:")
  131.    )
  132.  
  133.    (if (exists "Locale:catalogs/deutsch")
  134.        (copyfiles
  135.           (source "/Locale/catalogs/deutsch/FileID_lib.catalog")
  136.           (dest "Locale:catalogs/deutsch")
  137.        )
  138.    )
  139.   )
  140. )
  141.  
  142. ;-------------------------------------------------------
  143. ;Installa la documentazione
  144. ;-------------------------------------------------------
  145.  
  146. (if (BITAND InstallOpt 8)
  147.  
  148.   ((set destdir
  149.       (askdir
  150.             (prompt #docs-dest)
  151.             (help @askdir-help)
  152.             (default "Help:")
  153.       )
  154.    )
  155.    (copyfiles
  156.       (source "/Docs/XPKatana_eng.guide")
  157.       (dest destdir)
  158.       (newname "XPKatana.guide")
  159.       (infos)
  160.    )
  161.   )
  162. )
  163. (exit #exit-message)
  164.