1 | #! perl # depends=irc mandatory |
1 | #! perl # depends=irc mandatory |
2 | |
2 | |
3 | # implement a replacement for the built-in say/chat/shout/tell/reply commands |
3 | # implement a replacement for the built-in say/chat/shout/tell commands |
4 | # adds ignore/unignore functionality |
4 | # adds ignore/unignore functionality |
5 | |
5 | |
6 | use NPC_Dialogue; |
6 | use NPC_Dialogue; |
7 | use POSIX (); # for strftime only |
7 | use POSIX (); # for strftime only |
8 | |
8 | |
… | |
… | |
749 | |
749 | |
750 | my %emote = %{ $emotes->{$emotion}->{params} || {} }; |
750 | my %emote = %{ $emotes->{$emotion}->{params} || {} }; |
751 | |
751 | |
752 | $emote{other} ||= "<self> is eyeing <other> quizzically."; |
752 | $emote{other} ||= "<self> is eyeing <other> quizzically."; |
753 | $emote{self} ||= "You are still nuts."; |
753 | $emote{self} ||= "You are still nuts."; |
754 | $emote{target} ||= "You get the distinct feeling that <other> is nuts."; |
754 | $emote{target} ||= "You get the distinct feeling that <self> is nuts."; |
755 | |
755 | |
756 | $emote{self} =~ s/<other>/$tname/; |
756 | $emote{self} =~ s/<other>/$tname/; |
757 | $emote{target} =~ s/<self>/$name/; |
757 | $emote{target} =~ s/<self>/$name/; |
758 | $emote{other} =~ s/<other>/$tname/; |
758 | $emote{other} =~ s/<other>/$tname/; |
759 | $emote{other} =~ s/<self>/$name/; |
759 | $emote{other} =~ s/<self>/$name/; |