| … | |
… | |
| 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 |
