--- deliantra/server/lib/cf.pm	2007/07/02 03:15:30	1.290
+++ deliantra/server/lib/cf.pm	2007/07/03 00:54:44	1.291
@@ -1402,14 +1402,29 @@
          $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/;
+
    $_
 }
 
+sub hintmode {
+   warn "hm<$_[0] $_[1]>\n";#d#
+   $_[0]{hintmode} = $_[1] if @_ > 1;
+   $_[0]{hintmode}
+}
+
 =item $player->ext_reply ($msgid, %msg)
 
 Sends an ext reply to the player.