;Solohalma V1.1 Installationsscript

(if (= @language "deutsch")
 (
  (set #welcome_str (cat "Willkommen zu " @app-name " Version 1.1\n©1998-99 Andreas Barth\nDas Programm ist FREEWARE!"))
  (set #askdestdir_str (cat "Wohin soll " @app-name " installiert werden?\n(ein Verzeichnis '" @app-name "' wird automatisch erstellt)"))
  (set #asklang_str "Wähle deine Sprache(n):")
 )
 (
  (set #welcome_str (cat "Welcome to " @app-name " Version 1.1\n©1998-99 Andreas Barth\nThe program is FREEWARE!"))
  (set #askdestdir_str (cat "Please select where to install " @app-name "\n(a directory '" @app-name "' will be created automatically)"))
  (set #asklang_str "Choose your language(s):")
 )
)

;hier geht's los ...
;... mit den Fragen ...
(welcome #welcome_str)
(set #destdir (askdir (prompt #askdestdir_str) (help @askdir-help) (default @default-dest) (disk)))
(set #instlang (askoptions (prompt #asklang_str) (help @askchoise-help) (default 0) (choices "deutsch" "english" "hrvatski" "italiano" "magyar" "norsk" "slovensko" "srpski" "svenska")))

;... und nun kommten die Aktionen ...
(set #destdir (tackon #destdir @app-name))
(set @default-dest #destdir)
(makedir #destdir (infos))

;... kopieren des Hauptprogrammes ...
(copyfiles (source @app-name) (dest #destdir) (infos))

;... kopieren der Anleitung ...
(if (IN #instlang 0)
 (
  (copyfiles (source (cat @app-name "_deutsch.guide")) (dest #destdir) (infos))
 )
) 
(if (IN #instlang 6)
 (
  (copyfiles (source (cat @app-name "_slovensko.guide")) (dest #destdir) (infos))
 )
) 
(if (IN #instlang 1 2 3 4 5 6 7 8)
 (
  (copyfiles (source (cat @app-name "_english.guide")) (dest #destdir) (infos))
 )
)

;... kopiere ATO.readme ...
(copyfiles (source "ATO.readme") (dest #destdir) (infos))

;... kopieren der catalog-files ...
(makedir (tackon #destdir "catalogs"))

(if (IN #instlang 1)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "english"))
 )
) 
(if (IN #instlang 2)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "hrvatski"))
 )
) 
(if (IN #instlang 3)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "italiano"))
 )
) 
(if (IN #instlang 4)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "maygar"))
 )
) 
(if (IN #instlang 5)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "norsk"))
 )
) 
(if (IN #instlang 6)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "slovensko"))
 )
) 
(if (IN #instlang 7)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "srpski"))
 )
) 
(if (IN #instlang 8)
 (
  (copyfiles (source "catalogs") (dest (tackon #destdir "catalogs")) (pattern "svenska"))
 )
)