Gammon Forum

local atcp_stats = {H = "hp", M = "mp", E = "ep", W = "wp", NL = "nl"}
PPI.OnLoad("7c08e2961c5e20e5bdbf7fc5", function(atcp)
  atcp.Listen("Char.Vitals", function(message, content)
    for stat, curr, max in string.gmatch(content, "(%w+):(%d+)/(%d+)") do
      gauges.stats[atcp_stats[stat]].curr = curr
      gauges.stats[atcp_stats[stat]].max = max
    end
    
    gauges.draw()
  end)
end)

-- Used to load the ATCP interface
PPI = require("ppi")

-- Will contain the ATCP interface
atcp = nil


-- Executed when you get an ATCP message!
OnRoomBrief = function(message, content)
  SetStatus(content .. ".")
  Note(content)
  Note(message)
end

-- Loads the ATCP library
OnPluginListChanged = function()
  local atcp, reloaded = PPI.Load("7c08e2961c5e20e5bdbf7fc5")
  if not atcp then
    Note("ATCP funktioniert nicht!")
  elseif reloaded then
    -- Registers a function to call when Room.Brief is received.
    atcp.Listen("Room.Brief", OnRoomBrief)
  end
end

OnPluginTelnetRequest = function(type, data)
  Note(type)
  Note(data)
  if type == codes.ATCP then
    -- do not authenticate if we're connected to Vadi's System
    if GetInfo(61) == "127.0.0.1" then
      Note("Vadis System")
      return
    end
    if data == "DO" then
      Note("DO")
      return true
    elseif data == "WILL" then
      Note("WILL")
      return true
    elseif data == "SENT_DO" then
      SendPkt(codes.IAC_SB_ATCP .. hello_msg .. codes.IAC_SE)
      Note("SENT_DO")
      return true
    end
  end
  Note("nothing happened")
  return false
end

OnPluginTelnetRequest = function(type, data)
  Note(data)
  Note(type)
  return true
end

-- Used to load the ATCP interface
PPI = require("ppi")

-- Will contain the ATCP interface
atcp = nil

-- Executed when you get an ATCP message!

OnAvalonTP = function(message, content)
  Note("TP: "..content)
end
OnAvalonSP = function(message, content)
  Note("ZP: "..content)
end
OnAvalonAP = function(message, content)
  Note("AP: "..content)
end
OnAvalonMP = function(message, content)
  Note("Mana: "..content)
end
OnRoomBrief = function(message, content)
  Note(content)
  Note(message)
end


-- Loads the ATCP library
OnPluginListChanged = function()
  local atcp, reloaded = PPI.Load("7c08e2961c5e20e5bdbf7fc5")
  if not atcp then
    Note("ATCP funktioniert nicht!")
  elseif reloaded then
    -- Registers a function to call when Room.Brief is received.
    atcp.Listen("Avalon.TP", OnAvalonTP)
    atcp.Listen("Avalon.SP", OnAvalonSP)
    atcp.Listen("Avalon.AP", OnAvalonAP)
    atcp.Listen("Avalon.MP", OnAvalonMP)
    atcp.Listen("Room.Brief", OnRoomBrief)
  end
end

IAC SB ATCP hello_msg = "hello " .. client_data .. "\n" ..
                  "auth 1\n" ..
                  "char_name 1\n" ..
                  "char_vitals 1\n" ..
                  "room_brief 1\n" ..
                  "room_exits 1\n" ..
                  "map_display 1\n" ..
                  "composer 1\n" ..
                  "keepalive 1\n" ..
                  "topvote 1\n" ..
                  "ping 1\n"
IAC SE

OnPluginTelnetRequest = function(type, data)
  if type == codes.ATCP then
    -- do not authenticate if we're connected to Vadi's System
    if GetInfo(61) == "127.0.0.1" then
      return
    end

    if data == "DO" then            -- I ADDED THIS LINE
      return true                   -- I ADDED THIS LINE
    elseif data == "WILL" then      -- I CHANGED THIS FROM if to elseif
      return true
    elseif data == "SENT_DO" then
      SendPkt(codes.IAC_SB_ATCP .. hello_msg .. codes.IAC_SE)
      return true
    end
  end

  return false
end

-- Used to load the ATCP interface
PPI = require("ppi")

-- Will contain the ATCP interface
atcp = nil


function OnPluginInstall ()

local atcp, reloaded = PPI.Load("7c08e2961c5e20e5bdbf7fc5")
  if not atcp then
    Note("ATCP funktioniert nicht!")
  elseif reloaded then
--    atcp.Send("ava_set_mapper 1")
    atcp.Send("ava_set_channel 1")
--    atcp.Send("ava_set_comm 1")
--    atcp.Send("ava_set_rcomm 1")

  end
end -- OnPluginInstall