… | |
… | |
4 | |
4 | |
5 | =cut |
5 | =cut |
6 | |
6 | |
7 | package Crossfire; |
7 | package Crossfire; |
8 | |
8 | |
9 | our $VERSION = '0.9'; |
9 | our $VERSION = '0.95'; |
10 | |
10 | |
11 | use strict; |
11 | use strict; |
12 | |
12 | |
13 | use base 'Exporter'; |
13 | use base 'Exporter'; |
14 | |
14 | |
… | |
… | |
33 | JSON::Syck::Dump $_[0] |
33 | JSON::Syck::Dump $_[0] |
34 | } |
34 | } |
35 | |
35 | |
36 | our $LIB = $ENV{CROSSFIRE_LIBDIR}; |
36 | our $LIB = $ENV{CROSSFIRE_LIBDIR}; |
37 | |
37 | |
38 | our $VARDIR = $ENV{HOME} ? "$ENV{HOME}/.crossfire" : File::Spec->tmpdir . "/crossfire"; |
38 | our $VARDIR = $ENV{HOME} ? "$ENV{HOME}/.crossfire" |
|
|
39 | : $ENV{AppData} ? "$ENV{APPDATA}/crossfire" |
|
|
40 | : File::Spec->tmpdir . "/crossfire"; |
39 | |
41 | |
40 | mkdir $VARDIR, 0777; |
42 | mkdir $VARDIR, 0777; |
41 | |
43 | |
42 | sub TILESIZE (){ 32 } |
44 | sub TILESIZE (){ 32 } |
43 | |
45 | |
… | |
… | |
193 | |
195 | |
194 | sub _add_resist($$$) { |
196 | sub _add_resist($$$) { |
195 | my ($ob, $mask, $value) = @_; |
197 | my ($ob, $mask, $value) = @_; |
196 | |
198 | |
197 | while (my ($k, $v) = each %attack_mask) { |
199 | while (my ($k, $v) = each %attack_mask) { |
198 | $ob->{"resist_$k"} += $value if $mask & $v; |
200 | $ob->{"resist_$k"} = min 100, max -100, $ob->{"resist_$k"} + $value if $mask & $v; |
199 | } |
201 | } |
200 | } |
202 | } |
201 | |
203 | |
202 | # object as in "Object xxx", i.e. archetypes |
204 | # object as in "Object xxx", i.e. archetypes |
203 | sub normalize_object($) { |
205 | sub normalize_object($) { |
… | |
… | |
288 | slaying => delete $ob->{"event_${event}"}, |
290 | slaying => delete $ob->{"event_${event}"}, |
289 | name => delete $ob->{"event_${event}_options"}, |
291 | name => delete $ob->{"event_${event}_options"}, |
290 | }; |
292 | }; |
291 | } |
293 | } |
292 | } |
294 | } |
|
|
295 | |
|
|
296 | # some archetypes had "+3" instead of the canonical "3", so fix |
|
|
297 | $ob->{dam} *= 1 if exists $ob->{dam}; |
293 | |
298 | |
294 | $ob |
299 | $ob |
295 | } |
300 | } |
296 | |
301 | |
297 | # arch as in "arch xxx", ie.. objects |
302 | # arch as in "arch xxx", ie.. objects |