From 28249853f3c77c4f50b64b4f45c2d5a2c800c34f Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Mon, 19 Jun 2017 12:46:06 +1200
Subject: Clean up drakon(6df) a bit

---
 games/drakon.awk | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'games')

diff --git a/games/drakon.awk b/games/drakon.awk
index b8d72888..ce619585 100644
--- a/games/drakon.awk
+++ b/games/drakon.awk
@@ -1,14 +1,14 @@
 # TyPe lIkE AnDoR DrAkOn fRoM AnCiEnT DoMaInS Of mYsTeRy
 # <http://www.adomgb.info/adomgb-4.html>
 {
-    len = length
-    line = ""
-    toggle = 0
+    len = length($0)
+    lin = ""
+    tog = 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
+        chr = substr($0, i, 1)
+        if (chr ~ /[[:alpha:]]/)
+            chr = (tog = !tog) ? tolower(chr) : toupper(chr)
+        lin = lin chr
     }
-    print line
+    print lin
 }
-- 
cgit v1.2.3