home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / patches / geoworld_update10 / install < prev    next >
Encoding:
Text File  |  1999-11-17  |  1.2 KB  |  58 lines
  1. ;
  2. ; *** GeoWorld  V1.1   © by Beer Productions / 17 Nov 1999 ***
  3. ;
  4. ; $VER: GeoWorld - Installer Update 10 (17.11.99)
  5.  
  6. ;Variablen
  7. (set #appname "GeoWorld")
  8.  
  9.  
  10. (set @default-dest
  11.   (askdir
  12.     (prompt "Wählen Sie das Verzeichnis Ihrer Festplatte, IN DEM sich die GeoWorld-Schublade befindet.\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 #flagdir  (tackon @default-dest "Flaggen/"))
  24. (set #kontdir  (tackon @default-dest "Kontinente/"))
  25.  
  26.  
  27. (working " Installation des GeoWorld-Updates Nr.10 ")
  28.  
  29. (If (Not (Exists (tackon @default-dest "")))
  30.   (message "Konnte das GeoWorld-Verzeichnis nicht finden.\nDie Installation wird abgebrochen.")
  31. )
  32.  
  33.  
  34. (working " Installation des neuen Titelbildes ")
  35. (If (Exists (tackon @default-dest ""))
  36.   (copyfiles
  37.     (help "")
  38.     (SOURCE "10")
  39.     (DEST #kontdir)
  40.     (optional nofail force askuser)
  41.   )
  42. )
  43.  
  44.  
  45. (working " Installation der neuen Länderflaggen ")
  46. (If (Exists (tackon @default-dest ""))
  47.   (set a
  48.     (run ("C:lha x %s %s" "Flaggen.lha" #flagdir)
  49.     )
  50.   )
  51.   (if (<> a 0)
  52.     (message "Fehler beim Installieren des Flaggen-Archivs.")
  53.   )
  54. )
  55.  
  56.  
  57. (exit)
  58.