;
; *** GeoWorld  V1.11   © by Beer Productions / 18 Feb 2000 ***
;
; $VER: GeoWorld - Installer Update 11 (18.02.00)

;Variablen
(set #appname "GeoWorld")

(message "Willkommen zur Installation des Updates Nr. 11\n\n\nGeoWorld V1.11 (Februar 2000)\n\n\n© 1996 - 2000 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 #vinfdir  (tackon @default-dest "VInfo/"))


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

(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 die Schublade\n auswählen, in DER sich die GeoWorld-Schublade befindet.")
)


(working " Installation des neuen GeoWorld-Hauptprogramms V1.11 ")
    (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 erweiterten Online-Hilfe ")
    (set a
      (run ("C:lha x %s %s" "Help.lha" #helpdir)
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren der Online-Hilfe.")
    )


;Erstellen der Vereinigungen-Schublade
  (makedir (tackon @default-dest "VInfo")
           (prompt "Erstellen der Vereinigungen-Schublade")
           (help @makedir-help)
  )


(working " Installation der Informationen zu Vereinigungen ")
    (set a
      (run ("C:lha x %s %s" "VInfo.lha" #vinfdir)
      )
    )
    (if (<> a 0)
      (message "Fehler beim Installieren des Vereinigungen-Archivs.")
    )

(exit)