[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.229 by root, Sun Apr 1 00:36:34 2007 UTC vs.
Revision 1.232 by root, Wed Apr 4 02:07:19 2007 UTC

       and return;
    1
 }
+=item cf::datalog type => key => value, ...
+Log a datalog packet of the given type with the given key-value pairs.
+=cut
+sub datalog($@) {
+  my ($type, %kv) = @_;
+  warn "DATALOG ", JSON::XS->new->ascii->encode ({ %kv, type => $type });
+}
 =back
 =cut
 #############################################################################
    }
    \@paths
 }
-=item $player->ext_reply ($msgid, $msgtype, %msg)
+=item $player->ext_reply ($msgid, %msg)
 Sends an ext reply to the player.
 =cut
-sub ext_reply($$$%) {
+sub ext_reply($$%) {
    my ($self, $id, %msg) = @_;
    $msg{msgid} = $id;
    $self->send ("ext " . cf::to_json \%msg);
+}
+=item $player->ext_event ($type, %msg)
+Sends an ext event to the client.
+=cut
+sub ext_event($$%) {
+   my ($self, $type, %msg) = @_;
+   $self->ns->ext_event ($type, %msg);
 }
 package cf;
 =back
    utf8::encode $text;
    $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)
 Queues a query to the client, calling the given callback with
 the reply text on a reply. flags can be C<cf::CS_QUERY_YESNO>,

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines