From 9d776656386c3e794187810c466b18ba29575248 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 19 Oct 2016 10:19:21 +1300
Subject: Add drakon(6df)

---
 games/drakon.awk | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 games/drakon.awk

(limited to 'games')

diff --git a/games/drakon.awk b/games/drakon.awk
new file mode 100644
index 00000000..5d73f74d
--- /dev/null
+++ b/games/drakon.awk
@@ -0,0 +1,15 @@
+# TyPe lIkE AnDoR DrAkOn fRoM AnCiEnT DoMaInS Of mYsTeRy
+# <http://www.adomgb.info/adomgb-4.html>
+{
+    for (i = 1; i <= length($0); i++) {
+        c = substr($0, i, 1)
+        if (i % 2) {
+            c = tolower(c)
+        }
+        else {
+            c = toupper(c)
+        }
+        s = s c
+    }
+    print s
+}
-- 
cgit v1.2.3