mirror of
https://github.com/ptitSeb/Serious-Engine
synced 2024-11-22 18:30:27 +01:00
283 lines
10 KiB
Erlang
283 lines
10 KiB
Erlang
|
/* Copyright (c) 2002-2012 Croteam Ltd. All rights reserved. */
|
||
|
|
|
||
|
|
606
|
||
|
|
%{
|
||
|
|
#include "StdH.h"
|
||
|
|
#include "EntitiesMP/BackgroundViewer.h"
|
||
|
|
#include "EntitiesMP/WorldSettingsController.h"
|
||
|
|
#include "EntitiesMP/Lightning.h"
|
||
|
|
%}
|
||
|
|
|
||
|
|
class CStormController: CRationalEntity {
|
||
|
|
name "Storm controller";
|
||
|
|
thumbnail "Thumbnails\\StormController.tbn";
|
||
|
|
features "IsTargetable", "HasName";
|
||
|
|
|
||
|
|
properties:
|
||
|
|
1 CEntityPointer m_penwsc, // ptr to world settings controller
|
||
|
|
2 CTString m_strName "Name" 'N' = "Storm controller", // class name
|
||
|
|
3 FLOAT m_fNextLightningDelay = 0.0f,
|
||
|
|
4 BOOL m_bStormOn = FALSE,
|
||
|
|
5 FLOAT m_fNextLightningStrike = 0.0f,
|
||
|
|
10 CEntityPointer m_penLightning00 "Lightning 1" 'T' COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
11 CEntityPointer m_penLightning01 "Lightning 2" 'Y' COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
12 CEntityPointer m_penLightning02 "Lightning 3" 'U' COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
13 CEntityPointer m_penLightning03 "Lightning 4" 'I' COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
14 CEntityPointer m_penLightning04 "Lightning 5" 'O' COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
15 CEntityPointer m_penLightning05 "Lightning 6" 'P' COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
16 CEntityPointer m_penLightning06 "Lightning 7" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
17 CEntityPointer m_penLightning07 "Lightning 8" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
18 CEntityPointer m_penLightning08 "Lightning 9" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
19 CEntityPointer m_penLightning09 "Lightning 10" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
20 CEntityPointer m_penLightning10 "Lightning 11" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
21 CEntityPointer m_penLightning11 "Lightning 12" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
22 CEntityPointer m_penLightning12 "Lightning 13" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
23 CEntityPointer m_penLightning13 "Lightning 14" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
24 CEntityPointer m_penLightning14 "Lightning 15" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
25 CEntityPointer m_penLightning15 "Lightning 16" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
26 CEntityPointer m_penLightning16 "Lightning 17" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
27 CEntityPointer m_penLightning17 "Lightning 18" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
28 CEntityPointer m_penLightning18 "Lightning 19" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
29 CEntityPointer m_penLightning19 "Lightning 20" COLOR(C_MAGENTA|0xFF), // lightning
|
||
|
|
|
||
|
|
40 FLOAT m_tmStormAppearTime "Storm appear time" = 10.0f,
|
||
|
|
41 FLOAT m_tmStormDisappearTime "Storm disappear time" = 10.0f,
|
||
|
|
42 FLOAT m_fFirstLightningDelay "First lightning delay" = 10.0f,
|
||
|
|
43 FLOAT m_fMaxLightningPeriod "Max lightning period" = 10.0f,
|
||
|
|
44 FLOAT m_fMinLightningPeriod "Min lightning period" = 1.0f,
|
||
|
|
45 FLOAT m_fMaxStormPowerTime "Max storm power time" = 120.0f,
|
||
|
|
|
||
|
|
50 COLOR m_colBlendStart "Color blend start" 'B' = COLOR(C_WHITE|CT_TRANSPARENT),
|
||
|
|
51 COLOR m_colBlendStop "Color blend stop" = COLOR(C_WHITE|CT_OPAQUE),
|
||
|
|
52 COLOR m_colShadeStart "Color shade start" 'S' = COLOR(C_WHITE|CT_OPAQUE),
|
||
|
|
53 COLOR m_colShadeStop "Color shade stop" = COLOR(C_GRAY|CT_OPAQUE),
|
||
|
|
|
||
|
|
components:
|
||
|
|
1 model MODEL_STORM_CONTROLLER "Models\\Editor\\StormController.mdl",
|
||
|
|
2 texture TEXTURE_STORM_CONTROLLER "Models\\Editor\\StormController.tex"
|
||
|
|
|
||
|
|
functions:
|
||
|
|
// check if one lightning target is valid
|
||
|
|
void CheckOneLightningTarget(CEntityPointer &pen)
|
||
|
|
{
|
||
|
|
if (pen!=NULL && !IsOfClass(pen, "Lightning"))
|
||
|
|
{
|
||
|
|
WarningMessage("Target '%s' is not of class Lightning!", pen->GetName());
|
||
|
|
pen=NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// get number of lightnings set by user
|
||
|
|
INDEX GetLightningsCount(void) const
|
||
|
|
{
|
||
|
|
// note: only first N that are no NULL are used
|
||
|
|
if (m_penLightning00==NULL) { return 0; };
|
||
|
|
if (m_penLightning01==NULL) { return 1; };
|
||
|
|
if (m_penLightning02==NULL) { return 2; };
|
||
|
|
if (m_penLightning03==NULL) { return 3; };
|
||
|
|
if (m_penLightning04==NULL) { return 4; };
|
||
|
|
if (m_penLightning05==NULL) { return 5; };
|
||
|
|
if (m_penLightning06==NULL) { return 6; };
|
||
|
|
if (m_penLightning07==NULL) { return 7; };
|
||
|
|
if (m_penLightning08==NULL) { return 8; };
|
||
|
|
if (m_penLightning09==NULL) { return 9; };
|
||
|
|
if (m_penLightning10==NULL) { return 10; };
|
||
|
|
if (m_penLightning11==NULL) { return 11; };
|
||
|
|
if (m_penLightning12==NULL) { return 12; };
|
||
|
|
if (m_penLightning13==NULL) { return 13; };
|
||
|
|
if (m_penLightning14==NULL) { return 14; };
|
||
|
|
if (m_penLightning15==NULL) { return 15; };
|
||
|
|
if (m_penLightning16==NULL) { return 16; };
|
||
|
|
if (m_penLightning17==NULL) { return 17; };
|
||
|
|
if (m_penLightning18==NULL) { return 18; };
|
||
|
|
return 20;
|
||
|
|
}
|
||
|
|
|
||
|
|
procedures:
|
||
|
|
Storm()
|
||
|
|
{
|
||
|
|
// wait before first lightning
|
||
|
|
autowait( 10.0f);
|
||
|
|
m_fNextLightningStrike = m_tmStormAppearTime+m_fFirstLightningDelay;
|
||
|
|
jump StormInternal();
|
||
|
|
}
|
||
|
|
|
||
|
|
StormInternal()
|
||
|
|
{
|
||
|
|
while(m_bStormOn &&
|
||
|
|
_pTimer->CurrentTick()<((CWorldSettingsController *)&*m_penwsc)->m_tmStormEnd+m_tmStormDisappearTime)
|
||
|
|
{
|
||
|
|
while( _pTimer->CurrentTick()<m_fNextLightningStrike &&
|
||
|
|
_pTimer->CurrentTick()<((CWorldSettingsController *)&*m_penwsc)->m_tmStormEnd+m_tmStormDisappearTime &&
|
||
|
|
m_bStormOn)
|
||
|
|
{
|
||
|
|
// wait until next lightning
|
||
|
|
wait(_pTimer->TickQuantum)
|
||
|
|
{
|
||
|
|
on (EBegin) :
|
||
|
|
{
|
||
|
|
resume;
|
||
|
|
}
|
||
|
|
on (EEnvironmentStop) :
|
||
|
|
{
|
||
|
|
m_fNextLightningStrike+=1.0f;
|
||
|
|
resume;
|
||
|
|
}
|
||
|
|
on (ETimer) : { stop; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
autowait(_pTimer->TickQuantum);
|
||
|
|
|
||
|
|
// calculate next lightning strike time
|
||
|
|
FLOAT fLightningStart=((CWorldSettingsController *)&*m_penwsc)->m_tmStormStart+m_fFirstLightningDelay;
|
||
|
|
FLOAT fLightningMax=fLightningStart+m_fMaxStormPowerTime;
|
||
|
|
FLOAT fRatio;
|
||
|
|
// if storm is finished
|
||
|
|
if(_pTimer->CurrentTick()>((CWorldSettingsController *)&*m_penwsc)->m_tmStormEnd-m_tmStormDisappearTime)
|
||
|
|
{
|
||
|
|
m_bStormOn = FALSE;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// fade in
|
||
|
|
if (_pTimer->CurrentTick()<fLightningMax)
|
||
|
|
{
|
||
|
|
fRatio=CalculateRatio(_pTimer->CurrentTick(), fLightningStart, fLightningMax, 1.0f, 0.0f);
|
||
|
|
}
|
||
|
|
// max storm power
|
||
|
|
else
|
||
|
|
{
|
||
|
|
fRatio=1;
|
||
|
|
}
|
||
|
|
FLOAT tmPeriod=(m_fMaxLightningPeriod-m_fMinLightningPeriod)*(1.0f-fRatio);
|
||
|
|
FLOAT fNextLighting=m_fMinLightningPeriod+tmPeriod*(1.0f+(FRnd()-0.5f)*0.25f);
|
||
|
|
m_fNextLightningStrike = _pTimer->CurrentTick()+fNextLighting;
|
||
|
|
|
||
|
|
// choose random lightning
|
||
|
|
INDEX ctLightnings = GetLightningsCount();
|
||
|
|
// if there are some lightnings
|
||
|
|
if (ctLightnings!=0)
|
||
|
|
{
|
||
|
|
// choose by random
|
||
|
|
CLightning *penLightning = (CLightning *) &*(&m_penLightning00)[IRnd()%ctLightnings];
|
||
|
|
SendToTarget(penLightning, EET_TRIGGER);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
m_bStormOn = FALSE;
|
||
|
|
return EReturn();
|
||
|
|
}
|
||
|
|
|
||
|
|
Main(EVoid)
|
||
|
|
{
|
||
|
|
// check lightning targets
|
||
|
|
CheckOneLightningTarget( m_penLightning00);
|
||
|
|
CheckOneLightningTarget( m_penLightning01);
|
||
|
|
CheckOneLightningTarget( m_penLightning02);
|
||
|
|
CheckOneLightningTarget( m_penLightning03);
|
||
|
|
CheckOneLightningTarget( m_penLightning04);
|
||
|
|
CheckOneLightningTarget( m_penLightning05);
|
||
|
|
CheckOneLightningTarget( m_penLightning06);
|
||
|
|
CheckOneLightningTarget( m_penLightning07);
|
||
|
|
CheckOneLightningTarget( m_penLightning08);
|
||
|
|
CheckOneLightningTarget( m_penLightning09);
|
||
|
|
CheckOneLightningTarget( m_penLightning10);
|
||
|
|
CheckOneLightningTarget( m_penLightning11);
|
||
|
|
CheckOneLightningTarget( m_penLightning12);
|
||
|
|
CheckOneLightningTarget( m_penLightning13);
|
||
|
|
CheckOneLightningTarget( m_penLightning14);
|
||
|
|
CheckOneLightningTarget( m_penLightning15);
|
||
|
|
CheckOneLightningTarget( m_penLightning16);
|
||
|
|
CheckOneLightningTarget( m_penLightning17);
|
||
|
|
CheckOneLightningTarget( m_penLightning18);
|
||
|
|
CheckOneLightningTarget( m_penLightning19);
|
||
|
|
|
||
|
|
// set appearance
|
||
|
|
InitAsEditorModel();
|
||
|
|
SetPhysicsFlags(EPF_MODEL_IMMATERIAL);
|
||
|
|
SetCollisionFlags(ECF_IMMATERIAL);
|
||
|
|
|
||
|
|
// set appearance
|
||
|
|
SetModel(MODEL_STORM_CONTROLLER);
|
||
|
|
SetModelMainTexture(TEXTURE_STORM_CONTROLLER);
|
||
|
|
|
||
|
|
// spawn in world editor
|
||
|
|
autowait(0.1f);
|
||
|
|
|
||
|
|
// obtain bcg viewer entity
|
||
|
|
CBackgroundViewer *penBcgViewer = (CBackgroundViewer *) GetWorld()->GetBackgroundViewer();
|
||
|
|
if( penBcgViewer == NULL)
|
||
|
|
{
|
||
|
|
// don't do anything
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
// obtain world settings controller
|
||
|
|
m_penwsc = penBcgViewer->m_penWorldSettingsController;
|
||
|
|
if( m_penwsc == NULL)
|
||
|
|
{
|
||
|
|
// don't do anything
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
// must be world settings controller entity
|
||
|
|
if (!IsOfClass(m_penwsc, "WorldSettingsController"))
|
||
|
|
{
|
||
|
|
// don't do anything
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
CWorldSettingsController *pwsc=(CWorldSettingsController *)&*m_penwsc;
|
||
|
|
pwsc->m_colBlendStart = m_colBlendStart;
|
||
|
|
pwsc->m_colBlendStop = m_colBlendStop;
|
||
|
|
pwsc->m_colShadeStart = m_colShadeStart;
|
||
|
|
pwsc->m_colShadeStop = m_colShadeStop;
|
||
|
|
pwsc->m_tmStormAppearTime = m_tmStormAppearTime;
|
||
|
|
pwsc->m_tmStormDisappearTime = m_tmStormDisappearTime;
|
||
|
|
|
||
|
|
m_bStormOn = FALSE;
|
||
|
|
while (TRUE)
|
||
|
|
{
|
||
|
|
wait()
|
||
|
|
{
|
||
|
|
// immediate storm now
|
||
|
|
on (EEnvironmentStart eEnvironmentStart) :
|
||
|
|
{
|
||
|
|
TIME tmNow = _pTimer->CurrentTick();
|
||
|
|
((CWorldSettingsController *)&*m_penwsc)->m_tmStormStart = tmNow-m_tmStormAppearTime;
|
||
|
|
((CWorldSettingsController *)&*m_penwsc)->m_tmStormEnd = 1e6;
|
||
|
|
m_bStormOn = TRUE;
|
||
|
|
m_fNextLightningStrike=_pTimer->CurrentTick()+2.0f;
|
||
|
|
call StormInternal();
|
||
|
|
resume;
|
||
|
|
}
|
||
|
|
on (EStart eStart) :
|
||
|
|
{
|
||
|
|
if( !m_bStormOn)
|
||
|
|
{
|
||
|
|
TIME tmNow = _pTimer->CurrentTick();
|
||
|
|
((CWorldSettingsController *)&*m_penwsc)->m_tmStormStart = tmNow;
|
||
|
|
((CWorldSettingsController *)&*m_penwsc)->m_tmStormEnd = 1e6;
|
||
|
|
m_bStormOn = TRUE;
|
||
|
|
call Storm();
|
||
|
|
}
|
||
|
|
resume;
|
||
|
|
}
|
||
|
|
on (EStop eStop) :
|
||
|
|
{
|
||
|
|
if( m_bStormOn)
|
||
|
|
{
|
||
|
|
TIME tmNow = _pTimer->CurrentTick();
|
||
|
|
((CWorldSettingsController *)&*m_penwsc)->m_tmStormEnd = tmNow;
|
||
|
|
}
|
||
|
|
resume;
|
||
|
|
}
|
||
|
|
otherwise() :
|
||
|
|
{
|
||
|
|
resume;
|
||
|
|
};
|
||
|
|
};
|
||
|
|
}
|
||
|
|
}
|
||
|
|
};
|