games/drakon.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

# TyPe lIkE AnDoR DrAkOn fRoM AnCiEnT DoMaInS Of mYsTeRy
# <http://www.adomgb.info/adomgb-4.html>
{
    s = ""
    u = 0
    for (i = 1; i <= length($0); i++) {
        c = substr($0, i, 1)
        if (c ~ /[a-zA-Z]/) {
            if (u) {
                c = toupper(c)
            }
            else {
                c = tolower(c)
            }
            u = !u
        }
        s = s c
    }
    print s
}