home *** CD-ROM | disk | FTP | other *** search
- ;
- ; *** GeoWorld V1.0 © by Beer Productions / 09 Jun 1997 ***
- ;
- ; $VER: GeoWorld - Update-Installer V1.04 (26.03.98)
-
- ;Variablen
- (set #appname "GeoWorld")
-
-
- (set @default-dest
- (askdir
- (prompt "Choose 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 #data (tackon @default-dest "Daten/"))
-
-
- (working " Installation des GeoWorld-Updates V1.04")
-
- (If (Not (Exists (tackon @default-dest "")))
- (message "Couldn't find your GeoWorld directory.\nInstallation will be aborted.")
- ; (exit (quiet))
- )
-
- (If (Exists (tackon @default-dest ""))
- (copyfiles
- (help "")
- (SOURCE "GeoWorld")
- (DEST #dir)
- (optional nofail force askuser)
- )
- )
-
- (If (Exists (tackon @default-dest ""))
- (copyfiles
- (help "")
- (SOURCE "e/lo")
- (DEST #data)
- (optional nofail force askuser)
- )
- )
-
- (exit)
-