(transcript "Installation 1.01-Camouflage/MIDI-System (v.B 1.0)")

(onerror
    (makeassign "Cto" (safe))
)

(complete 0)

(set @default-dest "DH0:")

(set camdest
        (askdir
            (prompt "Wo soll Camouflage installiert werden ? (Unterverzeichnisse werden selbst erzeugt)")
            (help @askdir-help)
            (default @default-dest)
        )
)

(set @default-dest camdest)

; Die Directories
(makeassign "Cto"
    (camdest)
    (safe)
)

(copyfiles
    (source "Camouflage:diagramm.info")
    (dest "Cto:")
)

(copyfiles
    (source "Camouflage:diagramm")
    (dest "Cto:")
)

(copyfiles
    (source "Camouflage:screenshot.info")
    (dest "Cto:")
)

(copyfiles
    (source "Camouflage:screenshot")
    (dest "Cto:")
)
(complete 15)

;info
(copyfiles
    (source "Camouflage:Camouflage.info")
    (dest "Cto:")
)

(copyfiles
    (source "Camouflage:Camouflage")
    (dest "Cto:")
)
(complete 95)


; Die Fonts
(makedir
        "Fonts:Cam"
        (safe)
)

(copyfiles
    (source "Camouflage:fonts/cam.font")
    (dest "Fonts:")
)

(copyfiles
    (source "Camouflage:fonts/cam/11")
    (dest "Fonts:cam")
)

(copyfiles
    (source "Camouflage:fonts/cam/7")
    (dest "Fonts:cam")
)

(makedir "cto:songs"
        (infos)
        (safe)
)

(makedir "cto:tracks"

        (infos)
        (safe)
)

(makedir "cto:blocks"

        (infos)
        (safe)
)

(makedir "cto:midifiles"
        (infos)
        (safe)
)
(copyfiles
    (source "Camouflage:allegro.mid")
    (dest "Cto:midifiles")
)

(makedir "cto:pool"
        (infos)
        (safe)
)

(makedir "cto:sysex"
        (infos)
        (safe)
)

(makedir "cto:waves"
        (infos)
        (safe)
)

(makedir "cto:drums"
        (infos)
        (safe)
)

(makedir "cto:rythms"
        (infos)
        (safe)
)

(makedir "cto:mmg"
        (infos)
        (safe)
)

(makedir "cto:transforms"
        (infos)
        (safe)
)

(makedir "cto:splits"
        (infos)
        (safe)
)

(makedir "cto:chords"
        (infos)
        (safe)
)

(makeassign "Cto"
    (safe)
)


(exit)