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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.290 by root, Mon Jul 2 03:15:30 2007 UTC vs.
Revision 1.294 by root, Tue Jul 3 06:00:48 2007 UTC

       # replace G<male|female> tags
       || s{G<([^>|]*)\|([^>]*)>}{
          $self->gender ? $2 : $1
       }ge
       # replace H<hint text>
-      || s/H<([^\>]*)>/<fg name="lightblue">[$1]<\/fg>/g;
+      || s{H<([^\>]*)>}
+          {
+             ("<fg name=\"lightblue\">[$1 (Use hintmode to suppress hints)]</fg>",
+              "<fg name=\"lightblue\">[Hint suppressed, see hintmode]</fg>",
+              "")
+                [$self->{hintmode}]
+          }ge;
    # create single paragraphs (very hackish)
    s/(?<=\S)\n(?=\w)/ /g;
+   # compress some whitespace
+   1 while s/\s*\n\s*\n\s*/\n/;
+   s/^\s+//;
+   s/\s+$//;
    $_
+}
+sub hintmode {
+   $_[0]{hintmode} = $_[1] if @_ > 1;
+   $_[0]{hintmode}
 }
 =item $player->ext_reply ($msgid, %msg)
 Sends an ext reply to the player.
 sub cf::client::send_msg {
    my ($self, $color, $type, $msg, @extra) = @_;
    $msg = $self->pl->expand_cfpod ($msg);
+   return unless @extra || length $msg;
    if ($self->can_msg) {
       $self->send_packet ("msg " . $self->{json_coder}->encode ([$color, $type, $msg, @extra]));
    } else {
       # replace some tags by gcfclient-compatible ones
       for ($msg) {

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