diff options
-rw-r--r-- | games/drakon.awk | 23 |
1 files changed, 8 insertions, 15 deletions
diff --git a/games/drakon.awk b/games/drakon.awk index e960a6c0..39bb3732 100644 --- a/games/drakon.awk +++ b/games/drakon.awk @@ -1,20 +1,13 @@ # 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 + line = "" + case = 0 + for (i = 1; i <= length; i++) { + char = substr($0, i, 1) + if (char ~ /[a-zA-Z]/) + char = (case = !case) ? tolower(char) : toupper(char) + line = line char } - print s + print line } |