… | … | ||
---|---|---|---|
21 | } | 21 | } |
22 | } | 22 | } |
23 | } | 23 | } |
24 | } | 24 | } |
25 | 25 | ||
26 | sub on_login { | 26 | cf::attach_to_players |
27 | prio => -1000, | ||
28 | on_login => sub { | ||
27 | my ($pl) = @_; | 29 | my ($pl) = @_; |
28 | 30 | ||
29 | clean_timeouts $pl->ob; | 31 | clean_timeouts $pl->ob; |
30 | } | 32 | }, |
33 | ; | ||
31 | 34 | ||
32 | cf::register_command listen => 0, sub { | 35 | cf::register_command listen => 0, sub { |
33 | my ($who, $msg) = @_; | 36 | my ($who, $msg) = @_; |
34 | my $player = cf::player::find $who->name; | 37 | my $player = cf::player::find $who->name; |
35 | 38 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |