ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/chat.ext
(Generate patch)

Comparing deliantra/server/ext/chat.ext (file contents):
Revision 1.36 by root, Wed Oct 24 00:05:32 2007 UTC vs.
Revision 1.39 by root, Fri Apr 11 01:15:49 2008 UTC

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
6use NPC_Dialogue; 6use NPC_Dialogue;
7use POSIX (); # for strftime only 7use POSIX (); # for strftime only
8 8
255 self => "You kiss <other>.", 255 self => "You kiss <other>.",
256 }, 256 },
257 self => { 257 self => {
258 }, 258 },
259 }, 259 },
260 smother => {
261 noparams => {
262 other => "<self> makes weird facial contortions",
263 self => "All the lonely people..",
264 },
265 params => {
266 target => "<self> smothers you with kisses.",
267 other => "<self> smothers <other> with kisses.",
268 self => "You smother <other> with kisses.",
269 },
270 self => {
271 },
272 },
260 wink => { 273 wink => {
261 noparams => { 274 noparams => {
262 other => "<self> winks suggestively.", 275 other => "<self> winks suggestively.",
263 self => "Have you got something in your eye?", 276 self => "Have you got something in your eye?",
264 }, 277 },
736 749
737 my %emote = %{ $emotes->{$emotion}->{params} || {} }; 750 my %emote = %{ $emotes->{$emotion}->{params} || {} };
738 751
739 $emote{other} ||= "<self> is eyeing <other> quizzically."; 752 $emote{other} ||= "<self> is eyeing <other> quizzically.";
740 $emote{self} ||= "You are still nuts."; 753 $emote{self} ||= "You are still nuts.";
741 $emote{target} ||= "You get the distinct feeling that <other> is nuts."; 754 $emote{target} ||= "You get the distinct feeling that <self> is nuts.";
742 755
743 $emote{self} =~ s/<other>/$tname/; 756 $emote{self} =~ s/<other>/$tname/;
744 $emote{target} =~ s/<self>/$name/; 757 $emote{target} =~ s/<self>/$name/;
745 $emote{other} =~ s/<other>/$tname/; 758 $emote{other} =~ s/<other>/$tname/;
746 $emote{other} =~ s/<self>/$name/; 759 $emote{other} =~ s/<self>/$name/;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines