From 1942ee886453a3650666c9c731dcc3f64a798db1 Mon Sep 17 00:00:00 2001
From: Darren Bane <dbane@tilde.institute>
Date: Fri, 7 Jan 2022 11:47:45 +0000
Subject: Local changes

---
 btech-m.lsp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 btech-m.lsp

(limited to 'btech-m.lsp')

diff --git a/btech-m.lsp b/btech-m.lsp
new file mode 100755
index 0000000..43f976c
--- /dev/null
+++ b/btech-m.lsp
@@ -0,0 +1,19 @@
+(defclass <unit> () ((name :initarg n :reader name)
+                     (tp :initarg tp :reader tp)
+                     (pv :initarg p :reader pv)))
+(defconstant +mad-3r+ (create (class <unit>)
+                              'n 'marauder
+                              'tp 'bm
+                              'p 42
+                              'sz 3
+                              'tmm 1
+                              'mv 8
+                              'role 'sniper
+                              'skill 3
+                              'damage #(2 3 3)
+                              'ov 1
+                              'a 0
+                              's 0
+                              'crit
+                              'id))
+
-- 
cgit 1.4.1-2-gfad0