home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / fract / fractalu / install-fu < prev    next >
Encoding:
Text File  |  1995-06-15  |  2.9 KB  |  114 lines
  1. ; FractalUniverse -------------------------------------------------------------------------------------------
  2. (MESSAGE 
  3.     "\n\nWillkommen zur Installation von FractalUniverse !\n\n"
  4. )
  5.  
  6. (SET @default-dest
  7.     (ASKDIR
  8.         (PROMPT "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen FU wird angelegt !")
  9.         (HELP "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  10.         (DEFAULT @default-dest)
  11.     )
  12. )
  13. (MESSAGE "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 0.5 Mb-Speicher frei ist !")
  14.  
  15. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  16. (SET @default-dest (TACKON @default-dest "FU"))
  17. (SET fu-dest @default-dest)
  18. (IF (= (EXISTS fu-dest) 0)
  19.     (MAKEDIR fu-dest (INFOS))
  20. )
  21.  
  22. ; Fonts kopieren --------------------------------------------------------------------------------------------
  23. (COMPLETE 8)
  24. (COPYFILES
  25.     (SOURCE "Fonts/")
  26.     (DEST "FONTS:")
  27.     (ALL)
  28. )
  29.  
  30. ; Farben kopieren -------------------------------------------------------------------------------------------
  31. (COMPLETE 10)
  32. (SET fusub-dest (TACKON fu-dest "Colors"))
  33. (COPYFILES
  34.     (SOURCE "colors/")
  35.     (DEST fusub-dest)
  36.     (ALL)
  37.     (INFOS)
  38. )
  39.  
  40. ; Formeln kopieren ------------------------------------------------------------------------------------------
  41. (COMPLETE 25)
  42. (SET fusub-dest (TACKON fu-dest "Formulas"))
  43. (COPYFILES
  44.     (SOURCE "Formulas/")
  45.     (DEST fusub-dest)
  46.     (ALL)
  47.     (INFOS)
  48. )
  49.  
  50. ; Areas kopieren --------------------------------------------------------------------------------------------
  51. (COMPLETE 40)
  52. (SET fusub-dest (TACKON fu-dest "Areas"))
  53. (COPYFILES
  54.     (SOURCE "Areas/")
  55.     (DEST fusub-dest)
  56.     (ALL)
  57.     (INFOS)
  58. )
  59.  
  60. ; ARexx-Scripte ---------------------------------------------------------------------------------------------
  61. (COMPLETE 55)
  62. (SET fusub-dest (TACKON fu-dest "Rexx"))
  63. (COPYFILES
  64.     (SOURCE "Rexx/")
  65.     (DEST fusub-dest)
  66.     (ALL)
  67.     (INFOS)
  68. )
  69.  
  70. ; Versionsauswahl -------------------------------------------------------------------------------------------
  71. (COMPLETE 70)
  72. (SET pver
  73.     (ASKCHOICE
  74.         (PROMPT "Bitte wählen Sie die zu installierende Programmversion aus !")
  75.         (HELP "Die Version ist von Ihrer verwendeten Computerhardware abhängig !")
  76.         (CHOICES
  77.             "68000"
  78.             "68030-881"
  79. ;            "68040-(881)"
  80.         )
  81.         (DEFAULT 0)
  82.     )
  83. )
  84. (IF (= pver 0)
  85.     (COPYFILES
  86.         (SOURCE "fu/fu.68000")
  87.         (DEST fu-dest)
  88.         (NEWNAME "FractalUniverse")
  89.     )
  90. )
  91. (IF (= pver 1)
  92.     (COPYFILES
  93.         (SOURCE "fu/fu.68030-881")
  94.         (DEST fu-dest)
  95.         (NEWNAME "FractalUniverse")
  96.     )
  97. )
  98. ;(IF (= pver 2)
  99. ;    (COPYFILES
  100. ;        (SOURCE "fu/fu.68040-881")
  101. ;        (DEST fu-dest)
  102. ;        (NEWNAME "FractalUniverse")
  103. ;    )
  104. ;)
  105. (COPYFILES
  106.     (SOURCE "FU/FractalUniverse.info")
  107.     (DEST fu-dest)
  108. )
  109.  
  110. ; Fertig ----------------------------------------------------------------------------------------------------
  111. (EXIT
  112.     "\n\nFU konnte erfolgreich installiert werden.\n"
  113.     "Bitte schlagen Sie im Handbuch nach, um zu erfahren wie das Programm bedient und gestartet wird.\n"
  114. )