home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / updates+patches / geoworld_upd03 / install_v1.04_english < prev    next >
Encoding:
Text File  |  1998-03-27  |  1.0 KB  |  52 lines

  1. ;
  2. ; *** GeoWorld  V1.0   © by Beer Productions / 09 Jun 1997 ***
  3. ;
  4. ; $VER: GeoWorld - Update-Installer V1.04 (26.03.98)
  5.  
  6. ;Variablen
  7. (set #appname "GeoWorld")
  8.  
  9.  
  10. (set @default-dest
  11.   (askdir
  12.     (prompt "Choose the directory where you have installed the GeoWorld directory\n")
  13.     (disk)
  14.     (help @askdir-help)
  15.     (default @default-dest)
  16.   )
  17. )
  18.  
  19.  
  20. (set @default-dest (tackon @default-dest "GeoWorld"))
  21. (set #destdir (cat "\"" @default-dest "/" "\""))
  22. (set #dir      (@default-dest ))
  23. (set #data  (tackon @default-dest "Daten/"))
  24.  
  25.  
  26. (working " Installation des GeoWorld-Updates V1.04")
  27.  
  28. (If (Not (Exists (tackon @default-dest "")))
  29.   (message "Couldn't find your GeoWorld directory.\nInstallation will be aborted.")
  30. ;  (exit (quiet))
  31. )
  32.  
  33. (If (Exists (tackon @default-dest ""))
  34.   (copyfiles
  35.     (help "")
  36.     (SOURCE "GeoWorld")
  37.     (DEST #dir)
  38.     (optional nofail force askuser)
  39.   )
  40. )
  41.  
  42. (If (Exists (tackon @default-dest ""))
  43.   (copyfiles
  44.     (help "")
  45.     (SOURCE "e/lo")
  46.     (DEST #data)
  47.     (optional nofail force askuser)
  48.   )
  49. )
  50.  
  51. (exit)
  52.