Divergent/mods/PDA Hacking/gamedata/scripts/z_pda_hacking.script

xml = nil
script_table = {}
local gc = game.translate_string
local parse_keys = utils_data.parse_string_keys

local debug = false
local function pr(...)
	if debug then
		printf(...)
	end
end

faction_encyption = {
	["army"] = 30 ,
	["bandit"] = 0 ,
	["csky"] = 20 ,
	["dolg"] = 40 ,
	["ecolog"] = 30 ,
	["freedom"] = 20 ,
	["killer"] = 40 ,
	["stalker"] = 10 ,
	["monolith"] = 50 ,
	-- factions below this are commented out in vanilla
	["renegade"] = 10 ,
	["greh"] = 30 ,
	["isg"] = 50,
}

colors_str = {
	["decrypt"] = "%c[255, 123, 217, 76]",
	["cmdup"] = "%c[255, 63, 192, 255]",
	["rescan"] = "%c[255, 54, 217, 136]",
	["nuke"] = "%c[255, 255, 255, 255]",
	["bruteforce"] = "%c[255, 255, 255, 63]",
	["skey"] = "%c[255, 0, 0, 0]",
	["extract"] = "%c[255, 255, 184, 28]",
	["terminal"] = "%c[255, 150, 150, 150]",
	["failed"] = "%c[255, 238, 28, 36]",
}

colors_argb = {
	["decrypt"] = GetARGB(255, 123, 217, 76),
	["cmdup"] = GetARGB(255, 63, 192, 255),
	["rescan"] = GetARGB(255, 54, 217, 136),
	["nuke"] = GetARGB(255, 255, 255, 255),
	["bruteforce"] = GetARGB(255, 255, 255, 63),
	["skey"] = GetARGB(255, 0, 0, 0),
	["extract"] = GetARGB(255, 255, 184, 28),
	["failed"] = GetARGB(255, 238, 28, 36),
}

pda_rarity_encryption_mult = {
	["itm_pda_common"] = 1 , ["itm_pda_uncommon"] = 1.5, ["itm_pda_rare"] = 2,
	["itm_pda_encrypted_common"] = 1 , ["itm_pda_encrypted_uncommon"] = 1.5, ["itm_pda_encrypted_rare"] = 2, -- Compatibility with "Better Encryption Overhaul"
}

base_init = ui_pda_npc_tab.pda_npc_tab.InitControls
function ui_pda_npc_tab.pda_npc_tab:InitControls()
	base_init(self)
	xml = CScriptXmlInit()
	xml:ParseFile("ui_pda_hacking.xml")
end

base_reset = ui_pda_npc_tab.pda_npc_tab.Reset
function ui_pda_npc_tab.pda_npc_tab:Reset(info)
	self.form_text:Show(false)

	base_reset(self, info)

	if self.form_hack then
		self.form_hack:Show(false)
	end
	if self.hack_button then
		self.hack_button:Show(false)
	end
	if self.dark_overlay then
		self.dark_overlay:Show(false)
	end

	RemoveTimeEvent("pdahack", "setfail")
	RemoveTimeEvent("pdahack", "set_decrypt_bar")
	RemoveTimeEvent("pdahack", "unlockpda")

	if self.snd_skey and self.snd_skey:playing() then
		self.snd_skey:stop()
	end

	local pda_sec = db.actor:active_item() and db.actor:active_item():section()
	if not pda_sec then return end

	if not (self.state == "encrypted") then return end

	self.pda_info = info

	if self.pda_info.attempted_hack then
		self.form_text:SetText(gc("ui_st_npc_pda_access_denied") .. "\\n\\n" .. gc("ui_st_pdahacking_failed"))
		return
	end
	self.form_text:SetText(gc("ui_st_npc_pda_access_denied"))

	local best_hack_device = { ["section"] = nil, ["commands"] = 0, ["scripts"] = 0, ["extracts"] = 0}
	db.actor:iterate_inventory(function(npc, item)
		local sec = item:section()
		local cmd_points = SYS_GetParam(2, sec, "command_points", 0)
		if cmd_points > best_hack_device.commands then
			best_hack_device.section = sec
			best_hack_device.commands = cmd_points
			best_hack_device.scripts = SYS_GetParam(2, sec, "initial_scripts", 0)
			best_hack_device.extracts = SYS_GetParam(2, sec, "currency_extracts", 0)
		end
	end)
	if best_hack_device.commands == 0 then return end

	self.snd_unlock = xr_sound.get_safe_sound_object( "pda_hacking\\unlocked" )
	self.snd_failed = xr_sound.get_safe_sound_object( "pda_hacking\\failed" )
	self.snd_skey = xr_sound.get_safe_sound_object( "pda_hacking\\normal_hacking_sound" )

	self.hack_button = self.hack_button or xml:Init3tButton("form:hack_button", self)
	self:Register(self.hack_button, "hack_button")
	self:AddCallback("hack_button", ui_events.BUTTON_CLICKED, self.Start_Hack, self)
	self.hack_button:Show(true)

	self.cmds_remaining = best_hack_device.commands --20 + (faction_encyption[info.contact.comm] / 5)
	local encryption = faction_encyption[self.pda_info.contact.comm]
	local rarity_mult = pda_rarity_encryption_mult[pda_sec] or 1
	self.encryption_strength_base = clamp(round_idp(encryption * rarity_mult, 1), 0, 100)
	self.encryption_strength = self.encryption_strength_base
	self.encryption_strength_visual = self.encryption_strength_base
	self.data_decrypted = 0
	self.data_decrypted_target = 0
	self.scripts_to_add = 0
	self.extracts_remaining = best_hack_device.extracts - (self.pda_info.extracts_used or 0)
	self.skey_unlock = false

	self.form_hack = self.form_hack or xml:InitStatic("form", self)
	self.form_hack.border = self.form_hack.border or xml:InitFrame("form:border", self.form_hack)

	self.cmd_wnd = self.cmd_wnd or xml:InitStatic("form:cmd_wnd", self.form_hack)
	self.cmd_wnd.title = self.cmd_wnd.title or xml:InitTextWnd("form:cmd_wnd:title", self.cmd_wnd)
	self.cmd_wnd.title:SetFont(get_font("large"))
	self.cmd_wnd.icon = self.cmd_wnd.icon or xml:InitStatic("form:cmd_wnd:icon", self.cmd_wnd)
	self.cmd_wnd.number = self.cmd_wnd.number or xml:InitTextWnd("form:cmd_wnd:number", self.cmd_wnd)
	self.cmd_wnd.number:SetText(self.cmds_remaining)
	self.cmd_wnd.number:SetFont(get_font("huge"))

	self.cmd_wnd.cost_line = self.cmd_wnd.cost_line or xml:InitStatic("form:cmd_wnd:cost_line", self.cmd_wnd)
	self.cmd_wnd.cost_line.cost_text = self.cmd_wnd.cost_line.cost_text or xml:InitStatic("form:cmd_wnd:cost_line:cost_text", self.cmd_wnd.cost_line)
	self.cmd_wnd.cost_line.icon = self.cmd_wnd.cost_line.icon or xml:InitStatic("form:cmd_wnd:cost_line:icon", self.cmd_wnd.cost_line)
	self.cmd_wnd.cost_line.cost = self.cmd_wnd.cost_line.cost or xml:InitStatic("form:cmd_wnd:cost_line:cost", self.cmd_wnd.cost_line)
	self.cmd_wnd.cost_line.cost_text:TextControl():SetFont(get_font("large"))
	self.cmd_wnd.cost_line.cost:TextControl():SetFont(get_font("large"))

	self.script_wnd = self.script_wnd or xml:InitStatic("form:script_wnd", self.form_hack)
	self.script_wnd.title = self.script_wnd.title or xml:InitStatic("form:script_wnd:title", self.script_wnd)
	self.script_wnd.title:TextControl():SetFont(get_font("large"))
	self.script_wnd.scriptname = self.script_wnd.scriptname or xml:InitTextWnd("form:script_wnd:scriptname", self.script_wnd)
	self.script_wnd.scriptname:SetFont(get_font("large"))
	self.script_wnd.powertxt = self.script_wnd.powertxt or xml:InitStatic("form:script_wnd:powertxt", self.script_wnd)
	self.script_wnd.powertxt:TextControl():SetFont(get_font("large"))
	self.script_wnd.powernumber = self.script_wnd.powernumber or xml:InitStatic("form:script_wnd:powernumber", self.script_wnd)
	self.script_wnd.powernumber:TextControl():SetFont(get_font("large"))
	self.script_wnd:Show(false)

	self.script_list_wnd = self.script_list_wnd or xml:InitStatic("form:script_list_wnd", self.form_hack)
	self.script_list_wnd.title = self.script_list_wnd.title or xml:InitStatic("form:script_list_wnd:title", self.script_list_wnd)
	self.script_list_wnd.title:TextControl():SetFont(get_font("large"))
	self.hack_script_list = self.hack_script_list or xml:InitListBox("form:script_list_wnd:list", self.script_list_wnd)
	self:Register(self.hack_script_list, "hack_script_list")
	self:AddCallback("hack_script_list",ui_events.LIST_ITEM_CLICKED,self.OnSelectScript,self)
	self.hack_script_list:RemoveAll()

	self.cmd_list_wnd = self.cmd_list_wnd or xml:InitStatic("form:cmd_list_wnd", self.form_hack)
	self.cmd_list_wnd.title = self.cmd_list_wnd.title or xml:InitStatic("form:cmd_list_wnd:title", self.cmd_list_wnd)
	self.cmd_list_wnd.title:TextControl():SetFont(get_font("large"))
	self.command_list = self.command_list or xml:InitListBox("form:cmd_list_wnd:list", self.cmd_list_wnd)
	self:Register(self.command_list, "command_list")
	self:AddCallback("command_list",ui_events.LIST_ITEM_CLICKED,self.OnSelectCommand,self)
	self.command_list:RemoveAll()
	self.cmd_list_wnd:Show(false)

	self.terminal_form = self.terminal_form or xml:InitStatic("form:terminal_wnd", self.form_hack)
	self.terminal = self.terminal or xml:InitStatic("form:terminal_wnd:terminal", self.terminal_form)
	self.terminal.prompt_wnd = self.terminal.prompt_wnd or xml:InitTextWnd("form:terminal_wnd:terminal:prompt_wnd", self.terminal)
	self.terminal.prompt_wnd:SetFont(get_font("medium"))
	self.terminal.prompt_wnd:SetEllipsis(true)

	self.terminal.text_wnd = self.terminal.text_wnd or xml:InitTextWnd("form:terminal_wnd:terminal:text_wnd", nil)
	self.terminal.text_wnd:SetFont(get_font("medium"))
	self.terminal.text_wnd:SetText(gc("ui_st_pdahacking_welcome"))
	if not self.terminal_scroll then
		self.terminal_scroll = xml:InitScrollView("form:terminal_wnd:terminal:terminal_scroll", self.terminal)
		self.terminal_scroll:AddWindow(self.terminal.text_wnd, true)
		self.terminal.text_wnd:SetAutoDelete(false)
	end

	self.decrypt_wnd = self.decrypt_wnd or xml:InitStatic("form:decrypt_wnd", self.form_hack)
	self.decrypt_wnd.bg = self.decrypt_wnd.bg or xml:InitStatic("form:decrypt_wnd:prog_back", self.decrypt_wnd)
	self.decrypt_wnd.bar = self.decrypt_wnd.bar or xml:InitProgressBar("form:decrypt_wnd:decrypt_bar", self.decrypt_wnd)
	self.decrypt_wnd.bar:SetProgressPos( 0 )

	self.decrypt_wnd.title = self.decrypt_wnd.title or xml:InitStatic("form:decrypt_wnd:title", self.decrypt_wnd)
	self.decrypt_wnd.title:TextControl():SetFont(get_font("large"))
	self.decrypt_wnd.encr_str = self.decrypt_wnd.encr_str or xml:InitStatic("form:decrypt_wnd:encr_str", self.decrypt_wnd)
	self.decrypt_wnd.encr_str.icon = self.decrypt_wnd.encr_str.icon or xml:InitStatic("form:decrypt_wnd:encr_str:icon", self.decrypt_wnd.encr_str)
	self.decrypt_wnd.encr_str.pct = self.decrypt_wnd.encr_str.pct or xml:InitTextWnd("form:decrypt_wnd:encr_str:str_pct", self.decrypt_wnd.encr_str)
	self.decrypt_wnd.encr_str.pct:SetText( self.encryption_strength .. "%")
	self.decrypt_wnd.encr_str.pct:SetFont(get_font("large"))

	self.decrypt_wnd.rarity_title = self.decrypt_wnd.rarity_title or xml:InitStatic("form:decrypt_wnd:rarity_title", self.decrypt_wnd)
	self.decrypt_wnd.rarity_title:TextControl():SetFont(get_font("large"))
	self.decrypt_wnd.rarity_title:TextControl():SetText( gc("actor_" .. self.pda_info.contact.comm) .. ", " .. gc("st_pdahacking_rarity_" .. pda_sec) .. " " .. gc("st_pda_name"))

	self.decrypt_wnd.decrypted = self.decrypt_wnd.decrypted or xml:InitStatic("form:decrypt_wnd:decrypted", self.decrypt_wnd)
	self.decrypt_wnd.decrypted.title = self.decrypt_wnd.decrypted.title or xml:InitStatic("form:decrypt_wnd:decrypted:title", self.decrypt_wnd.decrypted)
	self.decrypt_wnd.decrypted.title:TextControl():SetFont(get_font("large"))
	self.decrypt_wnd.decrypted.pct_bg = self.decrypt_wnd.decrypted.pct_bg or xml:InitStatic("form:decrypt_wnd:decrypted:pct_bg", self.decrypt_wnd.decrypted)
	self.decrypt_wnd.decrypted.pct_bg:TextControl():SetFont(get_font("huge"))
	self.decrypt_wnd.decrypted.pct_bg:TextControl():SetText( round_idp(self.data_decrypted, 1) .. "%")

	self.dark_overlay = self.dark_overlay or xml:InitStatic("dark_overlay", self)
	self.dark_overlay.status_title = self.dark_overlay.status_title or xml:InitStatic("dark_overlay:status_title", self.dark_overlay)
	self.dark_overlay.status_title:TextControl():SetFont(get_font("huge"))
	self.dark_overlay:Show(false)

	self.form_hack:Show(false)

	-- Build table of scripts from Anomaly install. Includes both vanilla and mod scripts
	script_table = {}
	local temp_script_t = {} -- keep track of duplicates
	for k, v in pairs(_G) do
		if type(_G[k]) == "table" then
			local script_name = k:gsub("_mcm", "")
			script_name = script_name:gsub("^(z+_)+", "")
			--script_name = script_name:gsub("^z+_", "")

			if not temp_script_t[script_name] and script_name:len() >= 3 then
				temp_script_t[script_name] = true
				script_table[#script_table+1] = script_name
			end
		end
	end

	self:Generate_Scripts(best_hack_device.scripts)
end

base_update = ui_pda_npc_tab.pda_npc_tab.Update
function ui_pda_npc_tab.pda_npc_tab:Update()
	base_update(self)

	if not (self.form_hack and self.form_hack:IsShown()) then return end

	if self.skey_unlock and self.dark_overlay.status_title:IsShown() then
		local time = get_time_elapsed()
		if round(time * 3) % 3 == 0 then
			if round(time * 50) % 5 == 0 then
				local scrambled_title = scramble_string(self.skey_title)
				self.dark_overlay.status_title:TextControl():SetText(scrambled_title)
				--self.dark_overlay.status_title:TextControl():SetTextColor(GetARGB(255, 0, 0, 0))
			end
		else
			self.dark_overlay.status_title:TextControl():SetText(self.skey_title)
			--self.dark_overlay.status_title:TextControl():SetTextColor(GetARGB(255, 55, 55, 55))
		end
	end

	local prompt_set = false
	if self.command_list then
		for i = 0, self.command_list:GetSize() do
			local item = self.command_list:GetItemByIndex(i)
			if item and item.name == "SkeletonKey" and round(get_time_elapsed() * 55) % 5 == 0 then
				item.str_title:SetText(scramble_string(gc("ui_st_pdahacking_skey") .. "#&$"))
			end
			if item and item:IsCursorOverWindow() then
				if item.name == "SkeletonKey" then
					if round(get_time_elapsed() * 50) % 5 == 0 then
						self.terminal.prompt_wnd:SetText(gc("ui_st_pdahacking_preprompt") .. parse_keys(gc("ui_st_pdahacking_run"),{ ["name"] = scramble_string(gc("ui_st_pdahacking_skey"))}))
					end
					prompt_set = true
				else
					self.terminal.prompt_wnd:SetText(gc("ui_st_pdahacking_preprompt") .. parse_keys(gc("ui_st_pdahacking_run"),{ ["name"] = gc("ui_st_pdahacking_" .. name_key[item.name])}))
					prompt_set = true
				end
			end
		end
	end

	if self.terminal and self.terminal.prompt_wnd and not prompt_set then
		local mod = round(get_time_elapsed() * 4) % 4
		if mod == 0 or mod == 2 then
			self.terminal.prompt_wnd:SetText(gc("ui_st_pdahacking_preprompt"))
		else
			self.terminal.prompt_wnd:SetText(gc("ui_st_pdahacking_preprompt_us"))
		end
	end

	if self.hack_script_list then
		for i = 0, self.hack_script_list:GetSize() do
			local item = self.hack_script_list:GetItemByIndex(i)
			if item and item:IsCursorOverWindow() then
				self.terminal.prompt_wnd:SetText(gc("ui_st_pdahacking_preprompt") .. parse_keys(gc("ui_st_pdahacking_load"),{ ["script"] = item.name}))
			end
		end
	end
end

ui_pda_npc_tab.pda_npc_tab.OnSelectScript = function(self)
	if self.data_decrypted_target >= 100 then return end
	if self.scripts_to_add > 0 then return end
	if self.loaded_script and self.loaded_script.name == self.hack_script_list:GetSelectedItem().name then return end
	if self.cmds_remaining <= 0 then return end

	self.command_list:RemoveAll()

	if self.loaded_script then
		self.loaded_script.str_title:SetTextColor(GetARGB(255, 255, 255, 255))
	end
	self.loaded_script = self.hack_script_list:GetSelectedItem()
	self.loaded_script.str_title:SetTextColor(colors_argb.rescan)

	self.script_wnd.scriptname:SetText(self.loaded_script.name .. ".script")
	self.script_wnd.powernumber:TextControl():SetText(self.loaded_script.power)
	self.script_wnd:Show(true)

	local total_power = self.loaded_script.power

	math.randomseed( self.loaded_script.seed )

	if math.random() <= 0.40 then
		self.command_list:AddExistingItem(command_entry("CommandUp", total_power))
	end
	if math.random() <= 0.40 then
		self.command_list:AddExistingItem(command_entry("Re-Scan", total_power))
	end
	if math.random() <= 0.40 then
		self.command_list:AddExistingItem(command_entry("BruteForce", total_power))
	end
	if math.random() <= 0.40 and self.encryption_strength > 0 then
		self.command_list:AddExistingItem(command_entry("Nuke", total_power, self.encryption_strength))
	end
	if math.random() <= 0.01 then -- 0.01
		self.command_list:AddExistingItem(command_entry("SkeletonKey", total_power))
	end
	if math.random() <= 0.40 or self.command_list:GetSize() == 0 then
		self.command_list:AddExistingItem(command_entry("Decrypt", total_power, self.encryption_strength))
	end
	if math.random() <= 0.10 and self.extracts_remaining > 0 and settings.extract_reward_mult > 0 then
		self.command_list:AddExistingItem(command_entry("Extract", total_power, self.encryption_strength, self.encryption_strength_base))
	end

	self.cmd_list_wnd:Show(true)

	self:Change_Commands(-1)

	local text = parse_keys(gc("ui_st_pdahacking_loaded"), {["script"] = self.loaded_script.name})
	self:Write_Terminal(text)
end

ui_pda_npc_tab.pda_npc_tab.OnSelectCommand = function(self)
	if self.data_decrypted_target >= 100 then return end
	local item = self.command_list:GetSelectedItem()
	if item.name ~= "CommandUp" and self.cmds_remaining <= 0 then return end

	if item.name == "Nuke" then
		local nuke_effect = get_nuke_effect(item.power, self.encryption_strength)
		self:Change_Encryption(nuke_effect)
		self.hack_script_list:RemoveItem(self.loaded_script)

		local effect_str = "%" .. colors_str.nuke .. "-" .. round_idp(nuke_effect, 1) .. "%%%" .. colors_str.terminal
		self:Write_Terminal(parse_keys(gc("ui_st_pdahacking_running"), {["name"] = gc("ui_st_pdahacking_" .. name_key[item.name]), ["effect"] = effect_str}))
	elseif item.name == "Decrypt" then
		local decrypt_effect = get_decrypt_effect(item.power, self.encryption_strength)
		if decrypt_effect <= 0 then return end
		self:Set_Data_Decrypted(self.data_decrypted + decrypt_effect)
		self.hack_script_list:RemoveItem(self.loaded_script)

		local effect_str = "%" .. colors_str.decrypt .. "+" .. round_idp(decrypt_effect, 1) .. "%%%" .. colors_str.terminal
		self:Write_Terminal(parse_keys(gc("ui_st_pdahacking_running"), {["name"] = gc("ui_st_pdahacking_" .. name_key[item.name]), ["effect"] = effect_str}))
	elseif item.name == "Re-Scan" then
		self.hack_script_list:RemoveItem(self.loaded_script)
		local gen_count = get_rescan_count(item.power)
		self:Generate_Scripts(gen_count)
		self.hack_script_list:Show(true)

		local effect_str = "%" .. colors_str.rescan .. "+" .. gen_count .. "%" .. colors_str.terminal
		self:Write_Terminal(parse_keys(gc("ui_st_pdahacking_running"), {["name"] = gc("ui_st_pdahacking_" .. name_key[item.name]), ["effect"] = effect_str}))
	elseif item.name == "CommandUp" then
		local cmd_bonus = get_command_up(item.power)
		self:Change_Commands(cmd_bonus)
		self.hack_script_list:RemoveItem(self.loaded_script)

		local effect_str = "%" .. colors_str.cmdup .. "+" .. cmd_bonus .. "%" .. colors_str.terminal
		self:Write_Terminal(parse_keys(gc("ui_st_pdahacking_running"), {["name"] = gc("ui_st_pdahacking_" .. name_key[item.name]), ["effect"] = effect_str}))
	elseif item.name =="BruteForce" then
		local chance = get_brute_chance(item.power)

		local effect_str = "%" .. colors_str.bruteforce .. round_idp(chance, 1) .. "%%%" .. colors_str.terminal
		local text = parse_keys(gc("ui_st_pdahacking_running"), {["name"] = gc("ui_st_pdahacking_" .. name_key[item.name]), ["effect"] = effect_str})

		if chance > (math.random() * 100) then
			self:Set_Data_Decrypted(100)
			text = text .. "... " .. colors_str.decrypt .. gc("ui_st_pdahacking_bruteforce_success")
		else
			text = text .. "... " .. colors_str.failed .. gc("ui_st_pdahacking_bruteforce_fail")
		end
		self:Write_Terminal(text)
		self.hack_script_list:RemoveItem(self.loaded_script)
	elseif item.name == "Extract" then
		local extracted_ru = get_extract_money(item.power, self.encryption_strength_base)
		db.actor:give_money(extracted_ru)
		local header = gc("ui_st_pdahacking_extract_header")
		local msg = parse_keys(gc("ui_st_pdahacking_extract_msg"), { ["income"] = extracted_ru })
		xr_sound.set_sound_play(AC_ID, "pda_tips")
		db.actor:give_game_news(header, msg, "ui_inGame2_PD_Sostoyatelniy_klient", 0, 5000)

		self.extracts_remaining = self.extracts_remaining - 1
		self.pda_info.extracts_used = self.pda_info.extracts_used and (self.pda_info.extracts_used + 1) or 1
		self.hack_script_list:RemoveItem(self.loaded_script)

		local effect_str = "%" .. colors_str.extract .. "+" .. gc("ui_st_pdahacking_ruble") .. extracted_ru .. "%" .. colors_str.terminal
		self:Write_Terminal(parse_keys(gc("ui_st_pdahacking_running"), {["name"] = gc("ui_st_pdahacking_" .. name_key[item.name]), ["effect"] = effect_str}))
	elseif item.name == "SkeletonKey" then
		self:Set_Data_Decrypted(100)
		self.skey_unlock = true

		if self.snd_skey and settings.soundfx_volume > 0 then
			self.snd_skey.volume = 1 * settings.soundfx_volume
			self.snd_skey:play(db.actor, 0, sound_object.s2d)
		end

		self.dark_overlay:Show(true)
		self.dark_overlay.status_title:Show(false)
		local skey_used_before = load_var(db.actor, "pdahack_skeys_used", 0)
		local str_index = skey_used_before
		if str_index >= 7 then
			str_index = str_index % 7
		end
		self.skey_title = gc("ui_st_pdahacking_skey_" .. str_index)
		save_var(db.actor, "pdahack_skeys_used", skey_used_before + 1)

		CreateTimeEvent("pdahack", "show_skey_status", 1, function()
			local h = hit()
			h.type = hit.telepatic
			h.power = 0.2
			h.impulse = 1
			h.direction = VEC_Z
			h.draftsman = db.actor
			db.actor:hit(h)

			self.dark_overlay.status_title:TextControl():SetTextColor(GetARGB(255, 0, 0, 0))
			--self.dark_overlay.status_title:TextControl():SetTextColor(GetARGB(255, 55, 55, 55))
			self.dark_overlay.status_title:TextControl():SetText(self.skey_title)
			self.dark_overlay.status_title:Show(true)
			return true
		end)
	end

	self.loaded_script = nil
	self.command_list:RemoveAll()
	if not (item.name == "CommandUp") then
		self:Change_Commands(-1)
	end
	self.cmd_list_wnd:Show(false)
	self.script_wnd:Show(false)

--[[ 	pr("scroll pos " .. self.hack_script_list:GetCurrentScrollPos())
	if self.hack_script_list:GetSize() * 27 > self.hack_script_list:GetCurrentScrollPos() then
		self.hack_script_list:ScrollToEnd()
	end ]]

	if self.hack_script_list:GetSize() == 0 and self.data_decrypted_target < 100 and self.scripts_to_add <= 0 then
		self:HackFailed()
	end
end

function ui_pda_npc_tab.pda_npc_tab:Start_Hack()
	self.form_text:Show(false)
	self.hack_button:Show(false)
	self.form_hack:Show(true)
	self.hack_script_list:Show(true)
	self.pda_info.attempted_hack = true
end

function ui_pda_npc_tab.pda_npc_tab:Change_Commands(change)
	if change < 0 then
		self.cmd_wnd.number:SetText(self.cmds_remaining .. " -1")
		self.cmds_remaining = self.cmds_remaining + change
		CreateTimeEvent("pdahack", "set_cmd_text", 0.4, function()
			self.cmd_wnd.number:SetText(self.cmds_remaining)
			return true
		end)

		local cmd_up_in_list = false
		for i = 0, self.command_list:GetSize() do
			local cmd_item = self.command_list:GetItemByIndex(i)
			if cmd_item and cmd_item.name == "CommandUp" then
				cmd_up_in_list = true
				break
			end
		end
		if self.cmds_remaining <= 0 and self.data_decrypted_target < 100 and not cmd_up_in_list then
			self:HackFailed()
		end
	elseif change > 0 then
		self.cmd_wnd.number:SetText(self.cmds_remaining .. " +" .. change)
		self.cmds_remaining = self.cmds_remaining + change
		CreateTimeEvent("pdahack", "set_cmd_text", 0.4, function()
			self.cmd_wnd.number:SetText(self.cmds_remaining)
			return true
		end)
	end
end

function ui_pda_npc_tab.pda_npc_tab:HackFailed()
	self.script_wnd:Show(false)
	self.hack_script_list:Show(false)
	self.cmd_list_wnd:Show(false)
	self.hack_button:Show(false)
	self.form_text:SetText(gc("ui_st_npc_pda_access_denied") .. "\\n\\n" .. gc("ui_st_pdahacking_failed"))

	CreateTimeEvent("pdahack", "darkoverlay", 1, function() 
		if self.snd_failed and settings.soundfx_volume > 0 then
			self.snd_failed.volume = 0.8 * settings.soundfx_volume
			self.snd_failed:play(db.actor, 0, sound_object.s2d)
		end

		self.dark_overlay:Show(true)
		self.dark_overlay.status_title:TextControl():SetTextColor(colors_argb.failed)
		if self.cmds_remaining <= 0 then
			self.dark_overlay.status_title:TextControl():SetText(gc("ui_st_pdahacking_outof_cmd"))
		else
			self.dark_overlay.status_title:TextControl():SetText(gc("ui_st_pdahacking_outof_scripts"))
		end
		return true
	end)

	CreateTimeEvent("pdahack", "setfail", 4, function() 
		self:Reset(self.pda_info)
	end)
end

function ui_pda_npc_tab.pda_npc_tab:Write_Terminal(text)
	self.terminal_scroll:RemoveWindow(self.terminal.text_wnd)
	self.terminal_scroll:Clear()

	local console_text = self.terminal.text_wnd:GetText()
	console_text = console_text .. "\\n" .. colors_str.terminal .. text
	self.terminal.text_wnd:SetText(console_text)

	local scroll_height = self.terminal_scroll:GetHeight()
	self.terminal.text_wnd:AdjustHeightToText()
	local term_text_height = self.terminal.text_wnd:GetHeight()

	if term_text_height < scroll_height then
		local width = self.terminal.text_wnd:GetWidth()
		self.terminal.text_wnd:SetWndSize(vector2():set(width, scroll_height))
	end

	self.terminal_scroll:AddWindow(self.terminal.text_wnd, true)
	self.terminal.text_wnd:SetAutoDelete(false)
	self.terminal_scroll:ScrollToEnd()
end

function lerpup(start, target, step)
	return start + step >= target and target or start + step
end

function ui_pda_npc_tab.pda_npc_tab:Set_Data_Decrypted(data)
	self.data_decrypted_target = clamp(data, self.data_decrypted_target, 100)
	if self.data_decrypted_target == 100 then
		self.script_wnd:Show(false)
		self.hack_script_list:Show(false)
		self.pda_info.state = "default"
	end

	CreateTimeEvent("pdahack", "set_decrypt_bar", 0, function()
		self.data_decrypted	= lerpup(self.data_decrypted, self.data_decrypted_target, 0.75)
		self.decrypt_wnd.bar:SetProgressPos( self.data_decrypted )
		self.decrypt_wnd.decrypted.pct_bg:TextControl():SetText( round_idp(self.data_decrypted, 1) .. "%")

		if self.data_decrypted >= 100 then
			if not self.skey_unlock then
				self.dark_overlay:Show(true)
				self.dark_overlay.status_title:TextControl():SetText(gc("ui_st_pdahacking_unlocked"))
				self.dark_overlay.status_title:TextControl():SetTextColor(colors_argb.decrypt)
	
				if self.snd_unlock and settings.soundfx_volume > 0 then
					self.snd_unlock.volume = 1 * settings.soundfx_volume
					self.snd_unlock:play(db.actor, 0, sound_object.s2d)
				end
			end
	
			local unlock_delay = self.skey_unlock and 5 or 3
	
			CreateTimeEvent("pdahack", "unlockpda", unlock_delay, function()
				self:Reset(self.pda_info)
			end)
			return true
		elseif self.data_decrypted >= self.data_decrypted_target then
			return true
		end
	end)
end

function lerpdown(start, target, step)
	return start - step <= target and target or start - step
end

function ui_pda_npc_tab.pda_npc_tab:Change_Encryption(change)
	self.encryption_strength = self.encryption_strength - change

	CreateTimeEvent("pdahack", "set_encrypt", 0, function() 
		self.encryption_strength_visual = lerpdown(self.encryption_strength_visual, self.encryption_strength, 0.1)
		self.decrypt_wnd.encr_str.pct:SetText( round_idp(self.encryption_strength_visual, 1) .. "%")
		if self.encryption_strength_visual <= self.encryption_strength then
			return true
		end
	end)
end

function ui_pda_npc_tab.pda_npc_tab:Generate_Scripts(count)
	self.scripts_to_add = self.scripts_to_add + count
	CreateTimeEvent("pdahack", "genscript", 0.1, function()
		local index = math.random(#script_table)

		local script_name = script_table[index]
		table.remove(script_table, index)

		local seed = get_seed_from_string(script_name)
		math.randomseed( seed )
		local rnd = math.random()
		local min_power = settings.script_power_min --25
		local max_power = clamp(settings.script_power_max, min_power, settings.script_power_max) --100
		local power = (rnd * (max_power - min_power)) + min_power
		power = round(power)

		local item = script_message_entry(script_name, power, seed)
		self.hack_script_list:AddExistingItem(item)

		self.scripts_to_add = self.scripts_to_add - 1
		if self.scripts_to_add <= 0 then return true end
		ResetTimeEvent("pdahack", "genscript", 0.1)
	end)
end

function get_time_elapsed()
    return (game.get_game_time():diffSec(level.get_start_time()) /level.get_time_factor())
end

function get_seed_from_string(string)
	local seed = 0
	for i = 1, string:len() do
		seed = seed + string.byte(string, i)
	end
	return seed
end

function scramble_string(str)
	local letters = {}
	for letter in str:gmatch'.[\128-\191]*' do
	   table.insert(letters, {letter = letter, rnd = math.random()})
	end
	table.sort(letters, function(a, b) return a.rnd < b.rnd end)
	for i, v in ipairs(letters) do letters[i] = v.letter end
	return table.concat(letters)
 end

-- HACK FORMULAS
function get_nuke_effect(power, encryption_strength)
	return encryption_strength * (power * 0.2 / 100)
end

function get_decrypt_effect(power, encryption_strength)
	return power * 0.30 * (1 - (encryption_strength / 100))
end

function get_brute_chance(power)
	return (power / 8)
end

function get_command_up(power)
	return math.floor(power / 12) + 1
end

function get_rescan_count(power)
	return math.floor(power / 20) + 1
end

function get_extract_money(power, base_encryption_strength)
	return math.ceil(power * 0.2 * clamp(base_encryption_strength, 20, 100)) * settings.extract_reward_mult
end

-- GUI
class "script_message_entry" (CUIListBoxItem)

function script_message_entry:__init(name, power, seed) super(name, power, seed)
	self:GetTextItem():SetText("")
	
	self.name = name
	self.power = power
	self.seed = seed
	math.randomseed( seed + 1 )
	self.hidden_power = math.random(0, 75)

	local total_w = 155
	local padding_h = 3
	local padding_w = padding_h * 0.75
	local target_h = 30 - padding_h

	local icon_h = target_h - (padding_h * 2)
	local icon_w = icon_h --[[ * 0.75 ]]

	self.background = self:AddIconField(1)
	self.background:InitTexture("ui_pdahack_bg_list")
	self.background:SetStretchTexture(true)
	self.background:SetTextureColor(GetARGB(60, 255, 255, 255))
	self.background:SetWndPos(vector2():set(0, padding_h))
	self.background:SetWndSize(vector2():set(total_w, target_h))

	self.icon = self:AddIconField(1)
	self.icon:InitTexture("ui_pdahack_icon_script")
	self.icon:SetStretchTexture(true)
	self.icon:SetTextureColor(colors_argb.rescan)
	self.icon:SetWndPos(vector2():set(padding_w, padding_h * 2))
	self.icon:SetWndSize(vector2():set(icon_w, icon_h))

	self.str_title = self:AddTextField("",1)
	self.str_title:SetWndPos(vector2():set(icon_w + padding_w * 2, padding_h))
	self.str_title:SetWndSize(vector2():set(total_w - (padding_w * 2) - icon_w, target_h))
	self.str_title:SetTextColor(GetARGB(255, 255, 255, 255))
	self.str_title:SetFont(get_font("large"))
	self.str_title:SetEllipsis(true)
	self.str_title:SetTextAlignment(0)
	self.str_title:SetVTextAlignment(2)
	self.str_title:SetText(self.name .. ".script")

	self.power_nr_bg = self:AddIconField(1)
	self.power_nr_bg:InitTexture("ui_pdahack_bg_list")
	self.power_nr_bg:SetStretchTexture(true)
	self.power_nr_bg:SetTextureColor(GetARGB(120, 0, 0, 0))
	self.power_nr_bg:SetWndPos(vector2():set(total_w + padding_w, padding_h))
	self.power_nr_bg:SetWndSize(vector2():set(25 - padding_w, target_h))

	self.power_nr = self:AddTextField("",1)
	self.power_nr:SetWndPos(vector2():set(total_w, padding_h + 1))
	self.power_nr:SetWndSize(vector2():set(25, target_h))
	self.power_nr:SetTextColor(colors_argb.decrypt)
	self.power_nr:SetFont(get_font("large"))
	self.power_nr:SetTextAlignment(2)
	self.power_nr:SetVTextAlignment(2)
	self.power_nr:SetText(self.power)
end

class "command_entry" (CUIListBoxItem)

function command_entry:__init(name, power, encrypt_strength, base_encr_str) super(name, power, encrypt_strength, base_encr_str)
	self:GetTextItem():SetText("")
	
	self.name = name
	self.power = power

	local total_w = 154
	local padding_h = 3
	local padding_w = padding_h * 0.75
	local target_h = 30 - padding_h

	local icon_h = target_h - (padding_h * 2)
	local icon_w = icon_h --[[ * 0.75 ]]

	self.background = self:AddIconField(1)
	self.background:InitTexture("ui_pdahack_bg_list")
	self.background:SetStretchTexture(true)
	self.background:SetTextureColor(GetARGB(60, 255, 255, 255))
	self.background:SetWndSize(vector2():set(total_w, target_h))
	self.background:SetWndPos(vector2():set(0, padding_h))

	self.icon_hack = self:AddIconField(1)
	self.icon_hack:InitTexture("ui_pdahack_icon_hack")
	self.icon_hack:SetStretchTexture(true)
	self.icon_hack:SetTextureColor(GetARGB(255, 191, 191, 191))
	self.icon_hack:SetWndSize(vector2():set(icon_w, icon_h))
	self.icon_hack:SetWndPos(vector2():set(padding_w, padding_h * 2))

	self.str_title = self:AddTextField("",1)
	self.str_title:SetWndRect(Frect():set(icon_w + padding_w * 2, padding_h, total_w - padding_w * 2 - icon_w, target_h))
	self.str_title:SetTextColor(GetARGB(255, 255, 255, 255))
	self.str_title:SetFont(get_font("large"))
	self.str_title:SetWndSize(vector2():set(total_w - padding_w * 2 - icon_w, target_h))
	self.str_title:SetEllipsis(true)
	self.str_title:SetTextAlignment(0)
	self.str_title:SetVTextAlignment(2)
	self.str_title:SetText( gc("ui_st_pdahacking_" .. name_key[name]) )

	self.bonus_text = self:AddTextField("",1)
	self.bonus_text:SetWndPos(vector2():set(total_w * 0.65 + target_h * 0.5 * 0.75, padding_h))
	self.bonus_text:SetWndSize(vector2():set(total_w * 0.35 - target_h * 0.5 * 0.75, target_h))
	self.bonus_text:SetFont(get_font("large"))
	self.bonus_text:SetTextAlignment(2)
	self.bonus_text:SetVTextAlignment(2)

	self.bonus_icon = self:AddIconField(1)
	self.bonus_icon:SetStretchTexture(true)
	self.bonus_icon:SetWndPos(vector2():set(total_w * 0.65, target_h * 0.25 + padding_h))
	self.bonus_icon:SetWndSize(vector2():set(target_h * 0.5 * 0.75, target_h * 0.5))

	if name == "Nuke" then
		self.bonus_text:SetText("-" .. round_idp(get_nuke_effect(power, encrypt_strength), 1) .. "%" )
		self.bonus_icon:InitTexture("ui_pdahack_icon_shield")
		self.bonus_text:SetTextColor(colors_argb.nuke)
		self.bonus_icon:SetTextureColor(colors_argb.nuke)
	elseif name == "Decrypt" then
		self.bonus_icon:Show(false)
		self.bonus_text:SetWndPos(vector2():set(total_w * 0.65, padding_h))
		self.bonus_text:SetWndSize(vector2():set(total_w * 0.35, target_h))
		self.bonus_text:SetTextAlignment(2)
		self.bonus_text:SetText("+" .. round_idp(get_decrypt_effect(power, encrypt_strength), 1) .. "%" )
		self.bonus_text:SetTextColor(colors_argb.decrypt)
	elseif name == "Re-Scan" then
		self.bonus_text:SetText("+" .. get_rescan_count(power) )
		self.bonus_icon:InitTexture("ui_pdahack_icon_script")
		self.bonus_icon:SetWndPos(vector2():set(total_w * 0.65 - (target_h / 16), target_h * 0.25 + padding_h))
		self.bonus_icon:SetWndSize(vector2():set(target_h * 0.5, target_h * 0.5))
		self.bonus_icon:SetTextureColor(colors_argb.rescan)
		self.bonus_text:SetTextColor(colors_argb.rescan)
	elseif name == "CommandUp" then
		self.bonus_text:SetText("+" .. get_command_up(power) )
		self.bonus_icon:InitTexture("ui_pdahack_icon_cmd")
		self.bonus_text:SetTextColor(colors_argb.cmdup)
		self.bonus_icon:SetTextureColor(colors_argb.cmdup)
	elseif name == "BruteForce" then
		self.bonus_text:SetText( round_idp(get_brute_chance(power), 1) .. "%" )
		self.bonus_icon:InitTexture("ui_pdahack_icon_dice")
		self.bonus_text:SetTextColor(colors_argb.bruteforce)
		self.bonus_icon:SetTextureColor(colors_argb.bruteforce)
	elseif name == "SkeletonKey" then
		self.bonus_text:Show(false)
		self.str_title:SetText(scramble_string(gc("ui_st_pdahacking_skey") .. "#&$"))
		self.str_title:SetTextColor(colors_argb.skey)
		self.icon_hack:SetTextureColor(colors_argb.skey)
	elseif name == "Extract" then
		self.bonus_text:SetFont(get_font("medium"))
		self.bonus_text:SetText("+" .. gc("ui_st_pdahacking_ruble") .. get_extract_money(power, base_encr_str) )
		self.bonus_icon:InitTexture("ui_pdahack_icon_money")
		self.bonus_text:SetTextColor(colors_argb.extract)
		self.bonus_icon:SetTextureColor(colors_argb.extract)
	end
end

fonts = {
	["high_res"] = {
		["medium"] = GetFontGraffiti22Russian(),
		["large"] = GetFontLetterica25(),
		["huge"] = GetFontGraffiti50Russian();
	},
	["normal_res"] = {
		["medium"] = GetFontLetterica18Russian(),
		["large"] = GetFontGraffiti22Russian(),
		["huge"] = GetFontLetterica25(),
	}
}

name_key = {
	["CommandUp"] = "cmdup",
	["Decrypt"] = "decrypt",
	["Re-Scan"] = "rescan",
	["Nuke"] = "nuke",
	["BruteForce"] = "bruteforce",
	["SkeletonKey"] = "skey",
	["Extract"] = "extract",
}

function get_font(font)
	pr( device().width .. "x" .. device().height)
	if device().height > 1080 and device().width > 1920 then
		return fonts["high_res"][font]
	else
		return fonts["normal_res"][font]
	end
end

-- Hack Device spawning
drop_table = {
	["pda_hack_usb_1"] = {
		["novice"] 			= 0.00,
		["trainee"] 		= 0.005,
		["experienced"] 	= 0.01,
		["professional"] 	= 0.01,
		["veteran"] 		= 0.005,
		["expert"] 			= 0.00,
		["master"] 			= 0.00,
		["legend"] 			= 0.00,
	},
	["pda_hack_usb_2"] = {
		["novice"] 			= 0.00,
		["trainee"] 		= 0.00,
		["experienced"] 	= 0.00,
		["professional"] 	= 0.005,
		["veteran"] 		= 0.01,
		["expert"] 			= 0.01,
		["master"] 			= 0.005,
		["legend"] 			= 0.00,
	},	
	["pda_hack_usb_3"] = {
		["novice"] 			= 0.00,
		["trainee"] 		= 0.00,
		["experienced"] 	= 0.00,
		["professional"] 	= 0.00,
		["veteran"] 		= 0.00,
		["expert"] 			= 0.005,
		["master"] 			= 0.01,
		["legend"] 			= 0.02,
	},
}

function npc_drop_hack_device(npc, npc_rank, npc_comm)
	for sec, rank_table in pairs(drop_table) do
		local chance = rank_table[npc_rank] * settings.hack_device_drop_mult
--[[ 		if debug and table[npc_rank] > 0 then
			chance = 1
		end ]]
		if (math.random() < chance) then
			alife_create_item(sec, npc, nil)
		end
	end
end

SpawnCosmetics = death_manager.spawn_cosmetics
function death_manager.spawn_cosmetics(npc, npc_id, npc_comm, npc_rank, visual, rand_condition)
    SpawnCosmetics(npc, npc_id, npc_comm, npc_rank, visual, rand_condition)
    npc_drop_hack_device(npc, npc_rank, npc_comm)
end

-- Lower hack device sell price
function on_get_item_cost(kind, obj, profile, calculated_cost, ret)
	if profile.mode == 1 and drop_table[obj:section()] then -- when selling
		ret.new_cost = math.floor((ret.new_cost or calculated_cost) * 0.25)
	end
end

-- MCM multipliers
if ui_pda_npc_tab.faction_encyption and ui_pda_npc_tab.stash_factor_per_pda then
	base_register_pda = ui_pda_npc_tab.register_pda
	function ui_pda_npc_tab.register_pda(npc, pda_sec, pda_id)
		local temp_encr_tbl = dup_table(ui_pda_npc_tab.faction_encyption)
		if settings.locked_chance_mult ~= 1 then
			for comm, encr in pairs(ui_pda_npc_tab.faction_encyption) do
				ui_pda_npc_tab.faction_encyption[comm] = encr * settings.locked_chance_mult
			end
		end

		local temp_stash_factor_tbl = dup_table(ui_pda_npc_tab.stash_factor_per_pda)
		if settings.stash_chance_mult ~= 1 then
			for sec, factor in pairs(ui_pda_npc_tab.stash_factor_per_pda) do
				ui_pda_npc_tab.stash_factor_per_pda[sec] = factor * settings.stash_chance_mult
			end
		end

		base_register_pda(npc, pda_sec, pda_id)
		ui_pda_npc_tab.faction_encyption = dup_table(temp_encr_tbl)
		ui_pda_npc_tab.stash_factor_per_pda = dup_table(temp_stash_factor_tbl)
	end
else
	printf("-PDA Hacking mod: Error modifying locked PDA/stash chance. Please update your Modded Exes")
end

-- MCM
function load_defaults()
	local t = {}
	local op = pda_hacking_mcm.op
	for i, v in ipairs(op.gr) do
		if v.def ~= nil then
			t[v.id] = v.def
		end
	end
	return t
end

settings = load_defaults()

function load_settings()
	settings = load_defaults()
	if ui_mcm then
		for k, v in pairs(settings) do
			settings[k] = ui_mcm.get("pda_hacking/" .. k)
		end
	end

	return settings
end

function on_game_start()
	RegisterScriptCallback("actor_on_first_update", load_settings)
	RegisterScriptCallback("on_option_change", load_settings)
	RegisterScriptCallback("on_get_item_cost", on_get_item_cost) 
end