btech-m.lsp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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))