;*
;* Install Script For F-Base V2.0
;*  
;* 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.")
  (set #FBIcon "Select your icons"))
)


;*** 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")
  (set #FBIcon "Choisissez votre type d'icone"))
)


;*** 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")
  (set #FBIcon "Select your icons"))
)


;*** 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")
  (set #FBIcon "Select your icons"))
)


;*** 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"
    )
  )
)

;*** Select Icon ***

(set #Icons
  (askchoice
    (prompt #FBIcon)
    (Help "")
    (choices
      "Magic WB"
      "NewIcons"
    )
  )
)

;*** 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|F-Base.pic)")
  (infos)
)

;*** Icons Files ***


(if (= #Icons 1)
  (
  (copyfiles
    (source "NewIcons")
    (dest @default-dest)
    (pattern "(F-Base.info|F-BPrefs.info)")
  )

  (if (in #Catalogs 0)
    (copyfiles
      (source "NewIcons")
      (dest @default-dest)
      (pattern "F-Base_English.guide.info")
    )
  )

  (if (in #Catalogs 1)
    (copyfiles
      (source "NewIcons")
      (dest @default-dest)
      (pattern "F-Base_Francais.guide.info")
    )
  )
  )
)