(transcript "Installation von \"AWindows")

(set @default-dest
        (askdir
                (prompt "Pfad für AWindows Verzeichniss")
                (help @askdir-help)
                (default @default-dest)
        )
)

;(message @default-dest)

(makeassign "MYASS" @default-dest)

(makedir "MYASS:AWINDOWS"
        (prompt "Das Verzeichniss AWINDOWS wird erzeugt")
        (help @makedir-help)
        (infos)
        (confirm)
)

(makeassign "AWINDOWS" "MYASS:AWINDOWS")
(set ass0 (expandpath "MYASS:AWINDOWS"))

(makedir "MYASS:AWINDOWS/demos"
        (prompt "Das Verzeichniss AWINDOWS/demos wird erzeugt")
        (help @makedir-help)
        (infos)
        (confirm)
)

(set ass1 (expandpath "MYASS:AWINDOWS/demos"))

(copyfiles
        (prompt "Welche Demos sollen nach AWINDOWS/demos kopiert werden")
        (help @copyfiles-help)
        (source "demos")
        (dest ass1)
        (all)
        (files)
        (infos)
        (confirm)
)

(makedir "MYASS:AWINDOWS/PANELS"
        (prompt "Das Verzeichniss AWINDOWS/PANELS wird erzeugt")
        (help @makedir-help)
        (infos)
        (confirm)
)

(set ass1 (expandpath "MYASS:AWINDOWS/PANELS"))

(run "AWindow:c/rpk e AWindow:Panels/Color.rpk MYASS:AWindows/Panels/Color.panel >nil:"
        (prompt "Das Panel wird entpackt")
        (help "Mehr ist dem nicht hinzuzufügen.")
        (confirm)
)

(makeassign "PANELS" "MYASS:AWINDOWS/PANELS")

(makedir "MYASS:AWINDOWS/WSStartup"
        (prompt "Das Verzeichniss AWINDOWS/WSStartup wird erzeugt")
        (help @makedir-help)
        (infos)
        (confirm)
)

(set ass2 (expandpath "MYASS:AWINDOWS/WSStartup"))


(set name
        (askoptions
                (prompt "Welche Programme sollen beim Start von AWindows automatisch gestarted werden")
                (help @askoptions-help)
                (choices "backfill" "blocks" "clock" "showiff24" "AppManager" "spliner" "wbounce" "bouncer")
                (default 5)
        )
)

(if (BITAND name 1) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "backfill")
                      (files)
                      (infos)
                    ))

(if (BITAND name 2) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "blocks")
                      (files)
                      (infos)
                    ))

(if (BITAND name 4) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "clock")
                      (files)
                      (infos)
                    ))

(if (BITAND name 8) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "showiff24")
                      (files)
                      (infos)
                    ))

(if (BITAND name 16) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "AppManager")
                      (files)
                      (infos)
                    ))

(if (BITAND name 32) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "spliner")
                      (files)
                      (infos)
                    ))

(if (BITAND name 64) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "wbounce")
                      (files)
                      (infos)
                    ))

(if (BITAND name 128) (copyfiles
                      (source "demos")
                      (dest ass2)
                      (choices "bouncer")
                      (files)
                      (infos)
                    ))

(makeassign "WSSTARTUP" "MYASS:AWINDOWS/WSStartup")

(makedir "MYASS:AWINDOWS/Pattern"
        (prompt "Das Verzeichniss AWINDOWS/Pattern wird erzeugt")
        (help @makedir-help)
        (infos)
        (confirm)
)


(set ass6 (expandpath "MYASS:AWINDOWS/PATTERN"))

(run "AWindow:c/rpk e AWindow:Pattern/Repro.rpk MYASS:AWindows/Pattern/Repro.iff >nil:"
        (prompt "Das Pattern wird entpackt")
        (help "Mehr ist dem nicht hinzuzufügen.")
        (confirm)
)

(copyfiles
      (source "pattern")
      (dest "MYASS:AWindows/Pattern")
      (choices "Repro.iff.info")
)

(makeassign "PATTERN" "MYASS:AWINDOWS/PATTERN")


(makedir "MYASS:AWINDOWS/PREFS"
        (prompt "Das Verzeichniss AWINDOWS/PREFS wird erzeugt")
        (help @makedir-help)
        (infos)
        (confirm)
)

(set destprefs (expandpath "MYASS:AWINDOWS/PREFS"))

(copyfiles
        (prompt "Welche PREFERENCES sollen nach AWINDOWS/PREFS kopiert werden")
        (help @copyfiles-help)
        (source "PREFS")
        (dest destprefs)
        (all)
        (files)
        (infos)
        (confirm)
)



(makedir "envarc:AWINDOWS"
        (prompt "In envarc: und env: wird ein AWINDOWS-Verzeichniss angelegt\ und mit den benötigten Dataien gefüllt")
        (help @makedir-help)
        (infos)
        (confirm)
)


(copyfiles
        (source "S")
        (dest "envarc:AWINDOWS")
        (all)
        (files)
        (infos)
)

(makedir "env:AWINDOWS"
        (infos)
)


(copyfiles
        (source "S")
        (dest "env:AWINDOWS")
        (all)
        (files)
        (infos)
)


(set libdest
        (askdir
                (prompt "Pfad für Libraries")
                (help @askdir-help)
                (default "LIBS:")
        )
)

(run "AWindow:c/rpk e AWindow:libs/window.rpk ram:window.library >nil:"
        (prompt "window.library nach ram: entpacken")
        (help "Die Window.library wird temporär ins ram: entpackt")
        (confirm)
)

(copylib
        (prompt "Kopieren der window.library nach " libdest)
        (help @copylib-help)
        (source "ram:window.library")
        (dest libdest)
        (confirm)
)

(run "delete ram:window.library >nil:" )

(run "AWindow:c/rpk e AWindow:libs/glue.rpk ram:glue.library >nil:"
        (prompt "glue.library nach ram: entpacken")
        (help "Die glue.library wird temporär ins ram: entpackt")
        (confirm)
)

(copylib
        (prompt "Kopieren der glue.library nach " libdest)
        (help @copylib-help)
        (source "ram:glue.library")
        (dest libdest)
        (confirm)
)

(run "delete ram:glue.library >nil:" )

(run "AWindow:c/rpk e AWindow:libs/wsreq.rpk ram:wsreq.library >nil:"
        (prompt "wsreq.library nach ram: entpacken")
        (help "Die wsreq.library wird temporär ins ram: entpackt")
        (confirm)
)

(copylib
        (prompt "Kopieren der wsreq.library nach " libdest)
        (help @copylib-help)
        (source "ram:wsreq.library")
        (dest libdest)
        (confirm)
)

(run "delete ram:wsreq.library >nil:" )


(startup "AWindows"
        (prompt
                "Einige Ergänzungen in \"S:user-startup\" damit ihr System AWindows automatisch benutzen kann!")
        (help "Keine Hilfe für diese Funktion")
        (command "\nassign AWINDOWS: " ass0)
        (command "\nassign PANELS: " ass1)
        (command "\nassign PATTERN: " ass6)
        (command "\nassign WSSTARTUP: " ass2)
)