; $VER: Modulo 5 0.9 (21.9.1994)
; Copyright 1994 Frank Möllering - All Rights Reserved

;einige Konstanten setzen

(set app_volume_name_1 "TIME_345")
(set app_volume_1 "TIME_345:")
(set orig_user_level @user-level)


(delopts "oknodelete" "force" "askuser")
(complete 0)

;(set @default-dest "")

; bestimme Betriebssystemversion

(set os13 (<= (/ (getversion) 65536) 35))

;begrüße den Anwender


; Welche Teile sollen installiert werden?

; informiere  den average/expert Anwender über das Vorhaben

(message
   "\nDas Programm Modulo 5 wird in einer neuen Schublade mit dem Namen "
   "\"Modulo 5\" installiert. Du wirst gefragt, in welchem Verzeichnis der Festplatte "
   "(oder anderen Geräten) das Verzeichnis angelegt werden soll. Daneben "
   "wird der Modulo 5-Font in das Verzeichnis Fonts: kopiert."
)

; frage den Anwender nach dem Zielverzeichnis

(set app_locate
   (askdir
      (prompt "Wähle bitte aus, wo die Modulo 5-Schublade eingerichtet "
            "werden soll.")
      (help (cat "\n"
          "Wähle einfach ein Verzeichnis (auch Festplatte "
          "oder Disk). Es wird eine neue Schublade mit dem "
          "Namen 'Modulo 5' in diesem ausgewählten Verzeichnis "
          "eingerichtet. Du solltest ein Verzeichnis "
          "auswählen, das ein Icon besitzt (z.B. dh0:).\n"
      ))
      (default @default-dest)
   )
)

;noch genug Speicher vorhanden?
    (set targetsize (getdiskspace app_locate))

    (if (< targetsize 500000) (

        (if (<> (getdevice app_locate) "RAM") (

            (abort (cat "\n"

                " Die Installation benötigt etwa 500 kByte freien "
                " Festplattenspeicher. \n"
                " Mache bitte so viel Platz frei und starte "
                " erneut die Installation.\n"
            ))
        ))
    ))


; Erstelle das Hauptverzeichnis

(set app_path (tackon app_locate "Modulo 5"))

(makedir app_path (infos))

(set @default-dest app_path)

(askdisk
   (prompt "Lege bitte die Diskette mit dem Namen \"TIME_345\" ein.")
   (help @askdisk-help)
   (dest app_volume_name_1)
)

(copyfiles
   (source (tackon app_volume_1 "Modulo 5"))
   (dest app_path)
   (choices "Modulo 5" "data")
;   (all)
   (infos)
)

(complete 60)

;  Fonts/Modulo 5

(copyfiles
   (source (tackon app_volume_1 "FONTS"))
   (dest "FONTS:")
   (choices "Modulo5")
   (fonts)
)


;sollen libraries installiert werden?

;(copylib
;   (source (tackon app_volume_1 "libs/amigaguide.library"))
;   (dest "libs:")
;)

(complete 100)