;
; *** GeoWorld  V1.0   © by Beer Productions / 09 Jun 1997 ***
;
; $VER: GeoWorld - Update-Installer V1.0 (28.12.97)

;Variablen
(set #appname "GeoWorld")


(set @default-dest
  (askdir
    (prompt "Wählen Sie das Verzeichnis Ihrer Festplatte, in dem sich die GeoWorld-Schublade befindet.\nChoose the directory where you have installed the GeoWorld directory\n")
    (disk)
    (help @askdir-help)
    (default @default-dest)
  )
)


(set @default-dest (tackon @default-dest "GeoWorld"))
(set #destdir (cat "\"" @default-dest "/" "\""))
(set #dir      (@default-dest ))
; (set #dokudir  (tackon @default-dest "Dokumentation/"))
(set #linfdir  (tackon @default-dest "LInfo/"))
(set #sinfdir  (tackon @default-dest "SInfo/"))


(If (Not (Exists (tackon @default-dest "Keyfile")))
  (message "Konnte Ihr Keyfile nicht finden.\nInstallation wird abgebrochen.\n\nI can't find your keyfile.\nThe installation will be aborted.")
;  (exit (quiet))
)

(working " Installation der Länderinformations-Dateien ")
(If (Exists (tackon @default-dest "Keyfile"))
  (set a
    (run ("C:lha x %s %s" "LBev.lha" #linfdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  )
)

(If (Exists (tackon @default-dest "Keyfile"))
  (set a
    (run ("C:lha x %s %s" "LGes.lha" #linfdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  )
)

(If (Exists (tackon @default-dest "Keyfile"))
  (set a
    (run ("C:lha x %s %s" "LNat.lha" #linfdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  )
)

(If (Exists (tackon @default-dest "Keyfile"))
  (set a
    (run ("C:lha x %s %s" "LPol.lha" #linfdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  )
)

(If (Exists (tackon @default-dest "Keyfile"))
  (set a
    (run ("C:lha x %s %s" "LWir.lha" #linfdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  )
)

(copyfiles
  (help "")
  (SOURCE "SZ_Bevoelkerung")
  (DEST #linfdir)
  (optional nofail force askuser)
)

(copyfiles
  (help "")
  (SOURCE "SZ_Natur")
  (DEST #linfdir)
  (optional nofail force askuser)
)

(copyfiles
  (help "")
  (SOURCE "SZ_Politik")
  (DEST #linfdir)
  (optional nofail force askuser)
)

(copyfiles
  (help "")
  (SOURCE "SZ_Sonstiges")
  (DEST #linfdir)
  (optional nofail force askuser)
)

(copyfiles
  (help "")
  (SOURCE "SZ_Wirtschaft")
  (DEST #sinfdir)
  (optional nofail force askuser)
)

(exit)