--- deliantra/server/common/player.C	2007/06/24 01:09:27	1.32
+++ deliantra/server/common/player.C	2008/09/08 18:34:35	1.43
@@ -1,29 +1,27 @@
 /*
- * This file is part of Crossfire TRT, the Multiplayer Online Role Playing Game.
+ * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  * 
- * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
+ * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
  * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
  * Copyright (©) 1992,2007 Frank Tore Johansen
  * 
- * Crossfire TRT is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License as published by the Free
- * Software Foundation; either version 2 of the License, or (at your option)
- * any later version.
+ * Deliantra is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
  * 
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
- * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
- * for more details.
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
  * 
- * You should have received a copy of the GNU General Public License along
- * with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
- * Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
  * 
- * The authors can be reached via e-mail to <crossfire@schmorp.de>
+ * The authors can be reached via e-mail to <support@deliantra.net>
  */
 
 #include <global.h>
-#include <funcpoint.h>
 
 /* Determine if the attacktype represented by the
  * specified attack-number is enabled for dragon players.
@@ -80,10 +78,10 @@
   PL_OUT  (password);
   PL_OUT2 (title, own_title);
   PL_OUT  (gender);
+  PL_OUT  (hintmode);
   PL_OUT  (gen_hp);
   PL_OUT  (gen_sp);
   PL_OUT  (gen_grace);
-  PL_OUT  (listening);
   PL_OUT  (bowtype);
   PL_OUT  (petmode);
   PL_OUT  (peaceful);
@@ -194,7 +192,8 @@
           case KW_bowtype:       pl->bowtype   = (bowtype_t) f.get_sint32 (); break;
           case KW_petmode:       pl->petmode   = (petmode_t) f.get_sint32 (); break;
           case KW_gender:        f.get (pl->gender); break;
-          case KW_listening:     f.get (pl->listening); break;
+          case KW_hintmode:      f.get (pl->hintmode); break;
+          case KW_listening:     /*TODO*/; break;
           case KW_peaceful:      f.get (pl->peaceful); break;
           case KW_digestion:     f.get (pl->digestion); break;
           case KW_pickup:        f.get (pl->mode); break;
@@ -269,16 +268,209 @@
   return 0;
 }
 
-player *
-player::load_pl (const char *path)
+const char *
+player::killer_name () const
+{
+  static char buf [2048];
+
+  if (!killer)
+    return "a dungeon collapse";
+  else if (killer->contr)
+    snprintf (buf, sizeof (buf), "%s the %s", &killer->name,
+              *killer->contr->own_title ? killer->contr->own_title : killer->contr->title);
+  else if (killer->type == DEEP_SWAMP)
+    snprintf (buf, sizeof (buf), "drowning in a %s", &killer->name);
+  else if (killer->owner)
+    snprintf (buf, sizeof (buf), "%s's %s", &killer->outer_owner ()->name, &killer->name);
+  else
+    return &killer->name;
+
+  return buf;
+}
+
+// expand one level of cfpod
+// end == -2, till '\n'
+// end == -1, till '>'
+// end == 0, till eos
+// end >= 1, levels of " >>>"
+static const char *
+expand_cfpod (const player *pl, dynbuf_text &buf, const char *cfpod, int end)
 {
-  object_thawer f (path);
+  static dynbuf_text nest(128, 128);
+
+  for (;;)
+    switch (char ch = *cfpod++)
+      {
+        case 0:
+          return cfpod - 1;
+
+        case ' ':
+          if (end < 1)
+            goto passthrough;
+
+          for (int i = 0; i < end; ++i)
+            if (cfpod [i] != '>')
+              goto passthrough;
 
-  if (!f)
-    return 0;
+          return cfpod + end;
+
+        case '>':
+          if (end != -1)
+            {
+              buf << "&gt;";
+              break;
+            }
+
+          return cfpod;
+
+        case '&':
+          buf << "&amp;";
+          break;
+
+        case '<':
+          buf << "&lt;";
+          break;
+
+        case '\r':
+          buf << '\n';
+          break;
+
+        case '\n':
+          if (end == -2)
+            return cfpod;
+
+          // \n\  => newline, tt
+          // \n\n => \n\n
+          // \n   => single space
+
+          // two or more newlines will be copied verbatim, one is replaced by space
+          if (*cfpod == '\n')
+            {
+              --cfpod;
+              do
+                buf << *cfpod++;
+              while (*cfpod == '\n');
+            }
+          else if (*cfpod != ' ')
+            buf << ' ';
+
+          // start verbatim block's?
+          if (*cfpod == ' ')
+            {
+              // elements cannot currently span multiple lines
+              do
+                {
+                  buf << "<tt>";
+                  cfpod = expand_cfpod (pl, buf, cfpod, -2);
+                  buf << "</tt>\n";
+                }
+              while (*cfpod == ' ');
+
+              while (*cfpod == '\n')
+                buf << *cfpod++;
+            }
+
+          break;
+
+        case 'B': case 'C': case 'E': case 'G':
+        case 'H': case 'I': case 'T': case 'U':
+        case 'Z':
+          {
+            int end = 0;
+
+            while (cfpod [end] == '<')
+              ++end;
+
+            if (!end)
+              goto passthrough;
+
+            if (end == 1 || cfpod [end] != ' ')
+              {
+                end = -1;
+                ++cfpod;
+              }
+            else
+              cfpod += end + 1;
+
+            const char *pfx, *sfx;
+
+            switch (ch)
+              {
+                case 'B': pfx = "<b>"     ; sfx = "</b>"      ; break;
+                case 'C': pfx = "<tt>"    ; sfx = "</tt>"     ; break;
+                case 'E': pfx = "&"       ; sfx = ";"         ; break;
+                case 'I': pfx = "<i>"     ; sfx = "</i>"      ; break;
+                case 'U': pfx = "<u>"     ; sfx = "</u>"      ; break;
+                case 'T': pfx = "<big><b>"; sfx = "</b></big>"; break;
+
+                case 'H': // hint
+                  {
+                    if (pl->hintmode)
+                      {
+                        cfpod = expand_cfpod (pl, nest, cfpod, end);
+                        nest.clear ();
+
+                        if (pl->hintmode == 1)
+                          buf << "<fg name=\"lightblue\">[Hint suppressed, see hintmode]</fg>";
+                        else
+                          while (*cfpod == ' ') // eat trailing whitespace
+                            ++cfpod;
+
+                        goto skip;
+                      }
+                    else
+                      {
+                        pfx = "<fg name=\"lightblue\">[";
+                        sfx = " (Use hintmode to suppress hints)]</fg>";
+                      }
+                  }
+                  break;
+
+                case 'G': // gender
+                  {
+                    expand_cfpod (pl, nest, cfpod, end);
+                    nest << '\0'; // zero-terminate
+
+                    const char *str = nest.linearise ();
+                    const char *sep = strchr (str, '|');
+
+                    if (sep)
+                      {
+                        if (pl->gender || 1)
+                          buf.add (sep + 1, nest.size () - (sep - str) - 2);
+                        else
+                          buf.add (str, sep - str);
+                      }
+
+                    nest.clear ();
+
+                    goto skip;
+                  }
+              }
+
+            buf << pfx;
+            cfpod = expand_cfpod (pl, buf, cfpod, end);
+            buf << sfx;
+          }
+
+          break;
+
+        default:
+          passthrough:
+            buf << ch;
+          skip:
+            break;
+      }
+}
+
+dynbuf_text *
+player::expand_cfpod (const char *cfpod) const
+{
+  static dynbuf_text buf(1024, 1024);
+  buf.clear ();
 
-  f.next ();
+  ::expand_cfpod (this, buf, cfpod, 0);
 
-  return load_pl (f);
+  return &buf;
 }