home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / f-base / install < prev    next >
Text File  |  1997-04-29  |  3KB  |  179 lines
  1. ;*
  2. ;* Install Script For F-Base V2.0
  3. ;*  
  4. ;* Done By ----> AlphaSOUND <----
  5. ;*
  6.  
  7. (set #Langage
  8.   (askchoice
  9.     (prompt "Select your langage for the installer procedure")
  10.     (Help "")
  11.     (choices
  12.       "English"
  13.       "Francais"
  14.       "Deutsch"
  15.       "Italiano"
  16.     )
  17.   )
  18. )
  19.  
  20.  
  21. ;*** English ***
  22.  
  23. (if (= #Langage 0)
  24.   ((set #FBDirPrompt "Where do you want to install F-Base ? A Drawer called F-Base will be created.")
  25.   (set #FBDirHelp "")
  26.   (set #FBLangSel "Select the languages to install with F-Base.")
  27.   (set #FBIcon "Select your icons"))
  28. )
  29.  
  30.  
  31. ;*** Francais ***
  32.  
  33. (if (= #Langage 1)
  34.   ((set #FBDirPrompt "Où voulez-vous installer F-Base ? Un Tiroir sera automatiquement créé.")
  35.   (set #FBDirHelp "")
  36.   (set #FBLangSel "Choisissez quels langages vous voulez avoir pour F-Base")
  37.   (set #FBIcon "Choisissez votre type d'icone"))
  38. )
  39.  
  40.  
  41. ;*** Deutsch ***
  42.  
  43. (if (= #Langage 2)
  44.   ((set #FBDirPrompt "Where do you want to install F-Base ? A Drawer called F-Base will be created.")
  45.   (set #FBDirHelp "")
  46.   (set #FBLangSel "Select the language(s) to install with F-Base")
  47.   (set #FBIcon "Select your icons"))
  48. )
  49.  
  50.  
  51. ;*** Italiano ***  ; By Allessandro "cralex"
  52.  
  53. (if (= #Langage 3)
  54.   ((set #FBDirPrompt "Seleziona il Tuo Percorso. Verrà Creato lì un Cassetto.")
  55.   (set #FBDirHelp "")
  56.   (set #FBLangSel "Select the languages to install with F-Base")
  57.   (set #FBIcon "Select your icons"))
  58. )
  59.  
  60.  
  61. ;*** Directory Select ***
  62.  
  63. (set DestDir
  64.   (askdir
  65.     (prompt #FBDirPrompt)
  66.     (help #FBDirHelp)
  67.     (default "SYS:")
  68.   )
  69. )
  70.  
  71. (set DestDir (expandpath DestDir))
  72. (set @default-dest (tackon DestDir "F-Base"))
  73.  
  74. (makedir @default-dest (infos))
  75.  
  76. ;*** Select Langages ***
  77.  
  78. (set #Catalogs
  79.   (askoptions
  80.     (prompt #FBLangSel)
  81.     (help "")
  82.     (choices
  83.       "English"
  84.       "Francais"
  85.       "Deutsch"
  86.       "Italiano"
  87.     )
  88.   )
  89. )
  90.  
  91. ;*** Select Icon ***
  92.  
  93. (set #Icons
  94.   (askchoice
  95.     (prompt #FBIcon)
  96.     (Help "")
  97.     (choices
  98.       "Magic WB"
  99.       "NewIcons"
  100.     )
  101.   )
  102. )
  103.  
  104. ;*** Copy Files ***
  105.  
  106. (if (in #Catalogs 0)
  107.   (copyfiles
  108.     (source "")
  109.     (dest @default-dest)
  110.     (pattern "(F-Base.lang.uk|F-Base_English.guide)")
  111.     (infos)
  112.   )
  113. )
  114.  
  115.  
  116. (if (in #Catalogs 1)
  117.   (copyfiles
  118.     (source "")
  119.     (dest @default-dest)
  120.     (pattern "(F-Base.lang.fr|F-Base_Francais.guide)")
  121.     (infos)
  122.   )
  123. )
  124.  
  125.  
  126. (if (in #Catalogs 2)
  127.   (copyfiles
  128.     (source "F-Base.lang.de")
  129.     (dest @default-dest)
  130.   )
  131. )
  132.  
  133.  
  134. (if (in #Catalogs 3)
  135.   (copyfiles
  136.     (source "F-Base.lang.it")
  137.     (dest @default-dest)
  138.   )
  139. )
  140.  
  141. ;*** Main Files ***
  142.  
  143. (copyfiles
  144.   (source "")
  145.   (dest @default-dest)
  146.   (pattern "(F-Base|BBase3-->F-Base|F-BPrefs|FInfo|Exemple2|Exemple1|F-Base.pic)")
  147.   (infos)
  148. )
  149.  
  150. ;*** Icons Files ***
  151.  
  152.  
  153. (if (= #Icons 1)
  154.   (
  155.   (copyfiles
  156.     (source "NewIcons")
  157.     (dest @default-dest)
  158.     (pattern "(F-Base.info|F-BPrefs.info)")
  159.   )
  160.  
  161.   (if (in #Catalogs 0)
  162.     (copyfiles
  163.       (source "NewIcons")
  164.       (dest @default-dest)
  165.       (pattern "F-Base_English.guide.info")
  166.     )
  167.   )
  168.  
  169.   (if (in #Catalogs 1)
  170.     (copyfiles
  171.       (source "NewIcons")
  172.       (dest @default-dest)
  173.       (pattern "F-Base_Francais.guide.info")
  174.     )
  175.   )
  176.   )
  177. )
  178.  
  179.