about summary refs log tree commit diff stats
path: root/btech-m.lsp
diff options
context:
space:
mode:
authorDarren Bane <darren.bane@gmail.com>2022-02-12 01:15:47 +0000
committerDarren Bane <darren.bane@gmail.com>2022-02-12 01:15:47 +0000
commitfa161002e603eb29990351c292920ef2b717a071 (patch)
treee201826f8efb25b22e0f5da9dc5687b9e71ec294 /btech-m.lsp
parent0a35cee67a6f8812db39806ed1f6b5975dea478b (diff)
parent3f26f5eeaeb94fc05db3b7f19982ed5eb4104c2d (diff)
downloadlsp-fa161002e603eb29990351c292920ef2b717a071.tar.gz
Merge branch 'master' of tilde.institute:public_repos/lsp
Diffstat (limited to 'btech-m.lsp')
-rwxr-xr-xbtech-m.lsp19
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))
+