; $VER: NameDay_Install 1.0 (30.5.99)
(user 1)
(if (= @language "greek")
 (
  (set #eisa "Καλοσήλθατε στην εγκατάσταση του NameDay.")
  (set #glos "Παρακαλώ διαλέξτε ποια Έκδοση του NameDay θέλετε να εγκαταστήσω:")
  (set #glo1 "Αγγλική")
  (set #glo2 "Ελληνική")
  (set #wbin "Θέλετε να εγκαταστήσω την Workbench έκδοση του NameDay ;")
  (set #wb1 "Όχι")
  (set #wb2 "Ναι, στο SYS:WBStartup")
  (set #wb3 "Ναι, κάπου αλλού")
  (set #wbhe "Εαν θέλεις, μπορώ να εγκαταστήσω την Workbench έκδοση του NameDay,κατά προτίμιση στο κατάλογο WBStartup, ώστε κάθε φορά που ξεκινάς το υπολογιστή σου αυτόματα να σου δείχνει τις εορτές της ημέρας.")
  (set #ddirp "Που θέλεις να εγκαταστήσω την Workbench έκδοση του NameDay;")
 )

 (
  (set #eisa "Welcome to the NameDay installation.")
  (set #glos "Please select your preffered language you want to install:")
  (set #glo1 "English")
  (set #glo2 "Greek")
  (set #wbin "Do you want to install the Workbench version of Nameday ?")
  (set #wb1 "No")
  (set #wb2 "Yes, in SYS:WBStartup")
  (set #wb3 "Yes, elsewhere")
  (set #wbhe "If you want I can install the Workbench version of NameDay, prefferebly to the drawer WBStartup, so everytime you start your computer NameDay will show you a window with today`s namedays.")
  (set #ddirp "Select destination directory to install NameDay Workbench version.")
 )
)
(set @app-name "NameDay 0.3b")
(set @default-dest "C:")
(welcome #eisa)
(complete 0)
(set langselect
  (askchoice
   (prompt #glos)
   (choices #glo1 #glo2)
   (help "")
   (default 0)
  )
)
(set wbselect
  (askchoice
   (prompt #wbin)
   (choices #wb1 #wb2 #wb3)
   (help #wbhe)
   (default 0)
  )
)
(complete 10)
(if (= wbselect 1)
  (
    (if (= langselect 0)
      (copyfiles
        (source "WBStartup/NameDay_e")
        (dest "SYS:WBStartup/")
        (newname "NameDay")
      )
    )
    (if (= langselect 1)
      (copyfiles
        (source "WBStartup/NameDay_gr")
        (dest "SYS:WBStartup/")
        (newname "NameDay")
      )
    )
    (copyfiles
      (source "WBStartup/NameDay.info")
      (dest "SYS:WBStartup/")
    ) 
  )
)
(if (= wbselect 2)
  (
    (set #ddir
      (askdir
        (prompt #dirp)
        (help @askdir-help)
        (default "RAM:")
      )
    )
    (if (= langselect 0)
      (copyfiles
        (source "WBStartup/NameDay_e")
        (dest #ddir)
        (newname "NameDay")
      )
    )
    (if (= langselect 1)
      (copyfiles
        (source "WBStartup/NameDay_gr")
        (dest #ddir)
        (newname "NameDay")
      )
    )
    (copyfiles
      (source "WBStartup/NameDay.info")
      (dest #ddir)
    ) 
  )
)
(complete 45)
(if (= langselect 0)
 (copyfiles
  (source "c/NameDay_e")
  (dest "C:")
  (newname "NameDay")
 )
)
(if (= langselect 1)
 (copyfiles
  (source "c/NameDay_gr")
  (dest "C:")
  (newname "NameDay")
 )
)
(complete 75)
(copyfiles
 (source "s/NameDay.data")
 (dest "S:")
)
(complete 100)