Gammon Forum

  group = {
    [1] = {
      me = false,
      combat = false,
      leader = true,
      debuffs = {
        },
      name = "Jerirath",
      position = "standing",
      buffs = {
        [1] = "armor",
        [2] = "bless",
        [3] = "bless",
        },
      level = 4,
      xp = {
        max = 42550,
        cur = 3944,
        },
      stats = {
        Mana = {
          max = 91,
          cur = 91,
          },
        HP = {
          max = 73,
          cur = 73,
          },
        Move = {
          max = 230,
          cur = 230,
          },
        },
      },
    [2] = {
      me = true,
      combat = false,
      follow = "Jerirath",
      leader = false,
      debuffs = {
        },
      name = "Nick",
      position = "standing",
      buffs = {
        [1] = "bless",
        [2] = "bless",
        [3] = "armor",
        },
      level = 4,
      xp = {
        max = 42550,
        cur = 489,
        },
      stats = {
        Mana = {
          max = 94,
          cur = 94,
          },
        HP = {
          max = 72,
          cur = 67,
          },
        Move = {
          max = 230,
          cur = 230,
          },
        },
      },
    },

  inroom = {
    dark = false,
    blind = false,
    objects = {
      [1] = {
        typ = "fountain",
        dsc = "A large marble fountain gushes forth here.",
        },
      },
    players = {
      [1] = {
        fight = false,
        lvl = 4,
        dsc = "Jerirath",
        },
      },
    npcs = {
      [1] = {
        fight = false,
        lvl = 25,
        aggro = false,
        dsc = "A Lord of Healing stands here, overseeing your progress.\n\r",
        },
      },
    },

inroom = {
    dark = false,
    blind = false,
    objects = {
      [1] = {
        typ = "corpse",
        dsc = "The corpse of the gnoll lies here.",
        },
      [2] = {
        typ = "blood",
        dsc = "A pool of spilled blood lies here.",
        },
      },
    players = {
      [1] = {
        fight = false,
        lvl = 4,
        dsc = "Jerirath",
        },
      },
    npcs = {
      [1] = {
        fight = true,
        lvl = 1,
        target = "YOU!",
        aggro = true,
        dsc = "A young gnoll is here ready to attack you.\n\r",
        },
      },
    },

 move = {
    room = 10340,
    blind = false,
    exits = {
      north = 10325,
      },
    name = "Warriors South Cage",
    dark = false,
    },

// Author: Nick Gammon; 2nd February 2010
// Fixup for sending Lua-style strings to client
// Convert: \r \n double-quote IAC and ESC
// Note that Lua expects 0x00 to be sent as \0 however since this is a
// null-terminated string, we won't ever get 0x00
// Also puts quotes around result to save you the trouble of doing it.
// A NULL string returns the string "nil".

// Handles conversion to UFF-8 if UTF8_ENCODE defined
// You would normally define this unless the MUD already uses UTF-8 internally.
// http://www.codeguru.com/cpp/misc/misc/multi-lingualsupport/article.php/c10451

#define UTF8_ENCODE

char * fixup_lua_strings (const char * sce)
  {
  const char * p;
  char * dest;
  char * pd;
  int count = 3;  // allow for quotes and final 0x00 at end
  unsigned char c;
  
  if (sce == NULL)
    {
    dest = (char *) malloc (strlen ("nil") + 1);
    strcpy (dest, "nil");  
    return dest;
    }

  // first work out how much memory to allocate
  for (p = sce; *p; p++, count++)
    {
    c = (unsigned char) *p;
#ifdef UTF8_ENCODE
    if (c >= 0x80)
      count++;   // characters 0x80 to 0xFF require 110 000xx 10 xxxxxx
    else
#endif
      switch (c)
        {
        case '\r':   // carriage-return
        case '\n':   // newline
        case '"':    // double-quote
          count++;   // becomes \r \n and \"
          break;   
        
        // Note: will not apply if UTF-8 encoding present
        case '\xFF':  // IAC becomes \255
          count += 3;  
          break;
        
       } /* end of switch on character */

    }   /* end of counting */
  
  dest = (char *) malloc (count);
  pd = dest;
  *pd++ = '"';  // opening quote
  
  for (p = sce; *p; p++)
    {
    c = (unsigned char) *p;
#ifdef UTF8_ENCODE
    if (c >= 0x80)  // characters 0x80 to 0xFF require 110 000xx 10 xxxxxx
      {
      *pd++ = 0xC0 | (c >> 6);   // 110 000xx
      *pd++ = 0x80 | (c & 0x3F); // 10 xxxxxx
      }
    else
#endif
    switch (c)
      {
      case '\r':   // carriage-return
        memcpy (pd, "\\r", 2);
        pd += 2;
        break;
         
      case '\n':   // newline
        memcpy (pd, "\\n", 2);
        pd += 2;
        break;
        
      case '"':    // double-quote
        memcpy (pd, "\\\"", 2);
        pd += 2;
        break;
      
      // Note: will not apply if UTF-8 encoding present
      case '\xFF': // IAC
        memcpy (pd, "\\255", 4);
        pd += 4;
        break;
      
      default:
        *pd++ = c;
         break;  

      } /* end of switch on character */

     }   /* end of copying */
  
  *pd++ = '"';  // closing quote
  *pd = 0;      // terminating 0x00
  
  return dest;
}

-- package table
subwindow = {}

subwindow.open = {
  name = "name",
  title = "title",
  width = 50,
  height = 50,
}