; Installationsskript für das Programm Vokabeltrainer von Wagner Michael.
(if (= @language "deutsch")(

(set #QUESTDIR
(cat "In welche Schublade soll \"Vokabeltrainer\" installiert werden ?\n(Eine Schublade wird angelegt !)"))
(set #QUESTDISK1 "Bitte legen Sie die Diskette \"")
(set #QUESTDISK2 "\" ein.")
(set #QUESTFILE1 "Wollen Sie die Datei \"")
(set #QUESTFILE2 "\" kopieren ?")
(set #QUESTFILES "Möchten Sie diese Datei(en) kopieren ?")
(set #QUESTASSIGN
(cat "Damit das Programm perfekt funktioniert, müssen\nAssigns in die \"User-Startup\" hinzugefügt werden !"))
(set #CHOOSEOPT  "Wählen Sie eine Option:")
(set #ASKTEMPDIR "Wo soll ein temporäres Verzeichnis zum Entpacken der Dateien angelegt werden?")
(set #USER_ABORT "Skript wurde vom Benutzer abgebrochen...")
(set #MEMORY     "Nicht genug Speicherplatz auf dem Datenträger vorhanden...")
(set #ERROR_1    "Konnte die Datei \"")
(set #ERROR_2    "\" nicht finden!\nDas Skript wird fortgefahren...")

;END IF
))
(if (= @language "english")(

(set #QUESTDIR
(cat "In which drawer should \"Vokabeltrainer\" be installed ?\n(A Drawer will be created !)"))
(set #QUESTDISK1 "Please insert disk \"")
(set #QUESTDISK2 "\" in any drive.")
(set #QUESTFILE1 "Would you like to copy the file \"")
(set #QUESTFILE2 "\" ?")
(set #QUESTFILES "Would you like to copy this file(s) ?")
(set #QUESTASSIGN
(cat "Would you like to set Assigns for the program ?"))
(set #CHOOSEOPT  "Select Option:")
(set #ASKTEMPDIR "Where should a temp. directory be created?")
(set #USER_ABORT "User abort...")
(set #MEMORY     "Not enough memory on your destination...")
(set #ERROR_1    "Couldn't find the file \"")
(set #ERROR_2    "\"!\n\nPlease press \"proceed\" to continue")

;END IF
))


(set my_dest
 (tackon
   (askdir
     (prompt #QUESTDIR)
     (help @askdir-help)
     (default @default-dest)
   )
   "Vokabeltrainer"
 )
)

(set @default-dest my_dest)
(makedir @default-dest (infos))
(if (> 163515 (getdiskspace my_dest))
  (exit #MEMORY (quiet)))

(copyfiles
  (source "data/")
  (pattern "Beispiel.vok")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "Vokabeltrainer.cs")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "Vokabeltrainer.guide")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "Vokabeltrainer.guide.info")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "Vokabeltrainer_V2.3")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "Vokabeltrainer_V2.3.info")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "VokabeltrV2.3.readme")
  (dest (tackon my_dest ""))
)
(makedir "Locale:Catalogs/")
(makedir "Locale:Catalogs/deutsch/")
(copyfiles
  (source "data/Locale/Catalogs/deutsch/")
  (pattern "vokabeltrainer.catalog")
  (dest "Locale:Catalogs/deutsch/")
)