| … | |
… | |
| 62 | prio => -1000, |
62 | prio => -1000, |
| 63 | on_login => sub { |
63 | on_login => sub { |
| 64 | my ($pl) = @_; |
64 | my ($pl) = @_; |
| 65 | |
65 | |
| 66 | clean_timeouts $pl->ob; |
66 | clean_timeouts $pl->ob; |
|
|
67 | |
| 67 | $pl->send_msg ($SAY_CHANNEL); |
68 | $pl->send_msg ($SAY_CHANNEL); |
| 68 | $pl->send_msg ($CHAT_CHANNEL); |
69 | $pl->send_msg ($CHAT_CHANNEL); |
| 69 | }, |
70 | }, |
| 70 | ); |
71 | ); |
| 71 | |
72 | |
| … | |
… | |
| 706 | |
707 | |
| 707 | my $pl = $ob->contr; |
708 | my $pl = $ob->contr; |
| 708 | |
709 | |
| 709 | cf::async { |
710 | cf::async { |
| 710 | my $name = $ob->name; |
711 | my $name = $ob->name; |
|
|
712 | $Coro::current->{desc} = "emote handler for $name"; |
| 711 | |
713 | |
| 712 | if ($tname eq $name) { |
714 | if ($tname eq $name) { |
| 713 | my %emote = %{ $emotes->{$emotion}->{self} || {} }; |
715 | my %emote = %{ $emotes->{$emotion}->{self} || {} }; |
| 714 | |
716 | |
| 715 | $emote{other} ||= "You look away from <self>."; |
717 | $emote{other} ||= "You look away from <self>."; |
