Gammon Forum

function OnPluginBroadcast (msg, id, name, text)
  if id == "85f72d0e263d75df7bde6f00" then
    if msg == 1 then

    end
  end
end

data = "H:496/496 M:412/412 E:1380/1380 W:960/960 NL:89/100 "
for stat, curr, max in string.gmatch(data, "(%w+):(%d+)/(%d+)") do
  curr, max = tonumber(curr), tonumber(max)
  
  -- Now you have the variables:
  -- stat is the stat letter (H, M, etc.)
  -- curr is the current value of the stat
  -- max is the highest value of the stat
end

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

<muclient>
<plugin
   name="ATCP2_Logger_MW"
   author="Nick Gammon"
   id="4a33087c6b66ca6c4611afed"
   language="Lua"
   purpose="Displays ATCP2 info"
   date_written="2010-07-14"
   requires="4.40"
   version="1.0"
   >

</plugin>

<!--  Script  -->


<script>
<![CDATA[

require "json"
require "tprint"

local IAC, SB, SE, DO = 0xFF, 0xFA, 0xF0, 0xFD

local ATCP = 200
local ATCP2 = 201

function Send_Telnet_Packet (what)
    SendPkt (string.char (IAC, SB, ATCP2) .. 
             what .. 
             string.char (IAC, SE))
end -- Send_Telnet_Packet

function OnPluginTelnetSubnegotiation (msg_type, data)
  if msg_type ~= ATCP2 then
    return
  end -- if not ATCP2
  
  ColourNote ("darkorange", "", data)
  
  message, params = string.match (data, "([%a.]+) (.*)")
  
  if not message then
    return
  end -- if
  
  if not string.match (params, "[%[{]") then
    params =  "[" .. params .. "]"  -- sigh
  end -- if 

  local t = json.decode (params)
  
  if type (t) == "table" then
    tprint (t)
  end -- if
   
end -- function OnPluginTelnetSubnegotiation

function OnPluginTelnetRequest (msg_type, data)

  if msg_type == ATCP2 and data == "WILL" then
    return true
  end -- if
  
  if msg_type == ATCP2 and data == "SENT_DO" then
    Note ("Enabling ATCP.")
    Send_Telnet_Packet (string.format ('Core.Hello { "client": "MUSHclient", "version": "%s" }', Version ()))
    Send_Telnet_Packet ('Core.Supports.Set [ "Char 1", "Char.Skills 1", "Char.Items 1" ]')
    return true
  end -- if ATCP login needed (just sent DO)
  
  return false

end -- function OnPluginTelnetRequest

]]>
</script>

</muclient>

"maxhp"="594"
"hp"="594"

function OnPluginBroadcast (msg, id, name, text)
  if id == "85f72d0e263d75df7bde6f00" then
  
    if msg == 1 then
      got_vitals (text)
    end -- if   
 
  end -- if ATCP message
end

function got_vitals (s)
  stats.health,    stats.maxhealth, 
  stats.mana,      stats.maxmana, 
  stats.endurance, stats.maxendurance, 
  stats.willpower, stats.maxwillpower, 
  stats.exp,       stats.maxexp = 
    string.match (s, "^" ..
      "H:(%d+)/(%d+) " ..
      "M:(%d+)/(%d+) " ..
      "E:(%d+)/(%d+) " ..
      "W:(%d+)/(%d+) " ..
      "NL:(%d+)/(%d+)")
  
  if stats.health then
   
    hp, max_hp               = tonumber (stats.health),     tonumber (stats.maxhealth)
    mana, max_mana           = tonumber (stats.mana),       tonumber (stats.maxmana)
    endurance, max_endurance = tonumber (stats.endurance),  tonumber (stats.maxendurance)
    willpower, max_willpower = tonumber (stats.willpower),  tonumber (stats.maxwillpower)
    exp, max_exp             = tonumber (stats.exp),        tonumber (stats.maxexp)
  
   
    -- draw/process stuff here

  end -- if
end -- function got_vitals

<aliases>
  <alias
   name="Test_sip_hp"
   match="^HH (.*?)$"
   enabled="y"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  <send>
if %1 &gt; 99 then
Note ("error: sip_per ust be a value between 1 and 99")
else
SetVariable ("sip_per", %1)
SetVariable ("sip_hp", GetVariable ("max_hp") * GetVariable ("sip_per") * 0.01)
Note ("Sipping at " .. GetVariable ("sip_hp") .. " health")
end
</send>
  </alias>
</aliases>

function OnPluginBroadcast (msg, id, name, text)
  if id == "85f72d0e263d75df7bde6f00" then
  
    if msg == 1 then
      got_vitals (text)
    end -- if   
 
  end -- if ATCP message
end



function got_vitals (s)
  stats.health,    stats.maxhealth, 
  stats.mana,      stats.maxmana, 
  stats.endurance, stats.maxendurance, 
  stats.willpower, stats.maxwillpower, 
  stats.exp,       stats.maxexp = 
    string.match (s, "^" ..
      "H:(%d+)/(%d+) " ..
      "M:(%d+)/(%d+) " ..
      "E:(%d+)/(%d+) " ..
      "W:(%d+)/(%d+) " ..
      "NL:(%d+)/(%d+)")
  
  if stats.health then
   
    hp, max_hp               = tonumber (stats.health),     tonumber (stats.maxhealth)
    mana, max_mana           = tonumber (stats.mana),       tonumber (stats.maxmana)
    endurance, max_endurance = tonumber (stats.endurance),  tonumber (stats.maxendurance)
    willpower, max_willpower = tonumber (stats.willpower),  tonumber (stats.maxwillpower)
    exp, max_exp             = tonumber (stats.exp),        tonumber (stats.maxexp)


    SetVariable ("max_hp", max_hp)

  end -- if
end -- function got_vitals
   


function sipper ()

     sip_hp  = GetVariable ("sip_hp")
     sip_bal = GetVariable ("sip_bal")

  if hp < sip_hp and sip_bal == "1" then
     Send ("sip health")
     SetVariable ("sip_bal", ".5")
  end -- if
end -- function

function got_vitals (s)

print ("in got_vitals, got:", s)

...

SetVariable ("max_hp", max_hp)

print ("just set mxp_hp to", max_hp)