Gammon Forum

function OnPluginPacketReceived(packet) 
  if string.find(packet, "\255\251\200") then
     Send("\255\253\200")
  end
end

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="ATCP"
   author="Keldar"
   id="a2a6350d9144c09a8a7c4636"
   language="Lua"
   purpose="Enabling the ATCP protocol"
   date_written="2006-10-15"
   requires="3.81"
   version="1.0"
   >
<description trim="y">
<![CDATA[
sdf
]]>
</description>

</plugin>


<!--  Get our standard constants -->

<include name="constants.lua"/>

<!--  Script  -->


<script>
<![CDATA[
require "tprint"

codes = {
IAC_WILL_ATCP = "\255\251\200",
IAC_WONT_ATCP = "\255\252\200",
IAC_DO_ATCP = "\255\253\200",
IAC_DONT_ATCP = "\255\254\200",
IAC_SB_ATCP = "\255\250\200",
IAC_SE = "\255\240"
}

leftovers = nil

function OnPluginPacketReceived(packet) 
  if string.find(packet, codes.IAC_WILL_ATCP) then
    SendPkt(codes.IAC_DO_ATCP)
    Note("TEST")
    return string.gsub(packet, "(.-)" .. codes.IAC_WILL_ATCP .. "(.-)", "%1%2")
  end
  local atcp = parseATCP(packet)
  --tprint(atcp)
  return packet
end


function parseATCP(packet)
  local packet = packet
  if leftovers then
    packet = leftovers .. packet
  end
  local atcp = {}
  for msg in string.gmatch(packet, codes.IAC_SB_ATCP .. ".-" .. codes.IAC_SE) do
    table.insert(atcp, msg)
  end
  leftovers = string.match(packet, "(\255\250?\200?[^" .. codes.IAC_SE .. "]-)$")
  return atcp
end

]]>
</script>


<!--  Plugin help  -->

<aliases>
  <alias
   script="OnHelp"
   match="ATCP:help"
   enabled="y"
  >
  </alias>
</aliases>

<script>
<![CDATA[
function OnHelp ()
  world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
end
]]>
</script> 

</muclient>