;
; Installationsskript zu Graph2D V1.30
;       ©1994 by Kai Nickel
;

(set OSVersion   (/ (getversion) 65536))
(set WBVersion   (/ (getversion "version.library" (resident)) 65536))
(set MUIVersion  8)

(complete 0)




; *** Check OS Version

(if (< OSVersion 36)
  (
    (message ("Es sieht so aus, als ob sie OS 1.3 oder kleiner benutzen. Graph2D läuft aber erst ab OS 2.0.\nSie sollten sich überlegen, OS 3.1 anzuschaffen!\n"))
  )
)

(complete 5)





; **** Check MUI System

(if (exists ("Libs:MUIMASTER.library"))
  (
    (set muiver (/ (getversion "Libs:MUIMASTER.library") 65536))
    (if (< muiver MUIVersion)
      (message ("Ihr MUI System scheint zu alt zu sein, Graph2D braucht mindestens MUI 2.1.\nSie haben nur die Version %ld installiert.\n" muiver)
               ("Natürlich können Sie mit der Installation fortfahren, aber vergessen Sie nicht, Ihr MUI-System zu updaten, da Graph2D sonst nicht funktionieren wird.\n\n")
      )
    )
  )
  (
    (message ("Leider scheinen Sie kein MUI installiert zu haben. ")
             ("Graph2D braucht es allerdings unbedingt zur Erstellung seiner Oberfläche.\n")
             ("Natürlich können Sie mit der Installation fortfahren, aber ")
             ("vergessen Sie nicht, das MUI-System in der Version 2.1 oder höher zu installieren.")

    )
  )
)

(complete 10)





; *** GetPath

(set @default-dest
  (askdir
    (prompt ("Bitte wählen Sie ein Verzeichnis für Graph2D ('Help' für Hilfe)"))
    (help ("\nEs werden knapp 200KB für die Installation benötigt.\nGraph2D und die zugehörigen Dateien werden ins Verzeichnis Ihrer Wahl kopiert.\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n\n"))
    (default @default-dest)
    (newpath)
  )
)

(complete 20)





; *** Copy Main

(copyfiles
  (prompt ("Installieren des Hauptprogramms 'Graph2D'"))
  (confirm)
  (source ("Graph2D"))
  (infos)
  (help ("Das Hauptprogramm von Graph2D. Die Dokumentation muß sich später im selben Verzeichnis befinden.\n"))
  (dest @default-dest)
)

(complete 60)





; *** Copy Doku

(copyfiles
  (prompt ("Installieren der Dokumentation 'Graph2D.guide'"))
  (confirm)
  (source ("Graph2D.guide"))
  (infos)
  (help ("'Graph2D.guide' ist Dokumentation und gleichzeitig Online-Hilfe für Graph2D.\nSie muß in das gleiche Verzeichnis wie das Hauptprogramm."))
  (dest @default-dest)
)

(complete 80)





; *** Copy Libs

(copylib
  (prompt ("Installieren der garbagecollector.library"))
  (confirm)
  (source ("libs/garbagecollector.library"))
  (help ("Diese Library ist (frei kopierbarer) Teil des Amiga-Oberon-Systems der A+L AG. Graph2D wird ohne sie nicht funktoinieren.\n"))
  (dest "Libs:")
)

(complete 90)



; *** Copy RegForm

(copyfiles
  (prompt ("Installieren des Registrierungsformulars"))
  (confirm)
  (source ("Graph2D.RegForm"))
  (infos)
  (help ("Graph2D ist Shareware. Wer das Programm benutzt muß sich beim Autor registrieren lassen. Das geschieht am besten mit diesem Formular.\n"))
  (dest (cat (@default-dest)) )
)

(complete 95)



; *** Copy Examples

(copyfiles
  (prompt ("Installieren der Beispielfunktionen"))
  (confirm)
  (source ("Funktionen/"))
  (infos)
  (all)
  (help ("Dem Graph2D-Paket liegen zwei Funktionslisten bei, die ein paar Beispielfunktionen enthalten, welche zur Demonstration von zwei- und dreidimensionaler Darstellung dienen sollen.\nAuch kann man anhand dieser Funktionen sofort die Syntax erkennen, in der Graph2D Funktionen geschrieben werden müssen."))
  (dest (cat (@default-dest)) )
)

(complete 100)
(exit "Graph2D sollte nun komplett installiert sein. Starten Sie einfach das Hauptprogramm Graph2D.\nViel Spaß!")