Rage/Divergent
Rage
/
Divergent
1
0
Fork 0
Code Issues Pull Requests Actions Releases Wiki Activity
Divergent/mods/UI Rework G.A.M.M.A. Style/gamedata/scripts/utils_ui.script

3546 lines
105 KiB
Plaintext
Raw Blame History

--[[
- Tronex
- 2020/2/3
- Item cell utilities
- Simulation to engine CUI classes in LUA, have a full control over how things work
Item cell:
Item icon and its related elements (Icon layers, attachments, condition bar, stack counter, upgrade indicator, color)
Support: set/update function to adapt to changes, highlight area with custom color
Item container:
A place to holds and organize item cells together, easy to set or remove item cells with indexing methods
Support for cell hover/highlight, drag and drop and callbacks with owner classes
Item properties:
Show a list of context that player can set and customize for the item cell
Item info box:
For item cells
Consist of: name, weight, price/points (based on mode), description, stats list (icon / text), ammo list
Support stats comparison with equipped items of the same slot
Upgrade info box:
For item upgrade cells
Consist of: name, description, state or pre-requirements, stats list (icon + text)
------------------
TODO:
- Upgrades support for info box
- info box pos relative to mouse need improvements
--]]
local ratio = utils_xml.screen_ratio()
local uwide_ratio = ((ratio < 0.75) and 0.75 or 1) -- Added by Sota
local XMLP = CScriptXmlInit()
XMLP:ParseFile("utils.xml")
-- Icon coloring base on inventory mode and interaction
local clr_list = {
["def"] = GetARGB(255, 255, 255, 255),
["red"] = GetARGB(255, 255, 50, 50),
["green"] = GetARGB(255, 100, 255, 150),
["blue"] = GetARGB(255, 100, 150, 255),
["black"] = GetARGB(255, 0, 0, 0),
["drag"] = GetARGB(150, 255, 255, 255),
["hide"] = GetARGB(70, 255, 255, 255),
["shadow"] = GetARGB(200, 20, 20, 20),
["hide_shadow"] = GetARGB(70, 20, 20, 20),
["p1"] = GetARGB(255, 170, 170, 170),
["n1"] = GetARGB(255, 200, 50, 50),
["p2"] = GetARGB(255, 51, 255, 102),
["n2"] = GetARGB(255, 204, 0, 51),
["info_def"] = GetARGB(200, 255, 255, 255),
["info_p"] = GetARGB(255, 56, 209, 115),
["info_n"] = GetARGB(255, 238, 28, 36),
["info_p_txt"] = GetARGB(200, 100, 255, 100),
["info_n_txt"] = GetARGB(200, 255, 100, 100),
}
local clr_list_hl = {
["def"] = GetARGB(25, 255, 255, 255),
["green"] = GetARGB(30, 100, 255, 150),
["blue"] = GetARGB(40, 100, 200, 255),
}
-- Progress bar profiles based on "condition_bar" parameter in item section
local bar_list = {
["condition_progess_bar"] = { min= {255,196,18,18,0}, mid= {255,255,255,118,0.5}, max= {255,107,207,119,1}, background= true},
["power_progess_bar"] = { def= GetARGB(255,86,196,209), background= true },
["uses_progess_bar"] = { def= GetARGB(255,255,255,255), background= false },
}
-- UI events
local K_M1 = DIK_keys.MOUSE_1
local K_M2 = DIK_keys.MOUSE_2
local K_SHFT = DIK_keys.DIK_LSHIFT
local E_PRESS = ui_events.WINDOW_KEY_PRESSED
local E_RELEASE = ui_events.WINDOW_KEY_RELEASED
-- Utils
local has_upgrades = utils_item.has_upgrades
local sync_element = utils_xml.sync_element
local sync_cursor = utils_xml.sync_cursor
local get_item_axis = utils_xml.get_item_axis
local get_item_trade_status = utils_item.get_item_trade_status
local get_item_cost = utils_item.get_item_cost
local lerp_color = utils_xml.lerp_color
-- Main Menu
local mm_active = true
function main_menu_on()
mm_active = true
end
function main_menu_off()
mm_active = false
end
function on_game_start()
RegisterScriptCallback("main_menu_on_init", main_menu_on)
RegisterScriptCallback("main_menu_on_quit", main_menu_off)
end
function get_time()
return mm_active and time_continual() or time_global()
end
-- Item order
local item_order = {}
function set_item_order()
local n = ini_sys:line_count("item_kind_order")
for i=0,n-1 do
local result, kind, order = ini_sys:r_line_ex("item_kind_order",i,"","")
if kind and order then
item_order[kind] = tonumber(order) or 30
end
end
item_order["na"] = size_table(item_order) + 1
end
set_item_order()
local ab_w, ab_h, ab_k = {}, {}, {}
local a_sec, a_w, a_h, a_k
local b_sec, b_w, b_h, b_k
function sort_info(asec, bsec)
-- A
a_sec = asec
if (not ab_w[a_sec]) then ab_w[a_sec] = SYS_GetParam(2,a_sec,"inv_grid_width",1) end
if (not ab_h[a_sec]) then ab_h[a_sec] = SYS_GetParam(2,a_sec,"inv_grid_height",1) end
if (not ab_k[a_sec]) then
ab_k[a_sec] = SYS_GetParam(0,a_sec,"kind","na")
if (not item_order[ab_k[a_sec]]) then
ab_k[a_sec] = "na"
end
end
a_w = ab_w[a_sec]
a_h = ab_h[a_sec]
a_k = item_order[ab_k[a_sec]]
-- B
b_sec = bsec
if (not ab_w[b_sec]) then ab_w[b_sec] = SYS_GetParam(2,b_sec,"inv_grid_width",1) end
if (not ab_h[b_sec]) then ab_h[b_sec] = SYS_GetParam(2,b_sec,"inv_grid_height",1) end
if (not ab_k[b_sec]) then
ab_k[b_sec] = SYS_GetParam(0,b_sec,"kind","na")
if (not item_order[ab_k[b_sec]]) then
ab_k[b_sec] = "na"
end
end
b_w = ab_w[b_sec]
b_h = ab_h[b_sec]
b_k = item_order[ab_k[b_sec]]
end
function sort_by_size(t,a,b)
if (type(t[a]) == "string") then
sort_info(t[a], t[b])
else
sort_info(t[a]:section(), t[b]:section())
end
-- Comparison
--printf("%s - %s", a_sec, b_sec)
if (a_w == b_w) then
if (a_h == b_h) then
if (a_sec == b_sec) then
if (type(t[a]) == "string") then
return false --true
end
return t[a]:id() > t[b]:id()
end
return a_sec < b_sec -- alphaptic order
end
return a_h > b_h
end
return a_w > b_w
end
function sort_by_kind(t,a,b)
if (type(t[a]) == "string") then
sort_info(t[a], t[b])
else
sort_info(t[a]:section(), t[b]:section())
end
if a_k == b_k then
return sort_by_size(t,a,b)
end
return a_k < b_k
end
function sort_by_index(t,a,b)
return t[a].index < t[b].index
end
function sort_by_sizekind(t,a,b)
if (type(t[a]) == "string") then
sort_info(t[a], t[b])
else
sort_info(t[a]:section(), t[b]:section())
end
-- Comparison
--printf("%s - %s", a_sec, b_sec)
--\\ bigger width wins
if (a_w == b_w) then
--\\ bigger height wins
if (a_h == b_h) then
--\\ important kind wins
if a_k == b_k then
--\\ alphaptic order wins
if (a_sec == b_sec) then
--\\ better condition wins
if (type(t[a]) == "string") then
return false --true
end
return t[a]:condition() > t[b]:condition()
end
return a_sec < b_sec
end
return a_k < b_k
end
return a_h > b_h
end
return a_w > b_w
end
function sort_by_props(t,a,b)
-- Only for objects with same sections
local sec = t[a]:section()
-- For ammo, bigger ammo counts wins
if IsItem("ammo",sec) and (not IsItem("grenade_ammo",sec)) then
return t[a]:ammo_get_count() > t[b]:ammo_get_count()
-- Upgraded items wins
elseif utils_item.has_upgrades(t[a]) and (not utils_item.has_upgrades(t[b])) then
return true
end
-- Better condition wins
return t[a]:condition() > t[b]:condition()
end
-- Item stats
stats_table = {}
function prepare_stats_table()
--[[
index : showing stat by numric order
typ : parameter value type, important for parsing the value out of parameter section
name : translation string
icon_p : icon to show on positive value
icon_n : icon to show on negavtive value (empty means use positive icon for all occasions)
track : should stat be represnted by a progress bar or text
magnitude : multiplier for parameter value, to represent it to the player for better readings
unit :
compare : allow state comparison with different items (for item info box)
sign : show number sign +/-
show_always : should we show state even if value was 0
value_functor: calculate paramter value by using a special function
--]]
if is_not_empty(stats_table) then return end
stats_table["weapon"] = {
["accuracy"] = { index= 1, typ= "float", name= "ui_inv_accuracy", icon_p= "ui_wp_prop_tochnost", icon_n= "", track= true, magnitude= 1, unit= "", compare= false, sign= false, show_always= true, value_functor= {"utils_ui","prop_accuracry"} },
["handling"] = { index= 2, typ= "float", name= "ui_inv_handling", icon_p= "ui_wp_prop_ergonomics", icon_n= "", track= true, magnitude= 1, unit= "", compare= false, sign= true, show_always= true, value_functor= {"utils_ui","prop_handling"} },
["damage"] = { index= 3, typ= "float", name= "ui_inv_damage", icon_p= "ui_wp_prop_damage", icon_n= "", track= true, magnitude= 1, unit= "", compare= false, sign= true, show_always= true , value_functor= {"utils_ui","prop_damage"} },
["fire_rate"] = { index= 4, typ= "float", name= "ui_inv_rate_of_fire", icon_p= "ui_wp_prop_skorostrelnost", icon_n= "", track= true, magnitude= 1, unit= "", compare= false, sign= false, show_always= true, value_functor= {"utils_ui","prop_rpm"} },
["ammo_mag_size"] = { index= 5, typ= "float", name= "ui_ammo_count", icon_p= "ui_wp_propery_07", icon_n= "", track= false, magnitude= 1, unit= "", compare= false, sign= false ,show_always= true },
}
stats_table["outfit"] = {
["fire_wound_protection"] = { index= 1, typ= "float", name= "ui_inv_outfit_fire_wound_protection", icon_p= "ui_am_propery_01", icon_n= "", track= true, magnitude= (1/SYS_GetParam(2,"actor_condition","max_fire_wound_protection")), unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "FireWound"}},
["burn_protection"] = { index= 2, typ= "float", name= "ui_inv_outfit_burn_protection", icon_p= "ui_am_prop_thermo", icon_n= "", track= true, magnitude= (1/SYS_GetParam(2,"actor_condition","fire_zone_max_power")), unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "Burn"} },
["shock_protection"] = { index= 3, typ= "float", name= "ui_inv_outfit_shock_protection", icon_p= "ui_am_prop_electro", icon_n= "", track= true, magnitude= (1/SYS_GetParam(2,"actor_condition","electra_zone_max_power")), unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "Shock"}},
["chemical_burn_protection"] = { index= 4, typ= "float", name= "ui_inv_outfit_chemical_burn_protection", icon_p= "ui_am_prop_chem", icon_n= "", track= true, magnitude= (1/SYS_GetParam(2,"actor_condition","acid_zone_max_power")), unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "ChemicalBurn"}},
["radiation_protection"] = { index= 5, typ= "float", name= "ui_inv_outfit_radiation_protection", icon_p= "ui_am_propery_09", icon_n= "", track= true, magnitude= (1/SYS_GetParam(2,"actor_condition","radio_zone_max_power")), unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "Radiation"}},
["telepatic_protection"] = { index= 6, typ= "float", name= "ui_inv_outfit_telepatic_protection", icon_p= "ui_am_propery_11", icon_n= "", track= true, magnitude= (1/SYS_GetParam(2,"actor_condition","psi_zone_max_power")), unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "Telepatic"}},
["wound_protection"] = { index= 7, typ= "float", name= "ui_inv_outfit_wound_protection", icon_p= "ui_am_prop_wound", icon_n= "", track= true, magnitude= (1/SYS_GetParam(2,"actor_condition","max_wound_protection")), unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "Wound"}},
["strike_protection"] = { index= 8, typ= "float", name= "ui_inv_outfit_strike_protection", icon_p= "ui_am_prop_strike", icon_n= "", track= true, magnitude= 1, unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "Strike"}},
["explosion_protection"] = { index= 9, typ= "float", name= "ui_inv_outfit_explosion_protection", icon_p= "ui_am_prop_explo", icon_n= "", track= true, magnitude= 1, unit= "", condition= true, compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_protection", "Explosion"}},
["artefact_count"] = { index= 10, typ= "float", name= "ui_inv_outfit_artefact_count", icon_p= "ui_am_prop_artefact",icon_n= "", track= false, magnitude= 1, unit= "", compare= false, sign= false,show_always= true , value_functor= {"utils_item","get_outfit_belt_size"}},
["additional_inventory_weight"]= { index= 11, typ= "float", name= "ui_inv_outfit_additional_weight", icon_p= "ui_am_propery_08", icon_n= "ui_am_prop_carry_weight_negative", track= false, magnitude= 1, unit= "st_kg", compare= false, sign= true, show_always= true , value_functor= {"utils_item","get_outfit_property", "additional_inventory_weight"}},
}
stats_table["backpack"] = {
["additional_inventory_weight"]= { index= 1, typ= "float", name= "ui_inv_outfit_additional_weight", icon_p= "ui_am_propery_08", icon_n= "ui_am_prop_carry_weight_negative", track= false, magnitude= 1, unit= "st_kg", compare= false, sign= true, show_always= true},
}
stats_table["artefact"] = {
["condition"] = { index= 1, typ= "float", name= "ui_inv_af_condition", icon_p= "ui_am_condition", icon_n= "", track= false, magnitude= 100, unit= "st_perc", compare= false, sign= true, show_always= true , value_functor= {"utils_ui","prop_condition"} },
["health_restore_speed"] = { index= 2, typ= "float", name= "ui_inv_health", icon_p= "ui_am_propery_05", icon_n= "ui_am_prop_health_negative", track= false, magnitude= 6600, unit= "", condition= true, compare= false, sign= true, show_always= false },
["radiation_restore_speed"] = { index= 3, typ= "float", name= "ui_inv_radiation", icon_p= "ui_am_propery_09", icon_n= "ui_am_prop_radio_restore", track= false, magnitude= 47000, unit= "st_msv_sec", condition= true, compare= false, sign= true, show_always= false, sign_inverse= true },
["satiety_restore_speed"] = { index= 4, typ= "float", name= "ui_inv_satiety", icon_p= "ui_am_prop_satiety_restore_speed", icon_n= "ui_am_prop_satiety", track= false, magnitude= 100, unit= "", condition= true, compare= false, sign= true, show_always= false },
["power_restore_speed"] = { index= 5, typ= "float", name= "ui_inv_power", icon_p= "ui_am_propery_07", icon_n= "ui_am_prop_power_restore", track= false, magnitude= 30000, unit= "st_perc", condition= true, compare= false, sign= true, show_always= false },
["bleeding_restore_speed"] = { index= 6, typ= "float", name= "ui_inv_bleeding", icon_p= "ui_am_prop_restore_bleeding", icon_n= "ui_am_prop_bleeding_restore", track= false, magnitude= 15000, unit= "st_ml_min", condition= true, compare= false, sign= true, show_always= false },
["burn_immunity"] = { index= 7, typ= "float", name= "ui_inv_outfit_burn_protection", icon_p= "ui_am_prop_thermo", icon_n= "ui_am_prop_burn_immunity", track= false, magnitude= 84800, unit= "st_perc", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["shock_immunity"] = { index= 8, typ= "float", name= "ui_inv_outfit_shock_protection", icon_p= "ui_am_prop_electro", icon_n= "ui_am_prop_shock_immunity", track= false, magnitude= 8000, unit= "st_kv", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["radiation_immunity"] = { index= 9, typ= "float", name= "ui_inv_outfit_radiation_protection", icon_p= "ui_am_propery_09", icon_n= "ui_am_prop_radiation_immunity", track= false, magnitude= 750, unit= "st_perc", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["telepatic_immunity"] = { index= 10, typ= "float", name= "ui_inv_outfit_telepatic_protection", icon_p= "ui_am_propery_11", icon_n= "ui_am_prop_telepat_immunity", track= false, magnitude= 5800, unit= "st_perc", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["chemical_burn_immunity"] = { index= 11, typ= "float", name= "ui_inv_outfit_chemical_burn_protection", icon_p= "ui_am_prop_chem", icon_n= "ui_am_prop_chemburn_immunity", track= false, magnitude= 19100, unit= "st_perc", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["wound_immunity"] = { index= 12, typ= "float", name= "ui_inv_outfit_wound_protection", icon_p= "ui_am_prop_wound", icon_n= "ui_am_prop_wound_minus", track= false, magnitude= 2500, unit= "st_j", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["fire_wound_immunity"] = { index= 13, typ= "float", name= "ui_inv_outfit_fire_wound_protection", icon_p= "ui_am_propery_01", icon_n= "ui_am_prop_fire_wound_negative", track= false, magnitude= 2500, unit= "st_j", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["explosion_immunity"] = { index= 14, typ= "float", name= "ui_inv_outfit_explosion_protection", icon_p= "ui_am_prop_explo", icon_n= "ui_am_prop_explo_minus", track= false, magnitude= 2500, unit= "st_j", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["strike_immunity"] = { index= 15, typ= "float", name= "ui_inv_outfit_strike_protection", icon_p= "ui_am_prop_strike", icon_n= "ui_am_prop_strike_minus", track= false, magnitude= 2500, unit= "st_j", condition= true, compare= false, sign= true, show_always= false ,section= "hit_absorbation_sect" },
["additional_inventory_weight"]= { index= 16, typ= "float", name= "ui_inv_outfit_additional_weight", icon_p= "ui_am_propery_08", icon_n= "ui_am_prop_carry_weight_negative", track= false, magnitude= 1000, unit= "st_g", compare= false, sign= true, show_always= false },
}
stats_table["booster"] = {
["boost_time"] = { index= 1, typ= "float", name= "ui_inv_effect_time", icon_p= "ui_am_prop_time_period", icon_n= "", track= false, magnitude= 1, unit= "ui_inv_seconds", compare= false, sign= true, show_always= false },
["boost_health_restore"] = { index= 2, typ= "float", name= "ui_inv_health", icon_p= "ui_am_propery_05", icon_n= "", track= false, magnitude= 1000, unit= "st_perc", compare= false, sign= true, show_always= false },
["boost_radiation_restore"] = { index= 3, typ= "float", name= "ui_inv_radiation", icon_p= "ui_am_propery_09", icon_n= "", track= false, magnitude= 30000, unit= "st_msv_sec", compare= false, sign= true, show_always= false, sign_inverse_txt= true },
["eat_satiety"] = { index= 4, typ= "float", name= "ui_inv_satiety", icon_p= "ui_am_prop_satiety_restore_speed", icon_n= "ui_am_prop_satiety", track= false, magnitude= 1000, unit= "st_kcal", compare= false, sign= true, show_always= false },
["boost_anabiotic"] = { index= 5, typ= "float", name= "", icon_p= "ui_am_prop_Vibros", icon_n= "ui_am_prop_anabiotic", track= false, magnitude= 1000, unit= "", compare= false, sign= true, show_always= false },
["boost_power_restore"] = { index= 6, typ= "float", name= "ui_inv_power", icon_p= "ui_am_propery_07", icon_n= "ui_am_prop_power_restore", track= false, magnitude= 100000, unit= "st_microg", compare= false, sign= true, show_always= false },
["boost_bleeding_restore"] = { index= 7, typ= "float", name= "ui_inv_bleeding", icon_p= "ui_am_prop_restore_bleeding", icon_n= "ui_am_prop_bleeding_restore", track= false, magnitude= 150000, unit= "st_ml_min", compare= false, sign= true, show_always= false },
["boost_radiation_protection"] = { index= 8, typ= "float", name= "ui_inv_outfit_radiation_protection", icon_p= "ui_am_propery_09", icon_n= "ui_am_prop_radiation_protection", track= false, magnitude= 12000, unit= "st_msv", compare= false, sign= true, show_always= false },
["boost_telepat_protection"] = { index= 9, typ= "float", name= "ui_inv_outfit_telepatic_protection", icon_p= "ui_am_propery_11", icon_n= "ui_am_prop_telepat_protection", track= false, magnitude= 1500, unit= "st_mt", compare= false, sign= true, show_always= false },
["boost_chemburn_protection"] = { index= 10, typ= "float", name= "ui_inv_outfit_chemical_burn_protection", icon_p= "ui_am_prop_chem", icon_n= "ui_am_prop_chemburn_protection", track= false, magnitude= 24750, unit= "st_perc", compare= false, sign= true, show_always= false },
["boost_burn_immunity"] = { index= 11, typ= "float", name= "ui_inv_outfit_burn_protection", icon_p= "ui_am_prop_thermo", icon_n= "ui_am_prop_burn_immunity", track= false, magnitude= 300, unit= "st_kw_m2", compare= false, sign= true, show_always= false },
["boost_shock_immunity"] = { index= 12, typ= "float", name= "ui_inv_outfit_shock_protection", icon_p= "ui_am_prop_electro", icon_n= "ui_am_prop_shock_immunity", track= false, magnitude= 480, unit= "st_v", compare= false, sign= true, show_always= false },
["boost_radiation_immunity"] = { index= 13, typ= "float", name= "ui_inv_outfit_radiation_protection", icon_p= "ui_am_propery_09", icon_n= "ui_am_prop_radiation_immunity", track= false, magnitude= 3000, unit= "st_msv", compare= false, sign= true, show_always= false },
["boost_telepat_immunity"] = { index= 14, typ= "float", name= "ui_inv_outfit_telepatic_protection", icon_p= "ui_am_propery_11", icon_n= "ui_am_prop_telepat_immunity", track= false, magnitude= 300, unit= "st_mt", compare= false, sign= true, show_always= false },
["boost_chemburn_immunity"] = { index= 15, typ= "float", name= "ui_inv_outfit_chemical_burn_protection", icon_p= "ui_am_prop_chem", icon_n= "ui_am_prop_chemburn_immunity", track= false, magnitude= 380000, unit= "st_perc", compare= false, sign= true, show_always= false },
["boost_max_weight"] = { index= 16, typ= "float", name= "ui_inv_outfit_additional_weight", icon_p= "ui_am_propery_08", icon_n= "ui_am_prop_max_weight", track= false, magnitude= 1000, unit= "st_g", compare= false, sign= true, show_always= false },
}
end
function add_stats_table(k1,k2,v)
if is_not_empty(stats_table) then return end
if (not stats_table[k1]) then
stats_table[k1] = {}
end
stats_table[k1][k2] = v
end
function get_stats_table(sec)
prepare_stats_table()
if ini_sys:r_string_ex(sec, "ammo_class") and (not IsItem("fake_ammo_wpn", sec)) then
return stats_table["weapon"]
elseif IsItem("outfit", sec) or IsItem("helmet", sec) then
return stats_table["outfit"]
elseif IsItem("artefact", sec) then
return stats_table["artefact"]
elseif IsItem("consumable", sec) then
return stats_table["booster"]
elseif IsItem("backpack", sec) then
return stats_table["backpack"]
end
return nil
end
function get_stats_value(obj, sec, gr, stat)
prepare_stats_table()
if type(gr) == "string" then
gr = stats_table[gr]
end
if (not gr) then
return
end
local sect = gr.section and SYS_GetParam(0, sec, gr.section) or sec
local value = gr.value_functor and get_stats_func_value(obj, sec, unpack(gr.value_functor))
if (not value) then
value = utils_item.get_param(sect, obj and obj:id(), stat, (gr.typ or "float"), true)
end
if obj and value and gr.condition then
value = value * obj:condition()
end
return (value ~= 0) and value
end
function get_stats_func_value(obj, sec, file, func, ...)
if file and func and _G[file] and _G[file][func] then
return _G[file][func](obj,sec,...)
end
end
function get_stats_string_value(obj, sec, gr, stat, to_text)
if type(gr) == "string" then
gr = stats_table[gr]
end
if (not gr) then
return
end
local value = get_stats_value(obj, sec, gr, stat)
if (not value) then
return
end
if gr.track then
local valbar = clamp((math.abs(value) * gr.magnitude), 0, 1)
return to_text and (math.ceil(valbar * 100) .. "%") or valbar
else
local valbar = value * gr.magnitude
local unit = gr.unit and gr.unit ~= "" and game.translate_string(gr.unit) or ""
local clr = valbar >= 0 and clr_list["p1"] or clr_list["n1"]
valbar = math.ceil(valbar)
if gr.sign_inverse then
clr = valbar < 0 and clr_list["p1"] or clr_list["n1"]
end
local sign = gr.sign and valbar > 0 and "+" or ""
if gr.sign_inverse_txt then
if valbar > 0 then
sign = "-"
elseif valbar < 0 then
valbar = -1 * valbar
sign = "+"
end
end
return ( sign .. valbar .. " " .. unit ), (clr == clr_list["n1"] and true or false)
end
end
function get_stats_xml(handler, obj, sec, gr, stat)
if type(gr) == "string" then
gr = stats_table[gr]
end
if (not gr) then
return
end
local value, nclr = get_stats_string_value(obj, sec, gr, stat)
if (not value) then
return
end
local st = XMLP:InitStatic("item_info:stats_box", handler)
-- Set up icon
local st_icon = XMLP:InitStatic("item_info:stats_box:icon", st)
local icon_p = gr.icon_p
local icon_n = (gr.icon_n ~= "") and gr.icon_n or icon_p
local icon = icon_p
if (type(value) == "number") then
icon = value < 0 and icon_n or icon_p
if gr.sign_inverse then
icon = value < 0 and icon_p or icon_n
end
end
st_icon:InitTexture( icon )
-- Set up name
local st_cap = XMLP:InitTextWnd("item_info:stats_box:cap", st)
st_cap:SetText( game.translate_string(gr.name) )
-- Set up bar
if gr.track then
local st_bar = XMLP:InitProgressBar("item_info:stats_box:prog_bar", st)
st_bar:SetProgressPos( clamp(value,0,1) )
st_bar:SetColor( clr_list["info_def"] )
-- Set up text
else
local st_txt = XMLP:InitTextWnd("item_info:stats_box:prog_txt", st)
st_txt:SetText( value )
st_txt:SetTextColor( nclr and clr_list["n1"] or clr_list["p1"] )
end
st:SetAutoDelete(true)
return st
end
-------------------------------------------------------------------
-- Item Cell
-------------------------------------------------------------------
class "UICellItem"
function UICellItem:__init(container, st, indx, manual)
-- To define free item cell:
-- UICellItem( { path= <string> , xml= <xml_file> , grid_size= <number>, grid_line= <number> } , { path= <string>, base= <xml_element>} )
self.manual = manual -- manual placement on container, some properties are disabled
self.container = container
self.path = container.path
self.indx = indx
self.showcase = 0 -- [0] attached to object / [1] attached to section (showcase) / [2] same as 1 with no cell room adjust
self.cx = manual and ("cell_" .. indx) or "cell" -- in manual placement, cells are specified by their index in xml file
self.grid_size = container.grid_size or 41
self.grid_line = container.grid_line or 0
self.flags = {} -- you can pass custom info here
self.disable_bar = container.disable_bar and true or false
self:InitControls(self.path, st)
self:Print(nil, "__init for path (%s)", self.path)
end
function UICellItem:InitControls(path, st)
local xml = self:GetXML()
-- Free cell
local free_cell = (type(st) == "table")
if free_cell then
st = self.container.xml:InitStatic(st.path, st.base)
self.st = st
end
self.hl = xml:InitStatic(path .. ":" .. self.cx .. ":highlight", st)
self.cell = xml:InitStatic(path .. ":" .. self.cx, st)
self.shadow = xml:InitStatic(path .. ":" .. self.cx .. ":pic", self.cell)
self.ico = xml:InitStatic(path .. ":" .. self.cx .. ":pic", self.cell)
-- Highlight texture
--self.hl:InitTexture("ui_button_inv_h")
self.hl:SetStretchTexture(true)
self.hl:Show(false)
sync_element(self.hl, self.cell)
end
function UICellItem:Set(obj, area)
local xml = self:GetXML()
local path = self.path
local is_obj = (self.showcase == 0)
local grid_size = self.grid_size
local sec = is_obj and obj:section() or obj
local clsid = is_obj and obj:clsid()
local x = SYS_GetParam(2,sec, "inv_grid_x")
local y = SYS_GetParam(2,sec, "inv_grid_y")
local w = SYS_GetParam(2,sec, "inv_grid_width")
local h = SYS_GetParam(2,sec, "inv_grid_height")
if not x or not y or not w or not h then
return false
end
x = x * grid_size
y = y * grid_size
w = w * grid_size
h = h * grid_size
self.ID = is_obj and obj:id() or nil
self.section = sec
self.area = area
--self.X = x
--self.Y = y
self.W = w
self.H = h
-- Trade mode
--if self:Check_TradeMode(obj, sec) then
--return false
--end
-- Cell pos
if area and (not self.manual) then
local area_x = ((area.x * grid_size) - grid_size) * ratio
local area_y = (area.y * grid_size) - grid_size
-- Edited by Sota
--local area_xl = self.grid_line * area.x
local area_xl = self.grid_line * area.x * ratio
local area_yl = self.grid_line * area.y
self.cell:SetWndPos(vector2():set( area_x + area_xl , area_y + area_yl ))
self.cell:SetWndSize(vector2():set(w * ratio , h))
sync_element(self.hl, self.cell)
self:Print(nil, "Set for [%s] in (%s,%s,%s,%s)", sec, area_x, area_y, w, h)
-- Cell pos (free cell)
elseif self.st then
local st_x = ((self.st:GetWidth() /2) - ((w * ratio) /2))
local st_y = ((self.st:GetHeight() /2) - (h /2))
self.cell:SetWndPos(vector2():set( st_x , st_y ))
self.cell:SetWndSize(vector2():set(w * ratio , h))
sync_element(self.hl, self.cell)
self:Print(nil, "Set for [%s] in free cell", sec)
end
-- Icon
self:Add_Icon(sec, w, h)
self:Add_Shadow(sec, w, h)
-- Icon layers
self:Add_Layers(xml, obj, sec, clsid)
-- Update cell
local is_updated = self:Update(is_obj and obj)
if (not is_updated) then
self:Print(nil, "Updating failed for [%s] | Reset cell", sec)
self:Reset()
return false
end
self.cell:Show(true)
return true
end
function UICellItem:Update(obj)
obj = obj or (self.ID and level.object_by_id(self.ID))
if (self.showcase == 0) and (not obj) then
self:ResetToChild()
return false
end
self:Print(nil, "Update for [%s]", sec)
local sec = self.section
local xml = self:GetXML()
if obj then
local clsid = obj:clsid()
-- Update condition bar
self:Add_ProgressBar(xml, obj, sec, clsid)
-- Update attachments
self:Add_Attachements(xml, obj, sec, clsid)
end
-- Update stack counter
self:Add_Counter(xml, obj, sec)
-- Update upgrade indicator
self:Add_Upgrade(xml, obj, sec)
-- Update trade mode
if self:Check_TradeMode(obj, sec) then
return false
end
-- Update color
self:Colorize( self.flags.no_trade and "red" or "def" )
return true
end
function UICellItem:Add_Icon(sec, w, h)
local rot = self.ico:GetHeading() > 0
self.ico:InitTexture( utils_xml.get_icons_texture(sec) )
self.ico:SetTextureRect(Frect():set( get_item_axis(sec, nil, true) ))
self.ico:SetStretchTexture(true)
self.ico:SetWndSize(vector2():set( w * (rot and 1 or ratio) , h * (rot and ratio or 1) ))
self.ico:Show(true)
utils_xml.align_to_center(self.ico, self.cell)
self:Print(nil, "Show icon")
end
function UICellItem:Add_Shadow(sec, w, h)
local rot = self.shadow:GetHeading() > 0
self.shadow:InitTexture( utils_xml.get_icons_texture(sec) )
self.shadow:SetTextureRect(Frect():set( get_item_axis(sec, nil, true) ))
self.shadow:SetStretchTexture(true)
self.shadow:SetWndSize(vector2():set( w * (rot and 1 or ratio) , h * (rot and ratio or 1) ))
self.shadow:Show(true)
self.shadow:Show(true)
utils_xml.align_to_center(self.shadow, self.cell)
local pos = self.ico:GetWndPos()
self.shadow:SetWndPos( vector2():set( pos.x + 1 , pos.y + 2 ) )
self.shadow:SetTextureColor( clr_list["shadow"] )
self:Print(nil, "Show shadow")
end
function UICellItem:Add_Layers(xml, obj, sec, clsid)
-- Hide all layers
if self.layer then
for i=1,#self.layer do
self.layer[i]:Show(false)
end
end
-- Add all possible layers
local ii = 0
while (SYS_GetParam(0, sec, (ii+1).."icon_layer") ~= nil) do
ii = ii + 1
if (not self.layer) then
self.layer = {}
end
if (not self.layer[ii]) then
if (not xml) then
xml = self:GetXML()
end
self.layer[ii] = xml:InitStatic(self.path .. ":" .. self.cx .. ":pic", self.ico)
end
local icon_layer = SYS_GetParam(0, sec, ii.."icon_layer")
self:Create_Layer(self.layer[ii], self.ico, sec, icon_layer, ii.."icon_layer_x", ii.."icon_layer_y", ii.."icon_layer_scale")
self:Print(nil, "Show layer (%s) [%s]", ii, icon_layer)
end
end
function UICellItem:Add_ProgressBar(xml, obj, sec, clsid)
-- Hide all bars
if self.bar then
self.bar:Show(false)
end
-- On full stacking, hide bar
if self.container.stack_all and (self.childs and is_not_empty(self.childs)) then
return
end
-- No bar on showcase cells
if (self.showcase ~= 0) or self.disable_bar then
return
end
-- Bar is applied only to classes that support conditon
local has_cond = SYS_GetParam(1,sec, "use_condition") or IsWeapon(nil,clsid) or IsOutfit(nil,clsid) or IsHeadgear(nil,clsid)
if (not has_cond) then
return
end
-- Get bar type
local str = SYS_GetParam(0,sec, "condition_bar","condition_progess_bar")
-- Init if it doesn't exist
if (not self.bar) then
if (not xml) then
xml = self:GetXML()
end
self.bar = xml:InitProgressBar(self.path .. ":" .. self.cx .. ":bar", self.cell)
--self.bar:UseColor( true )
end
-- Not manual -> bar is set at the left-bottom corner
if (not self.manual) then
local h_bar = self.bar:GetHeight()
self.bar:SetWndPos(vector2():set( 0 , (self.H - h_bar)))
end
-- Set progress
local cond = obj:condition()
if IsItem("multiuse",sec) then
cond = (obj:get_remaining_uses()/10)
else
cond = round_idp(cond,1)
end
self.bar:SetProgressPos( clamp(cond,0,1) )
-- Bar properties
local props = bar_list[str]
local color = props.def or lerp_color( cond , props.min , props.mid , props.max )
if color then
self.bar:SetColor( color )
end
self.bar:ShowBackground( props.background )
self.bar:Show(true)
self:Print(nil, "Show progress bar: %s - cond: %s", str, cond)
end
function UICellItem:Add_Counter(xml, obj, sec)
-- Hide counter
if self.cnt then
self.cnt:Show(false)
end
-- We don't need counter for showcase icons
if (self.showcase ~= 0) then
return
end
-- Bar is applied only to ammo or stacked items
local is_ammo = IsItem("ammo",sec) and (not IsItem("grenade_ammo",sec))
local has_childs = self:HasChild()
if not (is_ammo or has_childs) then
return
end
-- Init if it doesn't exist
if (not self.cnt) then
if (not xml) then
xml = self:GetXML()
end
self.cnt = xml:InitStatic(self.path .. ":" .. self.cx .. ":cnt", self.cell)
end
-- Ammo count
if is_ammo then
local cnt = 0
if self.childs then
for id,c in pairs(self.childs) do
cnt = cnt + c
end
end
local ammo_cnt = ((self.showcase ~= 0) and IsItem("ammo",sec)) or (obj and obj:ammo_get_count()) or 0
self.cnt:TextControl():SetText("x" .. (ammo_cnt + cnt) )
self.cnt:Show(true)
-- Stacked items
elseif has_childs then
self.cnt:TextControl():SetText("x" .. (size_table(self.childs) + 1) )
self.cnt:Show(true)
end
self:Print(nil, "Show counter | ammo: %s - stacked: %s", is_ammo, has_childs)
end
function UICellItem:Add_Upgrade(xml, obj, sec)
-- Hide upgrade indicator
if self.upgr then
self.upgr:Show(false)
end
-- On full stacking, hide upgrade indicator
if self.container.stack_all and (self.childs and is_not_empty(self.childs)) then
return
end
-- Bar is applied only to upgraded items
if (not has_upgrades(obj, sec)) then
return
end
-- Init if it doesn't exist
if (not self.upgr) then
if (not xml) then
xml = self:GetXML()
end
self.upgr = xml:InitStatic(self.path .. ":cell:upgrade", self.ico)
end
-- Positioning
local ico = self.ico
local xx = 1
local yy = 1
local rot = ico:GetHeading() > 0
if rot then
local w_b, h_b = ico:GetWidth(), ico:GetHeight()
local x_st = (w_b/2) - (h_b/2)
local y_st = h_b + x_st
xx = xx + x_st
yy = yy + (y_st - w_b)
end
self.upgr:SetWndPos(vector2():set( xx , yy ))
self.upgr:Show(true)
self:Print(nil, "Show upgrade indicator")
end
function UICellItem:Add_Attachements(xml, obj, sec, clsid)
-- Hide attachments
if self.ico_scope then self.ico_scope:Show(false) end
if self.ico_sil then self.ico_sil:Show(false) end
if self.ico_gl then self.ico_gl:Show(false) end
-- On full stacking, hide counter
if self.container.stack_all and (self.childs and is_not_empty(self.childs)) then
return
end
-- No attachments on showcase cells
if (self.showcase ~= 0) then
return
end
-- No attachments for non-firearms
local magazined_wpn = IsWeapon(nil,clsid) and (not IsItem("fake_ammo_wpn",sec))
if (not magazined_wpn) then
return
end
-- Scope
local scope = (not utils_item.has_scope(sec)) and utils_item.get_attached_scope(obj)
if scope then
if (not self.ico_scope) then
if (not xml) then
xml = self:GetXML()
end
self.ico_scope = xml:InitStatic(self.path .. ":" .. self.cx .. ":pic", self.ico)
end
local scopes_sect = utils_item.get_param(sec, obj:id(), "scopes_sect", "string", false)
self:Create_Layer(self.ico_scope, self.ico, scopes_sect, scope, "scope_x", "scope_y")
self:Print(nil, "Show scope")
end
-- Silencer
local sil = utils_item.get_attached_silencer(obj)
if sil then
if (not self.ico_sil) then
if (not xml) then
xml = self:GetXML()
end
self.ico_sil = xml:InitStatic(self.path .. ":" .. self.cx .. ":pic", self.ico)
end
self:Create_Layer(self.ico_sil, self.ico, sec, sil, "silencer_x", "silencer_y")
self:Print(nil, "Show silencer")
end
-- Grenade Launcher
local gl = utils_item.get_attached_gl(obj)
if gl then
if (not self.ico_gl) then
if (not xml) then
xml = self:GetXML()
end
self.ico_gl = xml:InitStatic(self.path .. ":" .. self.cx .. ":pic", self.ico)
end
self:Create_Layer(self.ico_gl, self.ico, sec, gl, "grenade_launcher_x", "grenade_launcher_y")
self:Print(nil, "Show grenade launcher")
end
end
function UICellItem:Add_CustomText(txt, align_h, align_v, clr, fnt)
if self.ctxt then
self.ctxt:Show(false)
self.ctxts:Show(false)
end
if (not txt) then
return
end
if (not self.ctxt) then
local xml = self:GetXML()
self.ctxts = xml:InitTextWnd(self.path .. ":" .. self.cx .. ":ctxt", self.cell)
self.ctxt = xml:InitTextWnd(self.path .. ":" .. self.cx .. ":ctxt", self.cell)
self.ctxts:SetTextColor(clr_list["black"])
end
utils_xml.sync_size(self.cell, self.ctxt)
utils_xml.sync_size(self.ctxt, self.ctxts)
local pos = self.ctxt:GetWndPos()
self.ctxts:SetWndPos(vector2():set( pos.x+1 , pos.y+1 ))
self.ctxt:SetText(txt)
self.ctxts:SetText(txt)
if align_h then -- [2] center / [4] right
self.ctxt:SetTextAlignment(align_h)
self.ctxts:SetTextAlignment(align_h)
end
if align_v then
self.ctxt:SetVTextAlignment(align_v)
self.ctxts:SetVTextAlignment(align_v)
end
if fnt then
self.ctxt:SetFont(fnt)
self.ctxts:SetFont(fnt)
end
self.ctxt:SetTextColor(clr or clr_list["def"])
self.ctxt:Show(true)
self.ctxts:Show(true)
self:Print(nil, "Show custom text | txt: %s", txt)
end
function UICellItem:Create_Layer(ele, base, sec_m, sec_l, str_x, str_y, str_scale)
local grid_size = self.grid_size
local x = str_x and SYS_GetParam(2,sec_m, str_x) or 0
local y = str_y and SYS_GetParam(2,sec_m, str_y) or 0
local w = SYS_GetParam(2,sec_l, "inv_grid_width",1) * grid_size
local h = SYS_GetParam(2,sec_l, "inv_grid_height",1) * grid_size
local scale = str_scale and SYS_GetParam(2,sec_m, str_scale) or 1
local scale_pos = scale * (grid_size/50)
local rot = ele:GetHeading() > 0
local x_s = x * ratio * scale_pos
local y_s = y * scale_pos
local w_s = w * ratio * scale
local h_s = h * scale
local w_off = (w_s/2)
local h_off = (h_s/2)
if rot then
-- despite rotation, movement for x and y stays normal!
-- Move start pos to match the one for rotated base icon
local w_b, h_b = base:GetWidth(), base:GetHeight()
local x_st = (w_b/2) - (h_b/2)
local y_st = h_b + x_st
-- On 90 rotation, x and y are inverted, y axis goes negative simulate normal x movement
x_s = x_st + (y * ratio * scale_pos)
y_s = y_st - (x * scale_pos)
w_s = w * scale
h_s = h * ratio * scale
w_off = (h_s * (1/ratio))/2
h_off = -w_s/2
end
ele:InitTexture( utils_xml.get_icons_texture(sec_l) )
ele:SetTextureRect(Frect():set( get_item_axis(sec_l, nil, true) ))
ele:SetStretchTexture(true)
ele:SetWndPos(vector2():set( x_s + w_off , y_s + h_off ))
ele:SetWndSize(vector2():set( w_s , h_s ))
ele:Show(true)
end
function UICellItem:Colorize(clr_id)
self:Print(nil, "Colorize [%s]", clr_id)
local clr = clr_list[clr_id]
if self.ico then self.ico:SetTextureColor( clr ) end
if self.ico_scope then self.ico_scope:SetTextureColor( clr ) end
if self.ico_sil then self.ico_sil:SetTextureColor( clr ) end
if self.ico_gl then self.ico_gl:SetTextureColor( clr ) end
if self.layer then
for i=1,#self.layer do
self.layer[i]:SetTextureColor( clr )
end
end
if self.shadow then
self.shadow:SetTextureColor( (clr_id == "hide") and clr_list["hide_shadow"] or clr_list["shadow"] )
end
end
function UICellItem:Highlight(state, clr_id, main_clr)
if state and (not self:IsShown()) and (not self.manual) then
return
end
self.hl:Show(state)
if (not state) then
return
end
if main_clr then
self.hl:SetTextureColor( clr_id and clr_list[clr_id] or clr_list["def"] )
else
self.hl:SetTextureColor( clr_id and clr_list_hl[clr_id] or clr_list_hl["def"] )
end
end
function UICellItem:Check_TradeMode(obj, sec)
if (self.showcase ~= 0) then
return false
end
-- Reset
self.flags.value = nil
self.flags.value_str = nil
self.flags.note = nil
self.flags.no_trade = nil
self.flags.note_str = nil
local profile = self.container.trade_profile
if not (profile and profile.mode) then
return false
end
local status = get_item_trade_status(obj, profile)
if status == 4 then
local cost = get_item_cost(obj, profile)
self.flags.value = math.floor(cost)
self.flags.value_str = (game.translate_string("st_base_cost") .. ": " .. math.floor(cost) .. " RU")
elseif status == 3 or (not status) then
self:Print(nil, "Removed [%s] for NPC. Not proper item", sec)
return true
elseif status == 1 or status == 2 then
self.flags.note = status
self.flags.no_trade = true
self.flags.note_str = game.translate_string("st_no_trade_tip_" .. status)
end
return false
end
function UICellItem:GetCost()
end
function UICellItem:AddChild(obj)
-- no need for childs in manual cells
if self.manual then
return false
end
if (not self.childs) then
self.childs = {}
end
-- Real
local sec = obj:section()
if (self.showcase == 0) then
local id = obj:id()
if (id ~= self.ID) then
-- Trade mode for child
local profile = self.container.trade_profile
if (profile and profile.mode == 2) then
local status = get_item_trade_status(obj, profile)
if (status == 3) then
self:Print(nil, "AddChild [%s] | not tradable by NPC!", obj:name())
return false
end
end
self.childs[id] = IsAmmo(obj) and obj:ammo_get_count() or 1
self:Update()
return true
end
return false
-- Dummy
else
table.insert(self.childs, IsItem("ammo",sec) or 1)
end
return true
end
function UICellItem:PopChild(obj, id)
if self.childs then
-- Real
if (self.showcase == 0) then
self.childs[ obj and obj:id() or id ] = nil
self:Update()
-- Dummy
elseif #self.childs > 0 then
self.childs[ #self.childs ] = nil
end
end
end
function UICellItem:HasChild(obj, id)
if obj or id then
return self.childs and self.childs[ obj and obj:id() or id ]
end
return self.childs and is_not_empty(self.childs)
end
function UICellItem:CountChilds()
return self.childs and table_size(self.childs) or 0
end
function UICellItem:ResetToChild()
local id_child
if self.childs then
for id,cnt in pairs(self.childs) do
id_child = id
break
end
end
if id_child then
-- Real
if (self.showcase == 0) then
local obj = level.object_by_id(id_child)
self.childs[id_child] = nil
self.ID = id_child
self.section = obj and obj:section()
self:Update(obj)
-- Dummy
else
self.childs[id_child] = nil
self:Update()
end
return false
else
self:Reset()
return true
end
end
function UICellItem:Reset()
self.ID = nil
self.section = nil
if self.childs then
empty_table(self.childs)
end
empty_table(self.flags)
self:Highlight(false)
if (self.manual) then
self.ico:Show(false)
self.shadow:Show(false)
if self.bar then self.bar:Show(false) end
if self.cnt then self.cnt:Show(false) end
if self.upgr then self.upgr:Show(false) end
if self.ctxt then self.ctxt:Show(false) end
if self.ctxts then self.ctxts:Show(false) end
else
if (self.showcase ~= 2) and self.container["FreeRoom"] then
-- Freeing cell area
local a = self.area
self.container:FreeRoom(a.y, a.x, a.w, a.h)
end
self:Show(false)
end
end
function UICellItem:Show(state, obj)
if state then
self:Update(obj)
end
self.cell:Show(state)
end
function UICellItem:IsShown()
if self.manual then
return self.ico:IsShown()
end
return self.cell:IsShown()
end
function UICellItem:IsCursorOverWindow()
return self.cell:IsCursorOverWindow()
end
function UICellItem:GetXML()
return self.manual and self.container.xml or XMLP
end
function UICellItem:Print(mark, fmt,...)
--printf( (mark or "=") .. " UICellItem [%s] | " .. fmt, self.section, ...)
end
-------------------------------------------------------------------
-- Container for item cells
-------------------------------------------------------------------
class "UICellContainer"
function UICellContainer:__init(id, owner, path, prof, ele_base, manual, use_frame)
self.ID = id -- unique id for class instance, so we can deal with many instances outside
self.owner = owner
self.path = path or "container"
self.xml = manual and owner.xml or XMLP
-- Item cells
self.grid_size = 41
self.grid_line = 2
self.grid = {} -- [row][col] = bool ( true = unoccupied , false = occupied )
self.cell = {}
self.line = {}
self.line_cnt = 0
self.indx_id = {} --[id] = idx
self.indx_sec = {} --[sec][id] = idx
self.idxer = 0
self.row_end = 0
self.col_end = 0
self.scroll_pos = 0
self.cell_vis_offset = 20 --[px]
self.rKind = { last = false , current = false , row = 1 }
-- Properties
self.sort_method = "sizekind"
self.showcase = false
self.manual = manual
self.can_select = false
self.stack_all = false
self.ignore_scroll = false
self.disable_scroll = manual
self.disable_scroll_dragdrop = false
self.disable_drag = false
self.disable_highlight = false
self.disable_info = false
self.disable_stack = false
self.disable_bar = false
self.disable_callback = {} --[name] = true
self.scolling_power_up = 3
-- Cell management
self.selected = nil
self.hover = { idx = false }
self.hold = { idx = false , ico = false , tg = 0 , w = 0 , h = 0 }
self.db = { idx = false , tg = 0 }
self.drag_area = { up = 0 , down = 0 , step = 200 }
self.pd = { update = false , off = 0 , start = 0 , hold = false , power = 1}
self.scolling_power = 1
self.use_frame = use_frame
self:InitControls(owner, prof, ele_base)
self:EnableScrolling(not manual)
self:Print(nil, "__init for path (%s)", path)
end
function UICellContainer:InitControls(owner, prof, ele_base)
local xml = self.xml
local path = self.path
if self.use_frame then
self.prof = owner.xml:InitFrame(prof, ele_base)
else
self.prof = owner.xml:InitStatic(prof, ele_base)
end
-- Drag up area
self.drag_up = xml:InitStatic(path .. ":st", self.prof)
self.drag_up:SetWndPos(vector2():set( 0 , 0 ))
self.drag_up:SetWndSize(vector2():set( self.prof:GetWidth() , self.grid_size ))
-- Drag down area
self.drag_down = xml:InitStatic(path .. ":st", self.prof)
self.drag_down:SetWndPos(vector2():set( 0 , self.prof:GetHeight() - self.grid_size ))
self.drag_down:SetWndSize(vector2():set( self.prof:GetWidth() , self.grid_size ))
self.scroll = xml:InitScrollView(path .. ":scroll", self.prof)
utils_xml.sync_size( self.prof , self.scroll)
self.st = xml:InitStatic(path .. ":st", nil)
utils_xml.sync_size( self.prof , self.st)
-- Scroll pad
self.pad = xml:InitStatic(path .. ":st", self.prof)
self.pad:InitTexture("ui_inGame2_white_rect")
self.pad:SetTextureColor( GetARGB(100,255,255,255) )
self.pad:SetWndPos(vector2():set( self.prof:GetWidth() , 0 ))
-- Edited by Sota
--self.pad:SetWndSize(vector2():set( 5 , self.prof:GetHeight() ))
self.pad:SetWndSize(vector2():set( 5 * uwide_ratio , self.prof:GetHeight() ))
self.pad:Show(false)
self:SetGridSpecs()
end
function UICellContainer:Reinit(t, tf)
self:Reset()
-- If no inventory is passed, this function will just clear cells
if (not t) then
return
end
-- Create cells
self.ignore_scroll = true
self:Print(nil, "Reset | START Number of cells: %s", #self.cell)
local sort_order = self:GetSortMethod()
if self.showcase then
for i,sec in spairs(t, sort_order) do
self:AddItem(nil,sec, tf and tf[i])
end
else
for i,obj in spairs(t, sort_order) do
self:AddItem(obj, nil, tf and tf[i])
end
end
self.ignore_scroll = false
self:Print(nil, "Reset | END Number of cells: %s", #self.cell)
self:Scroll_Reinit()
end
function UICellContainer:AddIndex(id, sec, indx)
self:Print(nil, "AddIndex | id: %s - sec: %s - indx: %s", id, sec, indx)
self.indx_id[id] = indx
if (not sec) then
return
end
if (not self.indx_sec[sec]) then
self.indx_sec[sec] = {}
end
self.indx_sec[sec][id] = indx
end
function UICellContainer:RemoveIndex(id, sec, indx)
self:Print(nil, "RemoveIndex | id: %s - sec: %s - indx: %s", id, sec, indx)
if (not id) then
return
end
-- Deselect
if (self.selected == self.indx_id[id]) then
self:On_Select(false)
end
self.indx_id[id] = nil
if (not sec) then
for s,t in pairs(self.indx_sec) do
if t[id] then
sec = s
break
end
end
if (not sec) then
return
end
end
if self.indx_sec[sec] then
self.indx_sec[sec][id] = nil
if is_empty(self.indx_sec[sec]) then
self.indx_sec[sec] = nil
end
end
end
function UICellContainer:GetCell_ID(id, only_indx)
local indx = self.indx_id[id]
if only_indx then
return indx
end
return indx and self.cell[indx]
end
function UICellContainer:GetCell_SEC(sec)
local indxes = self.indx_sec[sec]
if indxes then
for id,idx in pairs(indxes) do
self:Print(nil, "GetCell_SEC | sec: %s | found cell at index: %s", sec, idx)
return idx and self.cell[idx]
end
end
self:Print(nil, "GetCell_SEC | sec: %s | no cell found", sec)
return false
end
function UICellContainer:GetCell_Selected(only_obj)
if (not self.can_select) then
return
end
local ci = self.selected and self.cell[self.selected]
if only_obj and (not self.showcase) then
return ci and ci.ID and level.object_by_id(ci.ID)
end
return (not only_obj) and ci
end
function UICellContainer:GetCell_Focused(only_cell)
if self:IsShown() and self:IsCursorOverWindow() then
for idx, ci in pairs(self.cell) do
if (self.manual or ci:IsShown()) and ci:IsCursorOverWindow() then
if only_cell then
return ci
else
return self.ID, idx, self:GetObj(idx)
end
end
end
end
end
function UICellContainer:GetObj(idx)
local ci = self.cell[idx]
return ci and ci.ID and level.object_by_id(ci.ID)
end
function UICellContainer:GetID(obj, sec, create)
local id = obj and obj:id()
if (not id) then
if (not self.showcase) then
return
end
id = create and (#self.indx_id + 1) or random_key_table(self.indx_sec[sec])
end
return id
end
function UICellContainer:AddItemInCell(obj, sec, indx, area)
if (not self.cell[indx]) then
self:Print(nil, "AddItemInCell | Creating new cell | obj: %s - index: %s", obj and obj:name(), indx)
self.cell[indx] = UICellItem(self, self.st, indx)
if self.showcase then
self.cell[indx].showcase = self.manual and 2 or 1
end
end
local set = self.cell[indx]:Set(obj or sec, area)
self:Print(nil, "AddItemInCell | Set in cell (%s) | obj: %s - index: %s", set, obj and obj:name(), indx)
self:Scroll_Reinit(true)
return set
end
function UICellContainer:AddItem(obj, sec, info)
if (not sec) then
if (not obj) then
return
end
sec = obj and obj:section()
end
local id = self:GetID(obj, sec, true)
if self.indx_id[id] then
self:Print(nil, "AddItem | ID [%s] already exists", id)
return
end
local ci = self:FindSimilar(obj, sec)
if ci then
self:Print(nil, "AddItem | Found similar cell [%s]", ci.section)
if ci:AddChild( obj ) then
self:AddIndex(id, sec, ci.indx)
self:Callback( "On_CC_Add", self.ID, ci.indx, false )
return ci.indx
end
else
local area = self:FindFreeCell(obj, sec)
if area then
self:Print(nil, "AddItem | New cell [%s]", sec)
local indx = self.idxer + 1
if self:AddItemInCell(obj, sec, indx, area) then
self:AddIndex(id, sec, indx)
self.idxer = indx
if info then
ci = self.cell[indx]
ci.flags.info = info
end
self:Callback( "On_CC_Add", self.ID, indx, true )
return indx
end
end
end
end
function UICellContainer:AddItemManual(obj, sec, indx)
if (not self.cell[indx]) then
self:Print(nil, "AddItemManual | Creating new cell | obj: %s - index: %s", obj and obj:name() or sec, indx)
self.cell[indx] = UICellItem(self, self.st, indx, true)
if self.showcase then
self.cell[indx].showcase = self.manual and 2 or 1
end
end
if not (obj or sec) then
self.cell[indx]:Reset()
return
end
local set = self.cell[indx]:Set(obj or sec)
if set and obj then
local id = self:GetID(obj, sec)
if (not id) then
return
end
sec = sec or (obj and obj:section())
self:AddIndex(id, sec, indx)
self:Callback( "On_CC_Add", self.ID, indx, true )
self:Print(nil, "AddItemManual | Set in cell (%s) | obj: %s - index: %s", set, obj and obj:name() or sec, indx)
end
self:Scroll_Reinit(true)
return set
end
function UICellContainer:RemoveItem(obj, sec)
if (not sec) then
if (not obj) then
return
end
sec = obj and obj:section()
end
local id = self:GetID(obj, sec)
if (not id) then
return
end
local ci = self:GetCell_ID(id)
if ci then
if ci:HasChild(obj) then
self:Print(nil, "RemoveItem [%s] | Removing inner child", obj and obj:name() or sec)
ci:PopChild(obj)
self:RemoveIndex(id, sec, ci.indx)
self:Callback( "On_CC_Remove", self.ID, ci.indx, true )
elseif (id == ci.ID) or (sec and (not obj)) then
local cell_removed = ci:ResetToChild()
if cell_removed then
self:Print(nil, "RemoveItem [%s] | Removing base", obj and obj:name() or sec)
self:RemoveIndex(id, sec, ci.indx)
self:Callback( "On_CC_Remove", self.ID, ci.indx, false )
else
self:Print(nil, "RemoveItem [%s] | Removing outer child", obj and obj:name() or sec)
self:RemoveIndex(id, sec, ci.indx)
self:Callback( "On_CC_Remove", self.ID, ci.indx, true )
end
end
end
end
function UICellContainer:RemoveItem_byID(id)
-- Used if object no longer exists (non-showcase type)
if (not id) then
return
end
local ci = self:GetCell_ID(id)
if ci then
if ci:HasChild(nil,id) then
self:Print(nil, "RemoveItem_byID [%s] | Removing inner child", id)
ci:PopChild(nil,id)
self:RemoveIndex(id, nil, ci.indx)
self:Callback( "On_CC_Remove", self.ID, ci.indx, true )
elseif (id == ci.ID) then
local cell_removed = ci:ResetToChild()
if cell_removed then
self:Print(nil, "RemoveItem_byID [%s] | Removing base", id)
self:RemoveIndex(id, nil, ci.indx)
self:Callback( "On_CC_Remove", self.ID, ci.indx, false )
else
self:Print(nil, "RemoveItem_byID [%s] | Removing outer child", id)
self:RemoveIndex(id, nil, ci.indx)
self:Callback( "On_CC_Remove", self.ID, ci.indx, true )
end
else
self:Print(nil, "RemoveItem_byID [%s] | No active cell found!", id)
self:RemoveIndex(id)
end
end
end
function UICellContainer:RemoveItemManual(indx)
local ci = self.cell[indx]
if ci then
local obj = ci.ID and self:GetObj(indx)
local sec = obj and obj:section() or ci.section
local id = self:GetID(obj, sec)
if ci.showcase ~= 0 and (not obj) then
printe("!ERROR UICellContainer:RemoveItemManual | can't get game object for [%s]", sec)
return
end
local cell_removed = ci:ResetToChild()
if cell_removed and (obj or sec) then
self:Print(nil, "RemoveItem [%s] | Removing base", obj and obj:name() or sec)
self:RemoveIndex(id, sec, indx)
self:Callback( "On_CC_Remove", self.ID, indx, false )
self:Scroll_Reinit(true)
end
end
end
function UICellContainer:TransferItem(cont_to, obj, sec)
self:Print(nil, "TransferItem [%s]", obj and obj:name() or sec)
if not (obj or sec) then
return
end
local id = self:GetID(obj, sec)
if (not id) then
return
end
local ci_from = self:GetCell_ID(id)
if ci_from then
-- Create object in new container
local indx = cont_to:AddItem(obj, sec)
local ci_to = indx and cont_to.cell[indx]
-- Transfer trade data in trade mode
ci_to.flags = dup_table(ci_from.flags)
-- Remove object from old container
self:RemoveItem(obj, sec)
self:Callback( "On_CC_Trasfer", self.ID, cont_to.ID, ci_from.indx, ci_to.indx , obj or sec)
return ci_to
end
end
function UICellContainer:UpdateItem(obj, sec)
local id = self:GetID(obj, sec)
local ci = id and self:GetCell_ID(id)
if ci then
ci:Update() -- force it to get game object again for updated stats
end
end
function UICellContainer:FindFreeCell(obj, sec)
if (not sec) then
if (not obj) then
return false
end
sec = obj and obj:section()
end
local w = SYS_GetParam(2,sec, "inv_grid_width",1)
local h = SYS_GetParam(2,sec, "inv_grid_height",1)
-- Avoid icons that don't fit
if w > self.cols then
return false
end
-- Sorting by kind: when sorting a new kind, always start from last row taken by previous kind
if self.sort_method == "kind" then
self.rKind.current = item_order[ab_k[sec]]
if (self.rKind.last ~= self.rKind.current) then
--[[
local cnt = self.line_cnt + 1
if (not self.line[cnt]) then
self.line[cnt] = self.xml:InitStatic(self.path .. ":line", self.st)
end
local y = (self.row_end) * (self.grid_size + self.grid_line)
self.line[cnt]:SetWndPos( vector2():set(0,y - 2.5) )
self.line[cnt]:SetWndSize( vector2():set(self.prof:GetWidth(),6) )
self.line[cnt]:Show(true)
self.line_cnt = cnt
--]]
self.rKind.last = self.rKind.current
self.rKind.row = self.row_end + 1
end
end
local row_s = self.rKind.row
local rows = #self.grid
local cols = self.cols + 1 - w
self:Print(nil, "FindFreeCell for [%s] (rows: %s, cols: %s, W: %s, H: %s)", sec, rows,cols,w,h)
for r=row_s, rows do
for c=1,cols do
if self:IsFreeRoom(r,c,w,h) then
return self:TakeRoom(r,c,w,h)
end
end
end
self:Grow()
return self:FindFreeCell(obj, sec)
end
function UICellContainer:IsFreeRoom(r,c,w,h)
for row = r, r+(h-1) do
for col = c, c+(w-1) do
if (not self.grid[row]) then
self:Print(nil, "IsFreeRoom row missing: %s", row)
return false
end
if self.grid[row][col] == false then
self:Print(nil, "IsFreeRoom | row: %s - col: %s is occupied", row, col)
return false
end
end
end
self:Print(nil, "IsFreeRoom (%s,%s,%s,%s) = %s", r,c,w,h, true)
return true
end
function UICellContainer:TakeRoom(r,c,w,h)
self:Print(nil, "TakeRoom (%s,%s,%s,%s)", r,c,w,h)
local r_end = r+(h-1)
local c_end = c+(w-1)
for row = r, r_end do -- -1 because starting row/coloumn cell should be counted
for col = c, c_end do
self.grid[row][col] = false
end
end
if (r_end > self.row_end) then
self.row_end = r_end
end
if (c_end > self.col_end) then
self.col_end = c_end
end
return { y=r , x=c , w=w , h=h } -- rows are Y, coloumns are X
end
function UICellContainer:FreeRoom(r,c,w,h)
self:Print(nil, "FreeRoom (%s,%s,%s,%s)", r,c,w,h)
for row = r, r+(h-1) do
for col = c, c+(w-1) do
self.grid[row][col] = true
end
end
end
function UICellContainer:FindSimilar(obj, sec)
if not (obj or sec) then
printe("!ERROR UICellContainer:FindSimilar | no data recieved!")
return false
end
if self.disable_stack then
return false
end
if self.showcase or self.stack_all then
return self:GetCell_SEC(sec)
end
local sec = obj:section()
-- Ignore search if item isn't meant to stack
if SYS_GetParam(1,sec,"dont_stack") then
return false
end
-- Ignore search if multiuse item is used
local max_uses = IsItem("multiuse",sec)
if max_uses and obj:get_remaining_uses() ~= max_uses then
return false
end
-- items with no condition can stack, return a cell with same section
local clsid = obj:clsid()
local use_cond = SYS_GetParam(1,sec,"use_condition") or IsWeapon(nil,clsid) or IsOutfit(nil,clsid) or IsHeadgear(nil,clsid)
if (not use_cond) then
return self:GetCell_SEC(sec)
end
-- Ignore search if item has upgrades
if has_upgrades(obj) then
return false
end
-- items with condition, full search
for idx,ci in pairs(self.cell) do
if (ci.section == sec) then
-- full multiuse item can stack
if max_uses then
return ci
-- item with similar condition can stack
else
local cond = obj:condition()
local obj_2 = ci.ID and level.object_by_id(ci.ID)
if obj_2 and math.abs(obj_2:condition() - cond) < 0.1 then
return ci
end
end
end
end
-- no similar item found
return false
end
function UICellContainer:Grow()
local rows = #self.grid
rows = rows + 1
self.grid[rows] = {}
for i=1,self.cols do
self.grid[rows][i] = true
end
self:Print(nil, "Grow | new row: %s", rows)
end
function UICellContainer:IsTradable(obj)
local ci = obj and self:GetCell_ID(obj:id())
return ci and ci:IsShown() and (get_item_trade_status(obj, self.trade_profile) == 4)
end
function UICellContainer:GetCellCost(ci)
if not (ci and ci:IsShown() and self.trade_profile) then
return 0
end
local t_id = {}
t_id[ci.ID] = true
if ci:HasChild() then
for id,_ in pairs(ci.childs) do t_id[id] = true end
end
local tot_cost = 0
for id,_ in pairs(t_id) do
local obj = level.object_by_id(id)
if obj and (get_item_trade_status(obj, self.trade_profile) == 4) then
tot_cost = tot_cost + get_item_cost(obj, self.trade_profile)
end
end
return tot_cost
end
function UICellContainer:On_Select(idx)
-- Forced deselect
if (not self.can_select) or (idx == false) then
local ci = self.selected and self.cell[self.selected]
if ci then
ci:Highlight(false)
end
self.selected = nil
return
end
idx = idx or self.selected
-- Deselect previous cell
if self.selected and (self.selected ~= idx) then
local ci = self.cell[self.selected]
if ci then
ci:Highlight(false)
end
end
-- Select new cell
local ci = idx and self.cell[idx]
if ci then
ci:Highlight(true,"green")
self.selected = idx
end
end
function UICellContainer:On_Drag(idx, tg, set)
-- Hold icon should be declared after everything else, so it stays on top
-- Also it must be assigned on the base UI because we need x and y to start from absolute screen corner
if (not self.hold.ico) then
self.hold.ico = self.xml:InitStatic(self.path .. ":cell:pic", self.owner)
self.hold.ico:Show(false)
end
if (self.disable_drag) then
return
end
-- Drag start / Drop
if set then
self:Print(nil, "Drag | hold_idx: %s - hold_tg: %s", idx, tg)
-- Callback
if (not idx) and self.hold.idx and (self.hold.idx ~= self.hover.idx) then -- IF released mouse + drag item is captured + drag item is not hovered item
self:Callback( "On_CC_DragDrop", self.ID, self.hold.idx )
end
-- Useful to prevent some actions for owner when there's a dragged item, by checking on (self.item_in_hold)
if self.owner.item_in_hold == self.ID then
self.owner.item_in_hold = false
end
if idx then
self.owner.item_in_hold = self.ID
-- Hold the scroll and stop moving on dragging
self.scroll_pos = self.scroll:GetCurrentScrollPos()
-- No point of holding empty cells
if (not self.cell[idx]:IsShown()) then
return
end
end
self.hold.idx = idx
self.hold.tg = tg
self.hold.ico:Show(false)
return
end
-- Drag
if self.hold.idx and tg - self.hold.tg > 100 then
-- Set up drag item icon
if (not self.hold.ico:IsShown()) then
self:Print(nil, "Drag | set up icon")
local sec = self.cell[self.hold.idx].section
if sec then
self.hold.w = SYS_GetParam(2,sec, "inv_grid_width") * self.grid_size * ratio
self.hold.h = SYS_GetParam(2,sec, "inv_grid_height") * self.grid_size
self.hold.ico:InitTexture( utils_xml.get_icons_texture(sec) )
self.hold.ico:SetTextureRect(Frect():set( get_item_axis(sec, nil, true) ))
self.hold.ico:SetTextureColor( clr_list["drag"] )
self.hold.ico:SetStretchTexture(true)
self.hold.ico:SetWndSize(vector2():set(self.hold.w , self.hold.h))
self.hold.ico:Show(true)
end
end
-- Sync with cursor pos
local pos = GetCursorPosition()
self.hold.ico:SetWndPos( pos )
end
end
function UICellContainer:On_Hover(idx)
if (not idx) then
-- UnHighlight old cell
if self.hover.idx then
local ci = self.cell[self.hover.idx]
if ci then
ci:Highlight(false)
end
end
-- Unmark hovering
self.hover.idx = false
elseif self.hover.idx ~= idx then
-- UnHighlight old cell
if self.hover.idx then
local ci = self.cell[self.hover.idx]
if ci then
ci:Highlight(false)
end
end
-- Mark hovered cell
self.hover.idx = idx
-- Highlight new cell (on hover, cell must be shown)
local ci = self.cell[idx]
if ci and ci:IsShown() then
ci:Highlight(true)
end
end
-- Callback, only if mouse on bag
if self:IsCursorOverWindow() then
self:Callback( "On_CC_Hover", self.ID, self.hover.idx )
end
end
function UICellContainer:On_Mouse1(idx)
-- Anticipate double click
local tg = get_time()
if (tg - self.db.tg < 400) then
self.db.idx = idx --false
self.db.tg = tg
local db_continue = self:On_Mouse1_DB(idx)
-- when there's a value returned, allow consecutive db clicks
if (not db_continue) then
self.db.idx = false
end
-- db_continue is false if no db callback is found in owner class, so we can pass the return and treat db click as normal click
if (db_continue ~= false) then
return
end
end
self.db.idx = idx
self.db.tg = tg
self:On_Select(idx)
self:Callback( "On_CC_Mouse1", self.ID, idx )
end
function UICellContainer:On_Mouse1_DB(idx)
return self:Callback( "On_CC_Mouse1_DB", self.ID, idx ) -- Returning true means no cooldown on double clicking if you keep clicking!
end
function UICellContainer:On_Mouse2(idx)
self:On_Select(idx)
self:Callback( "On_CC_Mouse2", self.ID, idx )
end
function UICellContainer:On_Scroll()
if (self.disable_scroll) then
self:Scroll_SetPos(0)
return
end
if (not self.scroll_pos) then
self.scroll_pos = self.scroll:GetCurrentScrollPos()
return
end
-- Setting scroll pad size
if self.pd.update then
self:Scroll_Pad_Ctrl(true)
self.pd.update = false
end
-- Prevent scrolling when it's paused
if self.scroll_pause then
self:Scroll_DragDrop_Ctrl()
self:Scroll_Pad_Ctrl()
self:Scroll_SetPos()
return
end
self.pd.off = false
self.pd.hold = false
-- Prevent scrolling when holding item
if self.hold.idx or self.owner.item_in_hold then
self:Scroll_DragDrop_Ctrl()
self:Scroll_SetPos()
return
end
-- small delay
if (not self.scroll_tg) then
self.scroll_tg = get_time()
end
-- Alt Tab Scroll Issue fix by DPurple
-- get_time() may unreliable , try reset delay
if get_time() - self.scroll_tg < 0 then
self.scroll_tg = get_time()
end
if self.scroll_tg > (get_time() + 25) then
return
end
self.scroll_tg = get_time()
-- Amplify scrolling
local curr_pos = self.scroll:GetCurrentScrollPos()
if (self.scroll_pos ~= curr_pos) then
if (curr_pos > self.scroll_pos) then
self:Scroll_SetPos( self.scroll_pos + ((self.grid_size + self.grid_line) * self.scolling_power) )
else
self:Scroll_SetPos( self.scroll_pos - ((self.grid_size + self.grid_line) * self.scolling_power) )
end
--printf("curr pos: %s - scroll pos: %s", curr_pos, self.scroll_pos)
end
end
function UICellContainer:Update(item_info, no_info, hide)
self:On_Drag(false, get_time())
self:On_Select()
self:On_Scroll()
if hide then
self:On_Hover(false)
return false
end
if self:IsCursorOverWindow() then -- For performance: There's no need to iterate cells, if the container is not focused in the first place
for i=1,#self.cell do
local ci = self.cell[i]
-- Only update for hovered cell
-- Manual cells are special cases because we want to have hover interaction with them
if ci and ci:IsCursorOverWindow() and (ci.manual or ci:IsShown()) and self:IsCellVisible(ci) then
-- No info if drag is active
if no_info or self.hold.ico:IsShown() then
if item_info then
item_info:Update()
end
elseif item_info and (not self.disable_info) and ci:IsShown() then
local obj = ci.ID and level.object_by_id(ci.ID)
item_info:Update( obj, ci.section, ci.flags)
end
self:On_Hover(i)
return true
end
end
end
self:On_Hover(false)
return false
end
function UICellContainer:OnKeyboard(dik, keyboard_action)
-- Pause scrolling when holding M1
if (dik == K_M1) then
if (keyboard_action == E_PRESS) then
self.scroll_pause = true
elseif (keyboard_action == E_RELEASE) then
self.scroll_pause = false
end
end
-- Interaction with cells
local idx = self.hover.idx
if idx then
-- Mouse 1
if (dik == K_M1) then
if (keyboard_action == E_PRESS) then
self:On_Drag(idx, get_time(), true)
elseif (keyboard_action == E_RELEASE) then
self:On_Drag(false, 0, true)
self:On_Mouse1(idx)
end
-- Mouse 2
elseif (dik == K_M2) then
if (keyboard_action == E_RELEASE) then
self:On_Mouse2(idx)
end
end
-- We disable drag on releasing regardless of highlighted cell
elseif (dik == K_M1) and (keyboard_action == E_RELEASE) then
self:On_Drag(false, 0, true)
end
-- Left shift
if (dik == K_SHFT) then
self.scolling_power = (keyboard_action == E_PRESS) and self.scolling_power_up or 1
end
end
function UICellContainer:Callback(func, ...)
-- This is needed for inventory UI to avoid endless loop for slots managements
if self.disable_callback[func] then
return
end
if self.owner[func] then
return self.owner[func](self.owner,...)
elseif (func == "On_CC_Mouse1_DB") then
return false
end
end
function UICellContainer:Reset()
self:Print(nil, "Reset")
self.hover.idx = false
for idx,ci in pairs(self.cell) do
ci:Reset()
end
for cnt, ele in pairs(self.line) do
ele:Show(false)
end
self:On_Select(false)
self.idxer = 0
self.row_end = 0
self.col_end = 0
self.scroll_pos = 0
self.rKind.last = false
self.rKind.current = false
self.rKind.row = 1
self.line_cnt = 0
empty_table(self.indx_id)
empty_table(self.indx_sec)
self.pad:Show(false)
self.selected = nil
self.hold.idx = false
self.hold.tg = 0
self.hold.w = 0
self.hold.h = 0
if self.hold.ico then
self.hold.ico:Show(false)
end
self.db.idx = false
self.db.tg = 0
-- Reset Grid
for row,v in pairs(self.grid) do
for col,state in pairs(v) do
self.grid[row][col] = true
end
end
end
function UICellContainer:IsCellVisible(ci)
-- This is important because we don't want to interact with cells that are outside of scroll view window
local pos_start = self.scroll_pos
local pos_start_ci = ci.cell:GetWndPos().y + self.cell_vis_offset
local pos_end = pos_start + self.scroll:GetHeight()
local pos_end_ci = pos_start_ci + ci.cell:GetHeight() - (self.cell_vis_offset * 2)
--printf("IsCellVisible | start: %s - start_ci: %s - end: %s - end_ci: %s - top visible: %s - end visible: %s", pos_start, pos_start_ci, pos_end, pos_end_ci, (pos_start_ci >= pos_start) , (pos_end_ci <= pos_end))
return (pos_start_ci >= pos_start) and (pos_end_ci <= pos_end)
end
function UICellContainer:Scroll_Reinit(keep_pos)
-- It's important to reset the scroll after cell changes because we want to adapt new cells
-- TODO: to prevent spawn of items flooding in container, we need to time this in update function
-- Used when reiniting cells, to prevent unneeded scroll adjusting when there's a mass amount of cells being recreated
if self.ignore_scroll then
return
end
local cpos = (self.disable_scroll and 0) or (keep_pos and self.scroll:GetCurrentScrollPos())
self.scroll:Clear()
-- We decide container size according to the row with first unoccupied cell
if (not self.disable_scroll) then
-- Determine scroll height
local h = self:Scroll_GetHeight(1)
h = h - self.scroll:GetHeight()
h = h > 0 and h or 0
self.st:SetWndSize(vector2():set( self.scroll:GetWidth() , h ))
--printf("scroll: %s - st: %s", self.scroll:GetHeight(), self.st:GetHeight())
end
self.scroll:AddWindow(self.st, true)
self.st:SetAutoDelete(false)
self.pd.update = true
--[[
if cpos then
self.scroll:SetScrollPos(cpos)
end
--]]
self:Scroll_SetPos(cpos, true)
end
function UICellContainer:Scroll_SetPos(Y, force)
if (not Y) then
Y = self.scroll_pos or 0
end
-- Prevent scrolling if scroll area is shorter than scoll height
if (((self.grid_size + self.grid_line) * self.row_end) < self.scroll:GetHeight()) then
Y = 0
end
-- Keep scroll pos in range
if force then
-- This trick is used because for some reason the scroll doesn't have full scale on resetting, unless if we set its pos at least once
self.scroll:SetScrollPos(1)
end
Y = clamp( math.floor(Y), self.scroll:GetMinScrollPos(), self.scroll:GetMaxScrollPos())
self.scroll:SetScrollPos(Y)
self.scroll_pos = Y
-- Adjust scrolling pad
if self.pad:IsShown() then
self.pad:SetWndPos(vector2():set( self.prof:GetWidth() , Y / self.pd.power ))
end
--if (self.ID == "actor_bag") then printf("ID: %s - POS: %s - MIN: %s - MAX: %s - FROM: %s", self.ID, Y, self.scroll:GetMinScrollPos(), self.scroll:GetMaxScrollPos(), callstack(true,true)) end
end
function UICellContainer:Scroll_GetHeight(num, ele)
if ele then
return (self.scroll:GetHeight() + self.scroll:GetMaxScrollPos())
end
return (self.row_end + (num or 0)) * (self.grid_size + self.grid_line)
end
function UICellContainer:Scroll_DragDrop_Ctrl()
if self.disable_scroll_dragdrop then
return false
end
if not (self.hold.idx or self.owner.item_in_hold) then
return false
end
local dir = (self.drag_up:IsCursorOverWindow() and 1) or (self.drag_down:IsCursorOverWindow() and 2) or 0
if dir == 0 then
return false
end
if (dir == 1) and (get_time() - self.drag_area.up > self.drag_area.step) then
self.drag_area.up = get_time()
self:Scroll_SetPos( self.scroll_pos - ((self.grid_size + self.grid_line) * self.scolling_power) )
--printf("On_Scroll_DragDrop UP | old: %s - new: %s", self.scroll_pos, new_pos)
return true
elseif (dir == 2) and (get_time() - self.drag_area.down > self.drag_area.step) then
self.drag_area.down = get_time()
self:Scroll_SetPos( self.scroll_pos + ((self.grid_size + self.grid_line) * self.scolling_power) )
--printf("On_Scroll_DragDrop DOWN | old: %s - new: %s", self.scroll_pos, new_pos)
return true
end
return false
end
function UICellContainer:Scroll_Pad_Ctrl(update)
-- Scroll pad state and size
if update then
local h_view = self.scroll:GetHeight()
local h_max = h_view + self.scroll:GetMaxScrollPos()
if (h_max <= h_view + 1) or (self.disable_scroll) then
self.pad:Show(false)
else
local h_scroll = (h_max - h_view)
local ratio = (h_view / h_max)
local h_pad = h_view * ratio
self.pd.power = h_scroll/(h_view - h_pad)
--printf("h_view: %s - h_scroll: %s - h_max: %s - h_pad: %s - ratio: %s - power: %s", h_view, h_scroll, h_max, h_pad, ratio, self.pd.power)
self.pad:SetWndPos(vector2():set( self.prof:GetWidth() , self.scroll_pos / self.pd.power ))
-- Edited by Sota
--self.pad:SetWndSize(vector2():set( 5 , math.floor(h_pad) ))
self.pad:SetWndSize(vector2():set( 5 * uwide_ratio , math.floor(h_pad) ))
self.pad:Show(true)
end
return
end
-- No interaction if pad isn't shown
if (not self.pad:IsShown()) then
return
end
-- No interaction if pad is not focused
if not (self.pd.hold or self.pad:IsCursorOverWindow()) then
return
end
-- Storing start pos for the first time on holding
if (not self.pd.off) then
self.pd.off = GetCursorPosition().y
self.pd.start = self.scroll_pos
self.pd.hold = true
return
end
-- Set scroll pos according to mouse pos
local offset = GetCursorPosition().y - self.pd.off
self.scroll_pos = self.pd.start + (offset * self.pd.power)
--printf("offset: %s - scroll_pos: %s", offset, self.scroll_pos)
end
function UICellContainer:GetSortMethod()
if self.sort_method == "sizekind" then
return sort_by_sizekind
elseif self.sort_method == "props" then
return sort_by_props
elseif self.sort_method == "kind" then
return sort_by_kind
end
return sort_by_sizekind
end
function UICellContainer:AdjustWnd(x, y, w, h)
local pos = x and y and vector2():set(x,y) or self.prof:GetWndPos()
self.prof:SetWndPos( pos )
self.prof:SetWndSize(vector2():set( (w or self.prof:GetWidth()) , (h or self.prof:GetHeight()) ))
utils_xml.sync_size( self.prof , self.scroll )
end
function UICellContainer:AdjustHeightToCell()
local h = self.row_end * (self.grid_size + self.grid_line)
if self.use_frame then
h = h + 30
if h < 36 then h = 36 end
self.scroll:SetWndPos(vector2():set( 15 , 15 ))
end
self.prof:SetWndSize(vector2():set( self.prof:GetWidth() , h ))
utils_xml.sync_size( self.prof , self.scroll )
end
function UICellContainer:AdjustWidthToCell()
local w = self.col_end * (self.grid_size + self.grid_line)
w = w * ratio
if self.use_frame then
w = w + 30
if w < 36 then w = 36 end
self.scroll:SetWndPos(vector2():set( 15 , 15 ))
end
self.prof:SetWndSize(vector2():set( w , self.prof:GetHeight() ))
utils_xml.sync_size( self.prof , self.scroll )
end
function UICellContainer:SetBackground(path, clr)
if (type(path) == "string") then
self.prof:InitTexture(path)
end
self.prof:SetTextureColor(clr)
end
function UICellContainer:SetGridSpecs(size, line)
self.grid_size = size or self.grid_size
self.grid_line = line or self.grid_line
self.cols = math.floor( (self.scroll:GetWidth() * (1/ratio)) / (self.grid_size + self.grid_line) )
self:Print(nil, "SetGridSpecs | size: %s - line: %s - num of colomns: %s", self.grid_size, self.grid_line, self.cols)
end
function UICellContainer:Show(state)
self.prof:Show(state)
if (not state) then
-- Hide hold icon
self.hold.idx = false
if self.hold.ico then
self.hold.ico:Show(false)
end
self.hover.idx = false
self.db.idx = false
end
end
function UICellContainer:IsShown()
return self.prof:IsShown()
end
function UICellContainer:EnableScrolling(state)
self.disable_scroll = (not state)
self.scroll:Enable(state)
end
function UICellContainer:IsCursorOverWindow()
return self.prof:IsShown() and self.prof:IsCursorOverWindow()
end
function UICellContainer:Print(mark, fmt,...)
--printf( (mark or "+") .. " UICellContainer [%s] | " .. fmt, self.ID, ...)
end
-------------------------------------------------------------------
-- Item info box
-------------------------------------------------------------------
class "UIInfoItem"
function UIInfoItem:__init(owner, delay)
self.owner = owner
self.id = nil
self.section = nil
self.can_compare = false
self.timer = 0
self.delay = delay or 700
self.ammo_parse = { [1]=true , [4] = true , [7] = true , [10] = true }
prepare_stats_table()
self:InitControls()
self:Show(false)
end
function UIInfoItem:InitControls()
--[[
self.xml = CScriptXmlInit()
local xml = self.xml
xml:ParseFile ("ui_item_info.xml")
--]]
self.dialog = XMLP:InitStatic("item_info", self.owner)
self.frame = XMLP:InitFrame("item_info:background_frame", self.dialog)
self.name = XMLP:InitTextWnd("item_info:name", self.dialog)
self.weight = XMLP:InitTextWnd("item_info:weight", self.dialog)
self.value = XMLP:InitTextWnd("item_info:cost", self.dialog)
self.note = XMLP:InitTextWnd("item_info:no_trade", self.dialog)
self.desc = XMLP:InitTextWnd("item_info:description", self.dialog)
-- Stats
self.stats_dialog = XMLP:InitStatic("item_info:stats_dialog", self.dialog)
self.stats = {}
for i=1,16 do
self.stats[i] = {}
self.stats[i].base = XMLP:InitStatic("item_info:stats_box", self.stats_dialog)
self.stats[i].icon = XMLP:InitStatic("item_info:stats_box:icon", self.stats[i].base)
self.stats[i].cap = XMLP:InitTextWnd("item_info:stats_box:cap", self.stats[i].base)
self.stats[i].bar2 = XMLP:InitProgressBar("item_info:stats_box:prog_bar", self.stats[i].base)
self.stats[i].bar1 = XMLP:InitProgressBar("item_info:stats_box:prog_bar", self.stats[i].base)
self.stats[i].txt = XMLP:InitTextWnd("item_info:stats_box:prog_txt", self.stats[i].base)
self.stats[i].comp = XMLP:InitTextWnd("item_info:stats_box:compare", self.stats[i].base)
end
-- Ammo type
self.ammo = XMLP:InitStatic("item_info:ammo_type", self.dialog)
self.ammo_cap = XMLP:InitStatic("item_info:ammo_type:cap_ammo_types", self.ammo)
self.ammo_txt = XMLP:InitTextWnd("item_info:ammo_type:cap_ammo_used_type", self.ammo)
self.ammo_ico = {}
self.ammo_ico_temp = {}
for i=1,12 do
if self.ammo_parse[i] then
self.ammo_ico[i] = XMLP:InitStatic("item_info:ammo_type:static_ammo_type" .. i, self.ammo)
self.ammo_ico_temp[i] = XMLP:InitStatic("item_info:ammo_type:static_ammo_type" .. i, self.ammo)
end
end
end
function UIInfoItem:Update(obj, sec, flags)
if not self:Pass(obj, sec) then
self:Show(false)
return
end
-- item info box is shown at cursor
sync_cursor(self.dialog, self.frame, 0, 0)
-- no need to process if it's same item
if obj then
if obj:id() == self.id then
self:Show(true)
return
end
elseif sec then
if sec == self.section then
self:Show(true)
return
end
end
-- gather basic info
sec = obj and obj:section() or sec
local typ = self:GetType(sec)
--printf("-updating | section [%s] - type: %s", sec, typ)
self.id = obj and obj:id() or nil
self.section = sec
-- Name
local name = obj and ui_item.get_obj_name(obj) or ui_item.get_sec_name(sec)
self.name:SetText( name )
-- Weight
local weight = obj and obj:weight() or ini_sys:r_float_ex(sec,"inv_weight")
self.weight:SetText( round_100(weight) .. " " .. game.translate_string("st_kg") )
-- Cost
if flags and flags.value_str and (not flags.note_str) then
self.value:SetText( flags.value_str )
self.value:Show(true)
else
self.value:Show(false)
end
-- Note
if flags and flags.note_str then
self.note:SetText( flags.note_str )
self.note:Show(true)
else
self.note:Show(false)
end
-- Description
local desc = obj and ui_item.get_obj_desc(obj) or ui_item.get_sec_desc(sec)
self.desc:SetText( desc )
self.desc:AdjustHeightToText()
-- Stop here?
if self:Sync_Finale( (not stats_table[typ]), nil, self.desc, self.frame, 10 ) then
self.stats_dialog:Show(false)
self.ammo:Show(false)
return
end
-- Stats
for i=1,#self.stats do
self.stats[i].base:Show(false)
end
-- Comparison
local obj_b
if self.can_compare and obj then
local cls = obj:clsid()
local slot = SYS_GetParam(2,sec,"slot",-1) + 1
obj_b = slot > 0 and db.actor:item_in_slot(slot)
end
local v = stats_table[typ]
local cnt, y = 0, 0
local cnt_last
for stat,gr in spairs(v,sort_by_index) do
-- get stat value
local val_a = get_stats_value(obj, sec, gr, stat)
if val_a then
if gr.show_always or ((not gr.show_always ) and val_a ~= 0) then
cnt = cnt + 1
local ele = self.stats[cnt]
-- Set up icon
local icon_p = gr.icon_p
local icon_n = (gr.icon_n ~= "") and gr.icon_n or icon_p
local icon = val_a < 0 and icon_n or icon_p
if gr.sign_inverse then
icon = val_a < 0 and icon_p or icon_n
end
ele.icon:InitTexture( icon )
-- Set up name
ele.cap:SetText( game.translate_string(gr.name) )
-- Reset
ele.bar2:Show(false)
ele.bar1:Show(false)
ele.txt:Show(false)
ele.comp:Show(false)
-- Progress bar
if gr.track then
local valbar_a = clamp((math.abs(val_a) * gr.magnitude), 0, 1)
-- Comparison item
local val_b = obj_b and get_stats_value(obj_b, obj_b:section(), gr, stat)
local valbar_b = val_b and clamp((math.abs(val_b) * gr.magnitude), 0, 1)
if valbar_b and (valbar_a ~= valbar_b) then
-- If focued item's value is bigger than slot item's value -> focued item's bar: green + 2nd layer
if valbar_a > valbar_b then
ele.bar1:SetProgressPos( valbar_b )
ele.bar1:SetColor( clr_list["info_def"] )
ele.bar2:SetProgressPos( valbar_a )
ele.bar2:SetColor( clr_list["info_p"] )
ele.comp:SetTextColor( clr_list["info_p_txt"] )
-- If focued item's value is smaller than slot item's value -> focued item's bar: red + 1nd layer
else
ele.bar1:SetProgressPos( valbar_a )
ele.bar1:SetColor( clr_list["info_def"] )
ele.bar2:SetProgressPos( valbar_b )
ele.bar2:SetColor( clr_list["info_n"] )
ele.comp:SetTextColor( clr_list["info_n_txt"] )
end
local diff_val = math.ceil( (valbar_a - valbar_b) * 100 )
ele.comp:SetText( (diff_val > 0 and "+" or "") .. diff_val .. "%" )
ele.comp:Show(true)
ele.bar1:Show(true)
ele.bar2:Show(true)
ele.bar1:ShowBackground(false)
-- No comparison
else
ele.bar1:SetProgressPos( valbar_a )
ele.bar1:SetColor( clr_list["info_def"] )
ele.bar1:Show(true)
ele.bar1:ShowBackground(true)
end
-- Text
elseif ele.txt then
local valbar_a = val_a * gr.magnitude
local unit = gr.unit and gr.unit ~= "" and game.translate_string(gr.unit) or ""
local clr = valbar_a >= 0 and clr_list["p1"] or clr_list["n1"]
valbar_a = math.ceil(valbar_a)
if gr.sign_inverse then
clr = valbar_a < 0 and clr_list["p1"] or clr_list["n1"]
--valbar_a = -1 * valbar_a -- invert sign again if needed
end
local sign = gr.sign and valbar_a > 0 and "+" or ""
-- Comparison item
local val_b = obj_b and get_stats_value(obj_b, obj_b:section(), gr, stat)
local valbar_b = val_b and val_b * gr.magnitude
if valbar_b and (valbar_a ~= valbar_b) then
local diff_val = math.ceil(valbar_a - valbar_b)
ele.comp:SetText( "(" .. (diff_val > 0 and "+" or "") .. diff_val .. ")" )
ele.comp:Show(true)
clr = (valbar_a > valbar_b) and clr_list["info_p_txt"] or clr_list["info_n_txt"]
end
if gr.sign_inverse_txt then
if valbar_a > 0 then
sign = "-"
elseif valbar_a < 0 then
valbar_a = -1 * valbar_a
sign = "+"
end
end
ele.txt:SetText( sign .. valbar_a .. " " .. unit )
ele.txt:SetTextColor( clr )
ele.txt:Show(true)
end
y = y + ele.base:GetHeight()
--printf("stat ele [%s] [%s] | cnt: %s - y: %s - value: %s", sec, stat, cnt, y, val_a)
local ele_prev = cnt_last and self.stats[cnt_last]
self:Sync_Y(ele_prev and ele_prev.base, ele.base, 0)
cnt_last = cnt
ele.base:Show(true)
end
end
end
self.stats_dialog:SetWndSize(vector2():set( self.stats_dialog:GetWidth() , y + 10 ))
self.stats_dialog:Show(true)
-- Stop here?
if self:Sync_Finale( (typ ~= "weapon"), self.desc, self.stats_dialog, self.frame, 10 ) then
self.ammo:Show(false)
return
end
-- Ammo type
if (typ == "weapon") then
local ammo_list = utils_item.get_ammo(sec, self.id, nil)
local ammo_name = ini_sys:r_string_ex(ammo_list[1], "inv_name_short") or ""
self.ammo_txt:SetText( game.translate_string(ammo_name) )
for i=1,12 do
if self.ammo_ico[i] then
if ammo_list[i] and (ammo_list[i] ~= "ammo_12x70_buck_self") then
utils_xml.set_icon(ammo_list[i], nil, self.ammo_ico[i], self.ammo_ico_temp[i])
self.ammo_ico[i]:Show(true)
self.ammo_ico_temp[i]:Show(true)
else
self.ammo_ico[i]:Show(false)
self.ammo_ico_temp[i]:Show(false)
end
end
end
self.ammo:Show(true)
else
self.ammo:Show(false)
end
-- Finale
self:Sync_Finale( true, self.stats_dialog, self.ammo, self.frame, 10 )
return
end
function UIInfoItem:Pass(obj, sec)
-- hide when no info is passed
if not (obj or sec) then
self:Reset()
return false
end
-- anticipate different object
if self.id then
if (not obj) then
self:Reset()
return false
else
if (obj:id() == self.id) then
return true
else
self:Reset()
return false
end
end
end
-- anticipate different section
if self.section then
if (not sec) then
self:Reset()
return false
else
if (sec == self.section) then
return true
else
self:Reset()
return false
end
end
end
-- delay
local tg = get_time()
if (tg < self.timer + self.delay) then
return false
end
self.timer = tg
return true
end
function UIInfoItem:GetType(sec)
if ini_sys:r_string_ex(sec, "ammo_class") and (not IsItem("fake_ammo_wpn", sec)) then
return "weapon"
elseif IsItem("outfit", sec) or IsItem("helmet", sec) then
return "outfit"
elseif IsItem("artefact", sec) then
return "artefact"
elseif IsItem("consumable", sec) then
return "booster"
elseif IsItem("backpack", sec) then
return "backpack"
end
return "none"
end
function UIInfoItem:GetUpgrades(obj)
if obj and IsWeapon(obj) and has_upgrades(obj) then
return utils_item.get_upgrades_installed(nil, obj:id())
end
return nil
end
function UIInfoItem:Sync_Finale(cond, ele_syncer, ele_resizer, ele_adapter, offset)
-- Stage 1: syncing
-- Adjust element position (ele_resizer) to go below another (ele_syncer)
if ele_syncer then
self:Sync_Y(ele_syncer, ele_resizer, offset)
end
-- Stage 2: checking
-- if condition is true, go to stage 3 to finilize the info box
if (not cond) then
return false
end
-- Stage 3: resizng
-- Adjust elemet height (ele_adapter) to contain another (ele_resizer)
self:Sync_H(ele_resizer, ele_adapter, offset)
self:Show(true)
return true
end
function UIInfoItem:Sync_Y(parent, child, offset)
local pos_c = child:GetWndPos()
if (not parent) then
local y = 0 + (offset or 10)
child:SetWndPos(vector2():set( pos_c.x , y ))
return y
end
local pos_p = parent:GetWndPos()
local h_p = parent:GetHeight()
local y = pos_p.y + h_p + (offset or 10)
child:SetWndPos(vector2():set( pos_c.x , y ))
return y
end
function UIInfoItem:Sync_H(parent, child, offset)
local pos_p = parent:GetWndPos()
local h_p = parent:GetHeight()
local h = pos_p.y + h_p + offset
if h < 300 then h = 300 end
child:SetWndSize(vector2():set( child:GetWidth() , h ))
return h
end
function UIInfoItem:Reset_Y(ele)
ele:SetWndPos(vector2():set( ele:GetWndPos().x , 0 ))
end
function UIInfoItem:Reset()
self.id = nil
self.section = nil
self.timer = get_time()
end
function UIInfoItem:IsShown()
return self.dialog:IsShown()
end
function UIInfoItem:Show(state)
if state == false then
-- hide all extended info
self.stats_dialog:Show(false)
self.ammo:Show(false)
end
self.dialog:Show(state)
end
-------------------------------------------------------------------
-- Upgrade info box
-------------------------------------------------------------------
class "UIInfoUpgr"
function UIInfoUpgr:__init(owner, delay)
self.owner = owner
self.section = nil
self.timer = 0
self.delay = delay or 500
self:InitControls()
self:Show(false)
end
function UIInfoUpgr:InitControls()
self.dialog = XMLP:InitStatic("upgrade_info", self.owner)
self.frame = XMLP:InitFrame("upgrade_info:background_frame", self.dialog)
self.name = XMLP:InitTextWnd("upgrade_info:info_name", self.dialog)
self.cost = XMLP:InitTextWnd("upgrade_info:info_cost", self.dialog)
self.desc = XMLP:InitTextWnd("upgrade_info:info_desc", self.dialog)
self.prereq = XMLP:InitTextWnd("upgrade_info:info_prerequisites", self.dialog)
self.prop_frame = XMLP:InitStatic("upgrade_info:properties", self.dialog)
-- Added by Sota
self.upgr_line = XMLP:InitStatic("upgrade_info:properties:upgr_line", self.prop_frame)
self.prop = {}
self.prop_h = self.prop_frame:GetHeight()
local pos
for i=1,5 do
self.prop[i] = {}
self.prop[i].ico = XMLP:InitStatic("upgrade_info:properties:icon", self.prop_frame)
pos = self.prop[i].ico:GetWndPos()
self.prop[i].ico:SetWndPos(vector2():set( pos.x , pos.y + (self.prop_h * i) ))
self.prop[i].txt = XMLP:InitTextWnd("upgrade_info:properties:txt", self.prop_frame)
pos = self.prop[i].txt:GetWndPos()
self.prop[i].txt:SetWndPos(vector2():set( pos.x , pos.y + (self.prop_h * i) ))
end
end
function UIInfoUpgr:Update(upgr, prereq, installed)
if not self:Pass(upgr) then
self:Show(false)
return
end
-- info box is shown at cursor
sync_cursor(self.dialog, self.frame, 0, 0)
-- no need to process if it's same item
if (upgr and upgr == self.section) then
self:Show(true)
return
end
self.section = upgr
local sec = ini_sys:r_string_ex(upgr,"section")
local name = ini_sys:r_string_ex(upgr,"name")
self.name:SetText( game.translate_string(name) )
self.name:AdjustHeightToText()
self.cost:SetText( inventory_upgrades.get_upgrade_cost(sec) .. " RU" )
self:Sync_Y(self.name, self.cost, 10)
local desc = ini_sys:r_string_ex(upgr,"description")
self.desc:SetText( game.translate_string(desc) )
self.desc:AdjustHeightToText()
self:Sync_Y(self.cost, self.desc, 10)
self.prereq:SetText(prereq or "")
self.prereq:SetTextColor(installed and clr_list["p2"] or clr_list["n2"])
self.prereq:AdjustHeightToText()
self:Sync_Y(self.desc, self.prereq, 10)
local props = parse_list(ini_sys, upgr, "property")
for i,prop in ipairs(props) do
local icon = ini_sys:r_string_ex(prop,"icon")
self.prop[i].ico:InitTexture(icon)
self.prop[i].ico:Show(true)
local value = self:ExtractFunctor(prop, "functor", sec, prop) or ""
self.prop[i].txt:SetText(value)
self.prop[i].txt:Show(true)
--printf("$UIInfoUpgr | i: %s - prop: %s - icon: %s - value: %s", i, prop, icon, value)
end
for i=(#props + 1), 5 do
self.prop[i].ico:Show(false)
self.prop[i].txt:Show(false)
end
self:Sync_Y(self.prereq, self.prop_frame, 10)
-- Edited by Sota
--self:Sync_H(self.prop_frame, self.frame, (self.prop_h * #props) )
self:Sync_H(self.prop_frame, self.frame, (self.prop_h * #props) + 20 )
return
end
function UIInfoUpgr:Pass(sec)
-- hide when no info is passed
local tg = get_time()
if (not sec) then
self.timer = tg
self.section = nil
return false
end
-- anticipate different section
if self.section then
if (not sec) then
self:Reset()
return false
elseif sec and (sec == self.section) then
return true
end
end
-- delay
if (tg < self.timer + self.delay) then
return false
end
self.timer = tg
return true
end
function UIInfoUpgr:ExtractFunctor(sec, param, ...)
local func = ini_sys:r_string_ex(sec, param)
func = str_explode(func,"%.")
return func and _G[func[1]] and _G[func[1]][func[2]] and _G[func[1]][func[2]](...) or nil
end
function UIInfoUpgr:Sync_Y(parent, child, offset)
local pos_c = child:GetWndPos()
if (not parent) then
local y = 0 + (offset or 10)
child:SetWndPos(vector2():set( pos_c.x , y ))
return y
end
local y = parent:GetWndPos().y + parent:GetHeight() + (offset or 10)
child:SetWndPos(vector2():set( pos_c.x , y ))
return y
end
function UIInfoUpgr:Sync_H(parent, child, offset)
local h = parent:GetWndPos().y + parent:GetHeight() + offset
-- Edited by Sota
--if (h < 265) then h = 265 end
child:SetWndSize(vector2():set( child:GetWidth() , h ))
return h
end
function UIInfoUpgr:Reset()
self.section = nil
self.timer = get_time()
end
function UIInfoUpgr:IsShown()
return self.dialog:IsShown()
end
function UIInfoUpgr:Show(state)
self.dialog:Show(state)
end
-------------------------------------------------------------------
-- Properties list for item cells
-------------------------------------------------------------------
class "UICellProperties" (CUIScriptWnd)
function UICellProperties:__init(owner) super()
self.owner = owner
-- frame size limit, game will crash if the frame size is less that it's min defines. Always check for frame corners defines in textures_desc
self.W_L = 58
self.H_L = 40
self.PDW = 10
self.PDH = 10
self.action_moment = false
self:InitControls()
self:InitCallBacks()
end
function UICellProperties:__finalize()
if (self.owner) then
--self.owner.disabled = false
end
end
function UICellProperties:InitControls()
self:SetWndRect(Frect():set(0,0,1024,768))
self:SetAutoDelete(true)
-- these windows are just to get width/height from xml to be use for context item
local ctrl = CUIWindow()
ctrl:SetAutoDelete(true)
XMLP:InitWindow("properties:file_item:main",0,ctrl)
self.file_item_main_sz = vector2():set(ctrl:GetWidth(),ctrl:GetHeight())
XMLP:InitWindow("properties:file_item:fn",0,ctrl)
self.file_item_fn_sz = vector2():set(ctrl:GetWidth(),ctrl:GetHeight())
-- form background
self.form = XMLP:InitStatic("properties:form",self)
-- List Box
self.frame = XMLP:InitFrame("properties:form:list_frame",self.form)
self.highlight = XMLP:InitStatic("properties:highlight",self.form)
self.list_box = XMLP:InitListBox("properties:form:list",self.form)
self.list_box:ShowSelectedItem(true)
self:Register(self.list_box, "UICellProperties_list_view")
end
function UICellProperties:Update()
CUIScriptWnd.Update(self)
--[[
local pos = GetCursorPosition()
local rect = Frect():set(0,0,0,0)
self.form:GetAbsoluteRect(rect)
if not (utils_data.pos_in_rect(pos,rect)) then
if (self:IsShown()) then
self:OnHide()
return
end
end
if (self.owner) then
self.owner.disabled = true
end
--]]
for i=0,self.list_box:GetSize() do
local _itm = self.list_box:GetItemByIndex(i)
if _itm and _itm:IsCursorOverWindow() then
local pos = _itm:GetWndPos()
self.highlight:SetWndPos( vector2():set( pos.x + self.PDH/2 , pos.y + self.PDW ) )
self.highlight:SetWndSize(vector2():set( _itm.textControl:GetWidth() , _itm.textControl:GetHeight() ))
self.highlight:Show(true)
return
end
end
self.highlight:Show(false)
-- self:AllowMovement(ui_inventory.GUI.mode == "inventory")
end
function UICellProperties:Reset(pos_override, action_list, name_list, params_list)
self.H = 0
self.W = 0
-- Reset list
self:FillList(action_list, name_list, params_list)
self.action_moment = false
-- Cursor
local pos = GetCursorPosition() -- because ShowDialog moves mouse cursor to center
self:ShowDialog()
SetCursorPosition(pos)
sync_cursor(self.form)
--[[
pos = pos_override and vector2():set(pos_override.x,pos_override.y) or GetCursorPosition()
pos.x = pos.x - self.form:GetWidth() --/2
--pos.y = pos.y - 22
if (pos.x < 0) then
pos.x = 0
end
self.form:SetWndPos(pos)
--]]
end
function UICellProperties:FillList(action_list, name_list, params_list)
self.list_box:RemoveAll()
for i,str_id in pairs(name_list) do
self:AddItemToList(i, str_id, action_list[i], params_list[i])
end
if self.H < self.H_L then self.H = self.H_L end
if self.W < self.W_L then self.W = self.W_L end
local sz = vector2():set(self.W , self.H)
self.form:SetWndSize(sz)
self.frame:SetWndSize(sz)
self.list_box:SetWndSize(sz)
self.highlight:Show(false)
end
function UICellProperties:OnListItemClicked()
if self.list_box:GetSize()==0 then return end
local item = self.list_box:GetSelectedItem()
if not (item) then
return
end
end
function UICellProperties:OnListItemDbClicked()
if self.list_box:GetSize()==0 then return end
local item = self.list_box:GetSelectedItem()
if not (item) then
return
end
if self.owner and (item.func) then
if item.params then
self.owner[item.func](self.owner, unpack(item.params))
else
self.owner[item.func](self.owner)
end
self.action_moment = get_time()
end
if (self:IsShown()) then
self:OnHide()
end
end
function UICellProperties:InitCallBacks()
self:AddCallback("button_ok",ui_events.BUTTON_CLICKED,self.OnButton_ok,self)
self:AddCallback("UICellProperties_list_view",ui_events.LIST_ITEM_CLICKED,self.OnListItemDbClicked,self)
--self:AddCallback("UICellProperties_list_view",ui_events.WINDOW_LBUTTON_DB_CLICK,self.OnListItemDbClicked,self)
end
function UICellProperties:AddItemToList(index, str_id, func, params)
local _itm = UICellProperties_item()
_itm:SetWndSize(self.file_item_main_sz)
_itm.textControl:SetWndPos(vector2():set(0,0))
_itm.textControl:SetWndSize(self.file_item_fn_sz)
_itm.textControl:SetText(game.translate_string(str_id))
_itm.textControl:AdjustWidthToText()
local h = self.file_item_fn_sz.y
local w = math.ceil(_itm.textControl:GetWidth())
w = w + self.PDW
local sz = vector2():set( w , h )
_itm.textControl:SetWndSize(sz)
_itm:SetWndSize(sz)
if w > self.W then self.W = w + self.PDW end
if self.H == 0 then self.H = h end
self.H = self.H + h
_itm.func = func
_itm.params = params
self.list_box:AddExistingItem(_itm)
end
function UICellProperties:OnKeyboard(dik, keyboard_action)
CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)
if (keyboard_action == ui_events.WINDOW_KEY_PRESSED) then
if (dik == DIK_keys.MOUSE_1) or (dik == DIK_keys.MOUSE_2) then
if (not self.form:IsCursorOverWindow()) then
if (self:IsShown()) then
self:OnHide()
end
end
elseif (dik == DIK_keys.DIK_ESCAPE) then
if (self:IsShown()) then
self:OnHide()
end
end
end
return true
end
function UICellProperties:OnHide()
if (self.owner) then
--self.owner.disabled = false
end
self:HideDialog()
end
----
class "UICellProperties_item" (CUIListBoxItem)
function UICellProperties_item:__init() super()
self:SetTextColor(GetARGB(255, 170, 170, 170))
self.textControl = self:GetTextItem()
self.textControl:SetFont(GetFontLetterica16Russian())
self.textControl:SetEllipsis(true)
end
function UICellProperties_item:__finalize()
end
-------------------------------------------------------------------
-- Hint window
-------------------------------------------------------------------
class "UIHint"
function UIHint:__init(owner, delay, path)
self.owner = owner
self.txt = ""
self.path = path or "hint_wnd"
self.timer = 0
self.delay = delay or 500 --[ms]
self:InitControls()
self:Show(false)
end
function UIHint:InitControls()
self.dialog = XMLP:InitFrame(self.path .. ":background",self.owner)
self.dialog_text = XMLP:InitTextWnd(self.path .. ":text",self.dialog)
end
function UIHint:Update(txt)
if not self:Pass(txt) then
self:Show(false)
return
end
-- no need to process if it's same txt
if (txt == self.txt) then
sync_cursor(self.dialog)
self:Show(true)
return
end
-- Set text
self.dialog_text:SetText(txt)
self.dialog_text:AdjustHeightToText()
-- Edited by Sota
-- Set wnd size
local w = self.dialog:GetWidth()
--w = w >= 96 and w or 96
--local h = self.dialog_text:GetHeight()+40
local h = self.dialog_text:GetHeight() + self.dialog_text:GetWndPos().y * 2
--h = h >= 96 and h or 96
self.dialog:SetWndSize(vector2():set(w,h))
FitInRect(self.dialog,Frect():set(0,0,1024,768),0,100)
-- box is shown at cursor
sync_cursor(self.dialog)
self.txt = txt
return
end
function UIHint:Pass(txt)
-- hide when no info is passed
local tg = get_time()
if not (txt and txt ~= "") then
self.timer = tg
self.txt = nil
return false
end
if txt == self.txt then
return true
end
-- delay
if (tg < self.timer + self.delay) then
return false
end
self.timer = tg
return true
end
function UIHint:Show(state)
self.dialog:Show(state)
end
------------------------------------------------------------
-- Utilities
------------------------------------------------------------
function prop_accuracry(obj,sec)
local fire_dispersion_base = utils_item.get_wpn_param(obj, sec, "fire_dispersion_base", 0)
return normalize(fire_dispersion_base, 1.5, 0)
end
function prop_handling(obj,sec)
local id = obj and obj:id()
local PDM_disp_base = utils_item.get_wpn_param(obj, sec, "PDM_disp_base", 0)
local control_inertion_factor = utils_item.get_wpn_param(obj, sec, "control_inertion_factor", 0)
return (normalize(PDM_disp_base, 2.1, 0) + normalize(control_inertion_factor, 3, 1))/2
end
function prop_damage(obj,sec)
local id = obj and obj:id()
local hit_power = utils_item.get_wpn_param(obj, sec, "hit_power", 0)
local ammo_list = utils_item.get_ammo(sec, id)
if ammo_list[1] then
local k_hit = ini_sys:r_float_ex(ammo_list[1], "k_hit") or 1
hit_power = (hit_power ~= 0) and (k_hit*hit_power) or k_hit
end
return normalize(hit_power, 0, 1.5)
end
function prop_rpm(obj,sec)
local rpm = utils_item.get_wpn_param(obj, sec, "rpm", 0)
return normalize(rpm, 0, 1000)
end
function prop_condition(obj,sec)
return obj and obj:condition() or 1
end
function get_utils_xml()
return XMLP
end
Reference in New Issue View Git Blame Copy Permalink