diff options
Diffstat (limited to 'Data/BuiltIn/Libraries/lua-addons/addons/Nostrum/helperfunctions.lua')
| -rw-r--r-- | Data/BuiltIn/Libraries/lua-addons/addons/Nostrum/helperfunctions.lua | 783 |
1 files changed, 783 insertions, 0 deletions
diff --git a/Data/BuiltIn/Libraries/lua-addons/addons/Nostrum/helperfunctions.lua b/Data/BuiltIn/Libraries/lua-addons/addons/Nostrum/helperfunctions.lua new file mode 100644 index 0000000..663d657 --- /dev/null +++ b/Data/BuiltIn/Libraries/lua-addons/addons/Nostrum/helperfunctions.lua @@ -0,0 +1,783 @@ +--[[Copyright © 2014-2015, trv +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + * Neither the name of Nostrum nor the + names of its contributors may be used to endorse or promote products + derived from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND +ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED +WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE +DISCLAIMED. IN NO EVENT SHALL trv BE LIABLE FOR ANY +DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES +(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; +LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND +ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.--]] + +function prim_simple(name,settings_table,pos_x,pos_y,width,height) + windower.prim.create(name) + windower.prim.set_position(name,pos_x,pos_y) + windower.prim.set_size(name,width,height) + windower.prim.set_color(name,settings_table.color.a,settings_table.color.r,settings_table.color.g,settings_table.color.b) + windower.prim.set_visibility(name, not is_hidden and settings_table.visible) + saved_prims:add(name) + prim_coordinates.x[name]=pos_x + prim_coordinates.y[name]=pos_y + prim_coordinates.visible[name]=settings_table.visible + prim_coordinates.a[name]=settings_table.color.a + prim_coordinates.r[name]=settings_table.color.r + prim_coordinates.g[name]=settings_table.color.g + prim_coordinates.b[name]=settings_table.color.b +end + +function img_simple(name,texture,pos_x,pos_y) + windower.prim.create(name) + windower.prim.set_position(name,pos_x,pos_y) + windower.prim.set_size(name,25,25) + windower.prim.set_visibility(name,not is_hidden) + windower.prim.set_fit_to_texture(name, false) + windower.prim.set_texture(name, texture) + saved_prims:add(name) + prim_coordinates.x[name]=pos_x + prim_coordinates.y[name]=pos_y + prim_coordinates.visible[name]=true +end + +function text_simple(name, settings_table, pos_x, pos_y, text) + windower.text.create(name) + windower.text.set_color(name, settings_table.color.a, settings_table.color.r, settings_table.color.g, settings_table.color.b) + windower.text.set_bold(name,settings_table.bold) + windower.text.set_font(name,settings_table.font) + windower.text.set_font_size(name,settings_table.font_size) + windower.text.set_location(name, pos_x, pos_y) + windower.text.set_right_justified(name,settings_table.right_justified) + windower.text.set_text(name,text) + windower.text.set_visibility(name, not is_hidden and settings_table.visible) + saved_texts:add(name) + text_coordinates.x[name]=pos_x + text_coordinates.y[name]=pos_y + text_coordinates.visible[name]=settings_table.visible +end + +function count_cures(t) + for i=options.cures.n,1,-1 do + if t[options.cures[i]] then + macro_order[2]:append(xml_to_lua[options.cures[i]]) + end + macro_order[3] = macro_order[2] + end + macro_order[1] = macro_order[2]:copy(false) + for i=options.curagas.n,1,-1 do + if t[options.curagas[i]] then + macro_order[1]:append(xml_to_lua[options.curagas[i]]) + end + end +end + +function count_na(t) + for i=1,options.na['n'] do + if t[options.na[i]] then + macro_order[4]:append(xml_to_lua[options.na[i]]) + end + end + if macro_order[4].n ~= 0 then + mouse_map2:append(T(macro_order[4])) + end +end + +function count_buffs(t) + for i=1,options.buffs['n'] do + if t[options.buffs[i]] then + macro_order[5]:append(xml_to_lua[options.buffs[i]]) + end + end + if macro_order[5].n ~= 0 then + mouse_map2:append(T(macro_order[5])) + end +end + +function choose_color(hpp) + if hpp >= 75 then + return 'green' + elseif hpp >= 50 + then return 'yellow' + elseif hpp >= 25 then + return 'orange' + else + return 'red' + end +end + +function prepare_names(s) + if string.len(s)>10 then + return(string.sub(s,1,10)..'.') + else + return(s) + end +end + +function merge_user_file_and_settings(t,u) + for k,v in pairs(t) do + if u[k] then + if type(u[k]) == 'table' then + u[k] = merge_user_file_and_settings(t[k],u[k]) + end + else + u[k] = v + end + end + return u +end + +function indicate_distance(bool,n,x,y) + if bool then --Invisible conflict? + out_of_view[n] = true + if not out_of_range[n] then + out_of_range[n] = true + windower.text.set_color('name'..tostring(n), 255, 175, 98, 177) + end + elseif ((position[1][6] - x)^2 + (position[2][6] - y)^2) > 441 then + out_of_view[n] = false + if not out_of_range[n] then + out_of_range[n] = true + windower.text.set_color('name'..tostring(n), 255, 175, 98, 177) + end + elseif out_of_range[n] then + out_of_view[n] = false + out_of_range[n] = false + windower.text.set_color('name'..tostring(n), 255, 255, 255, 255) + end +end + +function remove_macro_information(s,bool) + windower.text.set_text('hp'..s,'') + windower.text.set_text('mp'..s,'') + windower.text.set_text('tp'..s,'') + windower.text.set_text('hpp'..s,'') + windower.text.set_text('mpp'..s,'') + windower.prim.set_size('phpp'..s,0,h) + windower.prim.set_size('pmpp'..s,0,5) + if bool then + windower.text.set_text('name'..s,'') + end +end + +function wrecking_ball() + for i = 1,18 do + prims_by_layer[i]:clear() + texts_by_layer[i]:clear() + end + misc_hold_for_up.texts:clear() + misc_hold_for_up.prims:clear() + for i = 1,3 do + macro[i]:clear() + end + for key in pairs(saved_texts) do + windower.text.delete(key) + saved_texts:remove(key) + end + for key in pairs(saved_prims) do + windower.prim.delete(key) + saved_prims:remove(key) + end + for i=1,5 do + macro_order[i]:clear() + end + mouse_map2:clear() +end + +function toggle_visibility() + is_hidden = not is_hidden + if is_hidden then + for key in pairs(saved_prims) do + if prim_coordinates.visible[key] then + windower.prim.set_visibility(key,false) + end + end + for key in pairs(saved_texts) do + if text_coordinates.visible[key] then + windower.text.set_visibility(key,false) + end + end + else + for key in pairs(saved_prims) do + windower.prim.set_visibility(key,prim_coordinates.visible[key]) + end + for key in pairs(saved_texts) do + windower.text.set_visibility(key,text_coordinates.visible[key]) + end + end + toggle_buff_visibility(not is_hidden) +end + +function toggle_buff_visibility(b) + local party = party[1] + for i = 1, party.n do + local id = party[i] + local buffs = stat_table[id].buffs[1] + local debuffs = stat_table[id].buffs[2] + local prims = buff_map[position_lookup[id]] + + for j = 1, buffs.n do + prims[1][j]:visible(b) + end + for j = 1, debuffs.n do + prims[2][j]:visible(b) + end + end +end + +function toggle_macro_visibility(n) + macro_visibility[n] = not macro_visibility[n] + if macro_visibility[n] then + for key in pairs(macro[n]) do + if saved_prims:contains(key) then + windower.prim.set_visibility(key,prim_coordinates.visible[key]) + else + windower.text.set_visibility(key,text_coordinates.visible[key]) + end + end + else + for key in pairs(macro[n]) do + if saved_prims:contains(key) then + windower.prim.set_visibility(key,false) + else + windower.text.set_visibility(key,false) + end + end + end + if n == 1 then + toggle_buff_visibility(not macro_visibility[1]) + end +end + +function switch_profiles() + wrecking_ball() + count_cures(profile) + count_na(profile) + count_buffs(profile) + coroutine.sleep(1) + build_macro() + define_active_regions() + last_index=-1 +end + +function image_row(t,x_start,y_start) + local s + for i = 1,t.n do + s = t[i] + prim_simple('p' .. s,_settings.primitives.buff_buttons,x_start-26*i-152,y_start,26,26) + img_simple(s..'i',windower.windower_path.."/plugins/icons/"..options.images[s],x_start-26*i-152,y_start) + text_simple(s, _settings.text.buffs, x_start-26*i-152, y_start, options.aliases[s]) + misc_hold_for_up.texts:append(s) + misc_hold_for_up.prims:extend({s..'i','p' .. s}) + macro[1]:add(s) + macro[1]:add(s..'i') + macro[1]:add('p' .. s) + windower.text.set_stroke_color(s, 255, 0, 0, 0) + windower.text.set_stroke_width(s, 1) + end +end + +function prim_rose(t,pos,x_start,y_start,n) --Pun! + local spell + local s + local prim = _settings.primitives.buttons + local text = _settings.text.buttons + + for i = 1,t.n do + spell = t[i] + s = spell .. tostring(pos) + prim_simple('p' .. s,prim,x_start-(i)*(w+1)+1-153,y_start,w,h) + text_simple(s, text, x_start-(i)*(w+1)+1+((w-font_widths[options.aliases[spell]])/2)-153, y_start, options.aliases[spell]) + prims_by_layer[pos]:append('p' .. s) + texts_by_layer[pos]:append(s) + macro[n]:add('p' .. s) + macro[n]:add(s) + if not macro_visibility[n] then + windower.prim.set_visibility('p' .. s,false) + windower.text.set_visibility(s,false) + end + end +end + +last_hpp=0 +last_index=-1 +function update_target(mob) + if not mob or mob.index == 0 then + if prim_coordinates.visible['target'] then + windower.prim.set_visibility("target_background",false) + windower.prim.set_visibility("target",false) + windower.text.set_visibility("targethpp",false) + windower.text.set_visibility("target_name",false) + text_coordinates.visible["targethpp"]=false + text_coordinates.visible["target_name"]=false + prim_coordinates.visible["target_background"]=false + prim_coordinates.visible["target"]=false + end + last_index = 0 + else + if not prim_coordinates.visible['target'] and not is_hidden then + windower.prim.set_visibility("target_background",true) + windower.prim.set_visibility("target",true) + windower.text.set_visibility("targethpp",true) + windower.text.set_visibility("target_name",true) + text_coordinates.visible["targethpp"]=true + text_coordinates.visible["target_name"]=true + prim_coordinates.visible["target_background"]=_settings.primitives.hp_bar_background.visible + prim_coordinates.visible["target"]=true + end + if mob.index ~= last_index then + windower.text.set_text("target_name",string.sub(mob.name,1,20)) + last_index = mob.index + end + if mob.hpp ~= last_hpp then + update_target_hp(mob.hpp) + end + end +end + +function update_target_hp(hpp) + if hpp~=last_hpp then + windower.text.set_text("targethpp",tostring(hpp)) + windower.prim.set_size("target",150/100*hpp,30) + if math.floor(hpp/25) ~= math.floor(last_hpp/25) then + local color=_settings.primitives.hp_bar[choose_color(hpp)] + windower.prim.set_color("target",color.a,color.r,color.g,color.b) + end + end + last_hpp = hpp +end + +function compare_alliance_to_memory() + local alliance_keys = {'p5', 'p4', 'p3', 'p2', 'p1', 'p0', 'a15', 'a14', 'a13', 'a12', 'a11', 'a10', 'a25', 'a24', 'a23', 'a22', 'a21', 'a20'} + local alliance_clone = windower.ffxi.get_party() + local ally_id=(table.keyset(alliance_clone)) + local party1 = (party_keys * ally_id) + local party2 = (party_two_keys * ally_id) + local party3 = (party_three_keys * ally_id) + local names = {} + local packet_pt_struc = {S{},S{},S{}} + for i=1,18 do + if ally_id[alliance_keys[i]] and alliance_clone[alliance_keys[i]].mob then + names[alliance_clone[alliance_keys[i]].mob.id]=alliance_clone[alliance_keys[i]].mob.name + end + if party1[alliance_keys[i]] and alliance_clone[alliance_keys[i]].mob then + packet_pt_struc[1]:add(alliance_clone[alliance_keys[i]].mob.id) + elseif party2[alliance_keys[i]] and alliance_clone[alliance_keys[i]].mob then + packet_pt_struc[2]:add(alliance_clone[alliance_keys[i]].mob.id) + elseif party3[alliance_keys[i]] and alliance_clone[alliance_keys[i]].mob then + packet_pt_struc[3]:add(alliance_clone[alliance_keys[i]].mob.id) + end + end + new_members(packet_pt_struc) + for k,v in pairs(names) do + if who_am_i[k] then + windower.text.set_text('name'..position_lookup[k],prepare_names(v)) + stat_table[k].name = v + who_am_i[k] = nil + update_name_map(k,v) + end + end +end + +function new_members(packet_pt_struc) -- snippet from invite, reused in c_a_t_m + local p = {S(party[1]),S(party[2]),S(party[3])} + local to_kick = p[1] + p[2] + p[3] - (packet_pt_struc[3] + packet_pt_struc[2] + packet_pt_struc[1]) + for k in pairs(to_kick) do + kick(k,math.ceil(position_lookup[k]/6)) + end + for i=1,3 do + local to_invite = packet_pt_struc[i] - p[i] + for k in pairs(to_invite) do + invite(k,i) + end + end + define_active_regions() +end + +function invite(id,n) + local prim = _settings.primitives + local text = _settings.text + local x_start=_settings.window.x_res-1-_defaults.window.x_offset + party[n]:append(id) + local ptn = party[n].n + position_lookup[id] = 1 + 6 * n - ptn + local pos_id = position_lookup[id] + stat_table[id]={hp=0,mp=0,mpp=0,hpp=0,name='???',tp=0,buffs={{n = 0},{n = 0}}} + seeking_information[id] = true + who_am_i[id] = true + local m = tostring(n) + local pos_tostring = tostring(pos_id) + if vacancies[n] == 0 then + lift_macro(n) + if not saved_prims:contains('BG'..m) then + local y_start = prim_coordinates.y['BG'..tostring(n-1)]-(175-75*(n-1))-ptn*(h+1) + prim_simple('BG'..m,prim.background,x_start-macro_order[n].n*(w+1)-153,y_start,macro_order[n].n*(w+1)+1,ptn*(h+1)+1) + prim_simple("info"..m,prim.hp_bar_background,x_start-152,y_start,152,ptn*(h+1)+1) + macro[n]:add('BG'..m) + if not macro_visibility[n] then + windower.prim.set_visibility('BG'..m,false) + end + else + windower.prim.set_size('info'..m,152,ptn*(h+1)+1) + windower.prim.set_size('BG'..m,macro_order[n].n*(w+1)+1,ptn*(h+1)+1) + end + local y_start = prim_coordinates.y['BG'..m]+1+(h+1)*(ptn-1) + prim_rose(macro_order[n],pos_id,x_start,y_start,n) + prim_simple("phpp"..pos_tostring,prim.hp_bar,x_start-151,y_start,150,h) + prim_simple("pmpp"..pos_tostring,prim.mp_bar,x_start-151,y_start+19,150,5) + text_simple("tp"..pos_tostring, text.tp, x_start-151, y_start+11, '') + text_simple("name"..pos_tostring, text.name, x_start-151, y_start-3, stat_table[id].name) + text_simple("hpp"..pos_tostring, text.hpp, x_start, y_start-4, '') + text_simple("hp"..pos_tostring, text.hp, x_start-40, y_start-3, '') + text_simple("mp"..pos_tostring, text.mp, x_start-40, y_start+11,'') + prims_by_layer[pos_id]:extend(L{"phpp" ..pos_tostring,"pmpp" ..pos_tostring}) + texts_by_layer[pos_id]:extend(L{"tp" ..pos_tostring,"name" ..pos_tostring,"hpp" ..pos_tostring,"hp" ..pos_tostring,"mp" ..pos_tostring}) + else + vacancies[n] = vacancies[n]-1 + windower.text.set_text('name'..pos_id,stat_table[id].name) + end + local pos = windower.ffxi.get_mob_by_id(id) + if pos then + position[1][pos_id] = pos.x + position[2][pos_id] = pos.y + indicate_distance(false,pos_id,pos.x,pos.y) + elseif not out_of_view[pos_id] then + indicate_distance(true,pos_id) + end +end + +function lift_macro(n) + if n == 1 then + up(misc_hold_for_up.texts) + up(misc_hold_for_up.prims) + end + for k=n,3 do + if saved_prims:contains("BG" .. tostring(k)) then + up("BG" .. tostring(k)) + up("info" .. tostring(k)) + end + end + for j=6*n-party[n].n+1,18 do--+2? + up(prims_by_layer[j]) + up(texts_by_layer[j]) + end +end + +function up(t) + if not t then return end + if class(t) == 'List' then + for i=1,t.n do + if saved_prims:contains(t[i]) then + windower.prim.set_position(t[i],prim_coordinates.x[t[i]],prim_coordinates.y[t[i]]-25) + prim_coordinates.y[t[i]]=prim_coordinates.y[t[i]]-25 + elseif saved_texts:contains(t[i]) then + windower.text.set_location(t[i],text_coordinates.x[t[i]],text_coordinates.y[t[i]]-25) + text_coordinates.y[t[i]]=text_coordinates.y[t[i]]-25 + elseif class(t[i]) == 'Prim' then + t[i]:up(25) + end + end + elseif type(t) == 'table' then + for _,v in pairs(t) do + if saved_prims:contains(v) then + windower.prim.set_position(v,prim_coordinates.x[v],prim_coordinates.y[v]-25) + prim_coordinates.y[v]=prim_coordinates.y[v]-25 + elseif saved_texts:contains(v) then + windower.text.set_location(v,text_coordinates.x[v],text_coordinates.y[v]-25) + text_coordinates.y[v]=text_coordinates.y[v]-25 + elseif class(v) == 'Prim' then + v:up(25) + end + end + else + if saved_prims:contains(t) then + windower.prim.set_position(t,prim_coordinates.x[t],prim_coordinates.y[t]-25) + prim_coordinates.y[t]=prim_coordinates.y[t]-25 + elseif saved_texts:contains(t) then + windower.text.set_location(t,text_coordinates.x[t],text_coordinates.y[t]-25) + text_coordinates.y[t]=text_coordinates.y[t]-25 + end + end +end + +function lower_macro(n) + if n == 1 then + down(misc_hold_for_up.texts) + down(misc_hold_for_up.prims) + end + for k=n,3 do + if saved_prims:contains("BG" .. k) then + down("BG" .. tostring(k)) + down("info" .. tostring(k)) + end + end + for j=6*n-party[n].n+1,18 do + down(prims_by_layer[j]) + down(texts_by_layer[j]) + end +end + +function down(periscope) + if not periscope then return end + if class(periscope) == 'list' then + for i=1,periscope.n do + if saved_prims:contains(i) then + windower.prim.set_position(i,prim_coordinates.x[i],prim_coordinates.y[i]+25) + prim_coordinates.y[i]=prim_coordinates.y[i]+25 + elseif saved_texts:contains(i) then + windower.text.set_location(i,text_coordinates.x[i],text_coordinates.y[i]+25) + text_coordinates.y[i]=text_coordinates.y[i]+25 + elseif class(i) == 'Prim' then + i:down(25) + end + end + elseif type(periscope) == 'table' then + for _,v in pairs(periscope) do + if saved_prims:contains(v) then + windower.prim.set_position(v,prim_coordinates.x[v],prim_coordinates.y[v]+25) + prim_coordinates.y[v]=prim_coordinates.y[v]+25 + elseif saved_texts:contains(v) then + windower.text.set_location(v,text_coordinates.x[v],text_coordinates.y[v]+25) + text_coordinates.y[v]=text_coordinates.y[v]+25 + elseif class(v) == 'Prim' then + v:down(25) + end + end + else + if saved_prims:contains(periscope) then + windower.prim.set_position(periscope,prim_coordinates.x[periscope],prim_coordinates.y[periscope]+25) + prim_coordinates.y[periscope]=prim_coordinates.y[periscope]+25 + elseif saved_texts:contains(periscope) then + windower.text.set_location(periscope,text_coordinates.x[periscope],text_coordinates.y[periscope]+25) + text_coordinates.y[periscope]=text_coordinates.y[periscope]+25 + end + end +end + +function trim_macro() + for j = 1,3 do + for i = 6*j-party[j].n,1+6*(j-1),-1 do + local prim = prims_by_layer[i] + for k=1,prim.n do + if class(prim[k]) == 'Prim' then + prim[k]:destroy() + else + windower.prim.delete(prim[k]) + saved_prims:remove(prim[k]) + prim_coordinates.x[prim[k]]=nil + prim_coordinates.y[prim[k]]=nil + macro[j]:remove(prim[k]) + end + end + local text = texts_by_layer[i] + for k=1,text.n do + windower.text.delete(text[k]) + saved_texts:remove(text[k]) + text_coordinates.x[text[k]]=nil + text_coordinates.y[text[k]]=nil + macro[j]:remove(text[k]) + end + if prim.n ~= 0 or text.n ~= 0 then + lower_macro(j) + end + prims_by_layer[i]:clear() + texts_by_layer[i]:clear() + end + if saved_prims:contains('BG'..tostring(j)) then + local s1 = 'BG'..tostring(j) + local s2 = 'info'..tostring(j) + if party[j].n == 0 then + windower.prim.delete(s1) + windower.prim.delete(s2) + saved_prims:remove(s1) + saved_prims:remove(s2) + macro[j]:remove(s1) + misc_hold_for_up.prims:delete(s1) + misc_hold_for_up.prims:delete(s2) + else + windower.prim.set_size(s1,macro_order[j].n*(w+1)+1,party[j].n*(h+1)+1) + windower.prim.set_size(s2,152,party[j].n*(h+1)+1) + end + end + end + vacancies={0,0,0} + define_active_regions() +end + +function update_macro_data(id,t) + for i=1,t:length() do + windower.text.set_text(t[i]..tostring(position_lookup[id]),tostring(stat_table[id][t[i]])) + end +end + +function kick(id,n) + local i = position_lookup[id] + + if i < 6 then + local party = party[1] + local last = party[party.n] + + for k = 1, 2 do + local prim = buff_map[position_lookup[last]][k] + for j = 1, stat_table[last].buffs[k].n do + prim[j]:hide() + end + end + + for j = party.n, 8 - i, -1 do + draw_buff_display(stat_table[party[j]].buffs[1], party[j - 1], 1) + draw_buff_display(stat_table[party[j]].buffs[2], party[j - 1], 1) + end + end + + party[n]:remove(6*n+1-i) + local j = 6*(n)-party[n].n + vacancies[n] = vacancies[n] + 1 + + while i > j do + local m = 6*n+1-i + local m_id = party[n][m] + local pos_tostring = tostring(i) + + position_lookup[m_id] = position_lookup[m_id] + 1 + update_macro_data(m_id,L{'tp','hp','mp','hpp','mpp'}) + windower.text.set_text('name'..pos_tostring,prepare_names(stat_table[m_id]['name']))--shouldn't send name to update_macro... since it won't truncate + local color=_settings.primitives.hp_bar[choose_color(stat_table[m_id].hpp)] + windower.prim.set_color('phpp'..pos_tostring,color.a,color.r,color.g,color.b) + windower.prim.set_size('phpp'..pos_tostring,150/100*stat_table[m_id]['hpp'],h) + windower.prim.set_size('pmpp'..pos_tostring,150/100*stat_table[m_id]['mpp'],5) + if out_of_range[i] and not out_of_range[i-1] then + windower.text.set_color('name' .. tostring(i), 255, 255, 255, 255) + end + if out_of_range[i-1] and not out_of_range[i] then + windower.text.set_color('name' .. tostring(i), 255, 175, 98, 177) + end + out_of_range[i] = out_of_range[i-1] + out_of_view[i] = out_of_view[i-1] + position[1][i] = position[1][i-1] + position[2][i] = position[2][i-1] + + i = i - 1 + end + + remove_macro_information(tostring(i),true) + stat_table[id] = nil + out_of_zone[id] = nil + who_am_i[id] = nil + seeking_information[id] = nil + position_lookup[id] = nil +end + +function draw_buff_display(t, id, type) + local p_id = position_lookup[id] + local buffs = stat_table[id].buffs[type] + + for i = 1, t.n do + if t[i] ~= buffs[i] then + local prim = buff_map[p_id][type] + + if not prim[i] then + local hpp_string = 'phpp'..tostring(p_id) + prim[i] = prims.new({ + pos = {prim_coordinates.x[hpp_string] - 1 - 12 * i, prim_coordinates.y[hpp_string] + (type == 2 and 12 or 0)}, + w = 12, + color = color_over_texture[t[i]], + h = 12, + visible = not is_hidden and not macro_visibility[1], + set_texture = true, + texture = tracked_buffs[type][t[i]], + fit_texture = false, + }) + prims_by_layer[p_id]:append(prim[i]) + else + prim[i]:texture(tracked_buffs[type][t[i]]) + if color_over_texture[t[i]] then + prim[i]:argb(unpack(color_over_texture[t[i]])) + else + prim[i]:argb(255, 255, 255, 255) + end + prim[i]:visible(not macro_visibility[1]) + end + end + end + for i = t.n + 1, buffs.n do + buff_map[p_id][type][i]:hide() + end +end + +function update_name_map(id,name) + local pos_id = position_lookup[id] + if pos_id < 7 then + region_to_name_map[pos_id-(6-(party[1].n+vacancies[1]))] = name + elseif pos_id < 13 then + region_to_name_map[party[1].n+vacancies[1]+pos_id-6-(6-(party[2].n+vacancies[2]))+4] = name + elseif pos_id < 19 then + region_to_name_map[party[1].n+vacancies[1]+party[2].n+vacancies[2]+pos_id-12-(6-(party[3].n+vacancies[3]))+5] = name + end +end + +function define_active_regions() + mouse_map=T{} + region_to_name_map=T{} + position_to_region_map=T{} + local copy={{},{},{}} -- lists accept negative indices + for j = 1,3 do + for i = 1,macro_order[j].n do + copy[j][i] = macro_order[j][i] + end + end + for i = 1,vacancies[1] do + mouse_map:append(false) + region_to_name_map:append(false) + position_to_region_map:append(false) + end + for i = 1,party[1].n do + mouse_map:append(copy[1]) + region_to_name_map:append(stat_table[party[1][party[1].n-i+1]].name) + position_to_region_map:append(1) + end + for i = 1,4 do + mouse_map:append(false) + region_to_name_map:append(false) + position_to_region_map:append(false) + end + for i = 1,vacancies[2] do + mouse_map:append(false) + region_to_name_map:append(false) + position_to_region_map:append(false) + end + for i = 1,party[2].n do + mouse_map:append(copy[2]) + region_to_name_map:append(stat_table[party[2][party[2].n-i+1]].name) + position_to_region_map:append(2) + end + mouse_map:append(false) + region_to_name_map:append(false) + position_to_region_map:append(false) + for i = 1,vacancies[3] do + mouse_map:append(false) + region_to_name_map:append(false) + position_to_region_map:append(false) + end + for i = 1,party[3].n do + mouse_map:append(copy[3]) + region_to_name_map:append(stat_table[party[3][party[3].n-i+1]].name) + position_to_region_map:append(3) + end +end + +function bit.is_set(val, pos) -- Credit: Arcon + return bit.band(val, 2^(pos - 1)) > 0 +end |