// * 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/. // pyro.cpp #include #include #include #include "common/struct.h" #include "math/const.h" #include "math/geometry.h" #include "old/d3dengine.h" #include "old/d3dmath.h" #include "common/event.h" #include "common/misc.h" #include "common/iman.h" #include "old/math3d.h" #include "object/robotmain.h" #include "old/terrain.h" #include "old/camera.h" #include "old/particule.h" #include "old/light.h" #include "object/object.h" #include "object/motion/motion.h" #include "object/motion/motionhuman.h" #include "ui/displaytext.h" #include "old/sound.h" #include "old/pyro.h" // Object's constructor. CPyro::CPyro(CInstanceManager* iMan) { m_iMan = iMan; m_iMan->AddInstance(CLASS_PYRO, this, 100); m_engine = (CD3DEngine*)m_iMan->SearchInstance(CLASS_ENGINE); m_terrain = (CTerrain*)m_iMan->SearchInstance(CLASS_TERRAIN); m_camera = (CCamera*)m_iMan->SearchInstance(CLASS_CAMERA); m_particule = (CParticule*)m_iMan->SearchInstance(CLASS_PARTICULE); m_light = (CLight*)m_iMan->SearchInstance(CLASS_LIGHT); m_displayText = (CDisplayText*)m_iMan->SearchInstance(CLASS_DISPLAYTEXT); m_main = (CRobotMain*)m_iMan->SearchInstance(CLASS_MAIN); m_sound = (CSound*)m_iMan->SearchInstance(CLASS_SOUND); m_object = 0; m_progress = 0.0f; m_speed = 0.0f; m_lightRank = -1; m_soundChannel = -1; LightOperFlush(); } // Object's destructor. CPyro::~CPyro() { m_iMan->DeleteInstance(CLASS_PYRO, this); } // Destroys the object. void CPyro::DeleteObject(bool bAll) { if ( m_lightRank != -1 ) { m_light->DeleteLight(m_lightRank); m_lightRank = -1; } } // Creates pyrotechnic effect. bool CPyro::Create(PyroType type, CObject* pObj, float force) { Math::Matrix* mat; CObject* power; CMotion* motion; Math::Vector min, max, pos, speed; Math::Point dim; ObjectType oType; Sound sound; float duration, mass, h, limit; int part, objRank, total, i, channel; m_object = pObj; m_force = force; oType = pObj->RetType(); objRank = pObj->RetObjectRank(0); if ( objRank == -1 ) return false; m_engine->GetBBox(objRank, min, max); pos = pObj->RetPosition(0); DisplayError(type, pObj); // displays eventual messages // Copies all spheres of the object. for ( i=0 ; i<50 ; i++ ) { if ( !pObj->GetCrashSphere(i, m_crashSpherePos[i], m_crashSphereRadius[i]) ) break; } m_crashSphereUsed = i; // Calculates the size of the effect. if ( oType == OBJECT_ANT || oType == OBJECT_BEE || oType == OBJECT_WORM || oType == OBJECT_SPIDER ) { m_size = 40.0f; } else { m_size = Math::Distance(min, max)*2.0f; if ( m_size < 4.0f ) m_size = 4.0f; if ( m_size > 80.0f ) m_size = 80.0f; } if ( oType == OBJECT_TNT || oType == OBJECT_BOMB ) { m_size *= 2.0f; } m_pos = pos+(min+max)/2.0f; m_type = type; m_progress = 0.0f; m_speed = 1.0f/20.0f; m_time = 0.0f; m_lastParticule = 0.0f; m_lastParticuleSmoke = 0.0f; m_lightRank = -1; if ( oType == OBJECT_TEEN28 || oType == OBJECT_TEEN31 ) { m_pos.y = pos.y+1.0f; } // Seeking the position of the battery. power = pObj->RetPower(); if ( power == 0 ) { m_bPower = false; } else { m_bPower = true; pos = power->RetPosition(0); pos.y += 1.0f; mat = pObj->RetWorldMatrix(0); m_posPower = Math::Transform(*mat, pos); } if ( oType == OBJECT_POWER || oType == OBJECT_ATOMIC || oType == OBJECT_URANIUM || oType == OBJECT_TNT || oType == OBJECT_BOMB ) { m_bPower = true; m_posPower = m_pos; m_posPower.y += 1.0f; m_pos = m_posPower; } if ( oType == OBJECT_STATION ) { m_bPower = true; mat = pObj->RetWorldMatrix(0); m_posPower = Math::Transform(*mat, Math::Vector(-15.0f, 7.0f, 0.0f)); m_pos = m_posPower; } if ( oType == OBJECT_ENERGY ) { m_bPower = true; mat = pObj->RetWorldMatrix(0); m_posPower = Math::Transform(*mat, Math::Vector(-7.0f, 6.0f, 0.0f)); m_pos = m_posPower; } if ( oType == OBJECT_NUCLEAR ) { m_bPower = true; m_posPower = m_pos; } if ( oType == OBJECT_PARA ) { m_bPower = true; m_posPower = m_pos; } if ( oType == OBJECT_SCRAP4 || oType == OBJECT_SCRAP5 ) // plastic material? { m_bPower = true; m_posPower = m_pos; } // Plays the sound of a pyrotechnic effect. if ( type == PT_FRAGT || type == PT_FRAGW || type == PT_EXPLOT || type == PT_EXPLOW ) { if ( m_bPower ) { sound = SOUND_EXPLOp; } else { sound = SOUND_EXPLO; } if ( oType == OBJECT_STONE || oType == OBJECT_METAL || oType == OBJECT_BULLET || oType == OBJECT_BBOX || oType == OBJECT_KEYa || oType == OBJECT_KEYb || oType == OBJECT_KEYc || oType == OBJECT_KEYd ) { sound = SOUND_EXPLOl; } if ( oType == OBJECT_URANIUM || oType == OBJECT_POWER || oType == OBJECT_ATOMIC || oType == OBJECT_TNT || oType == OBJECT_BOMB ) { sound = SOUND_EXPLOlp; } m_sound->Play(sound, m_pos); } if ( type == PT_FRAGO || type == PT_EXPLOO || type == PT_SPIDER || type == PT_SHOTM ) { m_sound->Play(SOUND_EXPLOi, m_pos); } if ( type == PT_BURNT || type == PT_BURNO ) { m_soundChannel = m_sound->Play(SOUND_BURN, m_pos, 1.0f, 1.0f, true); m_sound->AddEnvelope(m_soundChannel, 1.0f, 1.0f, 12.0f, SOPER_CONTINUE); m_sound->AddEnvelope(m_soundChannel, 0.0f, 1.0f, 5.0f, SOPER_STOP); } if ( type == PT_BURNO ) { m_sound->Play(SOUND_DEADi, m_pos); m_sound->Play(SOUND_DEADi, m_engine->RetEyePt()); } if ( type == PT_EGG ) { m_sound->Play(SOUND_EGG, m_pos); } if ( type == PT_WPCHECK || type == PT_FLCREATE || type == PT_FLDELETE ) { m_sound->Play(SOUND_WAYPOINT, m_pos); } if ( oType == OBJECT_HUMAN ) { if ( type == PT_DEADG ) { m_sound->Play(SOUND_DEADg, m_pos); } if ( type == PT_DEADW ) { m_sound->Play(SOUND_DEADw, m_pos); } if ( type == PT_SHOTH && m_object->RetSelect() ) { m_sound->Play(SOUND_AIE, m_pos); m_sound->Play(SOUND_AIE, m_engine->RetEyePt()); } } if ( m_type == PT_FRAGT || m_type == PT_FRAGO || m_type == PT_FRAGW ) { m_engine->ShadowDelete(m_object->RetObjectRank(0)); } if ( m_type == PT_DEADG ) { m_object->SetDead(true); motion = m_object->RetMotion(); if ( motion != 0 ) { motion->SetAction(MHS_DEADg, 1.0f); } m_camera->StartCentering(m_object, Math::PI*0.5f, 99.9f, 0.0f, 1.5f); m_camera->StartOver(OE_FADEOUTw, m_pos, 1.0f); m_speed = 1.0f/10.0f; return true; } if ( m_type == PT_DEADW ) { m_object->SetDead(true); motion = m_object->RetMotion(); if ( motion != 0 ) { motion->SetAction(MHS_DEADw, 4.0f); } m_camera->StartCentering(m_object, Math::PI*0.5f, 99.9f, 0.0f, 3.0f); m_camera->StartOver(OE_FADEOUTb, m_pos, 1.0f); m_speed = 1.0f/10.0f; return true; } if ( m_type == PT_SHOTT || m_type == PT_SHOTM ) { m_camera->StartEffect(CE_SHOT, m_pos, force); m_speed = 1.0f/1.0f; return true; } if ( m_type == PT_SHOTH ) { if ( m_object->RetSelect() ) { m_camera->StartOver(OE_BLOOD, m_pos, force); } m_speed = 1.0f/0.2f; return true; } if ( m_type == PT_SHOTW ) { m_speed = 1.0f/1.0f; } if ( m_type == PT_BURNT ) { BurnStart(); } if ( m_type == PT_WPCHECK ) { m_speed = 1.0f/8.0f; m_object->SetEnable(false); // object more functional } if ( m_type == PT_FLCREATE ) { m_speed = 1.0f/2.0f; } if ( m_type == PT_FLDELETE ) { m_speed = 1.0f/2.0f; m_object->SetEnable(false); // object more functional } if ( m_type == PT_RESET ) { m_speed = 1.0f/2.0f; m_object->SetPosition(0, m_object->RetResetPosition()); m_object->SetAngle(0, m_object->RetResetAngle()); m_object->SetZoom(0, 0.0f); } if ( m_type == PT_FINDING ) { limit = (m_size-1.0f)/4.0f; if ( limit > 8.0f ) limit = 8.0f; if ( oType == OBJECT_APOLLO2 ) limit = 2.0f; m_speed = 1.0f/limit; } if ( m_type == PT_EXPLOT || m_type == PT_EXPLOO || m_type == PT_EXPLOW ) { CreateTriangle(pObj, oType, 0); m_engine->ShadowDelete(m_object->RetObjectRank(0)); ExploStart(); } if ( m_type == PT_FALL ) { FallStart(); return true; } if ( m_type == PT_BURNT || m_type == PT_BURNO ) { m_speed = 1.0f/15.0f; LightOperAdd(0.00f, 0.0f, 2.0f, 1.0f, 0.0f); // red-orange LightOperAdd(0.30f, 1.0f, -0.8f, -0.8f, -0.8f); // dark gray LightOperAdd(0.80f, 1.0f, -0.8f, -0.8f, -0.8f); // dark gray LightOperAdd(1.00f, 0.0f, -0.8f, -0.8f, -0.8f); // dark gray CreateLight(m_pos, 40.0f); return true; } if ( m_type == PT_SPIDER ) { m_speed = 1.0f/15.0f; pos = Math::Vector(-3.0f, 2.0f, 0.0f); mat = pObj->RetWorldMatrix(0); m_pos = Math::Transform(*mat, pos); m_engine->ShadowDelete(m_object->RetObjectRank(0)); } if ( m_type != PT_EGG && m_type != PT_WIN && m_type != PT_LOST ) { h = 40.0f; if ( m_type == PT_FRAGO || m_type == PT_EXPLOO ) { LightOperAdd(0.00f, 0.0f, -1.0f, -0.5f, -1.0f); // dark green LightOperAdd(0.05f, 1.0f, -1.0f, -0.5f, -1.0f); // dark green LightOperAdd(1.00f, 0.0f, -1.0f, -0.5f, -1.0f); // dark green } else if ( m_type == PT_FRAGT || m_type == PT_EXPLOT ) { LightOperAdd(0.00f, 1.0f, 4.0f, 4.0f, 2.0f); // yellow LightOperAdd(0.02f, 1.0f, 4.0f, 2.0f, 0.0f); // red-orange LightOperAdd(0.16f, 1.0f, -0.8f, -0.8f, -0.8f); // dark gray LightOperAdd(1.00f, 0.0f, -0.8f, -0.8f, -0.8f); // dark gray h = m_size*2.0f; } else if ( m_type == PT_SPIDER ) { LightOperAdd(0.00f, 0.0f, -0.5f, -1.0f, -1.0f); // dark red LightOperAdd(0.05f, 1.0f, -0.5f, -1.0f, -1.0f); // dark red LightOperAdd(1.00f, 0.0f, -0.5f, -1.0f, -1.0f); // dark red } else if ( m_type == PT_FRAGW || m_type == PT_EXPLOW || m_type == PT_SHOTW ) { LightOperAdd(0.00f, 0.0f, -0.5f, -0.5f, -1.0f); // dark yellow LightOperAdd(0.05f, 1.0f, -0.5f, -0.5f, -1.0f); // dark yellow LightOperAdd(1.00f, 0.0f, -0.5f, -0.5f, -1.0f); // dark yellow } else if ( m_type == PT_WPCHECK || m_type == PT_FLCREATE || m_type == PT_FLDELETE || m_type == PT_RESET || m_type == PT_FINDING ) { LightOperAdd(0.00f, 1.0f, 4.0f, 4.0f, 2.0f); // yellow LightOperAdd(1.00f, 0.0f, 4.0f, 4.0f, 2.0f); // yellow } else { LightOperAdd(0.00f, 0.0f, -0.8f, -0.8f, -0.8f); // dark gray LightOperAdd(0.05f, 1.0f, -0.8f, -0.8f, -0.8f); // dark gray LightOperAdd(1.00f, 0.0f, -0.8f, -0.8f, -0.8f); // dark gray } CreateLight(m_pos, h); if ( m_type != PT_SHOTW && m_type != PT_WPCHECK && m_type != PT_FLCREATE && m_type != PT_FLDELETE && m_type != PT_RESET && m_type != PT_FINDING ) { m_camera->StartEffect(CE_EXPLO, m_pos, force); } } if ( m_type == PT_SHOTW ) return true; // Generates the triangles of the explosion. if ( m_type == PT_FRAGT || m_type == PT_FRAGO || m_type == PT_FRAGW || m_type == PT_SPIDER || m_type == PT_EGG || (m_type == PT_EXPLOT && oType == OBJECT_MOBILEtg) || (m_type == PT_EXPLOT && oType == OBJECT_TEEN28 ) || (m_type == PT_EXPLOT && oType == OBJECT_TEEN31 ) ) { for ( part=0 ; partRetParticuleDensity()); if ( oType == OBJECT_TNT || oType == OBJECT_BOMB ) total *= 3; for ( i=0 ; iCreateTrack(pos, speed, dim, PARTITRACK1, duration, mass, Math::Rand()+0.7f, 1.0f); } } if ( m_size > 10.0f ) // large enough (freight excluded)? { if ( m_bPower ) { pos = m_posPower; } else { pos = m_pos; m_terrain->MoveOnFloor(pos); pos.y += 1.0f; } dim.x = m_size*0.4f; dim.y = dim.x; m_particule->CreateParticule(pos, Math::Vector(0.0f,0.0f,0.0f), dim, PARTISPHERE0, 2.0f, 0.0f, 0.0f); } } if ( m_type == PT_FRAGO || m_type == PT_EXPLOO ) { total = (int)(10.0f*m_engine->RetParticuleDensity()); for ( i=0 ; iCreateParticule(pos, speed, dim, PARTIORGANIC1, duration, mass); } total = (int)(5.0f*m_engine->RetParticuleDensity()); for ( i=0 ; iCreateTrack(pos, speed, dim, PARTITRACK4, duration, mass, duration*0.5f, dim.x*2.0f); } } if ( m_type == PT_SPIDER ) { for ( i=0 ; i<50 ; i++ ) { pos = m_pos; pos.x += (Math::Rand()-0.5f)*3.0f; pos.z += (Math::Rand()-0.5f)*3.0f; pos.y += (Math::Rand()-0.5f)*2.0f; speed.x = (Math::Rand()-0.5f)*24.0f; speed.z = (Math::Rand()-0.5f)*24.0f; speed.y = 10.0f+Math::Rand()*10.0f; dim.x = 1.0f; dim.y = dim.x; channel = m_particule->CreateParticule(pos, speed, dim, PARTIGUN3, 2.0f+Math::Rand()*2.0f, 10.0f); m_particule->SetObjectFather(channel, pObj); } total = (int)(10.0f*m_engine->RetParticuleDensity()); for ( i=0 ; iCreateTrack(pos, speed, dim, PARTITRACK3, 2.0f+Math::Rand()*2.0f, 10.0f, 2.0f, 0.6f); } } if ( type == PT_FRAGT || type == PT_FRAGW || type == PT_EXPLOT || type == PT_EXPLOW ) { if ( m_size > 10.0f || m_bPower ) { pos = m_pos; //? m_terrain->MoveOnFloor(pos); //? pos.y += 2.0f; speed = Math::Vector(0.0f, 0.0f, 0.0f); dim.x = m_size; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTICHOC, 2.0f); } } return true; } // Creates an explosion with triangular form of particles. void CPyro::CreateTriangle(CObject* pObj, ObjectType oType, int part) { D3DTriangle buffer[100]; Math::Matrix* mat; Math::Vector offset, pos, speed; float percent, min, max, h, duration, mass; int objRank, total, i; objRank = pObj->RetObjectRank(part); if ( objRank == -1 ) return; min = 0.0f; max = m_engine->RetLimitLOD(0); total = m_engine->RetTotalTriangles(objRank); percent = 0.10f; if ( total < 50 ) percent = 0.25f; if ( total < 20 ) percent = 0.50f; if ( m_type == PT_EGG ) percent = 0.30f; if ( oType == OBJECT_POWER || oType == OBJECT_ATOMIC || oType == OBJECT_URANIUM || oType == OBJECT_TNT || oType == OBJECT_BOMB ) percent = 0.75f; if ( oType == OBJECT_MOBILEtg ) percent = 0.50f; if ( oType == OBJECT_TEEN28 ) percent = 0.75f; if ( oType == OBJECT_MOTHER ) max = 1000000.0f; if ( oType == OBJECT_TEEN28 ) max = 1000000.0f; if ( oType == OBJECT_TEEN31 ) max = 1000000.0f; total = m_engine->GetTriangles(objRank, min, max, buffer, 100, percent); for ( i=0 ; i 5.0f ) { p2.x = p1.x+((p2.x-p1.x)*5.0f/h); p2.y = p1.y+((p2.y-p1.y)*5.0f/h); p2.z = p1.z+((p2.z-p1.z)*5.0f/h); } h = Math::Distance(p2, p3); if ( h > 5.0f ) { p3.x = p2.x+((p3.x-p2.x)*5.0f/h); p3.y = p2.y+((p3.y-p2.y)*5.0f/h); p3.z = p2.z+((p3.z-p2.z)*5.0f/h); } h = Math::Distance(p3, p1); if ( h > 5.0f ) { p1.x = p3.x+((p1.x-p3.x)*5.0f/h); p1.y = p3.y+((p1.y-p3.y)*5.0f/h); p1.z = p3.z+((p1.z-p3.z)*5.0f/h); } buffer[i].triangle[0].x = p1.x; buffer[i].triangle[0].y = p1.y; buffer[i].triangle[0].z = p1.z; buffer[i].triangle[1].x = p2.x; buffer[i].triangle[1].y = p2.y; buffer[i].triangle[1].z = p2.z; buffer[i].triangle[2].x = p3.x; buffer[i].triangle[2].y = p3.y; buffer[i].triangle[2].z = p3.z; offset.x = (buffer[i].triangle[0].x+buffer[i].triangle[1].x+buffer[i].triangle[2].x)/3.0f; offset.y = (buffer[i].triangle[0].y+buffer[i].triangle[1].y+buffer[i].triangle[2].y)/3.0f; offset.z = (buffer[i].triangle[0].z+buffer[i].triangle[1].z+buffer[i].triangle[2].z)/3.0f; buffer[i].triangle[0].x -= offset.x; buffer[i].triangle[1].x -= offset.x; buffer[i].triangle[2].x -= offset.x; buffer[i].triangle[0].y -= offset.y; buffer[i].triangle[1].y -= offset.y; buffer[i].triangle[2].y -= offset.y; buffer[i].triangle[0].z -= offset.z; buffer[i].triangle[1].z -= offset.z; buffer[i].triangle[2].z -= offset.z; mat = pObj->RetWorldMatrix(part); pos = Math::Transform(*mat, offset); if ( m_type == PT_EGG ) { speed.x = (Math::Rand()-0.5f)*10.0f; speed.z = (Math::Rand()-0.5f)*10.0f; speed.y = Math::Rand()*15.0f; mass = Math::Rand()*20.0f+20.0f; } else if ( m_type == PT_SPIDER ) { speed.x = (Math::Rand()-0.5f)*10.0f; speed.z = (Math::Rand()-0.5f)*10.0f; speed.y = Math::Rand()*20.0f; mass = Math::Rand()*10.0f+15.0f; } else { speed.x = (Math::Rand()-0.5f)*30.0f; speed.z = (Math::Rand()-0.5f)*30.0f; speed.y = Math::Rand()*30.0f; mass = Math::Rand()*10.0f+15.0f; } if ( oType == OBJECT_STONE ) speed *= 0.5f; if ( oType == OBJECT_URANIUM ) speed *= 0.4f; duration = Math::Rand()*3.0f+3.0f; m_particule->CreateFrag(pos, speed, &buffer[i], PARTIFRAG, duration, mass, 0.5f); } } // Displays the error or eventual information, // linked to the destruction of an insect, a vehicle or building. void CPyro::DisplayError(PyroType type, CObject* pObj) { ObjectType oType; Error err; oType = pObj->RetType(); if ( type == PT_FRAGT || type == PT_FRAGO || type == PT_FRAGW || type == PT_EXPLOT || type == PT_EXPLOO || type == PT_EXPLOW || type == PT_BURNT || type == PT_BURNO ) { err = ERR_OK; if ( oType == OBJECT_MOTHER ) err = INFO_DELETEMOTHER; if ( oType == OBJECT_ANT ) err = INFO_DELETEANT; if ( oType == OBJECT_BEE ) err = INFO_DELETEBEE; if ( oType == OBJECT_WORM ) err = INFO_DELETEWORM; if ( oType == OBJECT_SPIDER ) err = INFO_DELETESPIDER; if ( oType == OBJECT_MOBILEwa || oType == OBJECT_MOBILEta || oType == OBJECT_MOBILEfa || oType == OBJECT_MOBILEia || oType == OBJECT_MOBILEwc || oType == OBJECT_MOBILEtc || oType == OBJECT_MOBILEfc || oType == OBJECT_MOBILEic || oType == OBJECT_MOBILEwi || oType == OBJECT_MOBILEti || oType == OBJECT_MOBILEfi || oType == OBJECT_MOBILEii || oType == OBJECT_MOBILEws || oType == OBJECT_MOBILEts || oType == OBJECT_MOBILEfs || oType == OBJECT_MOBILEis || oType == OBJECT_MOBILErt || oType == OBJECT_MOBILErc || oType == OBJECT_MOBILErr || oType == OBJECT_MOBILErs || oType == OBJECT_MOBILEsa || oType == OBJECT_MOBILEwt || oType == OBJECT_MOBILEtt || oType == OBJECT_MOBILEft || oType == OBJECT_MOBILEit || oType == OBJECT_MOBILEdr ) { err = ERR_DELETEMOBILE; } if ( oType == OBJECT_DERRICK || oType == OBJECT_FACTORY || oType == OBJECT_STATION || oType == OBJECT_CONVERT || oType == OBJECT_REPAIR || oType == OBJECT_DESTROYER|| oType == OBJECT_TOWER || oType == OBJECT_RESEARCH || oType == OBJECT_RADAR || oType == OBJECT_INFO || oType == OBJECT_ENERGY || oType == OBJECT_LABO || oType == OBJECT_NUCLEAR || oType == OBJECT_PARA || oType == OBJECT_SAFE || oType == OBJECT_HUSTON || oType == OBJECT_START || oType == OBJECT_END ) { err = ERR_DELETEBUILDING; m_displayText->DisplayError(err, pObj->RetPosition(0), 5.0f); return; } if ( err != ERR_OK ) { m_displayText->DisplayError(err, pObj); } } } // Management of an event. bool CPyro::EventProcess(const Event &event) { ParticuleType type; Math::Vector pos, speed, angle; Math::Point dim; float prog, factor, duration; int i, r; if ( event.event != EVENT_FRAME ) return true; if ( m_engine->RetPause() ) return true; m_time += event.rTime; m_progress += event.rTime*m_speed; if ( m_soundChannel != -1 && m_object != 0 ) { pos = m_object->RetPosition(0); m_sound->Position(m_soundChannel, pos); if ( m_lightRank != -1 ) { pos.y += m_lightHeight; m_light->SetLightPos(m_lightRank, pos); } } if ( m_type == PT_SHOTT && m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; if ( m_crashSphereUsed > 0 ) { i = rand()%m_crashSphereUsed; pos = m_crashSpherePos[i]; pos.x += (Math::Rand()-0.5f)*m_crashSphereRadius[i]*2.0f; pos.z += (Math::Rand()-0.5f)*m_crashSphereRadius[i]*2.0f; speed.x = (Math::Rand()-0.5f)*m_crashSphereRadius[i]*0.5f; speed.z = (Math::Rand()-0.5f)*m_crashSphereRadius[i]*0.5f; speed.y = Math::Rand()*m_crashSphereRadius[i]*1.0f; dim.x = Math::Rand()*m_crashSphereRadius[i]*0.5f+m_crashSphereRadius[i]*0.75f*m_force; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTISMOKE1, 3.0f); } else { pos = m_pos; pos.x += (Math::Rand()-0.5f)*m_size*0.3f; pos.z += (Math::Rand()-0.5f)*m_size*0.3f; speed.x = (Math::Rand()-0.5f)*m_size*0.1f; speed.z = (Math::Rand()-0.5f)*m_size*0.1f; speed.y = Math::Rand()*m_size*0.2f; dim.x = Math::Rand()*m_size/10.0f+m_size/10.0f*m_force; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTISMOKE1, 3.0f); } } if ( m_type == PT_SHOTH && m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; for ( i=0 ; i<10 ; i++ ) { pos = m_pos; pos.x += (Math::Rand()-0.5f)*m_size*0.2f; pos.z += (Math::Rand()-0.5f)*m_size*0.2f; pos.y += (Math::Rand()-0.5f)*m_size*0.5f; speed.x = (Math::Rand()-0.5f)*5.0f; speed.z = (Math::Rand()-0.5f)*5.0f; speed.y = Math::Rand()*1.0f; dim.x = 1.0f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIBLOOD, Math::Rand()*3.0f+3.0f, Math::Rand()*10.0f+15.0f, 0.5f); } } if ( m_type == PT_SHOTM && m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; r = (int)(10.0f*m_engine->RetParticuleDensity()); for ( i=0 ; iCreateParticule(pos, speed, dim, PARTIBLOODM, 2.0f, 50.0f, 0.0f); } } if ( m_type == PT_SHOTW && m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; if ( m_crashSphereUsed > 0 ) { i = rand()%m_crashSphereUsed; pos = m_crashSpherePos[i]; pos.x += (Math::Rand()-0.5f)*m_crashSphereRadius[i]*2.0f; pos.z += (Math::Rand()-0.5f)*m_crashSphereRadius[i]*2.0f; speed.x = (Math::Rand()-0.5f)*m_crashSphereRadius[i]*0.5f; speed.z = (Math::Rand()-0.5f)*m_crashSphereRadius[i]*0.5f; speed.y = Math::Rand()*m_crashSphereRadius[i]*1.0f; dim.x = 1.0f*m_force; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIBLITZ, 0.5f, 0.0f, 0.0f); } else { pos = m_pos; pos.x += (Math::Rand()-0.5f)*m_size*0.3f; pos.z += (Math::Rand()-0.5f)*m_size*0.3f; speed.x = (Math::Rand()-0.5f)*m_size*0.1f; speed.z = (Math::Rand()-0.5f)*m_size*0.1f; speed.y = Math::Rand()*m_size*0.2f; dim.x = 1.0f*m_force; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIBLITZ, 0.5f, 0.0f, 0.0f); } } if ( m_type == PT_SHOTW && m_lastParticuleSmoke+m_engine->ParticuleAdapt(0.10f) <= m_time ) { m_lastParticuleSmoke = m_time; pos = m_pos; pos.y -= 2.0f; pos.x += (Math::Rand()-0.5f)*4.0f; pos.z += (Math::Rand()-0.5f)*4.0f; speed.x = 0.0f; speed.z = 0.0f; speed.y = 10.0f+Math::Rand()*10.0f; dim.x = Math::Rand()*2.5f+2.0f*m_force; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTICRASH, 4.0f); } if ( (m_type == PT_FRAGT || m_type == PT_EXPLOT) && m_progress < 0.05f && m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; speed.x = (Math::Rand()-0.5f)*m_size*1.0f; speed.z = (Math::Rand()-0.5f)*m_size*1.0f; speed.y = Math::Rand()*m_size*0.50f; dim.x = Math::Rand()*m_size/5.0f+m_size/5.0f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIEXPLOT); } if ( (m_type == PT_FRAGT || m_type == PT_EXPLOT) && m_progress < 0.10f && m_lastParticuleSmoke+m_engine->ParticuleAdapt(0.10f) <= m_time ) { m_lastParticuleSmoke = m_time; dim.x = Math::Rand()*m_size/3.0f+m_size/3.0f; dim.y = dim.x; pos = m_pos; pos.x += (Math::Rand()-0.5f)*m_size*0.5f; pos.z += (Math::Rand()-0.5f)*m_size*0.5f; m_terrain->MoveOnFloor(pos); speed.x = 0.0f; speed.z = 0.0f; speed.y = -dim.x/2.0f/4.0f; pos.y += dim.x/2.0f; r = rand()%2; if ( r == 0 ) type = PARTISMOKE1; if ( r == 1 ) type = PARTISMOKE2; m_particule->CreateParticule(pos, speed, dim, type, 6.0f); } if ( (m_type == PT_FRAGO || m_type == PT_EXPLOO) && m_progress < 0.03f && m_lastParticule+m_engine->ParticuleAdapt(0.1f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; speed.x = (Math::Rand()-0.5f)*m_size*2.0f; speed.z = (Math::Rand()-0.5f)*m_size*2.0f; speed.y = Math::Rand()*m_size*1.0f; dim.x = Math::Rand()*m_size/2.0f+m_size/2.0f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIEXPLOO); } if ( (m_type == PT_FRAGW || m_type == PT_EXPLOW) && m_progress < 0.05f && m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; speed.x = (Math::Rand()-0.5f)*m_size*1.0f; speed.z = (Math::Rand()-0.5f)*m_size*1.0f; speed.y = Math::Rand()*m_size*0.50f; dim.x = 1.0f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIBLITZ, 0.5f, 0.0f, 0.0f); } if ( (m_type == PT_FRAGW || m_type == PT_EXPLOW) && m_progress < 0.25f && m_lastParticuleSmoke+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticuleSmoke = m_time; pos = m_pos; pos.y -= 2.0f; pos.x += (Math::Rand()-0.5f)*4.0f; pos.z += (Math::Rand()-0.5f)*4.0f; speed.x = 0.0f; speed.z = 0.0f; speed.y = 4.0f+Math::Rand()*4.0f; dim.x = Math::Rand()*2.5f+2.0f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTICRASH, 4.0f); } if ( m_type == PT_WPCHECK ) { if ( m_progress < 0.25f ) { factor = 0.0f; } else { factor = powf((m_progress-0.25f)/0.75f, 2.0f)*30.0f; } if ( m_progress < 0.85f && m_lastParticule+m_engine->ParticuleAdapt(0.10f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; pos.y += factor; pos.x += (Math::Rand()-0.5f)*3.0f; pos.z += (Math::Rand()-0.5f)*3.0f; speed.x = 0.0f; speed.z = 0.0f; speed.y = 5.0f+Math::Rand()*5.0f; dim.x = Math::Rand()*1.5f+1.5f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIGLINT, 2.0f); //? m_particule->CreateParticule(pos, speed, dim, (ParticuleType)(PARTILENS1+rand()%4), 2.0f); } angle = m_object->RetAngle(0); angle.y = m_progress*20.0f; angle.x = sinf(m_progress*49.0f)*0.3f; angle.z = sinf(m_progress*47.0f)*0.2f; m_object->SetAngle(0, angle); pos = m_pos; pos.y += factor; m_object->SetPosition(0, pos); if ( m_progress > 0.85f ) { m_object->SetZoom(0, 1.0f-(m_progress-0.85f)/0.15f); } } if ( m_type == PT_FLCREATE ) { if ( m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; m_terrain->MoveOnFloor(pos); pos.x += (Math::Rand()-0.5f)*1.0f; pos.z += (Math::Rand()-0.5f)*1.0f; speed.x = (Math::Rand()-0.5f)*2.0f; speed.z = (Math::Rand()-0.5f)*2.0f; speed.y = 2.0f+Math::Rand()*2.0f; dim.x = (Math::Rand()*1.0f+1.0f)*(0.2f+m_progress*0.8f); dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIGLINT, 2.0f, 0.0f, 0.0f); } angle = m_object->RetAngle(0); //? angle.y = powf(m_progress, 0.2f)*20.0f; angle.x = sinf(m_progress*49.0f)*0.3f*(1.0f-m_progress); angle.z = sinf(m_progress*47.0f)*0.2f*(1.0f-m_progress); m_object->SetAngle(0, angle); m_object->SetZoom(0, m_progress); } if ( m_type == PT_FLDELETE ) { if ( m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; m_terrain->MoveOnFloor(pos); pos.x += (Math::Rand()-0.5f)*1.0f; pos.z += (Math::Rand()-0.5f)*1.0f; speed.x = (Math::Rand()-0.5f)*2.0f; speed.z = (Math::Rand()-0.5f)*2.0f; speed.y = 2.0f+Math::Rand()*2.0f; dim.x = (Math::Rand()*1.0f+1.0f)*(0.2f+m_progress*0.8f); dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIGLINT, 2.0f, 0.0f, 0.5f); } angle = m_object->RetAngle(0); angle.y = m_progress*20.0f; angle.x = sinf(m_progress*49.0f)*0.3f; angle.z = sinf(m_progress*47.0f)*0.2f; m_object->SetAngle(0, angle); m_object->SetZoom(0, 1.0f-m_progress); } if ( m_type == PT_RESET ) { #if 0 if ( m_lastParticule+m_engine->ParticuleAdapt(0.10f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; speed.x = (Math::Rand()-0.5f)*6.0f; speed.z = (Math::Rand()-0.5f)*6.0f; speed.y = Math::Rand()*12.0f; dim.x = (Math::Rand()*2.5f+2.5f)*(1.0f-m_progress*0.9f); dim.y = dim.x; pos.y += dim.y; m_particule->CreateParticule(pos, speed, dim, (ParticuleType)(PARTILENS1+rand()%4), Math::Rand()*2.5f+2.5f, Math::Rand()*5.0f+5.0f, 0.0f); } #else if ( m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; pos = m_pos; pos.x += (Math::Rand()-0.5f)*5.0f; pos.z += (Math::Rand()-0.5f)*5.0f; speed.x = 0.0f; speed.z = 0.0f; speed.y = 5.0f+Math::Rand()*5.0f; dim.x = Math::Rand()*2.0f+2.0f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIGLINTb, 2.0f); pos = m_pos; speed.x = (Math::Rand()-0.5f)*20.0f; speed.z = (Math::Rand()-0.5f)*20.0f; speed.y = Math::Rand()*10.0f; speed *= 0.5f+m_progress*0.5f; dim.x = 0.6f; dim.y = dim.x; pos.y += dim.y; duration = Math::Rand()*1.5f+1.5f; m_particule->CreateTrack(pos, speed, dim, PARTITRACK6, duration, 0.0f, duration*0.9f, 0.7f); } #endif angle = m_object->RetResetAngle(); m_object->SetAngleY(0, angle.y-powf((1.0f-m_progress)*5.0f, 2.0f)); m_object->SetZoom(0, m_progress); } if ( m_type == PT_FINDING ) { if ( m_object != 0 && m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; factor = m_size*0.3f; if ( m_object->RetType() == OBJECT_SAFE ) factor *= 1.3f; if ( factor > 40.0f ) factor = 40.0f; pos = m_pos; m_terrain->MoveOnFloor(pos); pos.x += (Math::Rand()-0.5f)*factor; pos.z += (Math::Rand()-0.5f)*factor; speed.x = (Math::Rand()-0.5f)*2.0f; speed.z = (Math::Rand()-0.5f)*2.0f; speed.y = 4.0f+Math::Rand()*4.0f; dim.x = (Math::Rand()*3.0f+3.0f)*(1.0f-m_progress*0.9f); dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIGLINT, 2.0f, 0.0f, 0.5f); } } if ( (m_type == PT_BURNT || m_type == PT_BURNO) && m_object != 0 ) { if ( m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; factor = m_size/25.0f; // 1 = standard size pos = m_object->RetPosition(0); pos.y -= m_object->RetCharacter()->height; pos.x += (Math::Rand()-0.5f)*(4.0f+8.0f*m_progress)*factor; pos.z += (Math::Rand()-0.5f)*(4.0f+8.0f*m_progress)*factor; speed.x = 0.0f; speed.z = 0.0f; speed.y = 0.0f; dim.x = (Math::Rand()*2.5f+1.0f)*factor; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIFLAME, 2.0f, 0.0f, 0.2f); pos = m_object->RetPosition(0); pos.y -= m_object->RetCharacter()->height; pos.x += (Math::Rand()-0.5f)*(2.0f+4.0f*m_progress)*factor; pos.z += (Math::Rand()-0.5f)*(2.0f+4.0f*m_progress)*factor; speed.x = 0.0f; speed.z = 0.0f; speed.y = (Math::Rand()*5.0f*m_progress+3.0f)*factor; dim.x = (Math::Rand()*2.0f+1.0f)*factor; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTIFLAME, 2.0f, 0.0f, 0.2f); pos = m_object->RetPosition(0); pos.y -= 2.0f; pos.x += (Math::Rand()-0.5f)*5.0f*factor; pos.z += (Math::Rand()-0.5f)*5.0f*factor; speed.x = 0.0f; speed.z = 0.0f; speed.y = (6.0f+Math::Rand()*6.0f+m_progress*6.0f)*factor; dim.x = (Math::Rand()*1.5f+1.0f+m_progress*3.0f)*factor; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTISMOKE3, 4.0f); } if ( m_type == PT_BURNT ) { BurnProgress(); } else { speed.y = 0.0f; speed.x = (Math::Rand()-0.5f)*m_progress*1.0f; speed.z = (Math::Rand()-0.5f)*m_progress*1.0f; if ( m_progress > 0.8f ) { prog = (m_progress-0.8f)/0.2f; // 0..1 speed.y = -prog*6.0f; // sinks into the ground m_object->SetZoom(0, 1.0f-prog*0.5f); } m_object->SetLinVibration(speed); } } if ( m_type == PT_WIN ) { if ( m_lastParticule+m_engine->ParticuleAdapt(0.05f) <= m_time ) { m_lastParticule = m_time; pos = m_object->RetPosition(0); pos.y += 1.5f; speed.x = (Math::Rand()-0.5f)*10.0f; speed.z = (Math::Rand()-0.5f)*10.0f; speed.y = 8.0f+Math::Rand()*8.0f; dim.x = Math::Rand()*0.2f+0.2f; dim.y = dim.x; m_particule->CreateTrack(pos, speed, dim, (ParticuleType)(PARTITRACK7+rand()%4), 3.0f, 20.0f, 1.0f, 0.4f); } } if ( m_type == PT_LOST ) { if ( m_lastParticule+m_engine->ParticuleAdapt(0.10f) <= m_time ) { m_lastParticule = m_time; pos = m_object->RetPosition(0); pos.y -= 2.0f; pos.x += (Math::Rand()-0.5f)*10.0f; pos.z += (Math::Rand()-0.5f)*10.0f; speed.x = 0.0f; speed.z = 0.0f; speed.y = 1.0f+Math::Rand()*1.0f; dim.x = Math::Rand()*1.0f+1.0f; dim.y = dim.x; m_particule->CreateParticule(pos, speed, dim, PARTISMOKE1, 8.0f, 0.0f, 0.0f); } } if ( m_type == PT_FALL ) { FallProgress(event.rTime); } if ( m_lightRank != -1 ) { LightOperFrame(event.rTime); } return true; } // Indicates that the object binds to the effect no longer exists, without deleting it. void CPyro::CutObjectLink(CObject* pObj) { if ( m_object == pObj ) { m_object = 0; } } // Indicates whether the pyrotechnic effect is complete. Error CPyro::IsEnded() { // Destroys the object that exploded. //It should not be destroyed at the end of the Create, //because it is sometimes the object itself that makes the Create: // pyro->Create(PT_FRAGT, this); if ( m_type == PT_FRAGT || m_type == PT_FRAGO || m_type == PT_FRAGW || m_type == PT_SPIDER || m_type == PT_EGG ) { DeleteObject(true, true); } if ( m_type == PT_FALL ) // freight which grave? { return FallIsEnded(); } if ( m_type == PT_WIN || m_type == PT_LOST ) { return ERR_CONTINUE; } // End of the pyrotechnic effect? if ( m_progress < 1.0f ) return ERR_CONTINUE; if ( m_type == PT_EXPLOT || m_type == PT_EXPLOO || m_type == PT_EXPLOW ) // explosion? { ExploTerminate(); } if ( m_type == PT_BURNT || m_type == PT_BURNO ) // burning? { BurnTerminate(); } if ( m_type == PT_WPCHECK || m_type == PT_FLDELETE ) { DeleteObject(true, true); } if ( m_type == PT_FLCREATE ) { m_object->SetAngleX(0, 0.0f); m_object->SetAngleZ(0, 0.0f); m_object->SetZoom(0, 1.0f); } if ( m_type == PT_RESET ) { m_object->SetPosition(0, m_object->RetResetPosition()); m_object->SetAngle(0, m_object->RetResetAngle()); m_object->SetZoom(0, 1.0f); } if ( m_lightRank != -1 ) { m_light->DeleteLight(m_lightRank); m_lightRank = -1; } return ERR_STOP; } // Removes the binding to a pyrotechnic effect. void CPyro::DeleteObject(bool bPrimary, bool bSecondary) { CObject *sub, *truck; Math::Vector pos; ObjectType type; if ( m_object == 0 ) return; if ( m_object->RetResetCap() == RESET_MOVE ) // resettable object? { m_object->SetEnable(false); // object cache and inactive pos = m_object->RetPosition(0); pos.y = -100.0f; m_object->SetPosition(0, pos); return; } type = m_object->RetType(); if ( bSecondary && type != OBJECT_FACTORY && type != OBJECT_NUCLEAR && type != OBJECT_ENERGY ) { sub = m_object->RetPower(); if ( sub != 0 ) { sub->DeleteObject(); // removes the battery delete sub; m_object->SetPower(0); } sub = m_object->RetFret(); if ( sub != 0 ) { sub->DeleteObject(); // removes the object transported delete sub; m_object->SetFret(0); } } if ( bPrimary ) { truck = m_object->RetTruck(); if ( truck != 0 ) // object carries? { if ( truck->RetPower() == m_object ) { truck->SetPower(0); } if ( truck->RetFret() == m_object ) { truck->SetFret(0); } } sub = m_object; sub->DeleteObject(); // removes the object (*) delete sub; m_object = 0; } } // (*) CObject :: DeleteObject can reset m_object through CPyro :: CutObjectLink! // Empty the table of operations of animation of light. void CPyro::LightOperFlush() { m_lightOperTotal = 0; } // Adds an animation operation of the light. void CPyro::LightOperAdd(float progress, float intensity, float r, float g, float b) { int i; i = m_lightOperTotal; m_lightOper[i].progress = progress; m_lightOper[i].intensity = intensity; m_lightOper[i].color.r = r; m_lightOper[i].color.g = g; m_lightOper[i].color.b = b; m_lightOperTotal ++; } // Makes evolve the associated light. void CPyro::LightOperFrame(float rTime) { D3DCOLORVALUE color; float progress, intensity; int i; for ( i=0 ; iSetLightIntensity(m_lightRank, intensity); m_light->SetLightColor(m_lightRank, color); break; } } } // Creates light to accompany a pyrotechnic effect. bool CPyro::CreateLight(Math::Vector pos, float height) { D3DLIGHT7 light; if ( !m_engine->RetLightMode() ) return true; m_lightHeight = height; ZeroMemory( &light, sizeof(light) ); light.dltType = D3DLIGHT_SPOT; light.dvPosition.x = pos.x; light.dvPosition.y = pos.y+height; light.dvPosition.z = pos.z; light.dvDirection.x = 0.0f; light.dvDirection.y = -1.0f; // against the bottom light.dvDirection.z = 0.0f; light.dvRange = D3DLIGHT_RANGE_MAX; light.dvFalloff = 1.0f; light.dvAttenuation0 = 1.0f; light.dvAttenuation1 = 0.0f; light.dvAttenuation2 = 0.0f; light.dvTheta = 0.0f; light.dvPhi = Math::PI/4.0f; m_lightRank = m_light->CreateLight(); if ( m_lightRank == -1 ) return false; m_light->SetLight(m_lightRank, light); m_light->SetLightIntensity(m_lightRank, 0.0f); // Only illuminates the objects on the ground. m_light->SetLightIncluType(m_lightRank, TYPETERRAIN); return true; } // Starts the explosion of a vehicle. void CPyro::ExploStart() { Math::Vector pos, angle, speed, min, max; float weight; int i, objRank, channel; m_burnType = m_object->RetType(); pos = m_object->RetPosition(0); m_burnFall = m_terrain->RetFloorHeight(pos, true); m_object->Simplify(); m_object->SetLock(true); // ruin not usable yet m_object->SetExplo(true); // being destroyed m_object->FlatParent(); if ( m_object->RetSelect() ) { m_object->SetSelect(false); // deselects the object m_camera->SetType(CAMERA_EXPLO); m_main->DeselectAll(); } m_object->DeleteDeselList(m_object); for ( i=0 ; iRetObjectRank(i); if ( objRank == -1 ) continue; m_engine->ChangeSecondTexture(objRank, "dirty04.tga"); pos = m_object->RetPosition(i); if ( i == 0 ) // main part? { weight = 0.0f; speed.y = -1.0f; speed.x = 0.0f; speed.z = 0.0f; } else { m_engine->GetBBox(objRank, min, max); weight = Math::Distance(min, max); // weight according to size! speed.y = 10.0f+Math::Rand()*20.0f; speed.x = (Math::Rand()-0.5f)*20.0f; speed.z = (Math::Rand()-0.5f)*20.0f; } channel = m_particule->CreatePart(pos, speed, PARTIPART, 10.0f, 20.0f, weight, 0.5f); if ( channel != -1 ) { m_object->SetMasterParticule(i, channel); } } m_engine->LoadTexture("dirty04.tga", 1); DeleteObject(false, true); // destroys the object transported + the battery } // Ends the explosion of a vehicle. void CPyro::ExploTerminate() { DeleteObject(true, false); // removes the main object } // Starts a vehicle fire. void CPyro::BurnStart() { Math::Vector pos, angle; int i, objRank; m_burnType = m_object->RetType(); pos = m_object->RetPosition(0); m_burnFall = m_terrain->RetFloorHeight(pos, true); m_object->Simplify(); m_object->SetLock(true); // ruin not usable yet if ( m_object->RetSelect() ) { m_object->SetSelect(false); // deselects the object m_camera->SetType(CAMERA_EXPLO); m_main->DeselectAll(); } m_object->DeleteDeselList(m_object); for ( i=0 ; iRetObjectRank(i); if ( objRank == -1 ) continue; m_engine->ChangeSecondTexture(objRank, "dirty04.tga"); } m_engine->LoadTexture("dirty04.tga", 1); m_burnPartTotal = 0; if ( m_burnType == OBJECT_DERRICK || m_burnType == OBJECT_FACTORY || m_burnType == OBJECT_REPAIR || m_burnType == OBJECT_DESTROYER|| m_burnType == OBJECT_CONVERT || m_burnType == OBJECT_TOWER || m_burnType == OBJECT_RESEARCH || m_burnType == OBJECT_ENERGY || m_burnType == OBJECT_LABO ) { pos.x = 0.0f; pos.y = -(4.0f+Math::Rand()*4.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.4f; } else if ( m_burnType == OBJECT_STATION || m_burnType == OBJECT_RADAR || m_burnType == OBJECT_INFO ) { pos.x = 0.0f; pos.y = -(1.0f+Math::Rand()*1.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.2f; } else if ( m_burnType == OBJECT_NUCLEAR ) { pos.x = 0.0f; pos.y = -(10.0f+Math::Rand()*10.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.4f; } else if ( m_burnType == OBJECT_PARA ) { pos.x = 0.0f; pos.y = -(10.0f+Math::Rand()*10.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.4f; } else if ( m_burnType == OBJECT_SAFE ) { pos.x = 0.0f; pos.y = -(10.0f+Math::Rand()*10.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.4f; } else if ( m_burnType == OBJECT_HUSTON ) { pos.x = 0.0f; pos.y = -(10.0f+Math::Rand()*10.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.4f; } else if ( m_burnType == OBJECT_MOBILEwa || m_burnType == OBJECT_MOBILEwc || m_burnType == OBJECT_MOBILEwi || m_burnType == OBJECT_MOBILEws || m_burnType == OBJECT_MOBILEwt ) { pos.x = 0.0f; pos.y = -(0.5f+Math::Rand()*1.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.8f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.4f; } else if ( m_burnType == OBJECT_TEEN31 ) // basket? { pos.x = 0.0f; pos.y = 0.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.8f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.2f; } else { pos.x = 0.0f; pos.y = -(2.0f+Math::Rand()*2.0f); pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.8f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*0.8f; } BurnAddPart(0, pos, angle); // movement of the main part m_burnKeepPart[0] = -1; // nothing to keep if ( m_burnType == OBJECT_DERRICK ) { pos.x = 0.0f; pos.y = -40.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the drill } if ( m_burnType == OBJECT_REPAIR ) { pos.x = 0.0f; pos.y = -12.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = (Math::Rand()-0.5f)*0.2f; angle.z = -90.0f*Math::PI/180.0f; BurnAddPart(1, pos, angle); // down the sensor } if ( m_burnType == OBJECT_DESTROYER ) { pos.x = 0.0f; pos.y = -12.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = (Math::Rand()-0.5f)*0.2f; angle.z = -90.0f*Math::PI/180.0f; BurnAddPart(1, pos, angle); // down the sensor } if ( m_burnType == OBJECT_CONVERT ) { pos.x = 0.0f; pos.y = -200.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.5f; angle.y = (Math::Rand()-0.5f)*0.5f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the cover BurnAddPart(2, pos, angle); BurnAddPart(3, pos, angle); } if ( m_burnType == OBJECT_TOWER ) { pos.x = 0.0f; pos.y = -7.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = (Math::Rand()-0.5f)*0.4f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the cannon } if ( m_burnType == OBJECT_RESEARCH ) { pos.x = 0.0f; pos.y = -7.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = (Math::Rand()-0.5f)*0.2f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the anemometer } if ( m_burnType == OBJECT_RADAR ) { pos.x = 0.0f; pos.y = -14.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = (Math::Rand()-0.5f)*0.4f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the radar BurnAddPart(2, pos, angle); } if ( m_burnType == OBJECT_INFO ) { pos.x = 0.0f; pos.y = -14.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.4f; angle.y = (Math::Rand()-0.5f)*0.4f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the information terminal BurnAddPart(2, pos, angle); } if ( m_burnType == OBJECT_LABO ) { pos.x = 0.0f; pos.y = -12.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the arm } if ( m_burnType == OBJECT_NUCLEAR ) { pos.x = 0.0f; pos.y = 0.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = -135.0f*Math::PI/180.0f; BurnAddPart(1, pos, angle); // down the cover } if ( m_burnType == OBJECT_MOBILEfa || m_burnType == OBJECT_MOBILEta || m_burnType == OBJECT_MOBILEwa || m_burnType == OBJECT_MOBILEia ) { pos.x = 2.0f; pos.y = -5.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = (Math::Rand()-0.5f)*0.2f; angle.z = 40.0f*Math::PI/180.0f; BurnAddPart(1, pos, angle); // down the arm } if ( m_burnType == OBJECT_MOBILEfs || m_burnType == OBJECT_MOBILEts || m_burnType == OBJECT_MOBILEws || m_burnType == OBJECT_MOBILEis ) { pos.x = 0.0f; pos.y = -7.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = (Math::Rand()-0.5f)*0.2f; angle.z = 50.0f*Math::PI/180.0f; BurnAddPart(1, pos, angle); // down the sensor } if ( m_burnType == OBJECT_MOBILEfc || m_burnType == OBJECT_MOBILEtc || m_burnType == OBJECT_MOBILEwc || m_burnType == OBJECT_MOBILEic ) { pos.x = -1.5f; pos.y = -5.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = (Math::Rand()-0.5f)*0.2f; angle.z = -25.0f*Math::PI/180.0f; BurnAddPart(1, pos, angle); // down the cannon } if ( m_burnType == OBJECT_MOBILEfi || m_burnType == OBJECT_MOBILEti || m_burnType == OBJECT_MOBILEwi || m_burnType == OBJECT_MOBILEii ) { pos.x = -1.5f; pos.y = -5.0f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*0.2f; angle.y = (Math::Rand()-0.5f)*0.2f; angle.z = -25.0f*Math::PI/180.0f; BurnAddPart(1, pos, angle); // down the insect-cannon } if ( m_burnType == OBJECT_MOBILErt || m_burnType == OBJECT_MOBILErc ) { pos.x = 0.0f; pos.y = -10.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the holder pos.x = 0.0f; pos.y = -10.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(2, pos, angle); // down the pestle/cannon } if ( m_burnType == OBJECT_MOBILErr ) { pos.x = 0.0f; pos.y = -10.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the holder pos.x = 0.0f; pos.y = 0.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = -Math::PI/2.0f; BurnAddPart(4, pos, angle); pos.x = 0.0f; pos.y = 0.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = Math::PI/2.5f; BurnAddPart(2, pos, angle); } if ( m_burnType == OBJECT_MOBILErs ) { pos.x = 0.0f; pos.y = -10.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the holder pos.x = 0.0f; pos.y = -5.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(2, pos, angle); pos.x = 0.0f; pos.y = -5.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(3, pos, angle); } if ( m_burnType == OBJECT_MOBILEsa ) { pos.x = 0.0f; pos.y = -10.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = 0.0f; BurnAddPart(1, pos, angle); // down the holder } if ( m_burnType == OBJECT_MOBILEwa || m_burnType == OBJECT_MOBILEwc || m_burnType == OBJECT_MOBILEwi || m_burnType == OBJECT_MOBILEws || m_burnType == OBJECT_MOBILEwt ) // wheels? { for ( i=0 ; i<4 ; i++ ) { pos.x = 0.0f; pos.y = Math::Rand()*0.5f; pos.z = 0.0f; angle.x = (Math::Rand()-0.5f)*Math::PI/2.0f; angle.y = (Math::Rand()-0.5f)*Math::PI/2.0f; angle.z = 0.0f; BurnAddPart(6+i, pos, angle); // wheel m_burnKeepPart[i] = 6+i; // we keep the wheels } m_burnKeepPart[i] = -1; } if ( m_burnType == OBJECT_MOBILEta || m_burnType == OBJECT_MOBILEtc || m_burnType == OBJECT_MOBILEti || m_burnType == OBJECT_MOBILEts || m_burnType == OBJECT_MOBILErt || m_burnType == OBJECT_MOBILErc || m_burnType == OBJECT_MOBILErr || m_burnType == OBJECT_MOBILErs || m_burnType == OBJECT_MOBILEsa || m_burnType == OBJECT_MOBILEdr ) // caterpillars? { pos.x = 0.0f; pos.y = -4.0f; pos.z = 2.0f; angle.x = (Math::Rand()-0.5f)*20.0f*Math::PI/180.0f; angle.y = (Math::Rand()-0.5f)*10.0f*Math::PI/180.0f; angle.z = (Math::Rand()-0.5f)*30.0f*Math::PI/180.0f; BurnAddPart(6, pos, angle); // down the right caterpillar pos.x = 0.0f; pos.y = -4.0f; pos.z = -2.0f; angle.x = (Math::Rand()-0.5f)*20.0f*Math::PI/180.0f; angle.y = (Math::Rand()-0.5f)*10.0f*Math::PI/180.0f; angle.z = (Math::Rand()-0.5f)*30.0f*Math::PI/180.0f; BurnAddPart(7, pos, angle); // down the left caterpillar } if ( m_burnType == OBJECT_MOBILEfa || m_burnType == OBJECT_MOBILEfc || m_burnType == OBJECT_MOBILEfi || m_burnType == OBJECT_MOBILEfs || m_burnType == OBJECT_MOBILEft ) // flying? { for ( i=0 ; i<3 ; i++ ) { pos.x = 0.0f; pos.y = -3.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = 0.0f; angle.z = (Math::Rand()-0.5f)*Math::PI/2.0f; BurnAddPart(6+i, pos, angle); // foot } m_burnKeepPart[i] = -1; } if ( m_burnType == OBJECT_MOBILEia || m_burnType == OBJECT_MOBILEic || m_burnType == OBJECT_MOBILEii || m_burnType == OBJECT_MOBILEis ) // legs? { for ( i=0 ; i<6; i++ ) { pos.x = 0.0f; pos.y = -3.0f; pos.z = 0.0f; angle.x = 0.0f; angle.y = (Math::Rand()-0.5f)*Math::PI/4.0f; angle.z = (Math::Rand()-0.5f)*Math::PI/4.0f; BurnAddPart(6+i, pos, angle); // leg } } } // Adds a part move. void CPyro::BurnAddPart(int part, Math::Vector pos, Math::Vector angle) { int i; i = m_burnPartTotal; m_burnPart[i].part = part; m_burnPart[i].initialPos = m_object->RetPosition(part); m_burnPart[i].finalPos = m_burnPart[i].initialPos+pos; m_burnPart[i].initialAngle = m_object->RetAngle(part); m_burnPart[i].finalAngle = m_burnPart[i].initialAngle+angle; m_burnPartTotal ++; } // Advances of a vehicle fire. void CPyro::BurnProgress() { CObject* sub; Math::Vector pos; float h; int i; if ( m_burnType == OBJECT_TEEN31 ) // basket? { m_object->SetZoomY(0, 1.0f-m_progress*0.5f); // slight flattening } for ( i=0 ; i 0.0f ) { h = powf(m_progress, 2.0f)*1000.0f; if ( h > m_burnFall ) h = m_burnFall; pos.y -= h; } m_object->SetPosition(m_burnPart[i].part, pos); pos = m_burnPart[i].initialAngle + m_progress*(m_burnPart[i].finalAngle-m_burnPart[i].initialAngle); m_object->SetAngle(m_burnPart[i].part, pos); } sub = m_object->RetPower(); if ( sub != 0 ) // is there a battery? { sub->SetZoomY(0, 1.0f-m_progress); // complete flattening } } // Indicates whether a part should be retained. bool CPyro::BurnIsKeepPart(int part) { int i; i = 0; while ( m_burnKeepPart[i] != -1 ) { if ( part == m_burnKeepPart[i++] ) return true; // must keep } return false; // must destroy } // Ends the fire of an insect or a vehicle. void CPyro::BurnTerminate() { int i, objRank; if ( m_type == PT_BURNO ) // organic object is burning? { DeleteObject(true, true); // removes the insect return; } for ( i=1 ; iRetObjectRank(i); if ( objRank == -1 ) continue; if ( BurnIsKeepPart(i) ) continue; m_object->DeletePart(i); } DeleteObject(false, true); // destroys the object transported + the battery if ( m_burnType == OBJECT_DERRICK || m_burnType == OBJECT_STATION || m_burnType == OBJECT_FACTORY || m_burnType == OBJECT_REPAIR || m_burnType == OBJECT_DESTROYER|| m_burnType == OBJECT_CONVERT || m_burnType == OBJECT_TOWER || m_burnType == OBJECT_RESEARCH || m_burnType == OBJECT_RADAR || m_burnType == OBJECT_INFO || m_burnType == OBJECT_ENERGY || m_burnType == OBJECT_LABO || m_burnType == OBJECT_NUCLEAR || m_burnType == OBJECT_PARA || m_burnType == OBJECT_SAFE || m_burnType == OBJECT_HUSTON || m_burnType == OBJECT_START || m_burnType == OBJECT_END ) { m_object->SetType(OBJECT_RUINfactory); // others become a ruin m_object->SetLock(false); } else { m_object->SetType(OBJECT_RUINmobilew1); // others become a ruin m_object->SetLock(false); } m_object->SetBurn(false); // ruin usable (c-e-d. recoverable) } // Start of an object freight falling. void CPyro::FallStart() { Math::Vector pos; m_object->SetBurn(true); // usable pos = m_object->RetPosition(0); m_fallFloor = m_terrain->RetFloorLevel(pos); m_fallSpeed = 0.0f; m_fallBulletTime = 0.0f; m_bFallEnding = false; } // Seeking an object explode by the falling ball of bees. CObject* CPyro::FallSearchBeeExplo() { CObject* pObj; Math::Vector iPos, oPos; ObjectType oType; float iRadius, oRadius, distance, shieldRadius; int i, j; m_object->GetCrashSphere(0, iPos, iRadius); for ( i=0 ; i<1000000 ; i++ ) { pObj = (CObject*)m_iMan->SearchInstance(CLASS_OBJECT, i); if ( pObj == 0 ) break; oType = pObj->RetType(); if ( oType != OBJECT_HUMAN && oType != OBJECT_MOBILEfa && oType != OBJECT_MOBILEta && oType != OBJECT_MOBILEwa && oType != OBJECT_MOBILEia && oType != OBJECT_MOBILEfc && oType != OBJECT_MOBILEtc && oType != OBJECT_MOBILEwc && oType != OBJECT_MOBILEic && oType != OBJECT_MOBILEfi && oType != OBJECT_MOBILEti && oType != OBJECT_MOBILEwi && oType != OBJECT_MOBILEii && oType != OBJECT_MOBILEfs && oType != OBJECT_MOBILEts && oType != OBJECT_MOBILEws && oType != OBJECT_MOBILEis && oType != OBJECT_MOBILErt && oType != OBJECT_MOBILErc && oType != OBJECT_MOBILErr && oType != OBJECT_MOBILErs && oType != OBJECT_MOBILEsa && oType != OBJECT_MOBILEtg && oType != OBJECT_MOBILEft && oType != OBJECT_MOBILEtt && oType != OBJECT_MOBILEwt && oType != OBJECT_MOBILEit && oType != OBJECT_MOBILEdr && oType != OBJECT_BASE && oType != OBJECT_DERRICK && oType != OBJECT_STATION && oType != OBJECT_FACTORY && oType != OBJECT_REPAIR && oType != OBJECT_DESTROYER&& oType != OBJECT_CONVERT && oType != OBJECT_TOWER && oType != OBJECT_RESEARCH && oType != OBJECT_RADAR && oType != OBJECT_INFO && oType != OBJECT_ENERGY && oType != OBJECT_LABO && oType != OBJECT_NUCLEAR && oType != OBJECT_PARA && oType != OBJECT_SAFE && oType != OBJECT_HUSTON && oType != OBJECT_METAL && oType != OBJECT_POWER && oType != OBJECT_ATOMIC ) continue; if ( pObj->RetTruck() != 0 ) continue; // object transported? oPos = pObj->RetPosition(0); shieldRadius = pObj->RetShieldRadius(); if ( shieldRadius > 0.0f ) { distance = Math::Distance(oPos, iPos); if ( distance <= shieldRadius ) return pObj; } if ( oType == OBJECT_BASE ) { distance = Math::Distance(oPos, iPos); if ( distance < 25.0f ) return pObj; } // Test the center of the object, which is necessary for objects // that have no sphere in the center (station). distance = Math::Distance(oPos, iPos)-4.0f; if ( distance < 5.0f ) return pObj; // Test with all spheres of the object. j = 0; while ( pObj->GetCrashSphere(j++, oPos, oRadius) ) { distance = Math::Distance(oPos, iPos); if ( distance <= iRadius+oRadius ) { return pObj; } } } return 0; } // Fall of an object's freight. void CPyro::FallProgress(float rTime) { CObject* pObj; Math::Vector pos; bool bFloor = false; if ( m_object == 0 ) return; m_fallSpeed += rTime*50.0f; // v2 = v1 + a*dt pos = m_object->RetPosition(0); pos.y -= m_fallSpeed*rTime; // dd -= v2*dt if ( pos.y <= m_fallFloor ) // below the ground level? { pos.y = m_fallFloor; bFloor = true; } m_object->SetPosition(0, pos); if ( m_object->RetType() == OBJECT_BULLET ) { m_fallBulletTime += rTime; if ( m_fallBulletTime > 0.2f || bFloor ) { m_fallBulletTime = 0.0f; pObj = FallSearchBeeExplo(); if ( pObj == 0 ) { if ( bFloor ) // reaches the ground? { m_object->ExploObject(EXPLO_BOUM, 0.0f); // start explosion } } else { if ( pObj->RetShieldRadius() > 0.0f ) // protected by shield? { m_particule->CreateParticule(pos, Math::Vector(0.0f, 0.0f, 0.0f), Math::Point(6.0f, 6.0f), PARTIGUNDEL, 2.0f, 0.0f, 0.0f); m_sound->Play(SOUND_GUNDEL); DeleteObject(true, true); // removes the ball } else { if ( pObj->ExploObject(EXPLO_BOUM, 1.0f) ) // start explosion { DeleteObject(true, true); // removes the ball } else { m_object->ExploObject(EXPLO_BOUM, 0.0f); // start explosion } } } if ( bFloor || pObj != 0 ) { m_bFallEnding = true; } } } } // Indicates whether the fall is over. Error CPyro::FallIsEnded() { Math::Vector pos; if ( m_bFallEnding || m_object == 0 ) return ERR_STOP; pos = m_object->RetPosition(0); if ( pos.y > m_fallFloor ) return ERR_CONTINUE; m_sound->Play(SOUND_BOUM, pos); m_object->SetBurn(false); // usable again return ERR_STOP; }