home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / archivers / xfx / install < prev    next >
Encoding:
Text File  |  1998-04-27  |  5.3 KB  |  237 lines
  1.  
  2.  
  3.  
  4. ;               *******************************************
  5. ;               ****                                   ****
  6. ;               ****                xFX                ****
  7. ;               **** Multilanguage Installation Script ****
  8. ;               ****   © 1997-98, Alessandro Pedretti  ****
  9. ;               ****                                   ****
  10. ;               *******************************************
  11.  
  12.  
  13. ;           $VER:xFX_Install 1.2 (3.2.98) Alessandro Pedretti
  14.  
  15.  
  16.  
  17. ;
  18. ; Language selector (default: english)
  19. ;
  20.  
  21. (set #DefLang        0)
  22. (set #DefDoc        0)
  23. (if (= @language "italiano")
  24.   (set #DefLang        1)
  25. )
  26. (if (= @language "deutsch")
  27.   (set #DefLang        2)
  28. )
  29. (if (= @language "dansk")
  30.   (set #DefLang        3)
  31. )
  32. (if (= @language "français")
  33.   (set #DefLang        4)
  34. )
  35.  
  36. (select #DefLang
  37.  
  38. ; English
  39.  
  40.   ((set #DefDoc        0)
  41.    (set #ARexxTxt    "Do you want install ARexx scripts ?")
  42.    (set #DirTxt        "Select the directory where the xFX drawer will be created.")
  43.    (set #LangDocTxt    "Please select your preferred language documentation")
  44.    (set #LangHelpTxt    "You must specify your language.")
  45.    (set #LangLocTxt    "Please select the language for localization")
  46.    (set #LangLocTxt    "Please select the language for localization")
  47.    (set #StartupTxt1    "The line \"Assign xFX: ")
  48.    (set #StartupTxt2    "\" will be added to your \"S:User-Startup\" file")
  49.   )
  50.  
  51. ; Italiano
  52.  
  53.   ((set #DefDoc        1)
  54.    (set #ARexxTxt    "Vuoi installare gli scripts ARexx ?")
  55.    (set #DirTxt        "Selezionare la directory dove verrà creato il cassetto xFX.")
  56.    (set #LangDocTxt    "Selezionare il linguaggio per la documentazione")
  57.    (set #LangHelpTxt    "E' necessario specificare un linguaggio.")
  58.    (set #LangLocTxt    "Selezionare il linguaggio per la localizzazione")
  59.    (set #StartupTxt1    "La linea \"Assign xFX: ")
  60.    (set #StartupTxt2    "\" deve essere aggiunta al file \"S:User-Startup\"")
  61.   )
  62.  
  63. ; Deutsch
  64.  
  65.   ((set #DefDoc        0)
  66.    (set #ARexxTxt    "Wollen Sie die ARexx Scripts installiren ?")
  67.    (set #DirTxt        "Bitte wählen Sie einen Platz für xFX. Ein Verzeichnis namens 'xFX' wird dort automatisch erzeugt.")
  68.    (set #LangDocTxt    "Bitte wählen Sie die Sprache für die Dokumentation aus.")
  69.    (set #LangHelpTxt    "Sie wählen die Sprache aus.")
  70.    (set #LangLocTxt    "Bitte wählen Sie die Sprache für die Programmen aus.")
  71.    (set #StartupTxt1    "\"Assign xFX: ")
  72.    (set #StartupTxt2    "\" wird nach \"S:User-Startup\" kopiert")
  73.   )
  74.  
  75. ; Dansk
  76.  
  77.   ((set #DefDoc        0)
  78.    (set #ARexxTxt    "Ønsker du at installere ARexx eksempler ?")
  79.    (set #DirTxt        "Vælg stien hvor xFX skuffen skal oprettes.")
  80.    (set #LangDocTxt    "Vælg venligst dit foretrukne sprog for dokumentationen")
  81.    (set #LangHelpTxt    "Specificer hvilken dokumentation du ønsker at installere")
  82.    (set #LangLocTxt    "Vælg venligst sprog til brug i programmet")
  83.    (set #StartupTxt1    "The line \"Assign xFX: ")
  84.    (set #StartupTxt2    "\" will be added to your \"S:User-Startup\" file")
  85.   )
  86.  
  87. ; Français
  88.  
  89.   ((set #DefDoc        0)
  90.    (set #ARexxTxt    "Voulez vous installer le ARexx scripts ?")
  91.    (set #DirTxt        "Sélectionnez le répertoire dans lequel vous voulez installer le répertoire de xFX.")
  92.    (set #LangDocTxt    "Sélectionnez le langage de la documentation")
  93.    (set #LangHelpTxt    "Sélectionnez le langage.")
  94.    (set #LangLocTxt    "Sélectionnez le langage pour la localizzazione")
  95.    (set #StartupTxt1    "La ligne \"Assign xFX: ")
  96.    (set #StartupTxt2    "\" doit etre adjointe' au fiche \"S:User-Startup\"")
  97.   )
  98. )
  99.  
  100.  
  101. ;
  102. ; Default xFX directory
  103. ;
  104.  
  105. (complete 20)
  106. (set xFXDir
  107.   (askdir
  108.     (prompt #DirTxt)
  109.     (help @askdir-help)
  110.     (default @default-dest)
  111.     (newpath)
  112.   )
  113. )
  114.  
  115. (set xFXDir(tackon xFXDir "xFX"))
  116. (set @default-dest xFXDir)
  117.  
  118.  
  119. ;
  120. ; Documentation language
  121. ;
  122.  
  123. (complete 30)
  124. (set DocLang
  125.   (select 
  126.     (askchoice
  127.       (prompt  #LangDocTxt)
  128.       (help    #LangHelpTxt)
  129.       (choices "English" "Italiano")
  130.       (default #DefDoc)
  131.     )
  132.     "xFX-Eng.guide" "xFX-Ita.guide"
  133.   )
  134. )
  135. (set DocLang (cat "Docs/" DocLang))
  136.  
  137. ;
  138. ; Catalogs
  139. ;
  140.  
  141. (complete 40)
  142. (set CatLang
  143.   (askoptions
  144.     (prompt  #LangLocTxt)
  145.     (help    #LangHelpTxt)
  146.     (default 1)
  147.     (choices "English (Built-In)"
  148.              "Italiano"
  149. ;            "Dansk"
  150.     )
  151.   )
  152. )
  153.  
  154. ;
  155. ; File copy
  156. ;
  157.  
  158. (complete 50)
  159. (copyfiles
  160.   (source "")
  161.   (help    @copyfiles-help)
  162.   (infos)
  163.   (noposition)
  164.   (dest    @default-dest)
  165.   (choices "xFX"
  166.            "GuiX"
  167.            "zFX"
  168.            "SCSI_Errors.dat"
  169.   )
  170. )
  171.  
  172. (complete 60)
  173. (copyfiles
  174.   (source DocLang)
  175.   (help    @copyfiles-help)
  176.   (infos)
  177.   (noposition)
  178.   (dest    @default-dest)
  179.   (newname "xFX.guide")
  180. )
  181.  
  182. ;
  183. ; ARexx Scripts
  184. ;
  185.  
  186. (complete 70)
  187. (if (askbool (prompt #ARexxTxt) (help @askbool-help))
  188.   (copyfiles
  189.     (source "")
  190.     (help @copyfiles-help)
  191.     (infos)
  192.     (dest @default-dest)
  193.     (choices "ARexx")
  194.   )
  195. )
  196.  
  197. (complete 80)
  198. (set @default-dest (tackon @default-dest "Catalogs"))
  199. (copyfiles
  200.   (source "Catalogs")
  201.   (help    @copyfiles-help)
  202.   (dest    @default-dest)
  203.   (choices "xFX.cd"
  204.            "GuiX.cd"
  205.   )
  206. )
  207. (complete 90)
  208. (if (IN CatLang 1)
  209.   (copyfiles
  210.     (source   "Catalogs")
  211.     (help     @copyfiles-help)
  212.     (dest     @default-dest )
  213.     (choices  "Italiano")
  214.   )
  215. )
  216.  
  217. (if (IN CatLang 2)
  218.   (copyfiles
  219.     (source   "Catalogs")
  220.     (help     @copyfiles-help)
  221.     (dest     @default-dest )
  222.     (choices  "Dansk")
  223.   )
  224. )
  225.  
  226. ; Startup-sequence (User-Startup):
  227.  
  228. (complete 95)
  229. (startup "xFX"
  230.   (prompt #StartupTxt1 xFXDir #StartupTxt2)
  231.   (help @startup-help)
  232.   (command "Assign xFX: \"" xFXDir "\"\n")
  233. )
  234.  
  235. (set @default-dest xFXDir)
  236. (complete 100)
  237.