Gammon Forum

    m_pCurrentLine = new CLine (++m_total_lines, 
                                m_nWrapColumn,
                                iFlags,       // style flags
                                iForeColour,  
                                iBackColour,
                                m_bUTF_8);

    m_pCurrentLine->flags = flags;
    pos = m_LineList.AddTail (m_pCurrentLine);

BroadcastPlugin(1,message)

DoAfterSpecial(.1,BroadcastPlugin(1,message))

  unsigned char save_flags = m_pCurrentLine->flags;

  DisplayMsg (strFullMsg, strFullMsg.GetLength (), COMMENT);

  // Reset the next output line to make sure that our comment above doesn't cause
  // any mud input to be treated as a comment.
  m_pCurrentLine->flags = save_flags;

    if (!strExtraOutput.IsEmpty ())
       DisplayMsg (strExtraOutput, strExtraOutput.GetLength (), COMMENT);

      if (text == "comm.tick {}") then
         Tell ("---")
         Tell ("GMCP TICK")
         Note ("---")
      end 

---
GMCP TICK
---
You see the grey moon rising in the east.
---------------
--> TICK <--

GMCPMessageQueue = {}
function OnPluginTelnetSubnegotiation (msg_type, data)
   if msg_type ~= GMCP then
      return
   end -- if not GMCP
  
   if GMCPDebug > 0 then ColourNote ("darkorange", "", data) end

   message, params = string.match (data, "([%a.]+)%s+(.*)")
  
   if not message then
      return
   end -- if
  
   if not string.match (params, "^[%[{]") then
      params =  "[" .. params .. "]"  -- JSON hack, make msg first element of an array.
   end -- if 
   local succ,t = pcall(json.decode,params)

   if succ and type(t) == "table" then
      gmcpdata = gmcpdata or {}

      -- Create the higher level tables based on tag such as char.vitals or room.info etc.
      -- Lowest level of those will be the 'parent' for parse_gmcp
      local parent = gmcpdata
      for item in string.gmatch(message,"%a+") do

         -- reset data hacks
         if (item == "room" and message:sub(1,13) ~= "room.wrongdir") -- don't let room.wrongdir erase current room info
         or item == "comm" or item == "group" then 
            parent[item] = nil 
         end

         parent[item] = parent[item] or {}
         parent = parent[item]
      end
 
      parse_gmcp(t,nil,parent)

	--This if/print will result in bad behavior
	--for GMCP packets with embedded output lines
      if GMCPDebug > 1 then 
         print ("gmcpdata serialized: " .. serialize.save_simple(gmcpdata)) 
      end
 
      --BroadcastPlugin(1,message)
      --Doing it this way to avoid interrupting a line that contains both
      --GMCP data and normal data.  We want to process the GMCP *after* we've
      --generated the full "normal" line from the MUD.  See
      --OnPluginLineReceived(), OnPluginTick()
      table.insert(GMCPMessageQueue, message)

      -- Examples of use from here on. Can be uncommented for debug.
      --print("Testing room.info.exits table      : " .. gmcpval("room.info.exits")) -- serialized table.
      --print("Testing correct room name          : " .. gmcpval("room.info.brief")) -- single field
      --print("Testing character str stat         : " .. gmcpval("char.stats.str"))  -- single number.
      --print("Testing top-level value            : " .. gmcpval("char"))            -- all char table.
      --print("Testing bad top-level value        : " .. gmcpval("sdlkfsldf"))       -- nil (not error)
      --print("Testing bad lower level            : " .. gmcpval("blah.1.2.3"))      -- nil
      --print("Testing bad lower level inside good: " .. gmcpval("room.info.hinick")) -- nil
      --print("Testing north exit, deeper nest    : " .. gmcpval("room.info.exits.n"))
      -- End of test cases.
 
  else
      ColourNote("white","red","GMCP DATA ERROR: "..t)
  end  -- if
   
end -- function OnPluginTelnetSubnegotiation

function OnPluginLineReceived()
	--Capture here to do our best to broadcast GMCP
	--BEFORE triggers are run on embedded lines
	OnPluginTick()
end

function OnPluginTick()
	--Capture here to broadcast GMCP shortly after
	--any GMCP line, even if no output text is
	--embedded.
	if #GMCPMessageQueue > 0 then
		for i=1, #GMCPMessageQueue do
			BroadcastPlugin(1, GMCPMessageQueue[i])
		end
		
		GMCPMessageQueue = {}
	end
end