;
; *** GeoWorld  V1.13   © by Beer Productions / 13 Jan 2002 ***
;
; $VER: GeoWorld - Installer Update 13 (13.01.02)

;Variablen
(set #appname "GeoWorld")

(message "Willkommen zur Installation des Updates Nr. 13\n\n\nGeoWorld V1.13 (Januar 2002)\n\n\n© 1996 - 2002 by Beer Productions\n\nAlle Rechte reserviert.")

(set @default-dest
  (askdir
    (prompt "Wählen Sie das Verzeichnis Ihrer Festplatte, IN DEM sich die GeoWorld-Schublade befindet.\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 #datadir  (tackon @default-dest "Daten/"))
(set #helpdir  (tackon @default-dest "Help/"))
(set #linfdir  (tackon @default-dest "LInfo/"))
(set #sinfdir  (tackon @default-dest "SInfo/"))


(working " Installation des GeoWorld-Updates Nr.13 ")

(If (Not (Exists (tackon @default-dest "Daten/")))
  (abort "Konnte kein korrektes GeoWorld-Verzeichnis\n finden. Die Installation wird abgebrochen.\n\n Bitte beachten Sie, dass Sie das Verzeichnis\n auswählen, in DER sich die GeoWorld-Schublade befindet.")
)


(working " Installation des neuen GeoWorld-Hauptprogramms V1.13 ")
    (set a
      (run ("C:lha x %s %s" "GeoWorld.lha" #destdir)
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Programm-Archivs.")
    )


(working " Installation des neuen Datenarchivs ")
    (set a
      (run ("C:lha x %s %s" "Daten.lha" #datadir)
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Daten-Archivs.")
    )


(working " Installation der neuen Anleitung ")
    (set a
      (run ("C:lha x %s %s" "Anleitung.lha" #destdir)
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren der Anleitung.")
    )


; COUNTRY Updates
(working " Installation der aktualisierten Geschichtsdaten ")
    (set a
      (run ("C:lha x %s %s" "LGes.lha" (tackon #linfdir "Geschichte/"))
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Geschichtsdaten-Archivs.")
    )

(working " Installation der neuen Politikdaten ")
    (set a
      (run ("C:lha x %s %s" "LPol.lha" (tackon #linfdir "Politik/"))
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Politikdaten-Archivs.")
    )

(working " Installation der ersten neuen Naturdaten ")
    (set a
      (run ("C:lha x %s %s" "LNat.lha" (tackon #linfdir "Natur/"))
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Naturdaten-Archivs.")
    )

(working " Installation der aktualisierten Schlüsselwörter (Länder) ")
    (set a
      (run ("C:lha x %s %s" "SZ_Laender.lha" #linfdir)
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren der Schlüsselwörter.")
    )


; CITY Updates
(working " Installation der korrigierten Tourismusdaten (Städte) ")
    (set a
      (run ("C:lha x %s %s" "STou.lha" (tackon #sinfdir "Tourismus/"))
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Tourismusdaten-Archivs.")
    )

(working " Installation der korrigierten Wirtschaftsdaten (Städte) ")
    (set a
      (run ("C:lha x %s %s" "SWir.lha" (tackon #sinfdir "Wirtschaft/"))
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Tourismusdaten-Archivs.")
    )

(working " Installation der aktualisierten Schlüsselwörter (Städte) ")
    (set a
      (run ("C:lha x %s %s" "SZ_Staedte.lha" #sinfdir)
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren der Schlüsselwörter.")
    )

(exit)