curtracker.lua

--Currency Tracker by erupt@asura.
--After you load the lua for the first time just edit the settings.xml from /data and reload the lua 
--to have your new fields displayed.  Curlines dictates how many fields you would like per line on your box.
--
-- ** Commands **
--  //curt on|off
--  //curt add <search term>
--  //curt del <search term>
--  //curt field_color <red> <green> <blue>
--  //curt value_color <red> <green> <blue>
--  //curt size <text size>
--  //curt refresh <Seconds to refresh currencies>
--  //curt alpha <background transparency> 0-255
--  //curt profile <Add Profile>
--  Profiles will add multiple fields at once.  Refer to the profiles.lua file
--  to view options.
--
-- ex.   //curt add Snowdim 
--		  Returns that this matched multiple results
--		 //curt add Snowdim 2
-- ex.   //curt add Snowdim *
--		  Adds multiple entries matching Snowdim
--
-- ** Version History **
--	v1.3 - Added profiles
--  v1.2 - Again changed how config saves to avoid conflicts with alts.
--	v1.1 - Fixed some issues with character specific settings.
--	v1.0 - Rewrote the saving and loading of currency types to just use whatever is found
--         in the packets library so no updates are needed.
--  v0.4 - Add commands to disable refresh, search and change fields from addon command
--	v0.3 - Add all fields to a table which can just be enabled/disabled through settings.xml
--	v0.2 - Fix Windower fields.lua to correct Unity Accolades memory location
--  v0.1 - Initial Test Release



_addon.author = 'Erupt'
_addon.commands = {'curtracker','curt'}
_addon.name = 'CurTracker'
_addon.version = '1.3.080920'

require('logger')
require('tables')
require('sets')
files = require('files')
texts = require('texts')
config = require('config')
res = require('resources')
packets = require('packets')
profiles = require('profiles')



curfields = {}
for i,v in ipairs(T(packets.raw_fields.incoming[0x118])) do
	v = v['label']
	curfields[v:lower()] = v
end
for i,v in ipairs(T(packets.raw_fields.incoming[0x113])) do
	v = v['label']
	curfields[v:lower()] = v
end


	


default = {
  text = {
	size = 10,
  },
  curtracking = true,
  curlines = 2,
  currefresh = 60,
  curfields = S{},
  field_color = {
	red = 0,
	green = 255,
	blue = 255,
  },
  value_color = {
	red = 255,
	green = 255,
	blue = 255,
  },
  pos = {
	x = 0,
	y = 0,
  }
}

settings = config.load(default)

cur1packet = {}
cur2packet = {}
cursearches = {}
curpackettype = 0
thread_name = ''
last_player = ''

cur_box = function()
  local str = '[\\cs(255,215,0)Currency Tracker\\cr]:\\cs(200,200,200):.\\cr\\cs(150,150,150)..\\cr\\cs(50,50,50). .\\cr \\cs(10,10,10).\\cr\n'
  if not cur2packet['Coalition Imprimaturs'] then return end
  curlinecnt = 0
  for v in settings.curfields:it() do
    if v ~= '' then
      if curlinecnt >= settings.curlines then
        str = str..'\n'
        curlinecnt = 0
      end
	  v = curfields[v:lower()]
      if not cur1packet[v] then
        str = str..'[\\cs('..settings.field_color.red..','..settings.field_color.green..','..settings.field_color.blue..')'..v..'\\cr] = \\cs('..settings.value_color.red..','..settings.value_color.green..','..settings.value_color.blue..')'..cur2packet[v]..' \\cr'
        curlinecnt = curlinecnt+1
      else
        str = str..'[\\cs('..settings.field_color.red..','..settings.field_color.green..','..settings.field_color.blue..')'..v..'\\cr] = \\cs('..settings.value_color.red..','..settings.value_color.green..','..settings.value_color.blue..')'..cur1packet[v]..' \\cr'
        curlinecnt = curlinecnt+1
      end
    end
  end
  curpackettype = 0
  return str
end

cur_trackbox = texts.new(settings)


search_data = {}

function search_curs(curs)
  local search = string.gsub(curs," ",".*")
  search_data = {}
  local search_cnt = 0
  search = string.lower(".*"..search..".*")
  for l,u in pairs(curfields) do
    if string.match(l,search) then
      table.insert(search_data,u)
      search_cnt = search_cnt+1
    end
  end
  return search_cnt
end

function log(str)
  windower.add_to_chat(207, _addon.name..': '..str)
end

function cur_command(cmd,...)
  if not cmd then --do help when I stop being lazy
	return
  else
	cmd = cmd:lower()
  end
  local commands = T{...}
  local commands_joined = string.gsub(table.concat(commands," "),'*','')
  if cmd == "on" then
    log('Set to on')
	if not settings.curtracking then
		settings.curtracking = true
		send_request()
	else
		log('Already Enabled')
	end
    return
  elseif cmd == "off" then
    log('Set to off')
    settings.curtracking = false
    cur_trackbox:hide()
    return
  elseif cmd == 'refresh' then
    if not commands[1] then
  	  log('Missing Refresh Number')
	  return
	end
	settings.currefresh = tonumber(commands[1])
	log('Changed Refresh time to '..settings.currefresh..'s')
	config.save(settings,'all')
  elseif cmd == 'alpha' then
    if not commands[1] then
  	  log('Missing Alpha Number')
	  return
	end
	settings.bg_alpha = tonumber(commands[1])
	texts.bg_alpha(cur_trackbox,settings.bg_alpha)
	config.save(settings,'all')
    cur_trackbox:text(cur_box())
    cur_trackbox:show()
  elseif cmd == 'size' then
    if not commands[1] then
  	  log('Missing Text Size Number')
	  return
	end
	settings.text.size = tonumber(commands[1])
	texts.size(cur_trackbox,settings.text.size)
	config.save(settings,'all')
    cur_trackbox:text(cur_box())
    cur_trackbox:show()
  elseif cmd == 'value_color' then
    if #commands < 3 then
  	  log('Missing a Color')
	  return
	end
	settings.value_color.red = tonumber(commands[1])
	settings.value_color.green = tonumber(commands[2])
	settings.value_color.blue = tonumber(commands[3])
	config.save(settings,'all')
    cur_trackbox:text(cur_box())
    cur_trackbox:show()
  elseif cmd == 'field_color' then
    if #commands < 3 then
  	  log('Missing a Color')
	  return
	end
	settings.field_color.red = tonumber(commands[1])
	settings.field_color.green = tonumber(commands[2])
	settings.field_color.blue = tonumber(commands[3])
	config.save(settings,'all')
    cur_trackbox:text(cur_box())
    cur_trackbox:show()
  elseif cmd == 'profile' then
    if not commands[1] then
      log(' Usage: //curt profile Profile_Name')
	  log(' Options: '..string.sub(table.concat(profiles:keyset(),','),1,-2))
      return
    end
	if profiles[commands[1]] then
		settings.curfields = S{}
		for v in profiles[commands[1]]:it() do
			settings.curfields:add(v:lower())
		end
		log('Set to: '..string.sub(table.concat(profiles[commands[1]],','),1,-2))
		config.save(settings,'all')
		cur_trackbox:text(cur_box())
		cur_trackbox:show()
		return
	else
		log(commands[1]..' Not a valid option')
		log(' Options: '..string.sub(table.concat(profiles:keyset(),','),1,-2))
		return
	end
  elseif cmd == "add" then
    if not commands[1] then
      log(' Usage: //curt add Currency Name')
      return
    end
    local search_result = search_curs(commands_joined)
    if search_result>0 then
      if search_result == 1 then
		if settings.curfields:contains(search_data[1]) then
			log(search_data[1]..' Already added to tracker')
			return
		end	
        log('Adding: '..search_data[1])	
        settings.curfields:add(search_data[1]:lower())
        config.save(settings,'all')
        return
      elseif search_result > 1 then
        if search_result > 5 then
          log(' Too many results matched your pattern, narrow it down')
          return
        end
        local results = ''
        for k,v in pairs(search_data) do
          if k > 1 then results = results..', ' end
          results = results..v
        end
        if commands[#commands] == '*' then
          for k,v in pairs(search_data) do
            settings.curfields:add(v:lower())
          end
          log(' Added: '..results)
          config.save(settings,'all')
          return
        else 
          log('Multiple Results: '..results)
          log('** To add all these results append search with "*"')
          return
        end
      end
    else
      log('Did not match any known currencies')
      return
    end
  elseif cmd == 'del' then
      if not commands[1] then
      log(' Usage: //curt del Currency Name')
      return
    end
    local search_result = search_curs(commands_joined)
    if search_result>0 then
      if search_result == 1 then
        log('Deleting: '..search_data[1])		
        settings.curfields:remove(search_data[1]:lower())
        config.save(settings,'all')
        return
      elseif search_result > 1 then
        if search_result > 5 then
          log(' Too many results matched your pattern, narrow it down')
          return
        end
        local results = ''
        for k,v in pairs(search_data) do
          if k > 1 then results = results..', ' end
          results = results..v
        end
        if commands[#commands] == '*' then
          for k,v in pairs(search_data) do
            settings.curfields:remove(v:lower())
          end
          log(' Deleted: '..results)
          config.save(settings,'all')
          return
        else 
          log('Multiple Results: '..results)
          log('** To delete all these results append search with "*"')
          return
        end
      end
    else
      log('Did not match any known currencies')
      return
	end
  end
end

function check_incoming_chunk(id,original,modified,injected,blocked)
  if settings.curtracking == false then return end
  if id == 0x118 then
    cur2packet = packets.parse('incoming', original)
  end
  if id == 0x113 then
    cur1packet = packets.parse('incoming',original)
--		print(original)
    return
  end
  if curpackettype == 2 then
    cur_trackbox:text(cur_box())
    cur_trackbox:show()
	pos_x,pos_y = texts.pos(cur_trackbox)
	settings.pos.x = pos_x
	settings.pos.y = pos_y
	config.save(settings)
    thread_name = coroutine.schedule(send_request,settings.currefresh or 120)
  end
end


function check_outgoing_chunk(id,data)
  if id == 0x115 then
    local packet = packets.parse('outgoing',data)
--print(packet)
  end
end

function send_request()
  if curpackettype == 0 then
    local packet = packets.new('outgoing',0x10F)
    curpackettype = 1
    packets.inject(packet)
    coroutine.schedule(send_request,5)
    return
  end
  if curpackettype == 1 then
    local packet = packets.new('outgoing',0x115)
    curpackettype = 2
    packets.inject(packet)
    return
  end
end

incoming_chunk = windower.register_event('incoming chunk', check_incoming_chunk)
outgoing_chunk = windower.register_event('outgoing chunk', check_outgoing_chunk)




windower.register_event('login', function()
	if windower.ffxi.get_info().logged_in then
		last_player = windower.ffxi.get_player().name
		settings = config.load('data/'..last_player..'.xml',default)
		cur_trackbox:pos(settings.pos.x,settings.pos.y)
		if thread_name == '' then
			coroutine.schedule(send_request,60)
		end
	end
end)

windower.register_event('logout', function()
	config.save(settings)
	settings.curtracking = false
	send_command('lua r curtracker')
end)

windower.register_event('load', function()
	if windower.ffxi.get_info().logged_in then
		last_player = windower.ffxi.get_player().name
		settings = config.load('data/'..last_player..'.xml',default)
		cur_trackbox:pos(settings.pos.x,settings.pos.y)
		coroutine.schedule(send_request,60)
	end
end)


windower.register_event('addon command', cur_command)