| … | |
… | |
| 4 | |
4 | |
| 5 | =cut |
5 | =cut |
| 6 | |
6 | |
| 7 | package Deliantra; |
7 | package Deliantra; |
| 8 | |
8 | |
| 9 | our $VERSION = '1.21'; |
9 | our $VERSION = '1.23'; |
| 10 | |
10 | |
| 11 | use strict; |
11 | use strict; |
| 12 | |
12 | |
| 13 | use base 'Exporter'; |
13 | use base 'Exporter'; |
| 14 | |
14 | |
| … | |
… | |
| 69 | |
69 | |
| 70 | elevation |
70 | elevation |
| 71 | |
71 | |
| 72 | name name_pl custom_name attach title race |
72 | name name_pl custom_name attach title race |
| 73 | slaying skill msg lore other_arch |
73 | slaying skill msg lore other_arch |
| 74 | face animation is_animated |
74 | sound sound_destroy face animation is_animated |
| 75 | magicmap smoothlevel smoothface |
75 | magicmap smoothlevel smoothface |
| 76 | str dex con wis pow cha int |
76 | str dex con wis pow cha int |
| 77 | hp maxhp sp maxsp grace maxgrace |
77 | hp maxhp sp maxsp grace maxgrace |
| 78 | exp perm_exp expmul |
78 | exp perm_exp expmul |
| 79 | food dam luck wc ac x y speed speed_left move_state attack_movement |
79 | food dam luck wc ac x y speed speed_left move_state attack_movement |
| … | |
… | |
| 431 | sub normalize_arch($) { |
431 | sub normalize_arch($) { |
| 432 | my ($ob) = @_; |
432 | my ($ob) = @_; |
| 433 | |
433 | |
| 434 | normalize_object $ob; |
434 | normalize_object $ob; |
| 435 | |
435 | |
|
|
436 | return if $ob->{_atype} eq "object"; |
|
|
437 | |
| 436 | my $arch = $ARCH{$ob->{_name}} |
438 | my $arch = $ARCH{$ob->{_name}} |
| 437 | or (warn "$ob->{_name}: no such archetype", return $ob); |
439 | or (warn "$ob->{_name}: no such archetype", return $ob); |
| 438 | |
440 | |
| 439 | if ($arch->{type} == 22) { # map |
441 | if ($arch->{type} == 22) { # map |
| 440 | my %normalize = ( |
442 | my %normalize = ( |
| … | |
… | |
| 514 | |
516 | |
| 515 | my %arc; |
517 | my %arc; |
| 516 | my ($more, $prev); |
518 | my ($more, $prev); |
| 517 | my $comment; |
519 | my $comment; |
| 518 | |
520 | |
| 519 | open my $fh, "<:raw:perlio:utf8", $path |
521 | open my $fh, "<:utf8", $path |
| 520 | or Carp::croak "$path: $!"; |
522 | or Carp::croak "$path: $!"; |
| 521 | |
523 | |
| 522 | # binmode $fh; |
524 | # binmode $fh; |
| 523 | |
525 | |
| 524 | my $parse_block; $parse_block = sub { |
526 | my $parse_block; $parse_block = sub { |
