--------------------------

-- Online Functions

--------------------------

--- @return boolean

function IS_IN_SESSION()

return util.is_session_started() and not util.is_session_transition_active()

end

--------------------------

-- Script Functions

--------------------------

--- @param script string

--- @return boolean

function IS_SCRIPT_RUNNING(script)

return SCRIPT.GET_NUMBER_OF_THREADS_RUNNING_THE_SCRIPT_WITH_THIS_HASH(util.joaat(script)) > 0

end

--- @param script string

--- @param stackSize integer

--- @return boolean

function START_SCRIPT(script, arg_count)

if not SCRIPT.DOES_SCRIPT_EXIST(script) then

return false

end

if IS_SCRIPT_RUNNING(script) then

return true

end

SCRIPT.REQUEST_SCRIPT(script)

while not SCRIPT.HAS_SCRIPT_LOADED(script) do

util.yield()

end

SYSTEM.START_NEW_SCRIPT(script, arg_count or 0)

SCRIPT.SET_SCRIPT_AS_NO_LONGER_NEEDED(script)

return true

end

--- @return boolean

function IS_MISSION_CONTROLLER_SCRIPT_RUNNING()

return IS_SCRIPT_RUNNING("fm_mission_controller") or IS_SCRIPT_RUNNING("fm_mission_controller_2020")

end

--- @return string|nil

function GET_RUNNING_MISSION_CONTROLLER_SCRIPT()

local script = "fm_mission_controller"

if IS_SCRIPT_RUNNING(script) then

return script

end

script = "fm_mission_controller_2020"

if IS_SCRIPT_RUNNING(script) then

return script

end

return nil

end

--- @param script string

--- @param func function

function SPOOF_SCRIPT(script, func)

if not IS_SCRIPT_RUNNING(script) then

return

end

if not util.request_script_host(script) then

return

end

util.yield()

util.spoof_script(script, function()

if not NETWORK.NETWORK_IS_HOST_OF_THIS_SCRIPT() then

return

end

func(script)

end)

end

--------------------------

-- Stat Functions

--------------------------

--- @param stat string

--- @return string

function ADD_MP_INDEX(stat)

local Exceptions = {

"MP_CHAR_STAT_RALLY_ANIM",

"MP_CHAR_ARMOUR_1_COUNT",

"MP_CHAR_ARMOUR_2_COUNT",

"MP_CHAR_ARMOUR_3_COUNT",

"MP_CHAR_ARMOUR_4_COUNT",

"MP_CHAR_ARMOUR_5_COUNT",

}

for _, exception in pairs(Exceptions) do

if stat == exception then

return "MP" .. util.get_char_slot() .. "_" .. stat

end

end

if stat:sub(1, 3) == "MP_" or stat:sub(1, 6) == "MPPLY_" then

return stat

end

return "MP" .. util.get_char_slot() .. "_" .. stat

end

--- @param stat string

--- @param value integer

function STAT_SET_INT(stat, value)

STATS.STAT_SET_INT(util.joaat(ADD_MP_INDEX(stat)), value, true)

end

--- @param stat string

--- @param value float

function STAT_SET_FLOAT(stat, value)

STATS.STAT_SET_FLOAT(util.joaat(ADD_MP_INDEX(stat)), value, true)

end

--- @param stat string

--- @param value boolean

function STAT_SET_BOOL(stat, value)

STATS.STAT_SET_BOOL(util.joaat(ADD_MP_INDEX(stat)), value, true)

end

--- @param stat string

--- @param value string

function STAT_SET_STRING(stat, value)

STATS.STAT_SET_STRING(util.joaat(ADD_MP_INDEX(stat)), value, true)

end

function STAT_SET_DATE(stat, year, month, day, hour, min)

local DatePTR = memory.alloc(8 * 7)

memory.write_int(DatePTR, year)

memory.write_int(DatePTR + 8, month)

memory.write_int(DatePTR + 16, day)

memory.write_int(DatePTR + 24, hour)

memory.write_int(DatePTR + 32, min)

memory.write_int(DatePTR + 40, 0) -- Seconds

memory.write_int(DatePTR + 48, 0) -- Milliseconds

STATS.STAT_SET_DATE(util.joaat(ADD_MP_INDEX(stat)), DatePTR, 7, true)

end

function STAT_INCREMENT(stat, value)

STATS.STAT_INCREMENT(util.joaat(ADD_MP_INDEX(stat)), value, true)

end

--- @param stat string

--- @return integer

function STAT_GET_INT(stat)

local IntPTR = memory.alloc_int()

STATS.STAT_GET_INT(util.joaat(ADD_MP_INDEX(stat)), IntPTR, -1)

return memory.read_int(IntPTR)

end

--- @param stat string

--- @return float

function STAT_GET_FLOAT(stat)

local FloatPTR = memory.alloc_int()

STATS.STAT_GET_FLOAT(util.joaat(ADD_MP_INDEX(stat)), FloatPTR, -1)

return tonumber(string.format("%.3f", memory.read_float(FloatPTR)))

end

--- @param stat string

--- @return boolean

function STAT_GET_BOOL(stat)

if STAT_GET_INT(stat) ~= 0 then

return "true"

else

return "false"

end

end

--- @param stat string

--- @return string

function STAT_GET_STRING(stat)

return STATS.STAT_GET_STRING(util.joaat(ADD_MP_INDEX(stat)), -1)

end

function STAT_GET_DATE(stat, type)

local DatePTR = memory.alloc(8 * 7)

STATS.STAT_GET_DATE(util.joaat(ADD_MP_INDEX(stat)), DatePTR, 7, true)

local DateTypes = {

"Years",

"Months",

"Days",

"Hours",

"Mins",

-- Seconds,

-- Milliseconds,

}

for i = 1, #DateTypes do

if type == DateTypes[i] then

return memory.read_int(DatePTR + 8 * (i - 1))

end

end

end

------------------------------

-- Packed Stat Functions

------------------------------

--- @param statIndex integer

--- @return integer

function GET_PACKED_STAT_INT_CODE(statIndex)

return STATS.GET_PACKED_STAT_INT_CODE(statIndex, util.get_char_slot())

end

--- @param statIndex integer

--- @return boolean

function GET_PACKED_STAT_BOOL_CODE(statIndex)

return STATS.GET_PACKED_STAT_BOOL_CODE(statIndex, util.get_char_slot())

end

--- @param statIndex integer

--- @param value integer

function SET_PACKED_STAT_INT_CODE(statIndex, value)

STATS.SET_PACKED_STAT_INT_CODE(statIndex, value, util.get_char_slot())

end

--- @param statIndex integer

--- @param value boolean

function SET_PACKED_STAT_BOOL_CODE(statIndex, value)

STATS.SET_PACKED_STAT_BOOL_CODE(statIndex, value, util.get_char_slot())

end

----------------------------

-- Global Functions

----------------------------

--- @param global integer

--- @param value integer

function GLOBAL_SET_INT(global, value)

memory.write_int(memory.script_global(global), value)

end

--- @param global integer

--- @param value float

function GLOBAL_SET_FLOAT(global, value)

memory.write_float(memory.script_global(global), value)

end

--- @param global integer

--- @param value string

function GLOBAL_SET_STRING(global, value)

memory.write_string(memory.script_global(global), value)

end

--- @param global integer

--- @param value boolean

function GLOBAL_SET_BOOL(global, value)

memory.write_int(memory.script_global(global), value and 1 or 0)

end

--- @param global integer

--- @return integer

function GLOBAL_GET_INT(global)

return memory.read_int(memory.script_global(global))

end

--- @param global integer

--- @return float

function GLOBAL_GET_FLOAT(global)

return memory.read_float(memory.script_global(global))

end

--- @param global integer

---@return string

function GLOBAL_GET_STRING(global)

return memory.read_string(memory.script_global(global))

end

--- @param global integer

--- @return boolean

function GLOBAL_GET_BOOL(global)

return memory.read_int(memory.script_global(global)) == 1

end

--- @param global integer

--- @param bit integer

function GLOBAL_SET_BIT(global, bit)

local addr = memory.script_global(global)

memory.write_int(addr, SET_BIT(memory.read_int(addr), bit))

end

--- @param global integer

--- @param bit integer

function GLOBAL_CLEAR_BIT(global, bit)

local addr = memory.script_global(global)

memory.write_int(addr, CLEAR_BIT(memory.read_int(addr), bit))

end

--- @param global integer

--- @param bit integer

--- @return boolean

function GLOBAL_BIT_TEST(global, bit)

local addr = memory.script_global(global)

return BIT_TEST(memory.read_int(addr), bit)

end

--- @param global integer

--- @param ... bits

function GLOBAL_SET_BITS(global, ...)

local addr = memory.script_global(global)

memory.write_int(addr, SET_BITS(memory.read_int(addr), ...))

end

---------------------------

-- Local Functions

---------------------------

--- @param script string

--- @param script_local integer

--- @param value integer

function LOCAL_SET_INT(script, script_local, value)

if memory.script_local(script, script_local) ~= 0 then

memory.write_int(memory.script_local(script, script_local), value)

end

end

--- @param script string

--- @param script_local integer

--- @param value float

function LOCAL_SET_FLOAT(script, script_local, value)

if memory.script_local(script, script_local) ~= 0 then

memory.write_float(memory.script_local(script, script_local), value)

end

end

--- @param script string

--- @param script_local integer

---@return integer

function LOCAL_GET_INT(script, script_local)

if memory.script_local(script, script_local) ~= 0 then

return memory.read_int(memory.script_local(script, script_local))

end

end

--- @param script string

--- @param script_local integer

---@return float

function LOCAL_GET_FLOAT(script, script_local)

if memory.script_local(script, script_local) ~= 0 then

return memory.read_float(memory.script_local(script, script_local))

end

end

--- @param script string

--- @param script_local integer

--- @param bit integer

function LOCAL_SET_BIT(script, script_local, bit)

local addr = memory.script_local(script, script_local)

if addr ~= 0 then

memory.write_int(addr, SET_BIT(memory.read_int(addr), bit))

end

end

--- @param script string

--- @param script_local integer

--- @param bit integer

function LOCAL_CLEAR_BIT(script, script_local, bit)

local addr = memory.script_local(script, script_local)

if addr ~= 0 then

memory.write_int(addr, CLEAR_BIT(memory.read_int(addr), bit))

end

end

--- @param script string

--- @param script_local integer

--- @param bit integer

--- @return boolean

function LOCAL_BIT_TEST(script, script_local, bit)

local addr = memory.script_local(script, script_local)

if addr ~= 0 then

return BIT_TEST(memory.read_int(addr), bit)

end

end

---------------------------

-- Bit Functions

---------------------------

--- @param value integer

--- @param position integer

--- @return integer

function SET_BIT(value, position)

return (value | (1 << position))

end

--- @param value integer

--- @param position integer

--- @return integer

function CLEAR_BIT(value, position)

return (value & ~(1 << position))

end

--- @param value integer

--- @param position integer

--- @return boolean

function BIT_TEST(value, position)

return (value & (1 << position)) ~= 0

end

--- @param value integer

--- @param ... positions

--- @return integer

function SET_BITS(value, ...)

local positions = { ... }

for _, position in ipairs(positions) do

value = value | (1 << position)

end

return value

end

--- @param value integer

--- @param ... positions

--- @return integer

function CLEAR_BITS(value, ...)

local positions = { ... }

for _, position in ipairs(positions) do

value = value & ~(1 << position)

end

return value

end

--- Checks if **all** specified bit positions are set to 1 in the given value.

--- @param value integer

--- @param ... positions

--- @return boolean

function BITS_TEST(value, ...)

local positions = { ... }

for _, position in ipairs(positions) do

if (value & (1 << position)) == 0 then

return false

end

end

return true

end

--- Checks if **any** of the specified bit positions are set to 1 in the given value.

--- @param value integer

--- @param ... positions

--- @return boolean

function IS_ANY_BIT_SET(value, ...)

local positions = { ... }

for _, position in ipairs(positions) do

if (value & (1 << position)) ~= 0 then

return true

end

end

return false

end