1 files changed, 19 insertions, 0 deletions
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))
+