| … | |
… | |
| 352 | } else { |
352 | } else { |
| 353 | warn "object $ob->{_name} has unknown material ($ob->{material}) set.\n"; |
353 | warn "object $ob->{_name} has unknown material ($ob->{material}) set.\n"; |
| 354 | } |
354 | } |
| 355 | } |
355 | } |
| 356 | |
356 | |
|
|
357 | # color_fg is used as default for magicmap if magicmap does not exist |
|
|
358 | $ob->{magicmap} ||= delete $ob->{color_fg} if exists $ob->{color_fg}; |
|
|
359 | |
| 357 | # nuke outdated or never supported fields |
360 | # nuke outdated or never supported fields |
| 358 | delete @$ob{qw( |
361 | delete @$ob{qw( |
| 359 | can_knockback can_parry can_impale can_cut can_dam_armour |
362 | can_knockback can_parry can_impale can_cut can_dam_armour |
| 360 | can_apply pass_thru can_pass_thru |
363 | can_apply pass_thru can_pass_thru |
| 361 | )}; |
364 | )}; |
