… | |
… | |
26 | our $TICK = MAX_TIME * 1e-6; |
26 | our $TICK = MAX_TIME * 1e-6; |
27 | our $TICK_WATCHER; |
27 | our $TICK_WATCHER; |
28 | our $NEXT_TICK; |
28 | our $NEXT_TICK; |
29 | |
29 | |
30 | our %CFG; |
30 | our %CFG; |
|
|
31 | |
|
|
32 | our $uptime; |
|
|
33 | |
|
|
34 | $uptime ||= time; |
31 | |
35 | |
32 | ############################################################################# |
36 | ############################################################################# |
33 | |
37 | |
34 | =head2 GLOBAL VARIABLES |
38 | =head2 GLOBAL VARIABLES |
35 | |
39 | |
… | |
… | |
770 | sub cf::player::exists($) { |
774 | sub cf::player::exists($) { |
771 | cf::player::find $_[0] |
775 | cf::player::find $_[0] |
772 | or -f sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($_[0]) x 2; |
776 | or -f sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($_[0]) x 2; |
773 | } |
777 | } |
774 | |
778 | |
775 | =item $player->reply ($npc, $msg[, $flags]) |
779 | =item $object->reply ($npc, $msg[, $flags]) |
776 | |
780 | |
777 | Sends a message to the player, as if the npc C<$npc> replied. C<$npc> |
781 | Sends a message to the player, as if the npc C<$npc> replied. C<$npc> |
778 | can be C<undef>. Does the right thing when the player is currently in a |
782 | can be C<undef>. Does the right thing when the player is currently in a |
779 | dialogue with the given NPC character. |
783 | dialogue with the given NPC character. |
780 | |
784 | |