sm64coopdx/mods/arena/arena-utils.lua

226 lines
5 KiB
Lua

function active_player(m)
local np = gNetworkPlayers[m.playerIndex]
if m.playerIndex == 0 then
return true
end
if not np.connected then
return false
end
return is_player_active(m)
end
function set_dist_and_angle(from, dist, pitch, yaw)
return {
x = from.x + dist * coss(pitch) * sins(yaw),
y = from.y + dist * sins(pitch),
z = from.z + dist * coss(pitch) * coss(yaw),
}
end
function clamp(val, min, max)
if val < min then return min end
if val > max then return max end
return val
end
function mario_health_float(m)
return clamp((m.health - 255) / (2176 - 255), 0, 1)
end
function global_index_hurts_mario_state(globalIndex, m)
if globalIndex == gNetworkPlayers[m.playerIndex].globalIndex then
return false
end
local npAttacker = network_player_from_global_index(globalIndex)
if npAttacker == nil then
return false
end
local sAttacker = gPlayerSyncTable[npAttacker.localIndex]
local sVictim = gPlayerSyncTable[m.playerIndex]
if sAttacker.team == 0 or sVictim.team == 0 then
return true
end
return sAttacker.team ~= sVictim.team
end
function is_invuln_or_intang(m)
local invuln = ((m.action & ACT_FLAG_INVULNERABLE) ~= 0) or (m.invincTimer ~= 0)
local intang = ((m.action & ACT_FLAG_INTANGIBLE) ~= 0)
return invuln or intang
end
function strip_colors(name)
local s = ''
local inSlash = false
for i = 1, #name do
local c = name:sub(i,i)
if c == '\\' then
inSlash = not inSlash
elseif not inSlash then
s = s .. c
end
end
return s
end
function get_other_team(teamNum)
if teamNum == 1 then
return 2
elseif teamNum == 2 then
return 1
else
return 0
end
end
function team_color_str(teamNum)
if teamNum == 1 then
return '\\#ff9999\\'
elseif teamNum == 2 then
return '\\#9999ff\\'
else
return '\\#ffffff\\'
end
end
function team_name_str(teamNum)
if teamNum == 1 then
return 'red'
elseif teamNum == 2 then
return 'blue'
else
return 'white'
end
end
------------
function spawn_mist(obj, scale)
local spi = obj_get_temp_spawn_particles_info(E_MODEL_MIST)
if spi == nil then
return nil
end
spi.behParam = 3
spi.count = 5
spi.offsetY = 25
spi.forwardVelBase = 6 * scale
spi.forwardVelRange = -12 * scale
spi.velYBase = 6 * scale
spi.velYRange = -12 * scale
spi.gravity = 0
spi.dragStrength = 5
spi.sizeBase = 10 * scale
spi.sizeRange = 16 * scale
cur_obj_spawn_particles(spi)
end
function spawn_mist_advanced(obj, scale, type, count, offsetY)
local spi = obj_get_temp_spawn_particles_info(E_MODEL_MIST)
if spi == nil then
return nil
end
spi.behParam = type
spi.count = count
spi.offsetY = offsetY
spi.forwardVelBase = 3 * scale
spi.forwardVelRange = -6 * scale
spi.velYBase = 3 * scale
spi.velYRange = -6 * scale
spi.gravity = 0
spi.dragStrength = 5
spi.sizeBase = 5 * scale
spi.sizeRange = 7 * scale
cur_obj_spawn_particles(spi)
end
function spawn_balls(obj, scale)
local spi = obj_get_temp_spawn_particles_info(E_MODEL_BOWLING_BALL)
if spi == nil then
return nil
end
spi.behParam = 2
spi.count = 3
spi.offsetY = 25
spi.forwardVelBase = 30 * scale
spi.forwardVelRange = -60 * scale
spi.velYBase = 30 * scale
spi.velYRange = -60 * scale
spi.gravity = 0
spi.dragStrength = 5
spi.sizeBase = 0.5 * scale
spi.sizeRange = 0.5 * scale
cur_obj_spawn_particles(spi)
end
function spawn_triangles(obj)
spawn_non_sync_object(id_bhvTriangleParticleSpawner, E_MODEL_NONE,
obj.oPosX,
obj.oPosY,
obj.oPosZ,
nil)
end
function spawn_horizontal_stars(x, y, z)
spawn_non_sync_object(id_bhvHorStarParticleSpawner, E_MODEL_NONE,
x,
y,
z,
nil)
end
function spawn_vertical_stars(x, y, z)
spawn_non_sync_object(id_bhvVertStarParticleSpawner, E_MODEL_NONE,
x,
y,
z,
nil)
end
function spawn_sparkles(x, y, z)
for i = 0, 5 do
spawn_non_sync_object(id_bhvSparkleSpawn, E_MODEL_NONE,
x + math.random(-100, 100),
y + math.random(-100, 100),
z + math.random(-100, 100),
nil)
end
end
--------
function bhv_debug_pos_init(obj)
obj.oFlags = OBJ_FLAG_UPDATE_GFX_POS_AND_ANGLE
obj.oOpacity = 255
obj.oTimer = 0
obj_set_billboard(obj)
obj_scale(obj, 0.5)
end
function bhv_debug_pos_loop(obj)
obj.oTimer = obj.oTimer + 1
if obj.oTimer > 1 then
obj.activeFlags = ACTIVE_FLAG_DEACTIVATED
end
end
id_bhvDebugPos = hook_behavior(nil, OBJ_LIST_DEFAULT, true, bhv_debug_pos_init, bhv_debug_pos_loop)
function debug_pos(x, y, z)
spawn_non_sync_object(id_bhvDebugPos, E_MODEL_AMP, x, y, z, nil)
end
-------
function SEQUENCE_ARGS(priority, seqId)
return ((priority << 8) | seqId)
end