| … | |
… | |
| 187 | @safe::cf::global::ISA = @cf::global::ISA = 'cf::attachable'; |
187 | @safe::cf::global::ISA = @cf::global::ISA = 'cf::attachable'; |
| 188 | @safe::cf::object::ISA = @cf::object::ISA = 'cf::attachable'; |
188 | @safe::cf::object::ISA = @cf::object::ISA = 'cf::attachable'; |
| 189 | @safe::cf::player::ISA = @cf::player::ISA = 'cf::attachable'; |
189 | @safe::cf::player::ISA = @cf::player::ISA = 'cf::attachable'; |
| 190 | @safe::cf::client::ISA = @cf::client::ISA = 'cf::attachable'; |
190 | @safe::cf::client::ISA = @cf::client::ISA = 'cf::attachable'; |
| 191 | @safe::cf::map::ISA = @cf::map::ISA = 'cf::attachable'; |
191 | @safe::cf::map::ISA = @cf::map::ISA = 'cf::attachable'; |
|
|
192 | @safe::cf::arch::ISA = @cf::arch::ISA = 'cf::object'; |
| 192 | @safe::cf::object::player::ISA = @cf::object::player::ISA = 'cf::object'; |
193 | @safe::cf::object::player::ISA = @cf::object::player::ISA = 'cf::object'; # not really true (yet) |
| 193 | |
194 | |
| 194 | # we bless all objects into (empty) derived classes to force a method lookup |
195 | # we bless all objects into (empty) derived classes to force a method lookup |
| 195 | # within the Safe compartment. |
196 | # within the Safe compartment. |
| 196 | for my $pkg (qw( |
197 | for my $pkg (qw( |
| 197 | cf::global cf::attachable |
198 | cf::global cf::attachable |
| … | |
… | |
| 2501 | { |
2502 | { |
| 2502 | my $faces = $facedata->{faceinfo}; |
2503 | my $faces = $facedata->{faceinfo}; |
| 2503 | |
2504 | |
| 2504 | while (my ($face, $info) = each %$faces) { |
2505 | while (my ($face, $info) = each %$faces) { |
| 2505 | my $idx = (cf::face::find $face) || cf::face::alloc $face; |
2506 | my $idx = (cf::face::find $face) || cf::face::alloc $face; |
| 2506 | warn "$face $info->{magicmap}\n" if $face =~ /obol/;#d# |
|
|
| 2507 | cf::face::set $idx, $info->{visibility}, $info->{magicmap}; |
2507 | cf::face::set $idx, $info->{visibility}, $info->{magicmap}; |
| 2508 | cf::face::set_data $idx, 0, $info->{data32}, $info->{chksum32}; |
2508 | cf::face::set_data $idx, 0, $info->{data32}, $info->{chksum32}; |
| 2509 | cf::face::set_data $idx, 1, $info->{data64}, $info->{chksum64}; |
2509 | cf::face::set_data $idx, 1, $info->{data64}, $info->{chksum64}; |
| 2510 | Coro::cede; |
2510 | Coro::cede; |
| 2511 | } |
2511 | } |
