… | |
… | |
347 | for grep %$_, $ob, $ob->inv; |
347 | for grep %$_, $ob, $ob->inv; |
348 | |
348 | |
349 | unlink "$path.cfperl";#d##TODO#remove |
349 | unlink "$path.cfperl";#d##TODO#remove |
350 | }; |
350 | }; |
351 | |
351 | |
|
|
352 | ############################################################################# |
|
|
353 | # core extensions - in perl |
|
|
354 | |
|
|
355 | # rough implementation of a future "reply" method that works |
|
|
356 | # with dialog boxes. |
|
|
357 | sub cf::object::player::reply($$;$) { |
|
|
358 | my ($self, $msg, $flags) = @_; |
|
|
359 | |
|
|
360 | $flags = cf::NDI_WHITE unless @_ >= 3; |
|
|
361 | |
|
|
362 | $self->message ($msg, $flags); |
|
|
363 | } |
|
|
364 | |
|
|
365 | ############################################################################# |
|
|
366 | # initialisation |
|
|
367 | |
352 | register "<global>", __PACKAGE__; |
368 | register "<global>", __PACKAGE__; |
353 | |
369 | |
354 | unshift @INC, maps_directory "perl"; |
370 | unshift @INC, maps_directory "perl"; |
355 | |
371 | |
356 | load_extensions; |
372 | load_extensions; |