… | |
… | |
2501 | { |
2501 | { |
2502 | my $faces = $facedata->{faceinfo}; |
2502 | my $faces = $facedata->{faceinfo}; |
2503 | |
2503 | |
2504 | while (my ($face, $info) = each %$faces) { |
2504 | while (my ($face, $info) = each %$faces) { |
2505 | my $idx = (cf::face::find $face) || cf::face::alloc $face; |
2505 | my $idx = (cf::face::find $face) || cf::face::alloc $face; |
|
|
2506 | warn "$face $info->{magicmap}\n" if $face =~ /obol/;#d# |
2506 | cf::face::set $idx, $info->{visibility}, $info->{magicmap}; |
2507 | cf::face::set $idx, $info->{visibility}, $info->{magicmap}; |
2507 | cf::face::set_data $idx, 0, $info->{data32}, $info->{chksum32}; |
2508 | cf::face::set_data $idx, 0, $info->{data32}, $info->{chksum32}; |
2508 | cf::face::set_data $idx, 1, $info->{data64}, $info->{chksum64}; |
2509 | cf::face::set_data $idx, 1, $info->{data64}, $info->{chksum64}; |
2509 | Coro::cede; |
2510 | Coro::cede; |
2510 | } |
2511 | } |