| … | |
… | |
| 358 | $ob->{magicmap} ||= delete $ob->{color_fg} if exists $ob->{color_fg}; |
358 | $ob->{magicmap} ||= delete $ob->{color_fg} if exists $ob->{color_fg}; |
| 359 | |
359 | |
| 360 | # nuke outdated or never supported fields |
360 | # nuke outdated or never supported fields |
| 361 | delete @$ob{qw( |
361 | delete @$ob{qw( |
| 362 | can_knockback can_parry can_impale can_cut can_dam_armour |
362 | can_knockback can_parry can_impale can_cut can_dam_armour |
| 363 | can_apply pass_thru can_pass_thru color_bg |
363 | can_apply pass_thru can_pass_thru color_bg color_fg |
| 364 | )}; |
364 | )}; |
| 365 | |
365 | |
| 366 | if (my $mask = delete $ob->{immune} ) { _add_resist $ob, $mask, 100; } |
366 | if (my $mask = delete $ob->{immune} ) { _add_resist $ob, $mask, 100; } |
| 367 | if (my $mask = delete $ob->{protected} ) { _add_resist $ob, $mask, 30; } |
367 | if (my $mask = delete $ob->{protected} ) { _add_resist $ob, $mask, 30; } |
| 368 | if (my $mask = delete $ob->{vulnerable}) { _add_resist $ob, $mask, -100; } |
368 | if (my $mask = delete $ob->{vulnerable}) { _add_resist $ob, $mask, -100; } |
