home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 109 / af109sub.adf / Geometry_13.lzx / Geometry / Deutsch next >
Text File  |  2000-02-25  |  3KB  |  108 lines
  1. (set #progname "Geometry V1.3")
  2.  
  3. ; --- Kickstart-Version überprüfen ---
  4. (set vernum (getversion))
  5. (set kickstart (/ vernum 65536))
  6. (set #badkicktxt
  7.     (cat "\n" #progname "\n\nbenötigt Amiga-OS 2.04 (V37) oder höher!\n\n"
  8.     "Ihre Kickstart-Version ist " kickstart ".")
  9. )
  10.  
  11. (if (< kickstart 37)
  12.     (
  13.     (message (#badkicktxt))
  14.     (abort #progname ": Installation abgebrochen!")
  15.     )
  16. )
  17.  
  18. ;  --- Libraries überprüfen ---
  19. (set #mathlib1 "libs:mathieeedoubbas.library")
  20. (set #mathlib2 "libs:mathieeedoubtrans.library")
  21. (set #nomathlibstxt "\nEs werden folgende Libraries benötigt:\n\n")
  22. (if (not (exists #mathlib1))
  23.     (message (cat #nomathlibstxt #mathlib1 "\n" #mathlib2))
  24. )
  25.  
  26. ;-----------------------------------------------------
  27.  
  28. (set #help1
  29.     (cat "Wählen Sie das Ziel-Verzeichnis für das Programm\n"
  30.     "Es wird kein neues Verzeichnis angelegt!")
  31. )
  32.  
  33. (set #getdesttxt
  34.     (cat "\n" #progname " Installation\n"
  35.     "Wählen Sie das Ziel-Verzeichnis für das Programm.\n"
  36.     "Es wird kein neues Verzeichnis angelegt!"
  37.     )
  38. )
  39.  
  40. (set #destpath
  41.     (askdir
  42.         (prompt #getdesttxt)
  43.         (help #help1)
  44.         (default ":")
  45.     )
  46. )
  47.  
  48. ; --- Hauptprogramm + icon kopieren ---
  49. (if (not (exists (cat #destpath "Geometry.info")))
  50.             (copyfiles
  51.                 (source "")
  52.                 (dest #destpath)
  53.                 (pattern "Geometry.info")
  54.             )
  55. )
  56. (copyfiles
  57.     (source "")
  58.     (dest #destpath)
  59.     (pattern "Geometry")
  60. )
  61. ; --- Catalog kopieren ---
  62. (copyfiles
  63.     (source "locale/deutsch")
  64.     (dest "locale:catalogs/deutsch/")
  65.     (pattern "Geometry.catalog")
  66.     (help @copyfiles-help)
  67. )
  68.  
  69. ; --- Guide kopieren ---
  70.  
  71. (set #helppath
  72.     (askdir
  73.         (prompt "Wählen Sie ein Verzeichnis für die\nAmigaGuide-Dokumentation:")
  74.         (help @askdir-help)
  75.         (default #destpath)
  76.     )
  77. )
  78.  
  79. (copyfiles
  80.     (source "")
  81.     (dest #helppath)
  82.     (pattern "Geometry.guide")
  83.     (help @copyfiles-help)
  84. )
  85. (copyfiles
  86.     (source "")
  87.     (dest #helppath)
  88.     (pattern "Geometry.guide.info")
  89.     (help @copyfiles-help)
  90. )
  91.  
  92. (
  93.     (message
  94.         (cat "\n" #progname " ist SHAREWARE!\n"
  95.         "Wenn Sie das Programm öfter verwenden, schicken Sie\n"
  96.         "DM 8.- oder US$ 5.- oder öS 60.- oder Lit. 8000.-\n"
  97.         "an F. Agnoli, Schabs 143, I-39040 NATZ-SCHABS, Italien.\n"
  98.         "E-Mail: Francesco.Agnoli@gmx.net")
  99.     )
  100. )
  101.  
  102. (message "\nDie Installation von »" #progname "«"
  103.          "\nist abgeschlossen!"
  104.          "\n"
  105.          "\nSie finden das Programm"
  106.          "\nim Verzeichnis »" #destpath "«.")
  107. (exit (quiet))
  108.