1 | package cf; |
1 | package cf; |
2 | |
2 | |
3 | use Symbol; |
3 | use Symbol; |
4 | use List::Util; |
4 | use List::Util; |
5 | use Storable; |
5 | use Storable; |
|
|
6 | use Event; |
6 | |
7 | |
7 | use strict; |
8 | use strict; |
8 | |
9 | |
9 | our %COMMAND; |
10 | our %COMMAND; |
10 | our @EVENT; |
11 | our @EVENT; |
… | |
… | |
60 | |
61 | |
61 | # guessed hierarchies |
62 | # guessed hierarchies |
62 | |
63 | |
63 | @cf::object::player::ISA = 'cf::object'; |
64 | @cf::object::player::ISA = 'cf::object'; |
64 | @cf::object::map::ISA = 'cf::object'; |
65 | @cf::object::map::ISA = 'cf::object'; |
|
|
66 | |
|
|
67 | $Event::DIED = sub { |
|
|
68 | warn "error in event callback: @_"; |
|
|
69 | }; |
65 | |
70 | |
66 | my %ext_pkg; |
71 | my %ext_pkg; |
67 | my @exts; |
72 | my @exts; |
68 | my @hook; |
73 | my @hook; |
69 | my %command; |
74 | my %command; |
… | |
… | |
336 | unlink "$path.cfperl";#d##TODO#remove |
341 | unlink "$path.cfperl";#d##TODO#remove |
337 | }; |
342 | }; |
338 | |
343 | |
339 | register "<global>", __PACKAGE__; |
344 | register "<global>", __PACKAGE__; |
340 | |
345 | |
|
|
346 | unshift @INC, maps_directory "perl"; |
|
|
347 | |
341 | load_extensions; |
348 | load_extensions; |
342 | |
349 | |
343 | 1 |
350 | 1 |
344 | |
351 | |