--****************************************************************************

--**

--** File : /lua/defaultexplosions.lua

--** Author(s): Gordon Duclos

--**

--** Summary :

--**

--** Copyright © 2005 Gas Powered Games, Inc. All rights reserved.

--****************************************************************************

local Entity = import('/lua/sim/entity.lua').Entity

local EffectTemplate = import('/lua/EffectTemplates.lua')

local util = import('utilities.lua')

local GetRandomFloat = util.GetRandomFloat

local GetRandomInt = util.GetRandomInt

local GetRandomOffset = util.GetRandomOffset

local GetRandomOffset2 = util.GetRandomOffset2

local EfctUtil = import('EffectUtilities.lua')

local CreateEffects = EfctUtil.CreateEffects

local CreateEffectsWithOffset = EfctUtil.CreateEffectsWithOffset

local CreateEffectsWithRandomOffset = EfctUtil.CreateEffectsWithRandomOffset

local CreateBoneEffects = EfctUtil.CreateBoneEffects

local CreateBoneEffectsOffset = EfctUtil.CreateBoneEffectsOffset

local CreateRandomEffects = EfctUtil.CreateRandomEffects

local ScaleEmittersParam = EfctUtil.ScaleEmittersParam

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

-- UTILITY FUNCTION --

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

function GetUnitSizes(unit)

local bp = unit:GetBlueprint()

return bp.SizeX or 0, bp.SizeY or 0, bp.SizeZ or 0

end

function GetUnitVolume(unit)

local x, y, z = GetUnitSizes(unit)

return x * y * z

end

function GetAverageBoundingXZRadius(unit)

local bp = unit:GetBlueprint()

return ((bp.SizeX or 0 + bp.SizeZ or 0) * 0.5)

end

function GetAverageBoundingXYZRadius(unit)

local bp = unit:GetBlueprint()

return ((bp.SizeX or 0 + bp.SizeY or 0 + bp.SizeZ or 0) * 0.333)

end

function QuatFromRotation(rotation, x, y, z)

local angleRot, qw, qx, qy, qz, angle

angle = 0.00872664625 * rotation

angleRot = math.sin(angle)

qw = math.cos(angle)

qx = x * angleRot

qy = y * angleRot

qz = z * angleRot

return qx, qy, qz, qw

end

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

-- DEFAULT EXPLOSION BASE FUNCTIONS --

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

function CreateScalableUnitExplosion(unit, overKillRatio)

if unit then

if IsUnit(unit) then

local explosionEntity = CreateUnitExplosionEntity(unit, overKillRatio)

ForkThread(_CreateScalableUnitExplosion, explosionEntity)

end

end

end

function CreateDefaultHitExplosion(obj, scale)

if obj and not obj:BeenDestroyed() then

CreateFlash(obj, -1, scale * 0.5, obj.Army)

CreateEffects(obj, obj.Army, EffectTemplate.FireCloudMed01)

end

end

function CreateDefaultHitExplosionOffset(obj, scale, xOffset, yOffset, zOffset)

if obj:BeenDestroyed() then

return

end

CreateBoneEffectsOffset(obj, -1, obj.Army, EffectTemplate.DefaultHitExplosion01, xOffset, yOffset, zOffset)

end

function CreateDefaultHitExplosionAtBone(obj, boneName, scale)

CreateFlash(obj, boneName, scale * 0.5, obj.Army)

CreateBoneEffects(obj, boneName, obj.Army, EffectTemplate.FireCloudMed01)

end

function CreateTimedStuctureUnitExplosion(obj)

local numExplosions = math.floor(GetAverageBoundingXYZRadius(obj) * GetRandomInt(2,5))

local x,y,z = GetUnitSizes(obj)

obj:ShakeCamera(30, 1, 0, 0.45 * numExplosions)

for i = 0, numExplosions do

CreateDefaultHitExplosionOffset(obj, 1.0, unpack({GetRandomOffset(x, y, z, 1.2)}))

obj:PlayUnitSound('DeathExplosion')

WaitSeconds(GetRandomFloat(0.2, 0.7))

end

end

function MakeExplosionEntitySpec(unit, overKillRatio)

return {

Army = unit.Army,

Dimensions = {GetUnitSizes(unit)},

BoundingXZRadius = GetAverageBoundingXZRadius(unit),

BoundingXYZRadius = GetAverageBoundingXYZRadius(unit),

OverKillRatio = overKillRatio,

Volume = GetUnitVolume(unit),

Layer = unit:GetCurrentLayer(),

}

end

function CreateUnitExplosionEntity(unit, overKillRatio)

local localentity = Entity(MakeExplosionEntitySpec(unit, overKillRatio))

Warp(localentity, unit:GetPosition())

return localentity

end

function _CreateScalableUnitExplosion(obj)

local army = obj.Spec.Army

local scale = obj.Spec.BoundingXZRadius

local layer = obj.Spec.Layer

local BaseEffectTable = {}

local EnvironmentalEffectTable = {}

local EffectTable = {}

local ShakeTimeModifier = 0

local ShakeMaxMul = 1

-- Determine effect table to use, based on unit bounding box scale

if layer == 'Land' then

if scale < 1.1 then ---- Small units

BaseEffectTable = EffectTemplate.ExplosionSmall

elseif scale > 3.75 then ---- Large units

BaseEffectTable = EffectTemplate.ExplosionLarge

ShakeTimeModifier = 1.0

ShakeMaxMul = 0.25

else ---- Medium units

BaseEffectTable = EffectTemplate.ExplosionMedium

end

end

if layer == 'Air' then

if scale < 1.1 then ---- Small units

BaseEffectTable = EffectTemplate.ExplosionSmallAir

elseif scale > 3 then ---- Large units

BaseEffectTable = EffectTemplate.ExplosionLarge

ShakeTimeModifier = 1.0

ShakeMaxMul = 0.25

else ---- Medium units

BaseEffectTable = EffectTemplate.ExplosionMedium

end

end

if layer == 'Water' then

if scale < 1 then ---- Small units

BaseEffectTable = EffectTemplate.ExplosionSmallWater

elseif scale > 3 then ---- Large units

BaseEffectTable = EffectTemplate.ExplosionMediumWater

ShakeTimeModifier = 1.0

ShakeMaxMul = 0.25

else ---- Medium units

BaseEffectTable = EffectTemplate.ExplosionMediumWater

end

end

-- Get Environmental effects for current layer

EnvironmentalEffectTable = GetUnitEnvironmentalExplosionEffects(layer, scale)

-- Merge resulting tables to final explosion emitter list

if table.getn(EnvironmentalEffectTable) ~= 0 then

EffectTable = table.cat(BaseEffectTable, EnvironmentalEffectTable)

else

EffectTable = BaseEffectTable

end

-- Create Generic emitter effects

CreateEffects(obj, army, EffectTable)

-- Create Light particle flash

CreateFlash(obj, -1, scale, army)

-- Create scorch mark

if layer == 'Land' then

if scale > 1.2 then

CreateScorchMarkDecal(obj, scale, army)

else

CreateScorchMarkSplat(obj, scale, army)

end

end

-- Create GenericDebris chunks

CreateDebrisProjectiles(obj, obj.Spec.BoundingXYZRadius, obj.Spec.Dimensions)

-- Camera Shake (.radius .maxshake .minshake .lifetime)

obj:ShakeCamera(30 * scale, scale * ShakeMaxMul, 0, 0.5 + ShakeTimeModifier)

obj:Destroy()

end

function GetUnitEnvironmentalExplosionEffects(layer, scale)

local EffectTable = {}

if layer == 'Water' then

if scale < 0.5 then

EffectTable = EffectTemplate.Splashy

elseif scale > 1.5 then

EffectTable = EffectTemplate.ExplosionMediumWater

else

EffectTable = EffectTemplate.ExplosionSmallWater

end

end

return EffectTable

end

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

-- CREATELIGHTPARTICLE FLASH --

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

function CreateFlash(obj, bone, scale, army)

CreateLightParticle(obj, bone, army, GetRandomFloat(6,10) * scale, GetRandomFloat(10.5, 14.5), 'glow_03', 'ramp_flare_02')

end

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

-- SCORCH MARK SPLATS --

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

function CreateScorchMarkSplat(obj, scale, army)

CreateSplat(obj:GetPosition(), GetRandomFloat(0,2 * math.pi), ScorchSplatTextures[GetRandomInt(1, table.getn(ScorchSplatTextures))], scale * 4, scale * 4, GetRandomFloat(200, 350), GetRandomFloat(300, 600), army)

end

function CreateScorchMarkDecal(obj, scale, army)

CreateDecal(obj:GetPosition(), GetRandomFloat(0,2 * math.pi), ScorchDecalTextures[GetRandomInt(1, table.getn(ScorchDecalTextures))], '', 'Albedo', scale * 3, scale * 3, GetRandomFloat(200, 350), GetRandomFloat(300, 600), army)

end

function CreateRandomScorchSplatAtObject(obj, scale, LOD, lifetime, army)

CreateSplat(obj:GetPosition(), GetRandomFloat(0,2 * math.pi), ScorchSplatTextures[GetRandomInt(1, table.getn(ScorchSplatTextures))], scale, scale, LOD, lifetime, army)

end

ScorchSplatTextures = {

'scorch_001_albedo',

'scorch_002_albedo',

'scorch_003_albedo',

'scorch_004_albedo',

'scorch_005_albedo',

'scorch_006_albedo',

'scorch_007_albedo',

'scorch_008_albedo',

'scorch_009_albedo',

'scorch_010_albedo',

}

ScorchDecalTextures = {

'scorch_001_albedo',

'scorch_002_albedo',

'scorch_003_albedo',

'scorch_004_albedo',

'scorch_005_albedo',

'scorch_006_albedo',

'scorch_007_albedo',

'scorch_008_albedo',

'scorch_009_albedo',

'scorch_010_albedo',

}

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

-- WRECKAGE EFFECTS --

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

function CreateWreckageEffects(obj, prop)

if IsUnit(obj) then

local scale = GetAverageBoundingXYZRadius(obj)

local emitters = {}

local layer = obj:GetCurrentLayer()

if scale < 0.5 then -- SMALL UNITS

emitters = CreateRandomEffects(prop, obj.Army, EffectTemplate.DefaultWreckageEffectsSml01, 1)

elseif scale > 1.5 then -- LARGE UNITS

local x,y,z = GetUnitSizes(obj)

emitters = CreateEffectsWithRandomOffset(prop, obj.Army, EffectTemplate.DefaultWreckageEffectsLrg01, x, 0, z)

else -- MEDIUM UNITS

emitters = CreateRandomEffects(prop, obj.Army, EffectTemplate.DefaultWreckageEffectsMed01, 2)

end

-- Give the emitters created some random lifetimes

ScaleEmittersParam(emitters, 'LIFETIME', 100, 1000)

for k, v in emitters do

v:ScaleEmitter(GetRandomFloat(0.25, 1))

end

end

end

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

-- DEBRIS PROJECTILES EFFECTS --

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

function CreateDebrisProjectiles(obj, volume, dimensions)

local partamounts = math.min(GetRandomInt(1 + (volume * 25), (volume * 50)) , 100)

local sx, sy, sz = unpack(dimensions)

local vector = obj.Spec.OverKillRatio.debris_Vector

for i = 1, partamounts do

local xpos, xpos, zpos = GetRandomOffset(sx, sy, sz, 1)

local xdir, ydir, zdir = GetRandomOffset(sx, sy, sz, 10)

if vector then

xdir = (vector[1] * 5) + GetRandomOffset2(sx, sy, sz, 3)

ydir = math.abs((vector[2] * 5)) + GetRandomOffset(sx, sy, sz, 3)

zdir = (vector[3] * 5) + GetRandomOffset2(sx, sy, sz, 1)

end

local rand = 4

if volume < 0.2 then

rand = 9

elseif volume > 2 then

rand = 10

end

obj:CreateProjectile('/effects/entities/DebrisMisc0' .. rand .. '/DebrisMisc0' .. rand .. '_proj.bp', xpos, xpos, zpos, xdir, ydir + 4.5, zdir)

end

end

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

-- OLD EXPLOSION TECH --

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

function CreateDefaultExplosion(unit, scale, overKillRatio)

local spec = {

Position = unit:GetPosition(),

Dimensions = GetUnitSizes(unit),

Volume = GetUnitVolume(unit),

}

local Explosion = unit

local army = unit.Army

CreateConcussionRing(Explosion, scale)

end

function CreateDestructionFire(object, scale)

local proj = object:CreateProjectile('/effects/entities/DestructionFire01/DestructionFire01_proj.bp', 0, 0, 0, nil, nil, nil)

proj:SetBallisticAcceleration(GetRandomFloat(-2, -3)):SetCollision(false)

CreateEmitterOnEntity(proj, proj.Army, '/effects/emitters/destruction_explosion_fire_01_emit.bp'):ScaleEmitter(scale)

end

function CreateDestructionSparks(object, scale)

local proj

for i = 1, GetRandomInt(5, 10) do

proj = object:CreateProjectile('/effects/entities/DestructionSpark01/DestructionSpark01_proj.bp', 0, 0, 0, nil, nil, nil)

proj:SetBallisticAcceleration(GetRandomFloat(-2, -3)):SetCollision(false)

CreateEmitterOnEntity(proj, proj.Army, '/effects/emitters/destruction_explosion_sparks_02_emit.bp'):ScaleEmitter(scale)

end

end

function CreateFirePlume(object, scale)

local proj

for i = 1, GetRandomInt(4, 8) do

proj = object:CreateProjectile('/effects/entities/DestructionFirePlume01/DestructionFirePlume01_proj.bp', 0, 0, 0, nil, nil, nil)

proj:SetBallisticAcceleration(GetRandomFloat(-2, -3)):SetCollision(false)

local emitter = CreateEmitterOnEntity(proj, proj.Army, '/effects/emitters/destruction_explosion_fire_plume_02_emit.bp')

local lifetime = GetRandomFloat(12, 22)

emitter:SetEmitterParam('REPEATTIME', lifetime)

emitter:SetEmitterParam('LIFETIME', lifetime)

end

end

function CreateExplosionProjectile(object, projectile, minnumber, maxnumber, effect, fxscalemin, fxscalemax, gravitymin, gravitymax, xpos, ypos, zpos, emitterparam)

local fxscale = (Random() * (fxscalemax - fxscalemin) + fxscalemin)

local yaccel = (Random() * (gravitymax - gravitymin) + gravitymin) * fxscale

local number = (Random() * (maxnumber - minnumber) + minnumber)

local proj, emitter

ypos = ypos / 2

for j = 1, number do

proj = object:CreateProjectile(projectile, xpos, ypos, zpos, nil, nil, nil):SetBallisticAcceleration(yaccel):SetCollision(false)

emitter = CreateEmitterOnEntity(proj, proj.Army, effect):ScaleEmitter(fxscale)

if emitterparam then

emitter:SetEmitterParam('REPEATTIME', math.floor(12 * fxscale + 0.5))

emitter:SetEmitterParam('LIFETIME', math.floor(12 * fxscale + 0.5))

end

end

end

function CreateUnitDebrisEffects(object, bone)

local Effects = {'/effects/emitters/destruction_explosion_smoke_09_emit.bp'}

for k, v in Effects do

CreateAttachedEmitter(object, bone, object.Army, v)

end

end

-- Composite effects

-- *****************

function CreateExplosionMesh(object, projBP, posX, posY, posZ, scale, scaleVelocity, Lifetime, velX, velY, VelZ, orientRot, orientX, orientY, orientZ)

proj = object:CreateProjectile(projBP, posX, posY, posZ, nil, nil, nil)

proj:SetScale(scale,scale,scale):SetScaleVelocity(scaleVelocity):SetLifetime(Lifetime):SetVelocity(velX, velY, VelZ)

local orient = {0, 0, 0, 0}

orient[1], orient[2], orient[3], orient[4] = QuatFromRotation(orientRot, orientX, orientY, orientZ)

proj:SetOrientation(orient, true)

CreateEmitterAtEntity(proj, proj.Army, '/effects/emitters/destruction_explosion_smoke_10_emit.bp')

return proj

end

function CreateCompositeExplosionMeshes(object)

local lifetime = 6.0

local explosionMeshProjectiles = {}

local scalingmin = 0.065

local scalingmax = 0.135

table.insert(explosionMeshProjectiles, CreateExplosionMesh(object, '/effects/Explosion/Explosion01_a_proj.bp', 0.4, 0.4, 0.4, GetRandomFloat(0.1, 0.2), GetRandomFloat(scalingmin, scalingmax), lifetime, 0.1, 0.1, 0.1, -45, 1, 0, 0))

table.insert(explosionMeshProjectiles, CreateExplosionMesh(object, '/effects/Explosion/Explosion01_b_proj.bp', -0.4, 0.4, 0.4, GetRandomFloat(0.1, 0.2), GetRandomFloat(scalingmin, scalingmax), lifetime, -0.1, 0.1, 0.1, -80, 1, 0, -1))

table.insert(explosionMeshProjectiles, CreateExplosionMesh(object, '/effects/Explosion/Explosion01_c_proj.bp', -0.2, 0.4, -0.4, GetRandomFloat(0.1, 0.2), GetRandomFloat(scalingmin, scalingmax), lifetime, -0.04, 0.1, -0.1, -90, -1, 0, 0))

table.insert(explosionMeshProjectiles, CreateExplosionMesh(object, '/effects/Explosion/Explosion01_d_proj.bp', 0.0, 0.7, 0.4, GetRandomFloat(0.1, 0.14), GetRandomFloat(scalingmin, scalingmax), lifetime, 0, 0.1, 0, 90, 1, 0, 0))

-- Slow down scaling of secondary meshes

WaitSeconds(0.3)

end

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

-- Replaced by new effect structure (see EffectTemplates.lua) --

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

function CreateSmoke(object, scale)

local SmokeEffects = {'/effects/emitters/destruction_explosion_smoke_03_emit.bp',

'/effects/emitters/destruction_explosion_smoke_07_emit.bp'}

for k, v in SmokeEffects do

CreateEmitterAtEntity(object, object.Army, v):ScaleEmitter(scale)

end

end

function CreateConcussionRing(object, scale)

CreateEmitterAtEntity(object, object.Army, '/effects/emitters/destruction_explosion_concussion_ring_01_emit.bp'):ScaleEmitter(scale)

end

function CreateFireShadow(object, scale)

CreateEmitterAtEntity(object ,object.Army, '/effects/emitters/destruction_explosion_fire_shadow_01_emit.bp'):ScaleEmitter(scale)

end

function OldCreateWreckageEffects(object)

local Effects = {'/effects/emitters/destruction_explosion_smoke_08_emit.bp'}

for k, v in Effects do

CreateEmitterAtEntity(object, object.Army, v):SetEmitterParam('LIFETIME', GetRandomFloat(100, 1000))

end

end