home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Database / F-Base / Install < prev    next >
Encoding:
Text File  |  1998-06-24  |  3.0 KB  |  176 lines
  1. ;*
  2. ;* Install Script For F-Base V2.30
  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" Basso
  52.  
  53. (if (= #Langage 3)
  54.   ((set #FBDirPrompt "Seleziona il Tuo Percorso. Verrà Creato lì un Cassetto.")
  55.   (set #FBDirHelp "")
  56.   (set #FBLangSel "Seleziona la lingua da installare con F-Base")
  57.   (set #FBIcon "Seleziona le tue icone"))
  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.     )
  86.   )
  87. )
  88.  
  89. ;*** Select Icon ***
  90.  
  91. (set #Icons
  92.   (askchoice
  93.     (prompt #FBIcon)
  94.     (Help "")
  95.     (choices
  96.       "Magic WB"
  97.       "NewIcons"
  98.     )
  99.   )
  100. )
  101.  
  102. ;*** Copy Files ***
  103.  
  104. (if (in #Catalogs 0)
  105.   (
  106.   (copyfiles
  107.     (source "")
  108.     (dest @default-dest)
  109.     (pattern "F-Base_English.guide")
  110.     (infos)
  111.   )
  112.   (copyfiles
  113.     (source "Catalogs/English")
  114.     (dest "Sys:Locale/Catalogs/English")
  115.     (pattern "F-Base.catalog")
  116.   )
  117.   )
  118. )
  119.  
  120.  
  121. (if (in #Catalogs 1)
  122.   (
  123.   (copyfiles
  124.     (source "")
  125.     (dest @default-dest)
  126.     (pattern "(F-Base_Lang_Francais|F-Base_Francais.guide)")
  127.     (infos)
  128.   )
  129.   (copyfiles
  130.     (source "Catalogs/Français")
  131.     (dest "Sys:Locale/Catalogs/Français")
  132.     (pattern "F-Base.catalog")
  133.   )
  134.   )
  135. )
  136.  
  137.  
  138. ;*** Main Files ***
  139.  
  140. (copyfiles
  141.   (source "")
  142.   (dest @default-dest)
  143.   (pattern "(F-Base|BBase3-->F-Base|F-BPrefs|Exemple2|Exemple1|F-Base.pic|Regform)")
  144.   (infos)
  145. )
  146.  
  147. ;*** Icons Files ***
  148.  
  149.  
  150. (if (= #Icons 1)
  151.   (
  152.   (copyfiles
  153.     (source "NewIcons")
  154.     (dest @default-dest)
  155.     (pattern "(F-Base.info|F-BPrefs.info)")
  156.   )
  157.  
  158.   (if (in #Catalogs 0)
  159.     (copyfiles
  160.       (source "NewIcons")
  161.       (dest @default-dest)
  162.       (pattern "F-Base_English.guide.info")
  163.     )
  164.   )
  165.  
  166.   (if (in #Catalogs 1)
  167.     (copyfiles
  168.       (source "NewIcons")
  169.       (dest @default-dest)
  170.       (pattern "F-Base_Francais.guide.info")
  171.     )
  172.   )
  173.   )
  174. )
  175.  
  176.