; Installationsskript für Cycas 1.75 Demo

(complete 0)

; Variablen
(set @default-dest "Work:")
(set quelle (pathonly @icon))
(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
(set cpu (database "cpu"))

; Texte
( set #Intro-Text        "\nCycas 1.75 Demo\nHard Disk Installations-Script\n\nDie Demo benötigt ca. 2 MB auf der Festplatte." )
( set #Verzeichnis-Text  "\nZielverzeichnis wählen:\n Das Verzeichnis CycasDemo1.75 wird dort automatisch angelegt." )
( set #Verzeichnis-Hilfe "\nMit dieser Option können sie das Zielverzeichnis für die Cycas 1.75 Demoversion angeben. Das Verzeichnis CycasDemo1.75 wird dort automatisch angelegt.\nVoreingestellt ist das Verzeichnis Work:" )

; Main 
(message #Intro-Text)

(if (not v39) (abort "Cycas 1.75 Demo benötigt mindestens Kickstart/Workbench 3.0"))

(if ( = cpu "68000" ) (abort "Cycas 1.75 Demo benötigt mindestens einen 68020 Prozessor"))
(if ( = cpu "68010" ) (abort "Cycas 1.75 Demo benötigt mindestens einen 68020 Prozessor"))

(set ziel ( askdir (prompt #Verzeichnis-Text) (help #Verzeichnis-Hilfe) (default @default-dest) ) )
(set @default-dest ziel)
(complete 10)

(makedir  (tackon @default-dest "CycasDemo1.75") (infos) )
(copyfiles (source quelle) (dest ziel) (choices "icons/CycasDemo1.75.info") )
(set ziel (tackon @default-dest "CycasDemo1.75") )
(complete 20)




(copyfiles (source quelle) (dest ziel) (choices "Cycas.FPU" ) (infos) )

;(copyfiles (source quelle) (dest ziel) (choices "Cycas" ) (infos) )




(copyfiles (source quelle) (dest "fonts:") (choices "CycasN.font" ) (infos) )
(copyfiles (source quelle) (dest "fonts:") (choices "CycasN" ) (infos) )
(complete 30)

( copyfiles (source quelle) (dest ziel) (choices "ReadMe") (infos) )
(complete 40)

( copyfiles (source quelle) (dest ziel) (choices "BestellFormular") (infos) )
(complete 50)

( copyfiles (source quelle) (dest ziel) (choices "Info") (infos) )
(complete 60)

( copyfiles (source quelle) (dest ziel) (choices "Hilfe") (infos) )
(complete 70)

( copyfiles (source quelle) (dest ziel) (choices "DAT") (infos) )
(complete 95)