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

(set #QUESTDIR
(cat "In welche Schublade soll \"Greatkartei\" 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 \"Greatkartei\" 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)
   )
   "Greatkartei"
 )
)

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

(copyfiles
  (source "data/")
  (pattern "GreatKartei.info")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "GreatKartei.guide.info")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "GreatKartei.guide")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "GreatKartei")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "gkartei6.1.4.readme")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "Gkartei.cs")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "Disk.info")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/c/")
  (pattern "Fileauswahler")
  (dest "c:")
)
(makedir "locale:catalogs/")
(makedir "locale:catalogs/deutsch/")
(copyfiles
  (source "data/locale/catalogs/deutsch/")
  (pattern "gkartei.catalog")
  (dest "locale:catalogs/deutsch/")
)
(makedir (tackon my_dest "data/"))
(copyfiles
  (source "data/data/")
  (pattern "SculdeTermine.ied")
  (dest (tackon my_dest "data/"))
)
(copyfiles
  (source "data/data/")
  (pattern "Personen.great")
  (dest (tackon my_dest "data/"))
)
(copyfiles
  (source "data/data/")
  (pattern "Personen.geaendert")
  (dest (tackon my_dest "data/"))
)
(copyfiles
  (source "data/data/")
  (pattern "Organiser1.ied")
  (dest (tackon my_dest "data/"))
)
(copyfiles
  (source "data/data/")
  (pattern "GreatkarteiV6.0.ied")
  (dest (tackon my_dest "data/"))
)
(copyfiles
  (source "data/data/")
  (pattern "Film.great")
  (dest (tackon my_dest "data/"))
)
(copyfiles
  (source "data/data/")
  (pattern "Film.geaendert")
  (dest (tackon my_dest "data/"))
)
(makedir (tackon my_dest "data/film/"))
(copyfiles
  (source "data/data/film/")
  (pattern "3")
  (dest (tackon my_dest "data/film/"))
)
(copyfiles
  (source "data/data/film/")
  (pattern "2")
  (dest (tackon my_dest "data/film/"))
)
(copyfiles
  (source "data/data/film/")
  (pattern "1")
  (dest (tackon my_dest "data/film/"))
)
(makedir (tackon my_dest "data/personen/"))
(copyfiles
  (source "data/data/personen/")
  (pattern "3")
  (dest (tackon my_dest "data/personen/"))
)
(copyfiles
  (source "data/data/personen/")
  (pattern "2")
  (dest (tackon my_dest "data/personen/"))
)
(copyfiles
  (source "data/fonts/")
  (pattern "topaz13.font")
  (dest "fonts:")
)
(copyfiles
  (source "data/fonts/")
  (pattern "GTBGadget.font")
  (dest "fonts:")
)
(makedir "fonts:gtbgadget/")
(copyfiles
  (source "data/fonts/gtbgadget/")
  (pattern "8f")
  (dest "fonts:gtbgadget/")
)
(makedir "fonts:topaz13/")
(copyfiles
  (source "data/fonts/topaz13/")
  (pattern "9e")
  (dest "fonts:topaz13/")
)
(copyfiles
  (source "data/fonts/topaz13/")
  (pattern "8")
  (dest "fonts:topaz13/")
)
(copylib
  (source "data/libs/reqtools.library")
  (dest "libs:")
  (confirm)
  (prompt (cat #QUESTFILE1 "reqtools.library" #QUESTFILE2))
  (help @copylib-help)
)
(copylib
  (source "data/libs/reqtools.library")
  (dest "libs:")
  (confirm)
  (prompt (cat #QUESTFILE1 "reqtools.library" #QUESTFILE2))
  (help @copylib-help)
)
(copylib
  (source "data/libs/explode.library")
  (dest "libs:")
  (confirm)
  (prompt (cat #QUESTFILE1 "explode.library" #QUESTFILE2))
  (help @copylib-help)
)
(copylib
  (source "data/libs/explode.library")
  (dest "libs:")
  (confirm)
  (prompt (cat #QUESTFILE1 "explode.library" #QUESTFILE2))
  (help @copylib-help)
)
(copyfiles
  (source "data/s/")
  (pattern "gkartei.key")
  (dest "s:")
)
(copyfiles
  (source "data/envarc/")
  (pattern "gkmain.prefs")
  (dest "envarc:")
)
(copyfiles
  (source "data/envarc/")
  (pattern "gkdruck.prefs")
  (dest "envarc:")
)
(copyfiles
  (source "data/env/")
  (pattern "gkmain.prefs")
  (dest "env:")
)
(copyfiles
  (source "data/env/")
  (pattern "gkdruck.prefs")
  (dest "env:")
)