;
; *** GeoWorld  V1.1   © by Beer Productions / 27 Aug 1999 ***
;
; $VER: GeoWorld - Update-Installer V1.1 (27.08.99)

;Variablen
(set #appname "GeoWorld")


(message "Willkommen zur Installation des Updates Nr. 9\n\n\nGeoWorld V1.1 (August 1999)\n\n\n© 1996 - 1999 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 V1.1 ")

(If (Not (Exists (tackon @default-dest "")))
  (abort "Konnte das GeoWorld-Verzeichnis nicht finden.\nDie Installation wird abgebrochen.")
)


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

(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 GeoWorld-Fonts")
  (set a
    (run ("C:lha x %s %s" "Fonts.lha" #fontdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der GeoWorld-Fonts.")
  )

(working " Installation der neuen Online-Hilfe ")
  (set a
    (run ("C:lha x %s %s" "Help.lha" #helpdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Online-Hilfe.")
  )


(working "Installation der neuen Bevölkerungsdaten")
  (set a
    (run ("C:lha x %s %s" "LBev.lha" (tackon #linfdir "Bevoelkerung/"))
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Bevölkerungsdaten")
  )

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

  (set a
    (run ("C:lha x %s %s" "SZ_Laender.lha" #linfdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Länder-Stichwörter")
  )


(working "Installation der erweiterten Städte-Infos")
  (set a
    (run ("C:lha x %s %s" "SGes.lha" (tackon #sinfdir "Geschichte/"))
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Städte-Infos")
  )

  (set a
    (run ("C:lha x %s %s" "SInf.lha" (tackon #sinfdir "Infrastruktur/"))
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Städte-Infos")
  )

  (set a
    (run ("C:lha x %s %s" "STou.lha" (tackon #sinfdir "Tourismus/"))
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Städte-Infos")
  )

  (set a
    (run ("C:lha x %s %s" "SWir.lha" (tackon #sinfdir "SWir/"))
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Städte-Infos")
  )

  (set a
    (run ("C:lha x %s %s" "SZ_Staedte.lha" #sinfdir)
    )
  )
  (if (<> a 0)
    (message "Fehler beim Installieren der Städte-Infos")
  )


(working " Installieren der überarbeiteten Anleitung ")
  (copyfiles
    (help "")
    (SOURCE "Anleitung")
    (DEST @default-dest)
    (optional nofail force askuser)
  )

  (copyfiles
    (help "")
    (SOURCE "Anleitung.info")
    (DEST @default-dest)
    (optional nofail force askuser)
  )

(exit)