All pastes #745577 Raw Edit

Mine

public text v1 · immutable
·published 2007-10-22 14:54 UTC
rendered paste body
package ProneServer;

#we received a chat message
sub CHAT {
	my ( $type,$target,$who,$what ) = @_ ;

	foreach my $p ( @players ) {
		my $paquet  = "SENDTO:";
		$paquet .= "CHAT:";
		$paquet .= $p->id;
		$paquet .= ":";
		$paquet .= $who ;
		$paquet .= ":";
		$paquet .= $what;
		print $sock $paquet ."\n";
	}
	return 1;
}

#register the function
$EVENTS->{"CHAT"} = \&CHAT ; 
return 1;