--- deliantra/server/lib/cf.pm	2007/04/04 00:02:06	1.231
+++ deliantra/server/lib/cf.pm	2007/04/04 02:07:19	1.232
@@ -1149,11 +1149,7 @@
 sub ext_event($$%) {
    my ($self, $type, %msg) = @_;
 
-   delete $msg{msgid};
-   $msg{msgtype} = "event";
-   $msg{eventtype} = $type;
-
-   $self->send ("ext " . cf::to_json \%msg);
+   $self->ns->ext_event ($type, %msg);
 }
 
 package cf;
@@ -2016,6 +2012,18 @@
    $self->send_packet (sprintf "drawinfo %d %s", $flags || cf::NDI_BLACK, $text);
 }
 
+=item $client->ext_event ($type, %msg)
+
+Sends an exti event to the client.
+
+=cut
+
+sub cf::client::ext_event($$%) {
+   my ($self, $type, %msg) = @_;
+
+   $msg{msgtype} = "event_$type";
+   $self->send_packet ("ext " . cf::to_json \%msg);
+}
 
 =item $success = $client->query ($flags, "text", \&cb)