diff options
Diffstat (limited to 'games/drakon.awk')
-rw-r--r-- | games/drakon.awk | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/games/drakon.awk b/games/drakon.awk index 4b8c35c5..ebca4e95 100644 --- a/games/drakon.awk +++ b/games/drakon.awk @@ -1,13 +1,14 @@ # TyPe lIkE AnDoR DrAkOn fRoM AnCiEnT DoMaInS Of mYsTeRy # <http://www.adomgb.info/adomgb-4.html> { - line = "" - toggle = 0 - for (i = 1; i <= length; i++) { - char = substr($0, i, 1) - if (char ~ /[a-zA-Z]/) - char = (toggle = !toggle) ? tolower(char) : toupper(char) - line = line char + len = length($0) + lin = "" + tog = 0 + for (i = 1; i <= len; i++) { + chr = substr($0, i, 1) + if (chr ~ /[a-zA-Z]/) + chr = (tog = !tog) ? tolower(chr) : toupper(chr) + lin = lin chr } - print line + print lin } |