games/drakon.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14

# TyPe lIkE AnDoR DrAkOn fRoM AnCiEnT DoMaInS Of mYsTeRy
# <http://www.adomgb.info/adomgb-4.html>
{
    len = length
    line = ""
    toggle = 0
    for (i = 1; i <= len; i++) {
        char = substr($0, i, 1)
        if (char ~ /[[:alpha:]]/)
            char = (toggle = !toggle) ? tolower(char) : toupper(char)
        line = line char
    }
    print line
}