; LimitWhite Installer V1.0
;
; ToneMaster, 2000

(set #DefaultDir
    (askdir
        (prompt "Where do you want LimitWhite installed?\n(a directory called LimitWhite will be created)")
        (help "LimitWhite will be installed in a directory within the directory you select")
        (default @default-dest)
        (newpath)
    )
)

(set #LWDir (tackon #DefaultDir "LimitWhite"))

(makedir #LWDir
    (safe)
    (infos)
)

(set copysource
    (askbool
        (prompt "\nDo you want to copy the source?")
        (help "\nIf you select Yes, the source will be copied")
        (choices "Yes" "No")
    )
)

(if (= copysource 1)
    (set copypattern "~(Install#?)")
    (set copypattern "~(Install#?|Source)")
)

(copyfiles
    (prompt "Copying files...")
    (source "")
    (pattern copypattern)
    (dest #LWDir)
)