Source files split into modules

1 files changed, 375 insertions, 0 deletions

diff --git a/src/object/auto/autoegg.cpp b/src/object/auto/autoegg.cpp
new file mode 100644
index 0000000..6e57fcc
--- /dev/null
+++ b/src/object/auto/autoegg.cpp
@@ -0,0 +1,375 @@
+// * This file is part of the COLOBOT source code

+// * Copyright (C) 2001-2008, Daniel ROUX & EPSITEC SA, www.epsitec.ch

+// *

+// * This program is free software: you can redistribute it and/or modify

+// * it under the terms of the GNU General Public License as published by

+// * the Free Software Foundation, either version 3 of the License, or

+// * (at your option) any later version.

+// *

+// * This program is distributed in the hope that it will be useful,

+// * but WITHOUT ANY WARRANTY; without even the implied warranty of

+// * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

+// * GNU General Public License for more details.

+// *

+// * You should have received a copy of the GNU General Public License

+// * along with this program. If not, see  http://www.gnu.org/licenses/.

+

+#define STRICT

+#define D3D_OVERLOADS

+

+#include <windows.h>

+#include <stdio.h>

+#include <d3d.h>

+

+#include "struct.h"

+#include "d3dengine.h"

+#include "d3dmath.h"

+#include "event.h"

+#include "misc.h"

+#include "iman.h"

+#include "math3d.h"

+#include "particule.h"

+#include "terrain.h"

+#include "camera.h"

+#include "object.h"

+#include "pyro.h"

+#include "cmdtoken.h"

+#include "auto.h"

+#include "autoegg.h"

+

+

+

+// Object's constructor.

+

+CAutoEgg::CAutoEgg(CInstanceManager* iMan, CObject* object)

+				   : CAuto(iMan, object)

+{

+	CAuto::CAuto(iMan, object);

+

+	m_type = OBJECT_NULL;

+	m_value = 0.0f;

+	m_string[0] = 0;

+

+	m_param = 0;

+	m_phase = AEP_NULL;

+	Init();

+}

+

+// Object's destructor.

+

+CAutoEgg::~CAutoEgg()

+{

+	this->CAuto::~CAuto();

+}

+

+

+// Destroys the object.

+

+void CAutoEgg::DeleteObject(BOOL bAll)

+{

+	CObject*	alien;

+

+	CAuto::DeleteObject(bAll);

+

+	if ( !bAll )

+	{

+		alien = SearchAlien();

+		if ( alien != 0 )

+		{

+			// Probably the intended action

+			// Original code: ( alien->RetZoom(0) == 1.0f )

+			if ( alien->RetZoomY(0) == 1.0f )

+			{

+				alien->SetLock(FALSE);

+				alien->SetActivity(TRUE);  // the insect is active

+			}

+			else

+			{

+				alien->DeleteObject();

+				delete alien;

+			}

+		}

+	}

+}

+

+

+// Initialize the object.

+

+void CAutoEgg::Init()

+{

+	CObject*	alien;

+

+	alien = SearchAlien();

+	if ( alien == 0 )

+	{

+		m_phase    = AEP_NULL;

+		m_progress = 0.0f;

+		m_speed    = 1.0f/5.0f;

+		m_time     = 0.0f;

+		return;

+	}

+

+	m_phase    = AEP_INCUB;

+	m_progress = 0.0f;

+	m_speed    = 1.0f/5.0f;

+	m_time     = 0.0f;

+

+	m_type = alien->RetType();

+

+	if ( m_type == OBJECT_ANT    ||

+		 m_type == OBJECT_SPIDER ||

+		 m_type == OBJECT_BEE    )

+	{

+		alien->SetZoom(0, 0.2f);

+	}

+	if ( m_type == OBJECT_WORM )

+	{

+		alien->SetZoom(0, 0.01f);  // invisible !

+	}

+	alien->SetLock(TRUE);

+	alien->SetActivity(FALSE);

+}

+

+

+// Gives a value.

+

+BOOL CAutoEgg::SetType(ObjectType type)

+{

+	m_type = type;

+	return TRUE;

+}

+

+// Gives a value.

+

+BOOL CAutoEgg::SetValue(int rank, float value)

+{

+	if ( rank != 0 )  return FALSE;

+	m_value = value;

+	return TRUE;

+}

+

+// Gives the string.

+

+BOOL CAutoEgg::SetString(char *string)

+{

+	strcpy(m_string, string);

+	return TRUE;

+}

+

+

+// Start object.

+

+void CAutoEgg::Start(int param)

+{

+	if ( m_type == OBJECT_NULL )  return;

+	if ( m_value == 0.0f )  return;

+

+	m_phase    = AEP_DELAY;

+	m_progress = 0.0f;

+	m_speed    = 1.0f/m_value;

+

+	m_param = param;

+}

+

+

+// Management of an event.

+

+BOOL CAutoEgg::EventProcess(const Event &event)

+{

+	CObject*	alien;

+

+	CAuto::EventProcess(event);

+

+	if ( m_engine->RetPause() )  return TRUE;

+

+	if ( event.event != EVENT_FRAME )  return TRUE;

+	if ( m_phase == AEP_NULL )  return TRUE;

+

+	if ( m_phase == AEP_DELAY )

+	{

+		m_progress += event.rTime*m_speed;

+		if ( m_progress < 1.0f )  return TRUE;

+

+		alien = new CObject(m_iMan);

+		if ( !alien->CreateInsect(m_object->RetPosition(0), m_object->RetAngleY(0), m_type) )

+		{

+			delete alien;

+			m_phase    = AEP_DELAY;

+			m_progress = 0.0f;

+			m_speed    = 1.0f/2.0f;

+			return TRUE;

+		}

+		alien->SetActivity(FALSE);

+		alien->ReadProgram(0, m_string);

+		alien->RunProgram(0);

+		Init();

+	}

+

+	alien = SearchAlien();

+	if ( alien == 0 )  return TRUE;

+	alien->SetActivity(FALSE);

+

+	m_progress += event.rTime*m_speed;

+

+	if ( m_phase == AEP_ZOOM )

+	{

+		if ( m_type == OBJECT_ANT    ||

+			 m_type == OBJECT_SPIDER ||

+			 m_type == OBJECT_BEE    )

+		{

+			alien->SetZoom(0, 0.2f+m_progress*0.8f);  // Others push

+		}

+	}

+

+	return TRUE;

+}

+

+// Indicates whether the controller has completed its activity.

+

+Error CAutoEgg::IsEnded()

+{

+	CObject*	alien;

+	CPyro*		pyro;

+

+	if ( m_phase == AEP_DELAY )

+	{

+		return ERR_CONTINUE;

+	}

+

+	alien = SearchAlien();

+	if ( alien == 0 )  return ERR_STOP;

+

+	if ( m_phase == AEP_INCUB )

+	{

+		if ( m_progress < 1.0f )  return ERR_CONTINUE;

+

+		m_phase    = AEP_ZOOM;

+		m_progress = 0.0f;

+		m_speed    = 1.0f/5.0f;

+	}

+

+	if ( m_phase == AEP_ZOOM )

+	{

+		if ( m_progress < 1.0f )  return ERR_CONTINUE;

+

+		pyro = new CPyro(m_iMan);

+		pyro->Create(PT_EGG, m_object);  // exploding egg

+

+		alien->SetZoom(0, 1.0f);  // this is a big boy now

+

+		m_phase    = AEP_WAIT;

+		m_progress = 0.0f;

+		m_speed    = 1.0f/3.0f;

+	}

+

+	if ( m_phase == AEP_WAIT )

+	{

+		if ( m_progress < 1.0f )  return ERR_CONTINUE;

+

+		alien->SetLock(FALSE);

+		alien->SetActivity(TRUE);  // the insect is active

+	}

+

+	return ERR_STOP;

+}

+

+

+// Returns an error due the state of the automation.

+

+Error CAutoEgg::RetError()

+{

+	return ERR_OK;

+}

+

+

+// Seeking the insect that starts in the egg.

+

+CObject* CAutoEgg::SearchAlien()

+{

+	CObject*	pObj;

+	CObject*	pBest;

+	D3DVECTOR	cPos, oPos;

+	ObjectType	type;

+	float		dist, min;

+	int			i;

+

+	cPos = m_object->RetPosition(0);

+	min = 100000.0f;

+	pBest = 0;

+	for ( i=0 ; i<1000000 ; i++ )

+	{

+		pObj = (CObject*)m_iMan->SearchInstance(CLASS_OBJECT, i);

+		if ( pObj == 0 )  break;

+

+		if ( pObj->RetTruck() != 0 )  continue;

+

+		type = pObj->RetType();

+		if ( type != OBJECT_ANT    &&

+			 type != OBJECT_BEE    &&

+			 type != OBJECT_SPIDER &&

+			 type != OBJECT_WORM   )  continue;

+

+		oPos = pObj->RetPosition(0);

+		dist = Length2d(oPos, cPos);

+		if ( dist < 8.0f && dist < min )

+		{

+			min = dist;

+			pBest = pObj;

+		}

+	}

+	return pBest;

+}

+

+

+// Saves all parameters of the controller.

+

+BOOL CAutoEgg::Write(char *line)

+{

+	char	name[100];

+

+	if ( m_phase == AEP_NULL )  return FALSE;

+

+	sprintf(name, " aExist=%d", 1);

+	strcat(line, name);

+

+	CAuto::Write(line);

+

+	sprintf(name, " aPhase=%d", m_phase);

+	strcat(line, name);

+

+	sprintf(name, " aProgress=%.2f", m_progress);

+	strcat(line, name);

+

+	sprintf(name, " aSpeed=%.5f", m_speed);

+	strcat(line, name);

+

+	sprintf(name, " aParamType=%s", GetTypeObject(m_type));

+	strcat(line, name);

+

+	sprintf(name, " aParamValue1=%.2f", m_value);

+	strcat(line, name);

+

+	sprintf(name, " aParamString=\"%s\"", m_string);

+	strcat(line, name);

+

+	return TRUE;

+}

+

+// Restores all parameters of the controller.

+

+BOOL CAutoEgg::Read(char *line)

+{

+	if ( OpInt(line, "aExist", 0) == 0 )  return FALSE;

+

+	CAuto::Read(line);

+

+	m_phase = (AutoEggPhase)OpInt(line, "aPhase", AEP_NULL);

+	m_progress = OpFloat(line, "aProgress", 0.0f);

+	m_speed = OpFloat(line, "aSpeed", 1.0f);

+	m_type = OpTypeObject(line, "aParamType", OBJECT_NULL);

+	m_value = OpFloat(line, "aParamValue1", 0.0f);

+	OpString(line, "aParamString", m_string);

+

+	return TRUE;

+}

+