ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra/Deliantra.pm
(Generate patch)

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.56 by root, Thu Mar 23 07:33:16 2006 UTC vs.
Revision 1.57 by root, Thu Mar 23 08:55:54 2006 UTC

49 outdoor temp pressure humid windspeed winddir sky nosmooth 49 outdoor temp pressure humid windspeed winddir sky nosmooth
50 tile_path_1 tile_path_2 tile_path_3 tile_path_4 50 tile_path_1 tile_path_2 tile_path_3 tile_path_4
51)); 51));
52 52
53our @FIELD_ORDER = (qw( 53our @FIELD_ORDER = (qw(
54 elevation
55
54 name name_pl custom_name title race 56 name name_pl custom_name title race
55 slaying skill msg lore other_arch face 57 slaying skill msg lore other_arch face
56 #todo-events 58 #todo-events
57 animation is_animated 59 animation is_animated
58 Str Dex Con Wis Pow Cha Int 60 Str Dex Con Wis Pow Cha Int
228 if (exists $arch->{$k} and $arch->{$k} eq $v) { 230 if (exists $arch->{$k} and $arch->{$k} eq $v) {
229 next if $k eq "_name"; 231 next if $k eq "_name";
230 delete $ob->{$k}; 232 delete $ob->{$k};
231 } 233 }
232 } 234 }
235 }
236
237 # a speciality for the editor
238 if (exists $ob->{attack_movement}) {
239 my $am = delete $ob->{attack_movement};
240 $ob->{attack_movement_bits_0_3} = $am & 15;
241 $ob->{attack_movement_bits_4_7} = $am & 240;
233 } 242 }
234 243
235 $ob 244 $ob
236} 245}
237 246
309 } 318 }
310 $prev = $arc; 319 $prev = $arc;
311 $more = undef; 320 $more = undef;
312 } elsif (/^arch (\S+)$/i) { 321 } elsif (/^arch (\S+)$/i) {
313 my $name = $1; 322 my $name = $1;
314 my $arc = normalize_object $parse_block->(_name => $name); 323 my $arc = normalize_arch $parse_block->(_name => $name);
315 324
316 if ($more) { 325 if ($more) {
317 $more->{more} = $arc; 326 $more->{more} = $arc;
318 } else { 327 } else {
319 push @{ $arc{arch} }, $arc; 328 push @{ $arc{arch} }, $arc;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines