-
Notifications
You must be signed in to change notification settings - Fork 0
/
combat_functions.fas
82 lines (82 loc) · 4.54 KB
/
combat_functions.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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 3 (DEFUN TO_DAMAGE (C) ...)-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|::|TO_DAMAGE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|TO_DAMAGE|
#29Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 DB AF 6F 02 73 02 39 38 01
72 CE 33 02 37 19 02)
(|COMMON-LISP-USER|::|WEAPON_DAMAGE| #10r1/5
|COMMON-LISP-USER|::|CREATURE-STRENGTH|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|C|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5 7 (DEFUN MELEE_SKILL (C) ...)-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|::|MELEE_SKILL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MELEE_SKILL|
#43Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 DB DC B0 6F 03 73 02 39 DC
B1 6F 04 73 02 39 73 02 37 38 01 72 CE 73 02 39 33 02 37 19 02)
(|COMMON-LISP-USER|::|CREATURE-BASE_MELEE_SKILL| 3. #10r1/10
|COMMON-LISP-USER|::|CREATURE-STRENGTH|
|COMMON-LISP-USER|::|CREATURE-DEXTERITY|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|C|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|9 15 (DEFUN HIT_PROBABILITY (C1 C2) ...)-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|::|HIT_PROBABILITY| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|HIT_PROBABILITY|
#31Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 DB AF 6F 02 73 02 39 73 01
38 AF 6F 00 33 01 3A 19 03)
(|COMMON-LISP-USER|::|CREATURE-BASE_MELEE_SKILL| 0.75f0
|COMMON-LISP-USER|::|CREATURE-AC|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|C1| |COMMON-LISP-USER|::|C2|) |COMMON-LISP|::|NIL|
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|17 19 (DEFUN HIT_PERCENTAGE (C1 C2) ...)-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|::|HIT_PERCENTAGE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|HIT_PERCENTAGE|
#28Y(00 00 00 00 02 00 00 00 26 03 DA DB B0 B0 70 02 73 02 39 38 01 72
CE 33 01 35 19 03)
(5. 100. |COMMON-LISP-USER|::|HIT_PROBABILITY|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|C1| |COMMON-LISP-USER|::|C2|) |COMMON-LISP|::|NIL|
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|21 25 (DEFUN WEAPON_DAMAGE (C) ...)-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|::|WEAPON_DAMAGE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|WEAPON_DAMAGE|
#30Y(00 00 00 00 01 00 00 00 26 02 AD 89 00 0D AD 2F 00 78 AE 2F 00 5C
78 30 02 19 02 C6 19 02)
(|COMMON-LISP-USER|::|CREATURE-WEAPON| 1.
|COMMON-LISP-USER|::|ROLL_DICE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|C|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|27 31 (DEFUN RANGED_WEAPON_DAMAGE (C) ...)-6|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|RANGED_WEAPON_DAMAGE|
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|RANGED_WEAPON_DAMAGE|
#30Y(00 00 00 00 01 00 00 00 26 02 AD 89 00 0D AD 2F 00 78 AE 2F 00 5C
78 30 02 19 02 C6 19 02)
(|COMMON-LISP-USER|::|CREATURE-RANGED_WEAPON| 0.
|COMMON-LISP-USER|::|ROLL_DICE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|C|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|33 35 (DEFUN TO_DAMAGE_RANGED (C) ...)-7|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|TO_DAMAGE_RANGED| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|TO_DAMAGE_RANGED|
#29Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 DB AF 6F 02 73 02 39 38 01
72 CE 33 02 37 19 02)
(|COMMON-LISP-USER|::|RANGED_WEAPON_DAMAGE| #10r1/5
|COMMON-LISP-USER|::|CREATURE-DEXTERITY|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|C|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))