-
Notifications
You must be signed in to change notification settings - Fork 0
/
init_monsters.fas
66 lines (66 loc) · 3.93 KB
/
init_monsters.fas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 10 (DEFUN MAKE_RATS (N) ...)-1|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|MAKE_RATS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE_RATS|
#41Y(00 00 00 00 01 00 00 00 26 02 2E 00 14 AE 24 01 15 DC 94 01 DD A0
5C 78 6E 04 04 0E 05 5D 0F 05 97 02 29 01 04 64 9F 19 03)
(|COMMON-LISP-USER|::|RAND_ACCESSIBLE| 0. :|X-LOCATION| :|Y-LOCATION|
|COMMON-LISP-USER|::|MAKE-RAT| |COMMON-LISP-USER|::|*CREATURES*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|12 24 (DEFUN MAKE_WOLVES (N) ...)-2|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|MAKE_WOLVES| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE_WOLVES|
#57Y(00 00 00 00 01 00 00 00 26 02 6B 00 38 01 72 F7 6B 01 38 01 72 F7
AF 24 02 0A AD AD 8A 03 08 AF 29 01 05 66 A0 19 04 DE AE DF AF 6E
04 06 0E 07 5D 0F 07 97 03 29 01 05 51)
(|COMMON-LISP-USER|::|*LEVEL-WIDTH*|
|COMMON-LISP-USER|::|*LEVEL-HEIGHT*| 0.
|COMMON-LISP-USER|::|IS_ACCESSIBLE| :|X-LOCATION| :|Y-LOCATION|
|COMMON-LISP-USER|::|MAKE-WOLF| |COMMON-LISP-USER|::|*CREATURES*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|26 37 (DEFUN MAKE_CYBORGS (N) ...)-3|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|MAKE_CYBORGS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE_CYBORGS|
#63Y(00 00 00 00 01 00 00 00 26 02 6B 00 38 01 72 F7 6B 01 38 01 72 F7
AF 24 02 0A AD AD 8A 03 08 AF 29 01 05 66 A0 19 04 DE AE DF AF E0
2E 07 14 00 7A 6E 06 08 0E 09 5D 0F 09 97 03 29 01 05 4B)
(|COMMON-LISP-USER|::|*LEVEL-WIDTH*|
|COMMON-LISP-USER|::|*LEVEL-HEIGHT*| 0.
|COMMON-LISP-USER|::|IS_ACCESSIBLE| :|X-LOCATION| :|Y-LOCATION|
:|INVENTORY| |COMMON-LISP-USER|::|MAKE-BATTERY|
|COMMON-LISP-USER|::|MAKE-CYBORG| |COMMON-LISP-USER|::|*CREATURES*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|39 46 (DEFUN MAKE_DOGS (N) ...)-4|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|MAKE_DOGS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE_DOGS|
#37Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 14 DB 6B 02 DD 6B 04 6E 04
05 0E 06 5D 0F 06 97 01 29 01 03 68 9E 19 02)
(0. :|X-LOCATION| |COMMON-LISP-USER|::|*STAIR-X*| :|Y-LOCATION|
|COMMON-LISP-USER|::|*STAIR-Y*| |COMMON-LISP-USER|::|MAKE-DOG|
|COMMON-LISP-USER|::|*CREATURES*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|48 57 (DEFUN MAKE_MINERS (N) ...)-5|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|MAKE_MINERS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE_MINERS|
#41Y(00 00 00 00 01 00 00 00 26 02 2E 00 14 AE 24 01 15 DC 94 01 DD A0
5C 78 6E 04 04 0E 05 5D 0F 05 97 02 29 01 04 64 9F 19 03)
(|COMMON-LISP-USER|::|RAND_ACCESSIBLE| 0. :|X-LOCATION| :|Y-LOCATION|
|COMMON-LISP-USER|::|MAKE-MINING_MACHINE|
|COMMON-LISP-USER|::|*CREATURES*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))