… | |
… | |
4 | |
4 | |
5 | =cut |
5 | =cut |
6 | |
6 | |
7 | package Crossfire; |
7 | package Crossfire; |
8 | |
8 | |
9 | our $VERSION = '0.97'; |
9 | our $VERSION = '0.98'; |
10 | |
10 | |
11 | use strict; |
11 | use strict; |
12 | |
12 | |
13 | use base 'Exporter'; |
13 | use base 'Exporter'; |
14 | |
14 | |
… | |
… | |
19 | |
19 | |
20 | our @EXPORT = qw( |
20 | our @EXPORT = qw( |
21 | read_pak read_arch *ARCH TILESIZE $TILE *FACE editor_archs arch_extents |
21 | read_pak read_arch *ARCH TILESIZE $TILE *FACE editor_archs arch_extents |
22 | ); |
22 | ); |
23 | |
23 | |
24 | use JSON::Syck (); #TODO#d# replace by JSON::PC when it becomes available == working |
24 | use JSON::XS qw(from_json to_json); |
25 | |
|
|
26 | sub from_json($) { |
|
|
27 | $JSON::Syck::ImplicitUnicode = 1; |
|
|
28 | JSON::Syck::Load $_[0] |
|
|
29 | } |
|
|
30 | |
|
|
31 | sub to_json($) { |
|
|
32 | $JSON::Syck::ImplicitUnicode = 0; |
|
|
33 | JSON::Syck::Dump $_[0] |
|
|
34 | } |
|
|
35 | |
25 | |
36 | our $LIB = $ENV{CROSSFIRE_LIBDIR}; |
26 | our $LIB = $ENV{CROSSFIRE_LIBDIR}; |
37 | |
27 | |
38 | our $VARDIR = $ENV{HOME} ? "$ENV{HOME}/.crossfire" |
28 | our $VARDIR = $ENV{HOME} ? "$ENV{HOME}/.crossfire" |
39 | : $ENV{AppData} ? "$ENV{APPDATA}/crossfire" |
29 | : $ENV{AppData} ? "$ENV{APPDATA}/crossfire" |
… | |
… | |
71 | |
61 | |
72 | our @FIELD_ORDER = (qw( |
62 | our @FIELD_ORDER = (qw( |
73 | elevation |
63 | elevation |
74 | |
64 | |
75 | name name_pl custom_name attach title race |
65 | name name_pl custom_name attach title race |
76 | slaying skill msg lore other_arch face |
66 | slaying skill msg lore other_arch |
77 | #todo-events |
67 | is_animated animation face |
78 | animation is_animated |
68 | magicmap smoothlevel smoothface |
79 | str dex con wis pow cha int |
69 | str dex con wis pow cha int |
80 | hp maxhp sp maxsp grace maxgrace |
70 | hp maxhp sp maxsp grace maxgrace |
81 | exp perm_exp expmul |
71 | exp perm_exp expmul |
82 | food dam luck wc ac x y speed speed_left move_state attack_movement |
72 | food dam luck wc ac x y speed speed_left move_state attack_movement |
83 | nrof level direction type subtype attacktype |
73 | nrof level direction type subtype attacktype |
… | |
… | |
358 | $ob->{magicmap} ||= delete $ob->{color_fg} if exists $ob->{color_fg}; |
348 | $ob->{magicmap} ||= delete $ob->{color_fg} if exists $ob->{color_fg}; |
359 | |
349 | |
360 | # nuke outdated or never supported fields |
350 | # nuke outdated or never supported fields |
361 | delete @$ob{qw( |
351 | delete @$ob{qw( |
362 | can_knockback can_parry can_impale can_cut can_dam_armour |
352 | can_knockback can_parry can_impale can_cut can_dam_armour |
363 | can_apply pass_thru can_pass_thru color_bg |
353 | can_apply pass_thru can_pass_thru color_bg color_fg |
364 | )}; |
354 | )}; |
365 | |
355 | |
366 | if (my $mask = delete $ob->{immune} ) { _add_resist $ob, $mask, 100; } |
356 | if (my $mask = delete $ob->{immune} ) { _add_resist $ob, $mask, 100; } |
367 | if (my $mask = delete $ob->{protected} ) { _add_resist $ob, $mask, 30; } |
357 | if (my $mask = delete $ob->{protected} ) { _add_resist $ob, $mask, 30; } |
368 | if (my $mask = delete $ob->{vulnerable}) { _add_resist $ob, $mask, -100; } |
358 | if (my $mask = delete $ob->{vulnerable}) { _add_resist $ob, $mask, -100; } |