| 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 | |
|
|
7 | use Event; |
|
|
8 | $Event::Eval = 1; # no idea why this is required, but it is |
| 6 | |
9 | |
| 7 | use strict; |
10 | use strict; |
| 8 | |
11 | |
| 9 | our %COMMAND; |
12 | our %COMMAND; |
| 10 | our @EVENT; |
13 | our @EVENT; |
| … | |
… | |
| 60 | |
63 | |
| 61 | # guessed hierarchies |
64 | # guessed hierarchies |
| 62 | |
65 | |
| 63 | @cf::object::player::ISA = 'cf::object'; |
66 | @cf::object::player::ISA = 'cf::object'; |
| 64 | @cf::object::map::ISA = 'cf::object'; |
67 | @cf::object::map::ISA = 'cf::object'; |
|
|
68 | |
|
|
69 | $Event::DIED = sub { |
|
|
70 | warn "error in event callback: @_"; |
|
|
71 | }; |
| 65 | |
72 | |
| 66 | my %ext_pkg; |
73 | my %ext_pkg; |
| 67 | my @exts; |
74 | my @exts; |
| 68 | my @hook; |
75 | my @hook; |
| 69 | my %command; |
76 | my %command; |
| … | |
… | |
| 336 | unlink "$path.cfperl";#d##TODO#remove |
343 | unlink "$path.cfperl";#d##TODO#remove |
| 337 | }; |
344 | }; |
| 338 | |
345 | |
| 339 | register "<global>", __PACKAGE__; |
346 | register "<global>", __PACKAGE__; |
| 340 | |
347 | |
|
|
348 | unshift @INC, maps_directory "perl"; |
|
|
349 | |
| 341 | load_extensions; |
350 | load_extensions; |
| 342 | |
351 | |
| 343 | 1 |
352 | 1 |
| 344 | |
353 | |
