home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / GeoWorld / GeoWorld_Update / Install_V1.05 < prev    next >
Encoding:
Text File  |  1998-10-06  |  6.3 KB  |  280 lines
  1. ;
  2. ; *** GeoWorld  V1.0   © by Beer Productions / 09 Jun 1997 ***
  3. ;
  4. ; $VER: GeoWorld - Update-Installer V1.05 (10.05.98)
  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 #datadir  (tackon @default-dest "Daten/"))
  24. (set #flagdir  (tackon @default-dest "Flaggen/"))
  25. (set #helpdir  (tackon @default-dest "Help/"))
  26. (set #kontdir  (tackon @default-dest "Kontinente/"))
  27. (set #laendir  (tackon @default-dest "Laender/"))
  28. (set #sampdir  (tackon @default-dest "Samples/"))
  29. (set #linfdir  (tackon @default-dest "LInfo/"))
  30. (set #sinfdir  (tackon @default-dest "SInfo/"))
  31.  
  32.  
  33. (working " Installation des GeoWorld-Updates V1.05 ")
  34.  
  35. (If (Not (Exists (tackon @default-dest "")))
  36.   (message "Konnte das GeoWorld-Verzeichnis nicht finden.\nDie Installation wird abgebrochen.")
  37. ;  (exit (quiet))
  38. )
  39.  
  40. (working " Installation des neuen GeoWorld-Hauptprogramms V1.05 ")
  41. (If (Exists (tackon @default-dest ""))
  42.   (copyfiles
  43.     (help "")
  44.     (SOURCE "GeoWorld")
  45.     (DEST #dir)
  46.     (optional nofail force askuser)
  47.   )
  48. )
  49.  
  50. (working " Installation des neuen Datenarchivs ")
  51. (If (Exists (tackon @default-dest ""))
  52.   (set a
  53.     (run ("C:lha x %s %s" "Daten.lha" #datadir)
  54.     )
  55.   )
  56.   (if (<> a 0)
  57.     (message "Fehler beim Installieren des Daten-Archivs.")
  58.   )
  59. )
  60.  
  61. (working " Installation der neuen Länderflaggen ")
  62. (If (Exists (tackon @default-dest ""))
  63.   (set a
  64.     (run ("C:lha x %s %s" "Flaggen.lha" #flagdir)
  65.     )
  66.   )
  67.   (if (<> a 0)
  68.     (message "Fehler beim Installieren des Flaggen-Archivs.")
  69.   )
  70. )
  71.  
  72. (working " Installation der Länderinformations-Dateien (Bevölkerung) ")
  73. (If (Exists (tackon @default-dest ""))
  74.   (set a
  75.     (run ("C:lha x %s %s" "LInfo/LBev.lha" (tackon #linfdir "Bevoelkerung/"))
  76.     )
  77.   )
  78.   (if (<> a 0)
  79.     (message "Fehler beim Installieren des Länderinformationen-Archivs.")
  80.   )
  81. )
  82.  
  83. (working " Installation der Länderinformations-Dateien (Geschichte) ")
  84. (If (Exists (tackon @default-dest ""))
  85.   (set a
  86.     (run ("C:lha x %s %s" "LInfo/LGes.lha" (tackon #linfdir "Geschichte/"))
  87.     )
  88.   )
  89.   (if (<> a 0)
  90.     (message "Fehler beim Installieren des Länderinformationen-Archivs.")
  91.   )
  92. )
  93.  
  94. (working " Installation der Länderinformations-Dateien (Natur) ")
  95. (If (Exists (tackon @default-dest ""))
  96.   (set a
  97.     (run ("C:lha x %s %s" "LInfo/LNat.lha" (tackon #linfdir "Natur/"))
  98.     )
  99.   )
  100.   (if (<> a 0)
  101.     (message "Fehler beim Installieren des Länderinformationen-Archivs.")
  102.   )
  103. )
  104.  
  105. (working " Installation der Länderinformations-Dateien (Politik) ")
  106. (If (Exists (tackon @default-dest ""))
  107.   (set a
  108.     (run ("C:lha x %s %s" "LInfo/LPol.lha" (tackon #linfdir "Politik/"))
  109.     )
  110.   )
  111.   (if (<> a 0)
  112.     (message "Fehler beim Installieren des Länderinformationen-Archivs.")
  113.   )
  114. )
  115.  
  116. (working " Installation der Länderinformations-Dateien (Sonstiges) ")
  117. (If (Exists (tackon @default-dest ""))
  118.   (set a
  119.     (run ("C:lha x %s %s" "LInfo/LSon.lha" (tackon #linfdir "Sonstiges/"))
  120.     )
  121.   )
  122.   (if (<> a 0)
  123.     (message "Fehler beim Installieren des Länderinformationen-Archivs.")
  124.   )
  125. )
  126.  
  127. (working " Installation der Länderinformations-Dateien (Wirtschaft) ")
  128. (If (Exists (tackon @default-dest ""))
  129.   (set a
  130.     (run ("C:lha x %s %s" "LInfo/LWir.lha" (tackon #linfdir "Wirtschaft/"))
  131.     )
  132.   )
  133.   (if (<> a 0)
  134.     (message "Fehler beim Installieren des Länderinformationen-Archivs.")
  135.   )
  136. )
  137.  
  138. (working " Installation der Länderinformations-Dateien (Schlüsselwörter) ")
  139. (If (Exists (tackon @default-dest ""))
  140.   (copyfiles
  141.     (help "")
  142.     (SOURCE "LInfo/SZ_Bevoelkerung")
  143.     (DEST #linfdir)
  144.     (optional nofail force askuser)
  145.   )
  146. )
  147.  
  148. (If (Exists (tackon @default-dest ""))
  149.   (copyfiles
  150.     (help "")
  151.     (SOURCE "LInfo/SZ_Natur")
  152.     (DEST #linfdir)
  153.     (optional nofail force askuser)
  154.   )
  155. )
  156.  
  157. (If (Exists (tackon @default-dest ""))
  158.   (copyfiles
  159.     (help "")
  160.     (SOURCE "LInfo/SZ_Politik")
  161.     (DEST #linfdir)
  162.     (optional nofail force askuser)
  163.   )
  164. )
  165.  
  166. (If (Exists (tackon @default-dest ""))
  167.   (copyfiles
  168.     (help "")
  169.     (SOURCE "LInfo/SZ_Sonstiges")
  170.     (DEST #linfdir)
  171.     (optional nofail force askuser)
  172.   )
  173. )
  174.  
  175.  
  176.  
  177. (working " Löschen der alten Städteinformationsdateien ")
  178.   (set a
  179.     (run ("C:delete %s" (tackon #sinfdir "Geschichte/#?")))
  180.   )
  181.  
  182.   (set a
  183.     (run ("C:delete %s" (tackon #sinfdir "Infrastruktur/#?")))
  184.   )
  185.  
  186.   (set a
  187.     (run ("C:delete %s" (tackon #sinfdir "Sonstiges/#?")))
  188.   )
  189.  
  190.   (set a
  191.     (run ("C:delete %s" (tackon #sinfdir "Tourismus/#?")))
  192.   )
  193.  
  194.   (set a
  195.     (run ("C:delete %s" (tackon #sinfdir "Wirtschaft/#?")))
  196.   )
  197.  
  198.  
  199.  
  200. (working " Installation der neuen Städteinformations-Dateien ")
  201. (If (Exists (tackon @default-dest ""))
  202.   (set a
  203.     (run ("C:lha x %s %s" "SInfo/SGes.lha" (tackon #sinfdir "Geschichte/"))
  204.     )
  205.   )
  206.   (if (<> a 0)
  207.     (message "Fehler beim Installieren des Städteinformationen-Archivs.")
  208.   )
  209. )
  210.  
  211. (If (Exists (tackon @default-dest ""))
  212.   (set a
  213.     (run ("C:lha x %s %s" "SInfo/SInf.lha" (tackon #sinfdir "Infrastruktur/"))
  214.     )
  215.   )
  216.   (if (<> a 0)
  217.     (message "Fehler beim Installieren des Städteinformationen-Archivs.")
  218.   )
  219. )
  220.  
  221. (If (Exists (tackon @default-dest ""))
  222.   (set a
  223.     (run ("C:lha x %s %s" "SInfo/SSon.lha" (tackon #sinfdir "Sonstiges/"))
  224.     )
  225.   )
  226.   (if (<> a 0)
  227.     (message "Fehler beim Installieren des Städteinformationen-Archivs.")
  228.   )
  229. )
  230.  
  231. (If (Exists (tackon @default-dest ""))
  232.   (set a
  233.     (run ("C:lha x %s %s" "SInfo/STou.lha" (tackon #sinfdir "Tourismus/"))
  234.     )
  235.   )
  236.   (if (<> a 0)
  237.     (message "Fehler beim Installieren des Städteinformationen-Archivs.")
  238.   )
  239. )
  240.  
  241. (If (Exists (tackon @default-dest ""))
  242.   (set a
  243.     (run ("C:lha x %s %s" "SInfo/SWir.lha" (tackon #sinfdir "Wirtschaft/"))
  244.     )
  245.   )
  246.   (if (<> a 0)
  247.     (message "Fehler beim Installieren des Städteinformationen-Archivs.")
  248.   )
  249. )
  250.  
  251. (If (Exists (tackon @default-dest ""))
  252.   (copyfiles
  253.     (help "")
  254.     (SOURCE "SInfo/SZ_Infrastruktur")
  255.     (DEST #sinfdir)
  256.     (optional nofail force askuser)
  257.   )
  258. )
  259.  
  260. (If (Exists (tackon @default-dest ""))
  261.   (copyfiles
  262.     (help "")
  263.     (SOURCE "SInfo/SZ_Tourismus")
  264.     (DEST #sinfdir)
  265.     (optional nofail force askuser)
  266.   )
  267. )
  268.  
  269. (If (Exists (tackon @default-dest ""))
  270.   (copyfiles
  271.     (help "")
  272.     (SOURCE "SInfo/SZ_Wirtschaft")
  273.     (DEST #sinfdir)
  274.     (optional nofail force askuser)
  275.   )
  276. )
  277.  
  278.  
  279. (exit)
  280.