about summary refs log blame commit diff stats
path: root/btech.lsp
blob: 07b0d489e3d5f7ba3a70349a79be1f3169d4b02a (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

















                                                   
(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))