maps/perl/chat.ext

#! perl
cf::register_command chat => 0, sub
{
   my ($who, $msg) = @_;

   if ($msg) {
      my $name = $who->name;

      $_->ob->message ("$name chats: $msg", cf::NDI_BLUE)
         for grep !$player->ob->{ext_ignore_shout}, cf::player::list;

   } else {
      $who->message ("Chat what?", cf::NDI_UNIQUE);
   }
};

cf::register_command shout => 0, sub
{
   my ($who, $msg) = @_;

   if ($msg) {
      my $name = $who->name;

      $_->ob->message ("$name shouts: $msg", cf::NDI_RED)
         for grep !$player->ob->{ext_ignore_shout}, cf::player::list;

   } else {
      $who->message ("Shout what?", cf::NDI_UNIQUE);
   }

};
Revision:	1.4
Committed:	Sun May 7 08:05:26 2006 UTC (18 years ago) by root
Branch:	MAIN
Changes since 1.3:	+6 -10 lines
Log Message:	minor changes
#	User	Rev	Content
1	pippijn	1.1	#! perl
2	pippijn	1.3	cf::register_command chat => 0, sub
3			{
4	pippijn	1.1	my ($who, $msg) = @_;
5
6			if ($msg) {
7			my $name = $who->name;
8
9	root	1.4	$_->ob->message ("$name chats: $msg", cf::NDI_BLUE)
10			for grep !$player->ob->{ext_ignore_shout}, cf::player::list;
11
12	pippijn	1.1	} else {
13			$who->message ("Chat what?", cf::NDI_UNIQUE);
14			}
15			};
16
17	pippijn	1.3	cf::register_command shout => 0, sub
18			{
19	pippijn	1.1	my ($who, $msg) = @_;
20
21			if ($msg) {
22			my $name = $who->name;
23
24	root	1.4	$_->ob->message ("$name shouts: $msg", cf::NDI_RED)
25			for grep !$player->ob->{ext_ignore_shout}, cf::player::list;
26
27	pippijn	1.1	} else {
28			$who->message ("Shout what?", cf::NDI_UNIQUE);
29			}
30
31			};