--- deliantra/server/ext/chat.ext	2007/01/07 02:39:14	1.3
+++ deliantra/server/ext/chat.ext	2007/02/28 19:13:23	1.4
@@ -31,6 +31,8 @@
 
       clean_timeouts $pl->ob;
    },
+
+   1
 );
 
 cf::register_command listen => sub {
@@ -48,8 +50,658 @@
    } else {
       $who->message ("Your verbose level is " . $player->listening . ".", cf::NDI_UNIQUE);
    }
+
+   1
 };
 
+my $emotes = {
+   growl => {
+      noparams => {
+         other => "<self> growls."
+         self => "Grrrrrrrrr...."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   giggle => {
+      noparams => {
+         other => "<self> giggles."
+         self => "You giggle."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   shiver => {
+      noparams => {
+         other => "<self> shivers uncomfortably."
+         self => "Brrrrrrrrr."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   chuckle => {
+      noparams => {
+         other => "<self> chuckles politely."
+         self => "You chuckle politely"
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   sigh => {
+      noparams => {
+         other => "<self> sighs loudly."
+         self => "You sigh."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   scream => {
+      noparams => {
+         other => "<self> screams at the top of his lungs!"
+         self => "ARRRRRRRRRRGH!!!!!"
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   puke => {
+      noparams => {
+         other => "<self> pukes."
+         self => "Bleaaaaaghhhhhhh!"
+      },
+      params => {
+         target => "<self> pukes on your clothes!"
+         other => "<self> pukes on <other>."
+         self => "You puke on <other>."
+      },
+      self => {
+         other => "<self> pukes on his clothes."
+         self => "You puke on yourself."
+      },
+   },
+   strut => {
+      noparams => {
+         other => "<self> struts proudly."
+         self => "Strut your stuff."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   cringe => {
+      noparams => {
+         other => "<self> cringes in terror!"
+         self => "You cringe in terror."
+      },
+      params => {
+         target => "<self> cringes away from <other> in mortal terror."
+         self => "You cringe away from <other>."
+      },
+      self => {
+      },
+   },
+   hiccup => {
+      noparams => {
+         other => "<self> hiccups."
+         self => "*HIC*"
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   clap => {
+      noparams => {
+         other => "<self> gives a round of applause."
+         self => "Clap, clap, clap."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   kiss => {
+      noparams => {
+         other => "<self> makes a weird facial contortion"
+         self => "All the lonely people.."
+      },
+      params => {
+         target => "<self> kisses you."
+         other => "<self> kisses <other>."
+         self => "You kiss <other>."
+      },
+      self => {
+      },
+   },
+   wink => {
+      noparams => {
+         other => "<self> winks suggestively."
+         self => "Have you got something in your eye?"
+      },
+      params => {
+         target => "<self> winks at <other>."
+         self => "You wink suggestively at <other>."
+      },
+      self => {
+         other => "<self> winks at himself - something strange is going on..."
+         self => "You wink at yourself?? What are you up to?"
+      },
+   },
+   pout => {
+      noparams => {
+         other => "<self> pouts."
+         self => "Aww, don't take it so hard."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   cackle => {
+      noparams => {
+         other => "<self> throws back his head and cackles with insane glee!"
+         self => "You cackle gleefully."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   sniff => {
+      noparams => {
+         other => "<self> sniffs sadly."
+         self => "You sniff sadly. *SNIFF*"
+      },
+      params => {
+         target => "<self> sniffs you."
+         other => "<self> sniffs <other>"
+         self => "You sniff <other>."
+      },
+      self => {
+         other => "<self> sniffs himself."
+         self => "You sniff yourself."
+      },
+   },
+   nod => {
+      noparams => {
+         other => "<self> nods solemnly."
+         self => "You nod solemnly."
+      },
+      params => {
+         target => "<self> nods solemnly to you."
+         other => "<self> nods solemnly to <other>."
+         self => "You nod solemnly to <other>."
+      },
+      self => {
+      },
+   },
+   frown => {
+      noparams => {
+         other => "<self> frowns."
+         self => "What's bothering you?"
+      },
+      params => {
+         target => "<self> frowns darkly at you."
+         other => "<self> frowns darkly at <other>."
+         self => "You frown darkly at <other>."
+      },
+      self => {
+         other => "<self> frowns at himself."
+         self => "You frown at yourself."
+      },
+   },
+   snicker => {
+      noparams => {
+         other => "<self> snickers softly."
+         self => "You snicker softly."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   shrug => {
+      noparams => {
+         other => "<self> shrugs helplessly."
+         self => "You shrug."
+      },
+      params => {
+         target => "<self> shrugs at you."
+         other => "<self> shrugs at <other>."
+         self => "You shrug at <other>."
+      },
+      self => {
+      },
+   },
+   bleed => {
+      noparams => {
+         other => "<self> is bleeding all over the carpet - got a spare tourniquet?"
+         self => "You bleed all over your nice new armour."
+      },
+      params => {
+         target => "<self> slashes his wrist and bleeds all over <other>."
+         self => "You slash your wrist and bleed all over <other>"
+      },
+      self => {
+         other => "<self> performs some satanic ritual while wiping his blood on himself."
+         self => "Very impressive! You wipe your blood all over yourself."
+      },
+   },
+   twiddle => {
+      noparams => {
+         other => "<self> patiently twiddles his thumbs."
+         self => "You patiently twiddle your thumbs."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   spit => {
+      noparams => {
+         other => "<self> spits over his left shoulder."
+         self => "You spit over your left shoulder."
+      },
+      params => {
+         target => "<self> spits in your face!"
+         other => "<self> spits in <other>'s face."
+         self => "You spit on <other>."
+      },
+      self => {
+         other => "<self> drools all over himself."
+         self => "You drool all over yourself."
+      },
+   },
+   glare => {
+      noparams => {
+         other => "<self> glares around him."
+         self => "You glare at nothing in particular."
+      },
+      params => {
+         target => "<self> glares icily at you, you feel cold to your bones."
+         other => "<self> glares at <other>."
+         self => "You glare icily at <other>."
+      },
+      self => {
+         other => "<self> glares at his feet, what is bothering him?"
+         self => "You glare icily at your feet, they are suddenly very cold."
+      },
+   },
+   bow => {
+      noparams => {
+         other => "<self> bows deeply."
+         self => "You bow deeply."
+      },
+      params => {
+         target => "<self> bows before you."
+         other => "<self> bows before <other>."
+         self => "You bow before <other>."
+      },
+      self => {
+         other => "<self> folds up like a jackknife and kisses his own toes."
+         self => "You kiss your toes."
+      },
+   },
+   dance => {
+      noparams => {
+         other => "<self> expresses himself through interpretive dance."
+         self => "You dance with glee."
+      },
+      params => {
+         target => "<self> grabs you, and begins dancing!"
+         other => "Yipe! <self> and <other> are doing the Macarena!"
+         self => "You grab <other> and begin doing the Cha-Cha!"
+      },
+      self => {
+         other => "<self> embraces himself and begins to dance!"
+         self => "You skip and dance around by yourself."
+      },
+   },
+   other => {
+      noparams => {
+         other => "<self> dances with glee."
+         self => "You are a nut."
+      },
+      params => {
+         target => "You get the distinct feeling that <other> is nuts."
+         other => "<self> is eyeing <other> quizzically."
+         self => "You are still nuts."
+      },
+      self => {
+         other => "You look away from <self>."
+         self => "My god! Is that LEGAL?"
+      },
+   },
+   snore => {
+      noparams => {
+         other => "<self> snores loudly."
+         self => "Zzzzzzzzzzzzzzz."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   blush => {
+      noparams => {
+         other => "<self> blushes."
+         self => "Your cheeks are burning."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   snap => {
+      noparams => {
+         other => "<self> snaps his fingers."
+         self => "PRONTO! you snap your fingers."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   wave => {
+      noparams => {
+         other => "<self> waves happily."
+         self => "You wave."
+      },
+      params => {
+         target => "<self> waves goodbye to you. Have a good journey."
+         other => "<self> waves goodbye to <other>."
+         self => "You wave goodbye to <other>."
+      },
+      self => {
+         other => "<self> waves goodbye to himself."
+         self => "Are you going on adventures as well??"
+      },
+   },
+   smile => {
+      noparams => {
+         other => "<self> smiles happily."
+         self => "You smile happily."
+      },
+      params => {
+         target => "<self> smiles at you."
+         other => "<self> beams a smile at <other>."
+         self => "You smile at <other>."
+      },
+      self => {
+      },
+   },
+   sneeze => {
+      noparams => {
+         other => "<self> sneezes."
+         self => "Gesundheit!"
+      },
+      params => {
+         target => "<self> sneezes on you, you feel the snot cover you. EEEEEEW."
+         other => "<self> sneezes on <other> and a film of snot covers him."
+         self => "You sneeze at <other> and a film of snot shoots onto him."
+      },
+      self => {
+         other => "<self> sneezes, and covers himself in a slimy substance."
+         self => "You sneeze on yourself, what a mess!"
+      },
+   },
+   bounce => {
+      noparams => {
+         other => "<self> bounces around."
+         self => "BOIINNNNNNGG!"
+      },
+      params => {
+         target => "<self> bounces around the room with you."
+         other => "<self> bounces around the room with <other>."
+         self => "You bounce around the room with <other>."
+      },
+      self => {
+      },
+   },
+   shake => {
+      noparams => {
+         other => "<self> shakes his head."
+         self => "You shake your head."
+      },
+      params => {
+         target => "<self> shakes your hand."
+         other => "<self> shakes <other>'s hand."
+         self => "You shake <other>'s hand."
+      },
+      self => {
+         other => "<self> shakes and quivers like a bowlful of jelly."
+         self => "You are shaken by yourself."
+      },
+   },
+   lick => {
+      noparams => {
+         other => "<self> licks his mouth and smiles."
+         self => "You lick your mouth and smile."
+      },
+      params => {
+         target => "<self> licks you."
+         other => "<self> licks <other>."
+         self => "You lick <other>."
+      },
+      self => {
+         other => "<self> licks himself - YUCK."
+         self => "You lick yourself."
+      },
+   },
+   flip => {
+      noparams => {
+         other => "<self> flips head over heels."
+         self => "You flip head over heels."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   think => {
+      noparams => {
+         other => "<self> closes his eyes and thinks really hard."
+         self => "Anything in particular that you'd care to think about?"
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   yawn => {
+      noparams => {
+         other => "<self> yawns sleepily."
+         self => "You open up your yap and let out a big breeze of stale air."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   laugh => {
+      noparams => {
+         other => "<self> falls down laughing."
+         self => "You fall down laughing."
+      },
+      params => {
+         target => "<self> looks at you and falls down on the ground laughing."
+         other => "<self> looks at <other> and falls down on the ground laughing."
+         self => "You take one look at <other> and fall down laughing."
+      },
+      self => {
+         other => "<self> is laughing at something."
+         self => "Laugh at yourself all you want, the others won't understand."
+      },
+   },
+   burp => {
+      noparams => {
+         other => "<self> burps loudly."
+         self => "You burp loudly."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   gasp => {
+      noparams => {
+         other => "<self> gasps in astonishment."
+         self => "You gasp in astonishment."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   smirk => {
+      noparams => {
+         other => "<self> smirks."
+         self => "You smirk."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   cry => {
+      noparams => {
+         other => "<self> bursts into tears."
+         self => "Waaaaaaahhh.."
+      },
+      params => {
+         target => "<self> cries on your shoulder."
+         other => "<self> cries on <other>'s shoulder."
+         self => "You cry on <other>'s shoulder."
+      },
+      self => {
+         other => "<self> sobs quietly to himself."
+         self => "You cry to yourself."
+      },
+   },
+   sulk => {
+      noparams => {
+         other => "<self> sulks in the corner."
+         self => "You sulk."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   whistle => {
+      noparams => {
+         other => "<self> whistles appreciatively."
+         self => "You whistle appreciatively."
+      },
+      params => {
+         target => "<self> whistles at <other>."
+         self => "You whistle at <other>."
+      },
+      self => {
+         other => "<self> whistles to himself in boredom."
+         self => "You whistle while you work."
+      },
+   },
+   groan => {
+      noparams => {
+         other => "<self> groans loudly."
+         self => "You groan loudly."
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   cough => {
+      noparams => {
+         other => "<self> coughs loudly."
+         self => "Yuck, try to cover your mouth next time!"
+      },
+      params => {
+      },
+      self => {
+      },
+   },
+   grin => {
+      noparams => {
+         other => "<self> grins evilly."
+         self => "You grin evilly."
+      },
+      params => {
+         target => "<self> grins evilly at you."
+         other => "<self> grins evilly at <other>."
+         self => "You grin at <other>."
+      },
+      self => {
+      },
+   },
+};
+for my $emotion (keys %$emotes) {
+   cf::register_command $emotion => sub {
+      my ($ob, $tname) = @_;
+      
+      cf::async {
+         my $name = $ob->name;
+         
+         if ($tname eq $name) {
+            my $emote = $emotes->{$emotion}->{self};
+            $emote->{other} =~ s/<self>/$name/;
+            
+            for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
+               next
+                  if $other->ob == $ob;
+               $other->ob->message ($emote->{other}, cf::NDI_GREY | cf::NDI_UNIQUE);
+            }
+
+            $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE);
+         } elsif ($tname) {
+            my $target = cf::player::find $tname
+               or return $ob->reply (undef, "$tname is not around.");
+            
+            my $emote = $emotes->{$emotion}->{params};
+            $emote->{self} =~ s/<other>/$tname/;
+            $emote->{target} =~ s/<self>/$name/;
+            $emote->{other} =~ s/<other>/$tname/;
+            $emote->{other} =~ s/<self>/$name/;
+            
+            for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
+               next
+                  if $other->ob == $ob or $other == $target;
+               $other->ob->message ($emote->{other}, cf::NDI_GREY | cf::NDI_UNIQUE);
+            }
+
+            $target->ob->message ($emote->{target}, cf::NDI_GREY | cf::NDI_UNIQUE);
+            $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE);
+         } else {
+            my $emote = $emotes->{$emotion}->{noparams};
+            $emote->{other} =~ s/<self>/$name/;
+            
+            for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
+               next
+                  if $other->ob == $ob;
+               $other->ob->message ($emote->{other}, cf::NDI_GREY | cf::NDI_UNIQUE);
+            }
+
+            $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE);
+         }
+      };
+
+      1
+   };
+}
+
 cf::register_command say => sub {
    my ($who, $msg) = @_;
 
@@ -108,6 +760,8 @@
    } else {
       $who->message ("What do you want to say?", cf::NDI_UNIQUE);
    }
+
+   1
 };
 
 cf::register_command chat => sub {
@@ -131,6 +785,8 @@
    } else {
       $who->message ("Chat what?", cf::NDI_UNIQUE);
    }
+
+   1
 };
 
 cf::register_command shout => sub {
@@ -155,6 +811,7 @@
       $who->message ("Shout what?", cf::NDI_UNIQUE);
    }
 
+   1
 };
 
 cf::register_command tell => sub {
@@ -193,6 +850,8 @@
    } else {
       $who->message ("No such player. Your message: $msg", cf::NDI_UNIQUE);
    }
+
+   1
 };
 
 cf::register_command reply => sub {
@@ -230,6 +889,8 @@
    } else {
       $who->message ("Can't reply, player left. Your message: $args".$who->{ext_last_tell}, cf::NDI_UNIQUE);
    }
+
+   1
 };
 
 cf::register_command ignore => sub {
@@ -279,6 +940,8 @@
                    . "Usage: ignore list\n"
                    . "will show you a list of players currently ignored.", cf::NDI_UNIQUE);
    }
+
+   1
 };
 
 cf::register_command unignore => sub {
@@ -313,6 +976,8 @@
          $who->message ("No such player or ambiguous name: $target", cf::NDI_UNIQUE);
       }
    }
+
+   1
 };
 
 cf::register_command seen => sub {
@@ -336,5 +1001,7 @@
    } else {
       $who->message ("Usage: seen <player>", cf::NDI_UNIQUE);
    }
+
+   1
 };