;*
;* Install Script For F-Base V1.3
;*  
;* Done By ----> AlphaSOUND <----
;*

(set #Langage
  (askchoice
    (prompt "Select your langage for the installer procedure")
    (Help "")
    (choices
      "English"
      "Francais"
      "Deutsch"
      "Italiano"
    )
  )
)


;*** English ***

(if (= #Langage 0)
  ((set #FBDirPrompt "Where do you want to install F-Base ? A Drawer called F-Base will be created.")
  (set #FBDirHelp "")
  (set #FBLangSel "Select the languages to install with F-Base."))
)


;*** Francais ***

(if (= #Langage 1)
  ((set #FBDirPrompt "Où voulez-vous installer F-Base ? Un Tiroir sera automatiquement créé.")
  (set #FBDirHelp "")
  (set #FBLangSel "Choisissez quels langages vous voulez avoir pour F-Base"))
)


;*** Deutsch ***

(if (= #Langage 2)
  ((set #FBDirPrompt "Where do you want to install F-Base ? A Drawer called F-Base will be created.")
  (set #FBDirHelp "")
  (set #FBLangSel "Select the language(s) to install with F-Base"))
)


;*** Italiano ***  ; By Allessandro "cralex"

(if (= #Langage 3)
  ((set #FBDirPrompt "Seleziona il Tuo Percorso. Verrà Creato lì un Cassetto.")
  (set #FBDirHelp "")
  (set #FBLangSel "Select the languages to install with F-Base"))
)


;*** Directory Select ***

(set DestDir
  (askdir
    (prompt #FBDirPrompt)
    (help #FBDirHelp)
    (default "SYS:")
  )
)

(set DestDir (expandpath DestDir))
(set @default-dest (tackon DestDir "F-Base"))

(makedir @default-dest (infos))

;*** Select Langages ***

(set #Catalogs
  (askoptions
    (prompt #FBLangSel)
    (help "")
    (choices
      "English"
      "Francais"
      "Deutsch"
      "Italiano"
    )
  )
)


;*** Copy Files ***

(if (in #Catalogs 0)
  (copyfiles
    (source "")
    (dest @default-dest)
    (pattern "(F-Base.lang.uk|F-Base_English.guide)")
    (infos)
  )
)


(if (in #Catalogs 1)
  (copyfiles
    (source "")
    (dest @default-dest)
    (pattern "(F-Base.lang.fr|F-Base_Francais.guide)")
    (infos)
  )
)


(if (in #Catalogs 2)
  (copyfiles
    (source "F-Base.lang.de")
    (dest @default-dest)
  )
)


(if (in #Catalogs 3)
  (copyfiles
    (source "F-Base.lang.it")
    (dest @default-dest)
  )
)

;*** Main Files ***

(copyfiles
  (source "")
  (dest @default-dest)
  (pattern "(F-Base|BBase3-->F-Base|F-BPrefs|FInfo|Exemple2|Exemple1)")
  (infos)
)