From ed10c4a72a45e8164779bc24a9e550ff1e07af55 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 19 Oct 2016 10:51:31 +1300
Subject: Improve accuracy of drakon(6df)

On closer inspection, it looks like an alternating upper-lower pattern
for letter characters
---
 games/drakon.awk | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'games/drakon.awk')

diff --git a/games/drakon.awk b/games/drakon.awk
index 65cf748e..e960a6c0 100644
--- a/games/drakon.awk
+++ b/games/drakon.awk
@@ -2,13 +2,17 @@
 # <http://www.adomgb.info/adomgb-4.html>
 {
     s = ""
+    u = 0
     for (i = 1; i <= length($0); i++) {
         c = substr($0, i, 1)
-        if (i % 2) {
-            c = tolower(c)
-        }
-        else {
-            c = toupper(c)
+        if (c ~ /[a-zA-Z]/) {
+            if (u) {
+                c = toupper(c)
+            }
+            else {
+                c = tolower(c)
+            }
+            u = !u
         }
         s = s c
     }
-- 
cgit v1.2.3