diff options
| author | Piotr Dziwinski <piotrdz@gmail.com> | 2012-04-28 17:53:17 +0200 |
|---|---|---|
| committer | Piotr Dziwinski <piotrdz@gmail.com> | 2012-04-28 17:53:17 +0200 |
| commit | 449cc186d5b8117d74ba22d6173497d00939f5f1 (patch) | |
| tree | 39f38530dab2c9c8b33f5d8e42a81242bd48704b /src/brain.cpp | |
| parent | eeb69b34d2467e51ff84b3235f94506ce6bb9283 (diff) | |
| download | colobot-449cc186d5b8117d74ba22d6173497d00939f5f1.tar.gz colobot-449cc186d5b8117d74ba22d6173497d00939f5f1.tar.bz2 colobot-449cc186d5b8117d74ba22d6173497d00939f5f1.zip | |
Source files split into modules
Diffstat (limited to 'src/brain.cpp')
| -rw-r--r-- | src/brain.cpp | 3000 |
1 files changed, 0 insertions, 3000 deletions
diff --git a/src/brain.cpp b/src/brain.cpp deleted file mode 100644 index e942e5d..0000000 --- a/src/brain.cpp +++ /dev/null @@ -1,3000 +0,0 @@ -// * 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 "CBot/CBotDll.h"
-#include "struct.h"
-#include "d3dengine.h"
-#include "d3dmath.h"
-#include "language.h"
-#include "global.h"
-#include "event.h"
-#include "misc.h"
-#include "iman.h"
-#include "restext.h"
-#include "math3d.h"
-#include "robotmain.h"
-#include "terrain.h"
-#include "water.h"
-#include "camera.h"
-#include "object.h"
-#include "physics.h"
-#include "motion.h"
-#include "motionspider.h"
-#include "pyro.h"
-#include "taskmanager.h"
-#include "task.h"
-#include "taskmanip.h"
-#include "taskflag.h"
-#include "taskshield.h"
-#include "script.h"
-#include "studio.h"
-#include "interface.h"
-#include "button.h"
-#include "color.h"
-#include "edit.h"
-#include "list.h"
-#include "label.h"
-#include "group.h"
-#include "gauge.h"
-#include "slider.h"
-#include "compass.h"
-#include "target.h"
-#include "window.h"
-#include "displaytext.h"
-#include "text.h"
-#include "sound.h"
-#include "particule.h"
-#include "cmdtoken.h"
-#include "brain.h"
-
-
-
-#define MAXTRACERECORD 1000
-
-
-
-// Object's constructor.
-
-CBrain::CBrain(CInstanceManager* iMan, CObject* object)
-{
- int i;
-
- m_iMan = iMan;
- m_iMan->AddInstance(CLASS_BRAIN, this, 100);
-
- m_object = object;
- m_engine = (CD3DEngine*)m_iMan->SearchInstance(CLASS_ENGINE);
- m_terrain = (CTerrain*)m_iMan->SearchInstance(CLASS_TERRAIN);
- m_water = (CWater*)m_iMan->SearchInstance(CLASS_WATER);
- m_camera = (CCamera*)m_iMan->SearchInstance(CLASS_CAMERA);
- m_interface = (CInterface*)m_iMan->SearchInstance(CLASS_INTERFACE);
- 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_particule = (CParticule*)m_iMan->SearchInstance(CLASS_PARTICULE);
- m_physics = 0;
- m_motion = 0;
- m_primaryTask = 0;
- m_secondaryTask = 0;
- m_studio = 0;
-
- m_program = -1;
- m_bActivity = TRUE;
- m_bBurn = FALSE;
- m_bActiveVirus = FALSE;
- m_time = 0.0f;
- m_burnTime = 0.0f;
- m_lastUpdateTime = 0.0f;
- m_lastHumanTime = 0.0f;
- m_lastWormTime = 0.0f;
- m_antTarget = 0;
- m_beeBullet = 0;
- m_lastAlarmTime = 0.0f;
- m_soundChannelAlarm = -1;
- m_flagColor = 0;
-
- m_buttonAxe = EVENT_NULL;
- m_defaultEnter = EVENT_NULL;
- m_manipStyle = EVENT_OBJECT_MFRONT;
-
- for ( i=0 ; i<BRAINMAXSCRIPT ; i++ )
- {
- m_script[i] = 0;
- m_scriptName[i][0] = 0;
- }
- m_scriptRun = -1;
- m_soluceName[0] = 0;
- m_selScript = 0;
-
- m_bTraceRecord = FALSE;
- m_traceRecordBuffer = 0;
-}
-
-// Object's destructor.
-
-CBrain::~CBrain()
-{
- int i;
-
- for ( i=0 ; i<BRAINMAXSCRIPT ; i++ )
- {
- delete m_script[i];
- }
-
- delete m_primaryTask;
- delete m_secondaryTask;
- delete m_studio;
- delete m_traceRecordBuffer;
- m_iMan->DeleteInstance(CLASS_BRAIN, this);
-}
-
-
-// Destroys the object.
-
-void CBrain::DeleteObject(BOOL bAll)
-{
- if ( m_soundChannelAlarm != -1 )
- {
- m_sound->FlushEnvelope(m_soundChannelAlarm);
- m_sound->AddEnvelope(m_soundChannelAlarm, 0.0f, 0.5f, 0.5f, SOPER_STOP);
- m_soundChannelAlarm = -1;
- }
-
- if ( !bAll )
- {
- if ( m_beeBullet != 0 )
- {
- m_beeBullet->DeleteObject();
- delete m_beeBullet;
- m_beeBullet = 0;
- }
- }
-
- if ( m_studio != 0 ) // current edition?
- {
- StopEditScript(TRUE);
- }
-}
-
-
-void CBrain::SetPhysics(CPhysics* physics)
-{
- m_physics = physics;
-}
-
-void CBrain::SetMotion(CMotion* motion)
-{
- m_motion = motion;
-}
-
-
-// Saves all parameters of the object.
-
-BOOL CBrain::Write(char *line)
-{
- char name[100];
-
- sprintf(name, " bVirusActive=%d", m_bActiveVirus);
- strcat(line, name);
-
- return TRUE;
-}
-
-// Restores all parameters of the object.
-
-BOOL CBrain::Read(char *line)
-{
- m_bActiveVirus = OpInt(line, "bVirusActive", 0);
-
- return TRUE;
-}
-
-
-// Management of an event.
-
-BOOL CBrain::EventProcess(const Event &event)
-{
- CWindow* pw;
- CControl* pc;
- CSlider* ps;
- EventMsg action;
- ObjectType type;
- Error err;
- float axeX, axeY, axeZ, factor;
-
- type = m_object->RetType();
-
- if ( m_primaryTask != 0 ) // current task?
- {
- m_primaryTask->EventProcess(event);
- }
-
- if ( m_secondaryTask != 0 ) // current task?
- {
- m_secondaryTask->EventProcess(event);
- }
-
- action = EVENT_NULL;
-
- if ( event.event == EVENT_KEYDOWN &&
- (event.param == m_engine->RetKey(KEYRANK_ACTION, 0) ||
- event.param == m_engine->RetKey(KEYRANK_ACTION, 1) ) &&
- !m_main->RetEditLock() )
- {
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw != 0 )
- {
- pc = pw->SearchControl(m_defaultEnter);
- if ( pc != 0 )
- {
- if ( pc->TestState(STATE_ENABLE) )
- {
- action = m_defaultEnter;
- }
- }
- }
- }
- else
- {
- action = event.event;
- }
-
- if ( action == EVENT_NULL ) return TRUE;
-
- if ( action == EVENT_UPDINTERFACE )
- {
- if ( m_object->RetSelect() ) CreateInterface(TRUE);
- }
-
- if ( action == EVENT_FRAME )
- {
- EventFrame(event);
- }
-
- if ( m_object->RetSelect() && // robot selected?
- m_studio != 0 ) // current issue?
- {
- m_studio->EventProcess(event);
-
- if ( action == EVENT_OBJECT_PROGRUN )
- {
- if ( m_program == -1 )
- {
- RunProgram(m_selScript);
- }
- else
- {
- StopProgram();
- }
- }
- if ( action == EVENT_OBJECT_PROGSTART )
- {
- m_main->SaveOneScript(m_object);
- RunProgram(m_selScript);
- }
- if ( action == EVENT_OBJECT_PROGSTOP )
- {
- StopProgram();
- }
- if ( action == EVENT_STUDIO_OK )
- {
- StopEditScript(FALSE);
- m_main->SaveOneScript(m_object);
- }
- if ( action == EVENT_STUDIO_CANCEL )
- {
- StopEditScript(TRUE);
- m_main->SaveOneScript(m_object);
- }
- return TRUE;
- }
-
- if ( !m_object->RetSelect() && // robot pas sélectionné ?
- m_program == -1 &&
- m_primaryTask == 0 )
- {
- axeX = 0.0f;
- axeY = 0.0f;
- axeZ = 0.0f;
- if ( m_object->RetBurn() ) // Gifted?
- {
- if ( !m_bBurn ) // beginning?
- {
- m_bBurn = TRUE;
- m_burnTime = 0.0f;
- }
-
- axeZ = -1.0f; // tomb
-
- if ( !m_object->RetFixed() &&
- (type == OBJECT_ANT ||
- type == OBJECT_SPIDER ||
- type == OBJECT_WORM ) )
- {
- axeY = 2.0f; // zigzag disorganized fast
- if ( type == OBJECT_WORM ) axeY = 5.0f;
- axeX = 0.5f+sinf(m_time* 1.0f)*0.5f+
- sinf(m_time* 6.0f)*2.0f+
- sinf(m_time*21.0f)*0.2f;
- factor = 1.0f-m_burnTime/15.0f; // slow motion
- if ( factor < 0.0f ) factor = 0.0f;
- axeY *= factor;
- axeX *= factor;
- }
- }
- m_physics->SetMotorSpeedX(axeY); // move forward/move back
- m_physics->SetMotorSpeedY(axeZ); // up / down
- m_physics->SetMotorSpeedZ(axeX); // rotate
- return TRUE;
- }
-
- if ( m_program != -1 &&
- m_object->RetRuin() )
- {
- StopProgram();
- return TRUE;
- }
-
- if ( !m_object->RetSelect() ) // robot not selected?
- {
- return TRUE;
- }
-
- if ( m_secondaryTask != 0 ) // current task?
- {
- if ( action == EVENT_OBJECT_ENDSHIELD )
- {
- m_secondaryTask->StartTaskShield(TSM_DOWN, 0.0f);
- }
- }
- if ( m_primaryTask != 0 || // current task?
- m_program != -1 )
- {
- if ( action == EVENT_OBJECT_PROGRUN )
- {
- StopProgram();
- }
- if ( action == EVENT_OBJECT_PROGEDIT )
- {
- StartEditScript(m_selScript, m_main->RetScriptName());
- }
- if ( m_primaryTask == 0 || !m_primaryTask->IsPilot() ) return TRUE;
- }
-
- if ( action == EVENT_OBJECT_LEFT ||
- action == EVENT_OBJECT_RIGHT ||
- action == EVENT_OBJECT_UP ||
- action == EVENT_OBJECT_DOWN ||
- action == EVENT_OBJECT_GASUP ||
- action == EVENT_OBJECT_GASDOWN )
- {
- m_buttonAxe = action;
- }
- if ( action == EVENT_LBUTTONUP ||
- action == EVENT_RBUTTONUP )
- {
- m_buttonAxe = EVENT_NULL;
- }
-
- axeX = event.axeX;
- axeY = event.axeY;
- axeZ = event.axeZ;
-
- if ( !m_main->RetTrainerPilot() &&
- m_object->RetTrainer() ) // drive vehicle?
- {
- axeX = 0.0f;
- axeY = 0.0f;
- axeZ = 0.0f; // Remote control impossible!
- }
-
- if ( m_buttonAxe == EVENT_OBJECT_LEFT ) axeX = -1.0f;
- if ( m_buttonAxe == EVENT_OBJECT_RIGHT ) axeX = 1.0f;
- if ( m_buttonAxe == EVENT_OBJECT_UP ) axeY = 1.0f;
- if ( m_buttonAxe == EVENT_OBJECT_DOWN ) axeY = -1.0f;
- if ( m_buttonAxe == EVENT_OBJECT_GASUP ) axeZ = 1.0f;
- if ( m_buttonAxe == EVENT_OBJECT_GASDOWN ) axeZ = -1.0f;
-
- if ( m_object->RetManual() ) // scribbler in manual mode?
- {
- if ( axeX != 0.0f ) axeY = 0.0f; // if running -> not moving!
- axeX *= 0.5f;
- axeY *= 0.5f;
- }
-
- if ( (g_researchDone&RESEARCH_FLY) == 0 )
- {
- axeZ = -1.0f; // tomb
- }
-
- axeX += m_camera->RetMotorTurn(); // additional power according to camera
- if ( axeX > 1.0f ) axeX = 1.0f;
- if ( axeX < -1.0f ) axeX = -1.0f;
-
- m_physics->SetMotorSpeedX(axeY); // move forward/move back
- m_physics->SetMotorSpeedY(axeZ); // up/down
- m_physics->SetMotorSpeedZ(axeX); // rotate
-
- if ( action == EVENT_OBJECT_PROGLIST )
- {
- m_selScript = RetSelScript();
- UpdateInterface();
- }
-
- if ( action == EVENT_OBJECT_PROGEDIT )
- {
- StartEditScript(m_selScript, m_main->RetScriptName());
- }
-
- if ( action == EVENT_OBJECT_PROGRUN )
- {
- StopProgram(); // stops the current program
- RunProgram(m_selScript);
- UpdateInterface();
- }
-
- err = ERR_OK;
-
- if ( m_program == -1 )
- {
- if ( action == EVENT_OBJECT_HTAKE )
- {
- err = StartTaskTake();
- }
-
- if ( action == EVENT_OBJECT_MFRONT ||
- action == EVENT_OBJECT_MBACK ||
- action == EVENT_OBJECT_MPOWER )
- {
- m_manipStyle = action;
- UpdateInterface();
- }
-
- if ( action == EVENT_OBJECT_MTAKE )
- {
- if ( m_manipStyle == EVENT_OBJECT_MFRONT )
- {
- err = StartTaskManip(TMO_AUTO, TMA_FFRONT);
- }
- if ( m_manipStyle == EVENT_OBJECT_MBACK )
- {
- err = StartTaskManip(TMO_AUTO, TMA_FBACK);
- if ( err == ERR_OK )
- {
- m_manipStyle = EVENT_OBJECT_MFRONT;
- UpdateInterface();
- }
- }
- if ( m_manipStyle == EVENT_OBJECT_MPOWER )
- {
- err = StartTaskManip(TMO_AUTO, TMA_POWER);
- if ( err == ERR_OK )
- {
- m_manipStyle = EVENT_OBJECT_MFRONT;
- UpdateInterface();
- }
- }
- }
-
- if ( action == EVENT_OBJECT_BDERRICK )
- {
- err = StartTaskBuild(OBJECT_DERRICK);
- }
- if ( action == EVENT_OBJECT_BSTATION )
- {
- err = StartTaskBuild(OBJECT_STATION);
- }
- if ( action == EVENT_OBJECT_BFACTORY )
- {
- err = StartTaskBuild(OBJECT_FACTORY);
- }
- if ( action == EVENT_OBJECT_BREPAIR )
- {
- err = StartTaskBuild(OBJECT_REPAIR);
- }
- if ( action == EVENT_OBJECT_BCONVERT )
- {
- err = StartTaskBuild(OBJECT_CONVERT);
- }
- if ( action == EVENT_OBJECT_BTOWER )
- {
- err = StartTaskBuild(OBJECT_TOWER);
- }
- if ( action == EVENT_OBJECT_BRESEARCH )
- {
- err = StartTaskBuild(OBJECT_RESEARCH);
- }
- if ( action == EVENT_OBJECT_BRADAR )
- {
- err = StartTaskBuild(OBJECT_RADAR);
- }
- if ( action == EVENT_OBJECT_BENERGY )
- {
- err = StartTaskBuild(OBJECT_ENERGY);
- }
- if ( action == EVENT_OBJECT_BLABO )
- {
- err = StartTaskBuild(OBJECT_LABO);
- }
- if ( action == EVENT_OBJECT_BNUCLEAR )
- {
- err = StartTaskBuild(OBJECT_NUCLEAR);
- }
- if ( action == EVENT_OBJECT_BPARA )
- {
- err = StartTaskBuild(OBJECT_PARA);
- }
- if ( action == EVENT_OBJECT_BINFO )
- {
- err = StartTaskBuild(OBJECT_INFO);
- }
-
- if ( action == EVENT_OBJECT_GFLAT )
- {
- GroundFlat();
- }
- if ( action == EVENT_OBJECT_FCREATE )
- {
- err = StartTaskFlag(TFL_CREATE, m_flagColor);
- }
- if ( action == EVENT_OBJECT_FDELETE )
- {
- err = StartTaskFlag(TFL_DELETE, m_flagColor);
- }
- if ( action == EVENT_OBJECT_FCOLORb ||
- action == EVENT_OBJECT_FCOLORr ||
- action == EVENT_OBJECT_FCOLORg ||
- action == EVENT_OBJECT_FCOLORy ||
- action == EVENT_OBJECT_FCOLORv )
- {
- ColorFlag(action-EVENT_OBJECT_FCOLORb);
- }
-
- if ( action == EVENT_OBJECT_SEARCH )
- {
- err = StartTaskSearch();
- }
-
- if ( action == EVENT_OBJECT_TERRAFORM )
- {
- err = StartTaskTerraform();
- }
-
- if ( action == EVENT_OBJECT_RECOVER )
- {
- err = StartTaskRecover();
- }
-
- if ( action == EVENT_OBJECT_BEGSHIELD )
- {
- err = StartTaskShield(TSM_UP);
- }
-
- if ( action == EVENT_OBJECT_DIMSHIELD )
- {
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw != 0 )
- {
- ps = (CSlider*)pw->SearchControl(EVENT_OBJECT_DIMSHIELD);
- if ( ps != 0 )
- {
- m_object->SetParam((ps->RetVisibleValue()-(RADIUS_SHIELD_MIN/g_unit))/((RADIUS_SHIELD_MAX-RADIUS_SHIELD_MIN)/g_unit));
- }
- }
- }
-
- if ( action == EVENT_OBJECT_FIRE && m_primaryTask == 0 && !m_object->RetTrainer())
- {
- if ( m_camera->RetType() != CAMERA_ONBOARD )
- {
- m_camera->SetType(CAMERA_ONBOARD);
- }
- err = StartTaskFire(0.0f);
- }
- if ( action == EVENT_OBJECT_TARGET && !m_object->RetTrainer() )
- {
- err = StartTaskGunGoal((event.pos.y-0.50f)*1.3f, (event.pos.x-0.50f)*2.0f);
- }
-
- if ( action == EVENT_OBJECT_FIREANT )
- {
-//? err = StartTaskFireAnt();
- }
-
- if ( action == EVENT_OBJECT_PEN0 ) // up
- {
- err = StartTaskPen(FALSE, m_object->RetTraceColor());
- m_object->SetTraceDown(FALSE);
- }
- if ( action == EVENT_OBJECT_PEN1 ) // black
- {
- err = StartTaskPen(TRUE, 1);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(1);
- }
- if ( action == EVENT_OBJECT_PEN2 ) // yellow
- {
- err = StartTaskPen(TRUE, 8);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(8);
- }
- if ( action == EVENT_OBJECT_PEN3 ) // orange
- {
- err = StartTaskPen(TRUE, 7);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(7);
- }
- if ( action == EVENT_OBJECT_PEN4 ) // red
- {
- err = StartTaskPen(TRUE, 4);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(4);
- }
- if ( action == EVENT_OBJECT_PEN5 ) // violet
- {
- err = StartTaskPen(TRUE, 6);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(6);
- }
- if ( action == EVENT_OBJECT_PEN6 ) // blue
- {
- err = StartTaskPen(TRUE, 14);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(14);
- }
- if ( action == EVENT_OBJECT_PEN7 ) // green
- {
- err = StartTaskPen(TRUE, 12);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(12);
- }
- if ( action == EVENT_OBJECT_PEN8 ) // brown
- {
- err = StartTaskPen(TRUE, 10);
- m_object->SetTraceDown(TRUE);
- m_object->SetTraceColor(10);
- }
-
- if ( action == EVENT_OBJECT_REC ) // registered?
- {
- if ( m_bTraceRecord )
- {
- m_bTraceRecord = FALSE;
- TraceRecordStop();
- }
- else
- {
- m_bTraceRecord = TRUE;
- TraceRecordStart();
- }
- UpdateInterface();
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw != 0 )
- {
- UpdateScript(pw);
- }
- }
- if ( action == EVENT_OBJECT_STOP ) // stops?
- {
- if ( m_bTraceRecord )
- {
- m_bTraceRecord = FALSE;
- TraceRecordStop();
- }
- UpdateInterface();
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw != 0 )
- {
- UpdateScript(pw);
- }
- }
-
- if ( action == EVENT_OBJECT_RESET )
- {
- m_main->ResetObject(); // reset all objects
- UpdateInterface();
- }
-
-#if 0
- if ( event.param == 'T' )
- {
- D3DVECTOR p1, p2;
- float h;
- p1 = m_object->RetPosition(0);
- h = m_terrain->RetFloorLevel(p1);
- p2 = p1;
- p1.x -= 20.0f;
- p1.z -= 20.0f;
- p2.x += 20.0f;
- p2.z += 20.0f;
- m_terrain->Terraform(p1, p2, h+1.0f);
- }
- if ( event.param == 'R' )
- {
- D3DVECTOR p1, p2;
- float h;
- p1 = m_object->RetPosition(0);
- h = m_terrain->RetFloorLevel(p1);
- p2 = p1;
- p1.x -= 20.0f;
- p1.z -= 20.0f;
- p2.x += 20.0f;
- p2.z += 20.0f;
- m_terrain->Terraform(p1, p2, h-1.0f);
- }
-#endif
- }
-
- if ( err != ERR_OK )
- {
- m_displayText->DisplayError(err, m_object);
- }
-
- return TRUE;
-}
-
-
-// The brain is changing by time.
-
-BOOL CBrain::EventFrame(const Event &event)
-{
- m_time += event.rTime;
- if ( m_bBurn ) m_burnTime += event.rTime;
-
- if ( m_soundChannelAlarm != -1 )
- {
- m_sound->Position(m_soundChannelAlarm, m_object->RetPosition(0));
- }
-
- if ( m_studio != 0 ) // �urrent edition?
- {
- m_studio->EventProcess(event);
- }
-
- UpdateInterface(event.rTime);
-
- if ( m_engine->RetPause() ) return TRUE;
- if ( !m_bActivity ) return TRUE; // expected if idle
- if ( EndedTask() == ERR_CONTINUE ) return TRUE; // expected if not finished ...
-
- if ( m_program != -1 ) // current program?
- {
- if ( m_script[m_program]->Continue(event) )
- {
- StopProgram();
- }
- }
-
- if ( m_bTraceRecord ) // registration of the design in progress?
- {
- TraceRecordFrame();
- }
-
- return TRUE;
-}
-
-
-// Stops the running program.
-
-void CBrain::StopProgram()
-{
- StopTask();
-
- if ( m_object->RetType() == OBJECT_HUMAN ||
- m_object->RetType() == OBJECT_TECH ) return;
-
- if ( m_program != -1 &&
- m_script[m_program] != 0 )
- {
- m_script[m_program]->Stop();
- }
-
- BlinkScript(FALSE); // stops flashing
-
- m_program = -1;
-
- m_physics->SetMotorSpeedX(0.0f);
- m_physics->SetMotorSpeedY(0.0f);
- m_physics->SetMotorSpeedZ(0.0f);
-
- m_motion->SetAction(-1);
-
- UpdateInterface();
- m_main->UpdateShortcuts();
- m_object->CreateSelectParticule();
-}
-
-// Stops the current task.
-
-void CBrain::StopTask()
-{
- if ( m_primaryTask != 0 )
- {
- m_primaryTask->Abort();
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-}
-
-
-// Introduces a virus into a program.
-// Returns TRUE if it was inserted.
-
-BOOL CBrain::IntroduceVirus()
-{
- int i, j;
-
- for ( i=0 ; i<50 ; i++ )
- {
- j = rand()%BRAINMAXSCRIPT;
- if ( m_script[j] != 0 )
- {
- if ( m_script[j]->IntroduceVirus() ) // tries to introduce
- {
- m_bActiveVirus = TRUE; // active virus
- return TRUE;
- }
- }
- }
- return FALSE;
-}
-
-// Active Virus indicates that the object is contaminated. Unlike ch'tites (??? - Programerus)
-// letters which automatically disappear after a while,
-// ActiveVirus does not disappear after you edit the program
-// (Even if the virus is not fixed).
-
-
-void CBrain::SetActiveVirus(BOOL bActive)
-{
- m_bActiveVirus = bActive;
-
- if ( !m_bActiveVirus ) // virus disabled?
- {
- m_object->SetVirusMode(FALSE); // chtites (??? - Programerus) letters also
- }
-}
-
-BOOL CBrain::RetActiveVirus()
-{
- return m_bActiveVirus;
-}
-
-
-// Start editing a program.
-
-void CBrain::StartEditScript(int rank, char* name)
-{
- CreateInterface(FALSE); // removes the control buttons
-
- if ( m_script[rank] == 0 )
- {
- m_script[rank] = new CScript(m_iMan, m_object, &m_secondaryTask);
- }
-
- m_studio = new CStudio(m_iMan);
- m_studio->StartEditScript(m_script[rank], name, rank);
-}
-
-// End of editing a program.
-
-void CBrain::StopEditScript(BOOL bCancel)
-{
- if ( !bCancel ) SetActiveVirus(FALSE);
-
- if ( !m_studio->StopEditScript(bCancel) ) return;
-
- delete m_studio;
- m_studio = 0;
-
- CreateInterface(TRUE); // puts the control buttons
-}
-
-
-
-// Move the manipulator arm.
-
-Error CBrain::StartTaskTake()
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskTake();
- UpdateInterface();
- return err;
-}
-
-// Move the manipulator arm.
-
-Error CBrain::StartTaskManip(TaskManipOrder order, TaskManipArm arm)
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskManip(order, arm);
- UpdateInterface();
- return err;
-}
-
-// Puts or removes a flag.
-
-Error CBrain::StartTaskFlag(TaskFlagOrder order, int rank)
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskFlag(order, rank);
- UpdateInterface();
- return err;
-}
-
-// Built a building.
-
-Error CBrain::StartTaskBuild(ObjectType type)
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskBuild(type);
- UpdateInterface();
- return err;
-}
-
-// Probe the ground.
-
-Error CBrain::StartTaskSearch()
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskSearch();
- UpdateInterface();
- return err;
-}
-
-// Terraformed the ground.
-
-Error CBrain::StartTaskTerraform()
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskTerraform();
- UpdateInterface();
- return err;
-}
-
-// Change pencil.
-
-Error CBrain::StartTaskPen(BOOL bDown, int color)
-{
- Error err;
-
- m_physics->SetMotorSpeedX(0.0f);
- m_physics->SetMotorSpeedY(0.0f);
- m_physics->SetMotorSpeedZ(0.0f);
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskPen(bDown, color);
- UpdateInterface();
- return err;
-}
-
-// Recovers a ruin.
-
-Error CBrain::StartTaskRecover()
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskRecover();
- UpdateInterface();
- return err;
-}
-
-// Deploys the shield.
-
-Error CBrain::StartTaskShield(TaskShieldMode mode)
-{
- Error err;
-
- if ( m_secondaryTask != 0 )
- {
- delete m_secondaryTask; // stops the current task
- m_secondaryTask = 0;
- }
-
- m_secondaryTask = new CTaskManager(m_iMan, m_object);
- err = m_secondaryTask->StartTaskShield(mode, 1000.0f);
- UpdateInterface();
- return err;
-}
-
-// Shoots.
-
-Error CBrain::StartTaskFire(float delay)
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskFire(delay);
- UpdateInterface();
- return err;
-}
-
-// Shoots to the ant.
-
-Error CBrain::StartTaskFireAnt(D3DVECTOR impact)
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskFireAnt(impact);
- UpdateInterface();
- return err;
-}
-
-// Adjusts upward.
-
-Error CBrain::StartTaskGunGoal(float dirV, float dirH)
-{
- Error err;
-
- if ( m_secondaryTask != 0 )
- {
- delete m_secondaryTask; // stops the current task
- m_secondaryTask = 0;
- }
-
- m_secondaryTask = new CTaskManager(m_iMan, m_object);
- err = m_secondaryTask->StartTaskGunGoal(dirV, dirH);
- UpdateInterface();
- return err;
-}
-
-// Reset.
-
-Error CBrain::StartTaskReset(D3DVECTOR goal, D3DVECTOR angle)
-{
- Error err;
-
- if ( m_primaryTask != 0 )
- {
- delete m_primaryTask; // stops the current task
- m_primaryTask = 0;
- }
-
- m_primaryTask = new CTaskManager(m_iMan, m_object);
- err = m_primaryTask->StartTaskReset(goal, angle);
- UpdateInterface();
- return err;
-}
-
-// Completes the task when the time came.
-
-Error CBrain::EndedTask()
-{
- Error err;
-
- if ( m_secondaryTask != 0 ) // current task?
- {
- err = m_secondaryTask->IsEnded();
- if ( err != ERR_CONTINUE ) // job ended?
- {
- delete m_secondaryTask;
- m_secondaryTask = 0;
- UpdateInterface();
- }
- }
-
- if ( m_primaryTask != 0 ) // current task?
- {
- err = m_primaryTask->IsEnded();
- if ( err != ERR_CONTINUE ) // job ended?
- {
- delete m_primaryTask;
- m_primaryTask = 0;
- UpdateInterface();
- }
- return err;
- }
- return ERR_STOP;
-}
-
-
-
-// Shows flat areas in the field.
-
-void CBrain::GroundFlat()
-{
- D3DVECTOR pos, speed;
- FPOINT dim;
- Error err;
- float level;
-
- if ( !m_physics->RetLand() )
- {
- err = ERR_FLAG_FLY;
- pos = m_object->RetPosition(0);
- if ( pos.y < m_water->RetLevel() ) err = ERR_FLAG_WATER;
- m_displayText->DisplayError(err, m_object);
- return;
- }
-
- pos = m_object->RetPosition(0);
- m_terrain->GroundFlat(pos);
- m_sound->Play(SOUND_GFLAT, pos);
-
- level = m_terrain->RetFloorLevel(pos)+2.0f;
- if ( pos.y < level ) pos.y = level; // not below the soil
- speed = D3DVECTOR(0.0f, 0.0f, 0.0f);
- dim.x = 40.0f;
- dim.y = dim.x;
- m_particule->CreateParticule(pos, speed, dim, PARTIGFLAT, 1.0f);
-}
-
-
-// Not below the soil.
-
-void CBrain::ColorFlag(int color)
-{
- m_flagColor = color;
- UpdateInterface();
-}
-
-
-// Creates all the interface when the object is selected.
-
-BOOL CBrain::CreateInterface(BOOL bSelect)
-{
- ObjectType type;
- CWindow* pw;
- CButton* pb;
- CColor* pc;
- CSlider* ps;
- CTarget* pt;
- CLabel* pl;
- FPOINT pos, dim, ddim;
- float ox, oy, sx, sy;
- char name[100];
-
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw != 0 )
- {
- pw->Flush(); // destroys the window buttons
- m_interface->DeleteControl(EVENT_WINDOW0); // destroys the window
- }
- m_defaultEnter = EVENT_NULL;
-
- if ( !bSelect ) return TRUE;
-
- pos.x = 0.0f;
- pos.y = 0.0f;
- dim.x = 540.0f/640.0f;
- if ( !m_main->RetShowMap() ) dim.x = 640.0f/640.0f;
- dim.y = 86.0f/480.0f;
- m_interface->CreateWindows(pos, dim, 3, EVENT_WINDOW0);
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw == 0 ) return FALSE;
-
- m_object->GetTooltipName(name);
- pos.x = 0.0f;
- pos.y = 64.0f/480.0f;
- ddim.x = 540.0f/640.0f;
- if ( !m_main->RetShowMap() ) ddim.x = 640.0f/640.0f;
- ddim.y = 16.0f/480.0f;
- pw->CreateLabel(pos, ddim, 0, EVENT_LABEL0, name);
-
- dim.x = 33.0f/640.0f;
- dim.y = 33.0f/480.0f;
- ox = 3.0f/640.0f;
- oy = 3.0f/480.0f;
- sx = 33.0f/640.0f;
- sy = 33.0f/480.0f;
-
- type = m_object->RetType();
-
- if ( type == OBJECT_MOBILEfa ||
- type == OBJECT_MOBILEta ||
- type == OBJECT_MOBILEwa ||
- type == OBJECT_MOBILEia ||
- type == OBJECT_MOBILEfc ||
- type == OBJECT_MOBILEtc ||
- type == OBJECT_MOBILEwc ||
- type == OBJECT_MOBILEic ||
- type == OBJECT_MOBILEfi ||
- type == OBJECT_MOBILEti ||
- type == OBJECT_MOBILEwi ||
- type == OBJECT_MOBILEii ||
- type == OBJECT_MOBILEfs ||
- type == OBJECT_MOBILEts ||
- type == OBJECT_MOBILEws ||
- type == OBJECT_MOBILEis ||
- type == OBJECT_MOBILErt ||
- type == OBJECT_MOBILErc ||
- type == OBJECT_MOBILErr ||
- type == OBJECT_MOBILErs ||
- type == OBJECT_MOBILEsa ||
- type == OBJECT_MOBILEtg ||
- type == OBJECT_MOBILEft ||
- type == OBJECT_MOBILEtt ||
- type == OBJECT_MOBILEwt ||
- type == OBJECT_MOBILEit ||
- type == OBJECT_MOBILEdr ||
- type == OBJECT_MOTHER ||
- type == OBJECT_ANT ||
- type == OBJECT_SPIDER ||
- type == OBJECT_BEE ||
- type == OBJECT_WORM ) // vehicle?
- {
- ddim.x = dim.x*5.1f;
- ddim.y = dim.y*2.0f;
- pos.x = ox+sx*0.0f;
- pos.y = oy+sy*0.0f;
- pw->CreateList(pos, ddim, -1, EVENT_OBJECT_PROGLIST, 1.10f);
- UpdateScript(pw);
-
- pos.x = ox+sx*5.2f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, dim, 8, EVENT_OBJECT_PROGRUN);
- pos.y = oy+sy*0.0f;
- pw->CreateButton(pos, dim, 22, EVENT_OBJECT_PROGEDIT);
- }
-
- if ( type == OBJECT_HUMAN ||
- type == OBJECT_MOBILEfa ||
- type == OBJECT_MOBILEfc ||
- type == OBJECT_MOBILEfi ||
- type == OBJECT_MOBILEfs ||
- type == OBJECT_MOBILEft ||
- type == OBJECT_BEE ) // driving?
- {
- pos.x = ox+sx*6.4f;
- pos.y = oy+sy*0;
- pb = pw->CreateButton(pos, dim, 29, EVENT_OBJECT_GASDOWN);
- pb->SetImmediat(TRUE);
-
- pos.x = ox+sx*6.4f;
- pos.y = oy+sy*1;
- pb = pw->CreateButton(pos, dim, 28, EVENT_OBJECT_GASUP);
- pb->SetImmediat(TRUE);
-
- if ( type != OBJECT_HUMAN ||
- m_object->RetOption() != 2 )
- {
- pos.x = ox+sx*15.3f;
- pos.y = oy+sy*0;
- ddim.x = 14.0f/640.0f;
- ddim.y = 66.0f/480.0f;
- pw->CreateGauge(pos, ddim, 2, EVENT_OBJECT_GRANGE);
- }
- }
-
- if ( type == OBJECT_HUMAN ||
- type == OBJECT_TECH )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 31, EVENT_OBJECT_HTAKE);
- DefaultEnter(pw, EVENT_OBJECT_HTAKE);
- }
-
- if ( (type == OBJECT_MOBILEfa ||
- type == OBJECT_MOBILEta ||
- type == OBJECT_MOBILEwa ||
- type == OBJECT_MOBILEia ) && // arm?
- !m_object->RetTrainer() )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 32, EVENT_OBJECT_MTAKE);
- DefaultEnter(pw, EVENT_OBJECT_MTAKE);
-
- pos.x = ox+sx*8.9f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 34, EVENT_OBJECT_MBACK);
-
- pos.x = ox+sx*9.9f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 35, EVENT_OBJECT_MPOWER);
-
- pos.x = ox+sx*10.9f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 33, EVENT_OBJECT_MFRONT);
- }
-
- if ( type == OBJECT_MOBILEsa && // underwater?
- !m_object->RetTrainer() )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 32, EVENT_OBJECT_MTAKE);
- DefaultEnter(pw, EVENT_OBJECT_MTAKE);
- }
-
- if ( type == OBJECT_HUMAN ) // builder?
- {
- pos.x = 1.0f/640.0f;
- pos.y = 4.0f/480.0f;
- ddim.x = 212.0f/640.0f;
- ddim.y = 64.0f/480.0f;
- pw->CreateGroup(pos, ddim, 27, EVENT_NULL);
-
- ddim.x = dim.x*0.9f;
- ddim.y = dim.y*0.9f;
-
- pos.x = ox+sx*0.0f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, ddim, 128+35, EVENT_OBJECT_BRESEARCH);
- DeadInterface(pw, EVENT_OBJECT_BRESEARCH, g_build&BUILD_RESEARCH);
-
- pos.x = ox+sx*0.9f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, ddim, 128+32, EVENT_OBJECT_BFACTORY);
- DeadInterface(pw, EVENT_OBJECT_BFACTORY, g_build&BUILD_FACTORY);
-
- pos.x = ox+sx*1.8f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, ddim, 128+34, EVENT_OBJECT_BCONVERT);
- DeadInterface(pw, EVENT_OBJECT_BCONVERT, g_build&BUILD_CONVERT);
-
- pos.x = ox+sx*2.7f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, ddim, 128+36, EVENT_OBJECT_BSTATION);
- DeadInterface(pw, EVENT_OBJECT_BSTATION, g_build&BUILD_STATION);
-
- pos.x = ox+sx*3.6f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, ddim, 128+40, EVENT_OBJECT_BRADAR);
- DeadInterface(pw, EVENT_OBJECT_BRADAR, g_build&BUILD_RADAR);
-
- pos.x = ox+sx*4.5f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, ddim, 128+41, EVENT_OBJECT_BREPAIR);
- DeadInterface(pw, EVENT_OBJECT_BREPAIR, g_build&BUILD_REPAIR);
-
- pos.x = ox+sx*5.4f;
- pos.y = oy+sy*1.0f;
- pw->CreateButton(pos, ddim, 128+44, EVENT_OBJECT_BINFO);
- DeadInterface(pw, EVENT_OBJECT_BINFO, g_build&BUILD_INFO);
-
- pos.x = ox+sx*0.0f;
- pos.y = oy+sy*0.1f;
- pw->CreateButton(pos, ddim, 128+37, EVENT_OBJECT_BTOWER);
- DeadInterface(pw, EVENT_OBJECT_BTOWER,
- (g_build&BUILD_TOWER) &&
- (g_researchDone & RESEARCH_TOWER));
-
- pos.x = ox+sx*0.9f;
- pos.y = oy+sy*0.1f;
- pw->CreateButton(pos, ddim, 128+39, EVENT_OBJECT_BENERGY);
- DeadInterface(pw, EVENT_OBJECT_BENERGY, g_build&BUILD_ENERGY);
-
- pos.x = ox+sx*1.8f;
- pos.y = oy+sy*0.1f;
- pw->CreateButton(pos, ddim, 128+33, EVENT_OBJECT_BDERRICK);
- DeadInterface(pw, EVENT_OBJECT_BDERRICK, g_build&BUILD_DERRICK);
-
- pos.x = ox+sx*2.7f;
- pos.y = oy+sy*0.1f;
- pw->CreateButton(pos, ddim, 128+42, EVENT_OBJECT_BNUCLEAR);
- DeadInterface(pw, EVENT_OBJECT_BNUCLEAR,
- (g_build&BUILD_NUCLEAR) &&
- (g_researchDone & RESEARCH_ATOMIC));
-
- pos.x = ox+sx*3.6f;
- pos.y = oy+sy*0.1f;
- pw->CreateButton(pos, ddim, 128+38, EVENT_OBJECT_BLABO);
- DeadInterface(pw, EVENT_OBJECT_BLABO, g_build&BUILD_LABO);
-
- pos.x = ox+sx*4.5f;
- pos.y = oy+sy*0.1f;
- pw->CreateButton(pos, ddim, 128+46, EVENT_OBJECT_BPARA);
- DeadInterface(pw, EVENT_OBJECT_BPARA, g_build&BUILD_PARA);
-
- pos.x = ox+sx*5.4f;
- pos.y = oy+sy*0.1f;
- pw->CreateButton(pos, ddim, 128+56, EVENT_OBJECT_BXXXX);
- DeadInterface(pw, EVENT_OBJECT_BXXXX, FALSE);
-
- if ( g_build&BUILD_GFLAT )
- {
- pos.x = ox+sx*9.0f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 64+47, EVENT_OBJECT_GFLAT);
- }
-
- if ( g_build&BUILD_FLAG )
- {
- pos.x = ox+sx*10.1f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 64+54, EVENT_OBJECT_FCREATE);
-
- pos.x = ox+sx*11.1f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 64+55, EVENT_OBJECT_FDELETE);
-
- ddim.x = dim.x*0.4f;
- ddim.y = dim.y*0.4f;
- pos.x = ox+sx*10.1f;
- pos.y = oy+sy*2.0f-ddim.y;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_FCOLORb);
- pc->SetColor(RetColor((D3DCOLOR)0x004890ff));
- pos.x += ddim.x;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_FCOLORr);
- pc->SetColor(RetColor((D3DCOLOR)0x00ff0000));
- pos.x += ddim.x;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_FCOLORg);
- pc->SetColor(RetColor((D3DCOLOR)0x0000ce00));
- pos.x += ddim.x;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_FCOLORy);
- pc->SetColor(RetColor((D3DCOLOR)0x00ffec00));
- pos.x += ddim.x;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_FCOLORv);
- pc->SetColor(RetColor((D3DCOLOR)0x00d101fe));
- }
- }
-
- if ( (type == OBJECT_MOBILEfs ||
- type == OBJECT_MOBILEts ||
- type == OBJECT_MOBILEws ||
- type == OBJECT_MOBILEis ) && // Investigator?
- !m_object->RetTrainer() )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 40, EVENT_OBJECT_SEARCH);
- DefaultEnter(pw, EVENT_OBJECT_SEARCH);
- }
-
- if ( type == OBJECT_MOBILErt && // Terraformer?
- !m_object->RetTrainer() )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 128+18, EVENT_OBJECT_TERRAFORM);
- DefaultEnter(pw, EVENT_OBJECT_TERRAFORM);
-
- pos.x = ox+sx*10.2f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 41, EVENT_OBJECT_LIMIT);
- }
-
- if ( type == OBJECT_MOBILErr && // recoverer?
- !m_object->RetTrainer() )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 128+20, EVENT_OBJECT_RECOVER);
- DefaultEnter(pw, EVENT_OBJECT_RECOVER);
- }
-
- if ( type == OBJECT_MOBILErs && // shield?
- !m_object->RetTrainer() )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 39, EVENT_OBJECT_BEGSHIELD);
- DefaultEnter(pw, EVENT_OBJECT_BEGSHIELD);
-
- pos.x = ox+sx*9.0f;
- pos.y = oy+sy*0.5f;
- pw->CreateButton(pos, dim, 47, EVENT_OBJECT_ENDSHIELD);
-
-//? pos.x = ox+sx*10.2f;
-//? pos.y = oy+sy*0.5f;
-//? pw->CreateButton(pos, dim, 41, EVENT_OBJECT_LIMIT);
-
- pos.x = ox+sx*10.5f;
- pos.y = oy+sy*0.0f;
- ddim.x = dim.x*0.5f;
- ddim.y = dim.y*2.0f;
- ps = pw->CreateSlider(pos, ddim, 0, EVENT_OBJECT_DIMSHIELD);
- ps->SetState(STATE_VALUE);
- ps->SetLimit((RADIUS_SHIELD_MIN/g_unit), (RADIUS_SHIELD_MAX/g_unit));
- ps->SetArrowStep(1.0f);
- }
-
- if ( (type == OBJECT_MOBILEfc ||
- type == OBJECT_MOBILEtc ||
- type == OBJECT_MOBILEwc ||
- type == OBJECT_MOBILEic ||
- type == OBJECT_MOBILEfi ||
- type == OBJECT_MOBILEti ||
- type == OBJECT_MOBILEwi ||
- type == OBJECT_MOBILEii ||
- type == OBJECT_MOBILErc ) && // cannon?
- !m_object->RetTrainer() )
- {
- pos.x = ox+sx*7.7f;
- pos.y = oy+sy*0.5f;
- pb = pw->CreateButton(pos, dim, 42, EVENT_OBJECT_FIRE);
- pb->SetImmediat(TRUE);
- DefaultEnter(pw, EVENT_OBJECT_FIRE);
-
-//? pos.x = ox+sx*10.2f;
-//? pos.y = oy+sy*0.5f;
-//? pw->CreateButton(pos, dim, 41, EVENT_OBJECT_LIMIT);
- }
-
- if ( type == OBJECT_MOBILEdr &&
- m_object->RetManual() ) // scribbler in manual mode?
- {
- pos.x = ox+sx*6.9f;
- pos.y = oy+sy*0.0f;
- ddim.x = dim.x*2.2f;
- ddim.y = dim.y*2.0f;
- pw->CreateGroup(pos, ddim, 20, EVENT_NULL); // solid blue bottom
-
- pos.x = ox+sx*9.3f;
- pos.y = oy+sy*0.0f;
- ddim.x = dim.x*2.2f;
- ddim.y = dim.y*2.0f;
- pw->CreateGroup(pos, ddim, 20, EVENT_NULL); // solid blue bottom
-
- pos.x = ox+sx*9.90f;
- pos.y = oy+sy*0.50f;
- pw->CreateButton(pos, dim, 43, EVENT_OBJECT_PEN0);
-
- ddim.x = dim.x*0.5f;
- ddim.y = dim.y*0.5f;
- pos.x = ox+sx*10.15f;
- pos.y = oy+sy*1.50f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN1); // black
- pc->SetColor(RetColor((D3DCOLOR)0x00000000));
- pos.x = ox+sx*10.65f;
- pos.y = oy+sy*1.25f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN2); // yellow
- pc->SetColor(RetColor((D3DCOLOR)0x00ffff00));
- pos.x = ox+sx*10.90f;
- pos.y = oy+sy*0.75f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN3); // orange
- pc->SetColor(RetColor((D3DCOLOR)0x00ff8800));
- pos.x = ox+sx*10.65f;
- pos.y = oy+sy*0.25f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN4); // red
- pc->SetColor(RetColor((D3DCOLOR)0x00ff0000));
- pos.x = ox+sx*10.15f;
- pos.y = oy+sy*0.00f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN5); // violet
- pc->SetColor(RetColor((D3DCOLOR)0x00ff00ff));
- pos.x = ox+sx*9.65f;
- pos.y = oy+sy*0.25f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN6); // blue
- pc->SetColor(RetColor((D3DCOLOR)0x000066ff));
- pos.x = ox+sx*9.40f;
- pos.y = oy+sy*0.75f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN7); // green
- pc->SetColor(RetColor((D3DCOLOR)0x0000cc00));
- pos.x = ox+sx*9.65f;
- pos.y = oy+sy*1.25f;
- pc = pw->CreateColor(pos, ddim, -1, EVENT_OBJECT_PEN8); // brown
- pc->SetColor(RetColor((D3DCOLOR)0x00884400));
-
- pos.x = ox+sx*6.9f;
- pos.y = oy+sy*1.2f;
- ddim.x = dim.x*2.2f;
- ddim.y = dim.y*0.4f;
- GetResource(RES_TEXT, RT_INTERFACE_REC, name);
- pl = pw->CreateLabel(pos, ddim, 0, EVENT_LABEL1, name);
- pl->SetFontSize(9.0f);
-
- pos.x = ox+sx*7.0f;
- pos.y = oy+sy*0.3f;
- pw->CreateButton(pos, dim, 44, EVENT_OBJECT_REC);
- pos.x = ox+sx*8.0f;
- pos.y = oy+sy*0.3f;
- pw->CreateButton(pos, dim, 45, EVENT_OBJECT_STOP);
- }
-
- if ( m_object->RetToy() )
- {
- pos.x = ox+sx*12.1f;
- pos.y = oy+sy*-0.1f;
- ddim.x = dim.x*1.2f;
- ddim.y = dim.y*2.1f;
- pw->CreateGroup(pos, ddim, 20, EVENT_NULL); // solid blue bottom
-
- pos.x = ox+sx*12.2f;
- pos.y = oy+sy*1;
- pw->CreateGroup(pos, dim, 19, EVENT_NULL); // sign SatCom
-
- pos.x = ox+sx*12.2f;
- pos.y = oy+sy*0.0f;
- pw->CreateButton(pos, dim, 128+57, EVENT_OBJECT_BHELP);
- }
- else
- {
- pos.x = ox+sx*12.3f;
- pos.y = oy+sy*-0.1f;
- ddim.x = dim.x*1.0f;
- ddim.y = dim.y*2.1f;
- pw->CreateGroup(pos, ddim, 20, EVENT_NULL); // solid blue bottom
-
- pos.x = ox+sx*12.3f;
- pos.y = oy+sy*1;
- pw->CreateGroup(pos, dim, 19, EVENT_NULL); // sign SatCom
-
- pos.x = ox+sx*12.4f;
- pos.y = oy+sy*0.5f;
- ddim.x = dim.x*0.8f;
- ddim.y = dim.y*0.5f;
- pw->CreateButton(pos, ddim, 18, EVENT_OBJECT_BHELP);
- pos.y = oy+sy*0.0f;
- pw->CreateButton(pos, ddim, 19, EVENT_OBJECT_HELP);
- }
-
- if ( type != OBJECT_HUMAN &&
- type != OBJECT_TECH &&
- !m_object->RetCameraLock() )
- {
-//? if ( m_main->RetShowMap() )
- if ( TRUE )
- {
- pos.x = ox+sx*13.4f;
- pos.y = oy+sy*1;
- pw->CreateButton(pos, dim, 13, EVENT_OBJECT_CAMERA);
- }
- else
- {
- ddim.x = dim.x*0.66f;
- ddim.y = dim.y*0.66f;
- pos.x = ox+sx*(17.0f+0.66f);
- pos.y = oy+sy*0.66f;
- pw->CreateButton(pos, ddim, 13, EVENT_OBJECT_CAMERA);
- }
- }
-
- if ( m_object->RetToy() && !m_object->RetManual() )
- {
-#if 0
- ddim.x = dim.x*0.66f;
- ddim.y = dim.y*0.66f;
- pos.x = ox+sx*10.0f;
- pos.y = oy+sy*0.66f;
- pb = pw->CreateButton(pos, ddim, 55, EVENT_OBJECT_CAMERAleft);
- pb->SetImmediat(TRUE);
- pos.x = ox+sx*(10.0f+0.66f*2.0f);
- pos.y = oy+sy*0.66f;
- pb = pw->CreateButton(pos, ddim, 48, EVENT_OBJECT_CAMERAright);
- pb->SetImmediat(TRUE);
- pos.x = ox+sx*(10.0f+0.66f);
- pos.y = oy+sy*(0.66f*2.0f);
- pb = pw->CreateButton(pos, ddim, 49, EVENT_OBJECT_CAMERAnear);
- pb->SetImmediat(TRUE);
- pos.x = ox+sx*(10.0f+0.66f);
- pos.y = oy+sy*0.0f;
- pb = pw->CreateButton(pos, ddim, 50, EVENT_OBJECT_CAMERAaway);
- pb->SetImmediat(TRUE);
-#else
- pos.x = ox+sx*9.0f;
- pos.y = oy+sy*0;
- pb = pw->CreateButton(pos, dim, 55, EVENT_OBJECT_CAMERAleft);
- pb->SetImmediat(TRUE);
- pos.x = ox+sx*11.0f;
- pos.y = oy+sy*0;
- pb = pw->CreateButton(pos, dim, 48, EVENT_OBJECT_CAMERAright);
- pb->SetImmediat(TRUE);
- pos.x = ox+sx*10.0f;
- pos.y = oy+sy*1;
- pb = pw->CreateButton(pos, dim, 49, EVENT_OBJECT_CAMERAnear);
- pb->SetImmediat(TRUE);
- pos.x = ox+sx*10.0f;
- pos.y = oy+sy*0;
- pb = pw->CreateButton(pos, dim, 50, EVENT_OBJECT_CAMERAaway);
- pb->SetImmediat(TRUE);
-#endif
- }
-
- pos.x = ox+sx*13.4f;
- pos.y = oy+sy*0;
-#if _TEEN
- pw->CreateButton(pos, dim, 9, EVENT_OBJECT_RESET);
-#else
- if ( m_object->RetTrainer() ) // Training?
- {
- pw->CreateButton(pos, dim, 9, EVENT_OBJECT_RESET);
- }
- else
- {
- pw->CreateButton(pos, dim, 10, EVENT_OBJECT_DESELECT);
- }
-#endif
-
- if ( type == OBJECT_MOBILEfa ||
- type == OBJECT_MOBILEta ||
- type == OBJECT_MOBILEwa ||
- type == OBJECT_MOBILEia ||
- type == OBJECT_MOBILEfc ||
- type == OBJECT_MOBILEtc ||
- type == OBJECT_MOBILEwc ||
- type == OBJECT_MOBILEic ||
- type == OBJECT_MOBILEfi ||
- type == OBJECT_MOBILEti ||
- type == OBJECT_MOBILEwi ||
- type == OBJECT_MOBILEii ||
- type == OBJECT_MOBILEfs ||
- type == OBJECT_MOBILEts ||
- type == OBJECT_MOBILEws ||
- type == OBJECT_MOBILEis ||
- type == OBJECT_MOBILErt ||
- type == OBJECT_MOBILErc ||
- type == OBJECT_MOBILErr ||
- type == OBJECT_MOBILErs ||
- type == OBJECT_MOBILEsa ||
- type == OBJECT_MOBILEft ||
- type == OBJECT_MOBILEtt ||
- type == OBJECT_MOBILEwt ||
- type == OBJECT_MOBILEit ) // vehicle?
- {
- pos.x = ox+sx*14.5f;
- pos.y = oy+sy*0;
- ddim.x = 14.0f/640.0f;
- ddim.y = 66.0f/480.0f;
- pw->CreateGauge(pos, ddim, 0, EVENT_OBJECT_GENERGY);
- }
-
- if ( type == OBJECT_HUMAN ||
- type == OBJECT_TECH ||
- type == OBJECT_MOBILEfa ||
- type == OBJECT_MOBILEta ||
- type == OBJECT_MOBILEwa ||
- type == OBJECT_MOBILEia ||
- type == OBJECT_MOBILEfc ||
- type == OBJECT_MOBILEtc ||
- type == OBJECT_MOBILEwc ||
- type == OBJECT_MOBILEic ||
- type == OBJECT_MOBILEfi ||
- type == OBJECT_MOBILEti ||
- type == OBJECT_MOBILEwi ||
- type == OBJECT_MOBILEii ||
- type == OBJECT_MOBILEfs ||
- type == OBJECT_MOBILEts ||
- type == OBJECT_MOBILEws ||
- type == OBJECT_MOBILEis ||
- type == OBJECT_MOBILErt ||
- type == OBJECT_MOBILErc ||
- type == OBJECT_MOBILErr ||
- type == OBJECT_MOBILErs ||
- type == OBJECT_MOBILEsa ||
- type == OBJECT_MOBILEtg ||
- type == OBJECT_MOBILEft ||
- type == OBJECT_MOBILEtt ||
- type == OBJECT_MOBILEwt ||
- type == OBJECT_MOBILEit ) // vehicle?
- {
- pos.x = ox+sx*14.9f;
- pos.y = oy+sy*0;
- ddim.x = 14.0f/640.0f;
- ddim.y = 66.0f/480.0f;
- pw->CreateGauge(pos, ddim, 3, EVENT_OBJECT_GSHIELD);
- }
-
-#if 0
- if ( FALSE )
- {
- pos.x = 505.0f/640.0f;
- pos.y = 3.0f/480.0f;
- ddim.x = 33.0f/640.0f;
- ddim.y = 33.0f/480.0f;
- pw->CreateCompass(pos, ddim, 0, EVENT_OBJECT_COMPASS);
-
- pc = (CCompass*)pw->SearchControl(EVENT_OBJECT_COMPASS);
- if ( pc != 0 )
- {
- pc->SetState(STATE_VISIBLE, m_main->RetShowMap());
- }
- }
-#endif
-
- if ( type == OBJECT_MOBILEfc ||
- type == OBJECT_MOBILEtc ||
- type == OBJECT_MOBILEwc ||
- type == OBJECT_MOBILEic ||
- type == OBJECT_MOBILEfi ||
- type == OBJECT_MOBILEti ||
- type == OBJECT_MOBILEwi ||
- type == OBJECT_MOBILEii ||
- type == OBJECT_MOBILErc ) // cannon?
- {
- ddim.x = 64.0f/640.0f;
- ddim.y = 64.0f/480.0f;
- pos.x = 0.5f-ddim.x/2.0f;
- pos.y = 0.5f-ddim.y/2.0f;
- pw->CreateGroup(pos, ddim, 12, EVENT_OBJECT_CROSSHAIR);
-
- pos.x = 20.0f/640.0f;
- pos.y = 100.0f/480.0f;
- ddim.x = 600.0f/640.0f;
- ddim.y = 340.0f/480.0f;
- pt = pw->CreateTarget(pos, ddim, 0, EVENT_OBJECT_TARGET);
- pt->ClearState(STATE_GLINT);
- }
-
- ddim.x = 64.0f/640.0f;
- ddim.y = 64.0f/480.0f;
- pos.x = 30.0f/640.0f;
- pos.y = 430.0f/480.0f-ddim.y;
- pw->CreateGroup(pos, ddim, 13, EVENT_OBJECT_CORNERul);
-
- ddim.x = 64.0f/640.0f;
- ddim.y = 64.0f/480.0f;
- pos.x = 610.0f/640.0f-ddim.x;
- pos.y = 430.0f/480.0f-ddim.y;
- pw->CreateGroup(pos, ddim, 14, EVENT_OBJECT_CORNERur);
-
- ddim.x = 64.0f/640.0f;
- ddim.y = 64.0f/480.0f;
- pos.x = 30.0f/640.0f;
- pos.y = 110.0f/480.0f;
- pw->CreateGroup(pos, ddim, 15, EVENT_OBJECT_CORNERdl);
-
- ddim.x = 64.0f/640.0f;
- ddim.y = 64.0f/480.0f;
- pos.x = 610.0f/640.0f-ddim.x;
- pos.y = 110.0f/480.0f;
- pw->CreateGroup(pos, ddim, 16, EVENT_OBJECT_CORNERdr);
-
- UpdateInterface();
- m_lastUpdateTime = 0.0f;
- UpdateInterface(0.0f);
-
- return TRUE;
-}
-
-// Updates the state of all buttons on the interface,
-// following the time that elapses ...
-
-void CBrain::UpdateInterface(float rTime)
-{
- CWindow* pw;
-#if _TEEN
- CButton* pb;
-#endif
- CGauge* pg;
- CCompass* pc;
- CGroup* pgr;
- CTarget* ptg;
- CObject* power;
- D3DVECTOR pos, hPos;
- FPOINT ppos;
- float energy, limit, angle, range;
- int icon;
- BOOL bOnBoard;
-
- m_lastAlarmTime += rTime;
- if ( m_time < m_lastUpdateTime+0.1f ) return;
- m_lastUpdateTime = m_time;
-
- if ( !m_object->RetSelect() )
- {
- if ( m_soundChannelAlarm != -1 )
- {
- m_sound->FlushEnvelope(m_soundChannelAlarm);
- m_sound->AddEnvelope(m_soundChannelAlarm, 0.0f, 1.0f, 0.1f, SOPER_STOP);
- m_soundChannelAlarm = -1;
- }
- return;
- }
-
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw == 0 ) return;
-
- pg = (CGauge*)pw->SearchControl(EVENT_OBJECT_GENERGY);
- if ( pg != 0 )
- {
- power = m_object->RetPower();
- if ( power == 0 )
- {
- energy = 0.0f;
- }
- else
- {
- energy = power->RetEnergy();
- limit = energy*power->RetCapacity();
- }
- icon = 0; // red/green
-
- if ( limit < 0.2f && energy != 0.0f ) // low but not zero?
- {
- if ( m_lastAlarmTime >= 0.8f ) // blinks?
- {
- energy = 1.0f;
- icon = 1; // brun
- }
- if ( m_lastAlarmTime >= 1.0f )
- {
- m_sound->Play(SOUND_ALARM, 0.5f); // bip-bip-bip
- m_lastAlarmTime = 0.0f;
- }
- }
- pg->SetLevel(energy);
- pg->SetIcon(icon);
- }
-
- pg = (CGauge*)pw->SearchControl(EVENT_OBJECT_GSHIELD);
- if ( pg != 0 )
- {
- pg->SetLevel(m_object->RetShield());
- }
-
- pg = (CGauge*)pw->SearchControl(EVENT_OBJECT_GRANGE);
- if ( pg != 0 )
- {
- icon = 2; // blue/red
- range = m_physics->RetReactorRange();
-
- if ( range < 0.2f && range != 0.0f && !m_physics->RetLand() )
- {
- if ( Mod(m_time, 0.5f) >= 0.2f ) // blinks?
- {
- range = 1.0f;
- icon = 1; // yellow
- }
- if ( m_soundChannelAlarm == -1 )
- {
- m_soundChannelAlarm = m_sound->Play(SOUND_ALARMt, m_object->RetPosition(0), 0.0f, 0.1f, TRUE);
- m_sound->AddEnvelope(m_soundChannelAlarm, 1.0f, 1.0f, 1.0f, SOPER_CONTINUE);
- m_sound->AddEnvelope(m_soundChannelAlarm, 1.0f, 1.0f, 1.0f, SOPER_LOOP);
- }
- }
- else
- {
- if ( m_soundChannelAlarm != -1 )
- {
- m_sound->FlushEnvelope(m_soundChannelAlarm);
- m_sound->AddEnvelope(m_soundChannelAlarm, 0.0f, 0.1f, 1.0f, SOPER_STOP);
- m_soundChannelAlarm = -1;
- }
- }
-
- pg->SetLevel(1.0f-range);
- pg->SetIcon(icon);
- }
-
- pc = (CCompass*)pw->SearchControl(EVENT_OBJECT_COMPASS);
- if ( pc != 0 )
- {
- angle = -(m_object->RetAngleY(0)+PI/2.0f);
- pc->SetDirection(angle);
-
- pc->SetState(STATE_VISIBLE, m_main->RetShowMap());
- }
-
-#if _TEEN
- pb = (CButton*)pw->SearchControl(EVENT_OBJECT_REC);
- if ( pb != 0 )
- {
- if ( m_bTraceRecord && Mod(m_time, 0.4f) >= 0.2f )
- {
- pb->SetState(STATE_CHECK);
- }
- else
- {
- pb->ClearState(STATE_CHECK);
- }
- }
-#endif
-
- bOnBoard = m_camera->RetType() == CAMERA_ONBOARD;
-
- pgr = (CGroup*)pw->SearchControl(EVENT_OBJECT_CROSSHAIR);
- if ( pgr != 0 )
- {
- if ( bOnBoard )
- {
-#if 0
- angle = m_object->RetGunGoalV();
- if ( m_object->RetType() != OBJECT_MOBILErc )
- {
- angle += 10.0f*PI/360.0f;
- }
- ppos.x = 0.5f-(64.0f/640.0f)/2.0f;
- ppos.y = 0.5f-(64.0f/480.0f)/2.0f;
- ppos.y += sinf(angle)*0.6f;
- pgr->SetPos(ppos);
-#else
- ppos.x = 0.50f-(64.0f/640.0f)/2.0f;
- ppos.y = 0.50f-(64.0f/480.0f)/2.0f;
- ppos.x += m_object->RetGunGoalH()/2.0f;
- ppos.y += m_object->RetGunGoalV()/1.3f;
- pgr->SetPos(ppos);
-#endif
- pgr->SetState(STATE_VISIBLE, !m_main->RetFriendAim());
- }
- else
- {
- pgr->ClearState(STATE_VISIBLE);
- }
- }
-
- ptg = (CTarget*)pw->SearchControl(EVENT_OBJECT_TARGET);
- if ( ptg != 0 )
- {
- if ( bOnBoard )
- {
- ptg->SetState(STATE_VISIBLE);
- }
- else
- {
- ptg->ClearState(STATE_VISIBLE);
- }
- }
-
- pgr = (CGroup*)pw->SearchControl(EVENT_OBJECT_CORNERul);
- if ( pgr != 0 )
- {
- pgr->SetState(STATE_VISIBLE, bOnBoard);
- }
-
- pgr = (CGroup*)pw->SearchControl(EVENT_OBJECT_CORNERur);
- if ( pgr != 0 )
- {
- pgr->SetState(STATE_VISIBLE, bOnBoard);
- }
-
- pgr = (CGroup*)pw->SearchControl(EVENT_OBJECT_CORNERdl);
- if ( pgr != 0 )
- {
- pgr->SetState(STATE_VISIBLE, bOnBoard);
- }
-
- pgr = (CGroup*)pw->SearchControl(EVENT_OBJECT_CORNERdr);
- if ( pgr != 0 )
- {
- pgr->SetState(STATE_VISIBLE, bOnBoard);
- }
-}
-
-// Updates the status of all interface buttons.
-
-void CBrain::UpdateInterface()
-{
- ObjectType type;
- CWindow* pw;
- CButton* pb;
- CSlider* ps;
-#if _TEEN
- CColor* pc;
- int color;
-#endif
- BOOL bEnable, bFly, bRun;
- char title[100];
-
- if ( !m_object->RetSelect() ) return;
-
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw == 0 ) return;
-
- type = m_object->RetType();
-
- bEnable = ( m_secondaryTask == 0 && m_program == -1 );
-
- bEnable = ( m_primaryTask == 0 && m_program == -1 );
-
- EnableInterface(pw, EVENT_OBJECT_PROGEDIT, (m_primaryTask == 0 && !m_bTraceRecord));
- EnableInterface(pw, EVENT_OBJECT_PROGLIST, bEnable && !m_bTraceRecord);
- EnableInterface(pw, EVENT_OBJECT_LEFT, bEnable);
- EnableInterface(pw, EVENT_OBJECT_RIGHT, bEnable);
- EnableInterface(pw, EVENT_OBJECT_UP, bEnable);
- EnableInterface(pw, EVENT_OBJECT_DOWN, bEnable);
- EnableInterface(pw, EVENT_OBJECT_HTAKE, bEnable);
- EnableInterface(pw, EVENT_OBJECT_MTAKE, bEnable);
- EnableInterface(pw, EVENT_OBJECT_MBACK, bEnable);
- EnableInterface(pw, EVENT_OBJECT_MPOWER, bEnable);
- EnableInterface(pw, EVENT_OBJECT_MFRONT, bEnable);
- EnableInterface(pw, EVENT_OBJECT_GFLAT, bEnable);
- EnableInterface(pw, EVENT_OBJECT_FCREATE, bEnable);
- EnableInterface(pw, EVENT_OBJECT_FDELETE, bEnable);
- EnableInterface(pw, EVENT_OBJECT_SEARCH, bEnable);
- EnableInterface(pw, EVENT_OBJECT_TERRAFORM, bEnable);
- EnableInterface(pw, EVENT_OBJECT_RECOVER, bEnable);
- EnableInterface(pw, EVENT_OBJECT_FIRE, bEnable);
- EnableInterface(pw, EVENT_OBJECT_RESET, bEnable);
-#if _TEEN
- EnableInterface(pw, EVENT_OBJECT_PEN0, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN1, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN2, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN3, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN4, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN5, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN6, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN7, bEnable);
- EnableInterface(pw, EVENT_OBJECT_PEN8, bEnable);
- EnableInterface(pw, EVENT_OBJECT_REC, bEnable);
- EnableInterface(pw, EVENT_OBJECT_STOP, bEnable);
-#endif
-
- if ( type == OBJECT_HUMAN ) // builder?
- {
- EnableInterface(pw, EVENT_OBJECT_BFACTORY, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BDERRICK, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BCONVERT, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BSTATION, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BREPAIR, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BTOWER, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BRESEARCH, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BRADAR, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BENERGY, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BLABO, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BNUCLEAR, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BPARA, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BINFO, bEnable);
- EnableInterface(pw, EVENT_OBJECT_BXXXX, bEnable);
- }
-
- pb = (CButton*)pw->SearchControl(EVENT_OBJECT_GFLAT);
- if ( pb != 0 )
- {
- pb->SetState(STATE_VISIBLE, m_engine->RetGroundSpot());
- }
-
- if ( type == OBJECT_HUMAN || // builder?
- type == OBJECT_TECH )
- {
- CheckInterface(pw, EVENT_OBJECT_FCOLORb, m_flagColor==0);
- CheckInterface(pw, EVENT_OBJECT_FCOLORr, m_flagColor==1);
- CheckInterface(pw, EVENT_OBJECT_FCOLORg, m_flagColor==2);
- CheckInterface(pw, EVENT_OBJECT_FCOLORy, m_flagColor==3);
- CheckInterface(pw, EVENT_OBJECT_FCOLORv, m_flagColor==4);
- }
-
- if ( type == OBJECT_MOBILErs ) // shield?
- {
- if ( (m_secondaryTask == 0 || !m_secondaryTask->IsBusy()) && m_program == -1 )
- {
- EnableInterface(pw, EVENT_OBJECT_BEGSHIELD, (m_secondaryTask == 0));
- EnableInterface(pw, EVENT_OBJECT_ENDSHIELD, (m_secondaryTask != 0));
- DefaultEnter (pw, EVENT_OBJECT_BEGSHIELD, (m_secondaryTask == 0));
- DefaultEnter (pw, EVENT_OBJECT_ENDSHIELD, (m_secondaryTask != 0));
- }
- else
- {
- EnableInterface(pw, EVENT_OBJECT_BEGSHIELD, FALSE);
- EnableInterface(pw, EVENT_OBJECT_ENDSHIELD, FALSE);
- DefaultEnter (pw, EVENT_OBJECT_BEGSHIELD, FALSE);
- DefaultEnter (pw, EVENT_OBJECT_ENDSHIELD, FALSE);
- }
-
- ps = (CSlider*)pw->SearchControl(EVENT_OBJECT_DIMSHIELD);
- if ( ps != 0 )
- {
- ps->SetVisibleValue((RADIUS_SHIELD_MIN/g_unit)+m_object->RetParam()*((RADIUS_SHIELD_MAX-RADIUS_SHIELD_MIN)/g_unit));
- }
- }
-
- bFly = bEnable;
- if ( bFly && (type == OBJECT_HUMAN || type == OBJECT_TECH) )
- {
- if ( m_object->RetFret() != 0 ) bFly = FALSE; // if holder -> not fly
- }
- EnableInterface(pw, EVENT_OBJECT_GASUP, bFly);
- EnableInterface(pw, EVENT_OBJECT_GASDOWN, bFly);
- if ( m_object->RetTrainer() ) // Training?
- {
- DeadInterface(pw, EVENT_OBJECT_GASUP, FALSE);
- DeadInterface(pw, EVENT_OBJECT_GASDOWN, FALSE);
- }
- else
- {
- DeadInterface(pw, EVENT_OBJECT_GASUP, g_researchDone&RESEARCH_FLY);
- DeadInterface(pw, EVENT_OBJECT_GASDOWN, g_researchDone&RESEARCH_FLY);
- }
-
- if ( type == OBJECT_HUMAN ||
- type == OBJECT_TECH ||
- type == OBJECT_MOBILEfa ||
- type == OBJECT_MOBILEta ||
- type == OBJECT_MOBILEwa ||
- type == OBJECT_MOBILEia ||
- type == OBJECT_MOBILEfc ||
- type == OBJECT_MOBILEtc ||
- type == OBJECT_MOBILEwc ||
- type == OBJECT_MOBILEic ||
- type == OBJECT_MOBILEfi ||
- type == OBJECT_MOBILEti ||
- type == OBJECT_MOBILEwi ||
- type == OBJECT_MOBILEii ||
- type == OBJECT_MOBILEfs ||
- type == OBJECT_MOBILEts ||
- type == OBJECT_MOBILEws ||
- type == OBJECT_MOBILEis ||
- type == OBJECT_MOBILErt ||
- type == OBJECT_MOBILErc ||
- type == OBJECT_MOBILErr ||
- type == OBJECT_MOBILErs ||
- type == OBJECT_MOBILEsa ||
- type == OBJECT_MOBILEtg ||
- type == OBJECT_MOBILEft ||
- type == OBJECT_MOBILEtt ||
- type == OBJECT_MOBILEwt ||
- type == OBJECT_MOBILEit ||
- type == OBJECT_MOBILEdr ||
- type == OBJECT_MOTHER ||
- type == OBJECT_ANT ||
- type == OBJECT_SPIDER ||
- type == OBJECT_BEE ||
- type == OBJECT_WORM ) // vehicle?
- {
- bRun = FALSE;
- if ( m_script[m_selScript] != 0 )
- {
- m_script[m_selScript]->GetTitle(title);
- if ( title[0] != 0 )
- {
- bRun = TRUE;
- }
- }
- if ( !bEnable && m_program == -1 ) bRun = FALSE;
- if ( m_bTraceRecord ) bRun = FALSE;
- EnableInterface(pw, EVENT_OBJECT_PROGRUN, bRun);
-
- pb = (CButton*)pw->SearchControl(EVENT_OBJECT_PROGRUN);
- if ( pb != 0 )
- {
- pb->SetIcon(m_program==-1?21:8); // run/stop
- }
-
-//? pb = (CButton*)pw->SearchControl(EVENT_OBJECT_PROGEDIT);
-//? if ( pb != 0 )
-//? {
-//? pb->SetIcon(m_program==-1?22:40); // edit/debug
-//? }
-
- BlinkScript(m_program != -1); // blinks if script execution
- }
-
- if ( type == OBJECT_MOBILEfa ||
- type == OBJECT_MOBILEta ||
- type == OBJECT_MOBILEwa ||
- type == OBJECT_MOBILEia ) // arm?
- {
- CheckInterface(pw, EVENT_OBJECT_MPOWER, m_manipStyle==EVENT_OBJECT_MPOWER);
- CheckInterface(pw, EVENT_OBJECT_MBACK, m_manipStyle==EVENT_OBJECT_MBACK);
- CheckInterface(pw, EVENT_OBJECT_MFRONT, m_manipStyle==EVENT_OBJECT_MFRONT);
- }
-
-#if _TEEN
- if ( m_object->RetTraceDown() )
- {
- pb = (CButton*)pw->SearchControl(EVENT_OBJECT_PEN0);
- if ( pb != 0 )
- {
- pb->ClearState(STATE_CHECK);
- }
-
- color = m_object->RetTraceColor();
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN1);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==1);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN2);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==8);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN3);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==7);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN4);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==4);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN5);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==6);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN6);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==14);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN7);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==12);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN8);
- if ( pc != 0 )
- {
- pc->SetState(STATE_CHECK, color==10);
- }
- }
- else
- {
- pb = (CButton*)pw->SearchControl(EVENT_OBJECT_PEN0);
- if ( pb != 0 )
- {
- pb->SetState(STATE_CHECK);
- }
-
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN1);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN2);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN3);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN4);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN5);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN6);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN7);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- pc = (CColor*)pw->SearchControl(EVENT_OBJECT_PEN8);
- if ( pc != 0 )
- {
- pc->ClearState(STATE_CHECK);
- }
- }
-#endif
-}
-
-// Updates the list of programs.
-
-void CBrain::UpdateScript(CWindow *pw)
-{
- CList* pl;
- char name[100];
- char title[100];
- int i;
- BOOL bSoluce;
-
- pl = (CList*)pw->SearchControl(EVENT_OBJECT_PROGLIST);
- if ( pl == 0 ) return;
-
-#if _SCHOOL
- bSoluce = m_main->RetSoluce4();
-#else
- bSoluce = TRUE;
-#endif
-
- for ( i=0 ; i<BRAINMAXSCRIPT ; i++ )
- {
- sprintf(name, "%d", i+1);
-
- if ( m_script[i] != 0 )
- {
- m_script[i]->GetTitle(title);
- if ( !bSoluce && i == 3 )
- {
- title[0] = 0;
- }
- if ( title[0] != 0 )
- {
- sprintf(name, "%d: %s", i+1, title);
- }
- }
-
- pl->SetName(i, name);
- }
-
- if ( !bSoluce )
- {
- pl->SetEnable(3, FALSE);
- }
-
- pl->SetSelect(m_selScript);
- pl->ShowSelect(TRUE);
-}
-
-// Returns the rank of selected script.
-
-int CBrain::RetSelScript()
-{
- CWindow* pw;
- CList* pl;
-
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw == 0 ) return -1;
-
- pl = (CList*)pw->SearchControl(EVENT_OBJECT_PROGLIST);
- if ( pl == 0 ) return -1;
-
- return pl->RetSelect();
-}
-
-// Blinks the running program.
-
-void CBrain::BlinkScript(BOOL bEnable)
-{
- CWindow* pw;
- CList* pl;
-
- if ( !m_object->RetSelect() ) return; // robot not selected?
-
- pw = (CWindow*)m_interface->SearchControl(EVENT_WINDOW0);
- if ( pw == 0 ) return;
-
- pl = (CList*)pw->SearchControl(EVENT_OBJECT_PROGLIST);
- if ( pl == 0 ) return;
-
- pl->SetBlink(bEnable);
-}
-
-// Check the status of a button interface.
-
-void CBrain::CheckInterface(CWindow *pw, EventMsg event, BOOL bState)
-{
- CControl* control;
-
- control = pw->SearchControl(event);
- if ( control == 0 ) return;
-
- control->SetState(STATE_CHECK, bState);
-}
-
-// Changes the state of a button interface.
-
-void CBrain::EnableInterface(CWindow *pw, EventMsg event, BOOL bState)
-{
- CControl* control;
-
- control = pw->SearchControl(event);
- if ( control == 0 ) return;
-
- control->SetState(STATE_ENABLE, bState);
-}
-
-// Changes the state of a button on the interface.
-
-void CBrain::DeadInterface(CWindow *pw, EventMsg event, BOOL bState)
-{
- CControl* control;
-
- control = pw->SearchControl(event);
- if ( control == 0 ) return;
-
- control->SetState(STATE_DEAD, !bState);
-}
-
-// Change the default input state of a button interface.
-
-void CBrain::DefaultEnter(CWindow *pw, EventMsg event, BOOL bState)
-{
- CControl* control;
-
- control = pw->SearchControl(event);
- if ( control == 0 ) return;
-
- if ( bState )
- {
- control->SetState(STATE_DEFAULT);
- m_defaultEnter = event;
- }
- else
- {
- control->ClearState(STATE_DEFAULT);
- }
-}
-
-
-// Indicates whether the object is busy with a task.
-
-BOOL CBrain::IsBusy()
-{
- return (m_primaryTask != 0);
-}
-
-// Management of the activity of an object.
-
-void CBrain::SetActivity(BOOL bMode)
-{
- m_bActivity = bMode;
-}
-
-BOOL CBrain::RetActivity()
-{
- return m_bActivity;
-}
-
-// Indicates whether a program is running.
-
-BOOL CBrain::IsProgram()
-{
- return ( m_program != -1 );
-}
-
-// Indicates whether a program exists.
-
-BOOL CBrain::ProgramExist(int rank)
-{
- return ( m_script[rank] != 0 );
-}
-
-// Starts a program.
-
-void CBrain::RunProgram(int rank)
-{
- if ( rank < 0 ) return;
-
- if ( m_script[rank] != 0 &&
- m_script[rank]->Run() )
- {
- m_program = rank; // start new program
- BlinkScript(TRUE); // blink
- m_object->CreateSelectParticule();
- m_main->UpdateShortcuts();
- }
-}
-
-// Returns the first free program.
-
-int CBrain::FreeProgram()
-{
- int i;
-
- for ( i=0 ; i<BRAINMAXSCRIPT ; i++ )
- {
- if ( m_script[i] == 0 ) return i;
- }
- return -1;
-}
-
-
-// Returns the current program.
-
-int CBrain::RetProgram()
-{
- return m_program;
-}
-
-
-// Name management scripts to load.
-
-void CBrain::SetScriptRun(int rank)
-{
- m_scriptRun = rank;
-}
-
-int CBrain::RetScriptRun()
-{
- return m_scriptRun;
-}
-
-void CBrain::SetScriptName(int rank, char *name)
-{
- strcpy(m_scriptName[rank], name);
-}
-
-char* CBrain::RetScriptName(int rank)
-{
- return m_scriptName[rank];
-}
-
-void CBrain::SetSoluceName(char *name)
-{
- strcpy(m_soluceName, name);
-}
-
-char* CBrain::RetSoluceName()
-{
- return m_soluceName;
-}
-
-
-// Load a script solution, in the first free script.
-// If there is already an identical script, nothing is loaded.
-
-BOOL CBrain::ReadSoluce(char* filename)
-{
- int rank, i;
-
- rank = FreeProgram();
- if ( rank == -1 ) return FALSE;
-
- if ( !ReadProgram(rank, filename) ) return FALSE; // load solution
-
- for ( i=0 ; i<BRAINMAXSCRIPT ; i++ )
- {
- if ( i == rank || m_script[i] == 0 ) continue;
-
- if ( m_script[i]->Compare(m_script[rank]) ) // the same already?
- {
- delete m_script[rank];
- m_script[rank] = 0;
- return FALSE;
- }
- }
-
- return TRUE;
-}
-
-// Load a script with a text file.
-
-BOOL CBrain::ReadProgram(int rank, char* filename)
-{
- if ( m_script[rank] == 0 )
- {
- m_script[rank] = new CScript(m_iMan, m_object, &m_secondaryTask);
- }
-
- if ( m_script[rank]->ReadScript(filename) ) return TRUE;
-
- delete m_script[rank];
- m_script[rank] = 0;
-
- return FALSE;
-}
-
-// Indicates whether a program is compiled correctly.
-
-BOOL CBrain::RetCompile(int rank)
-{
- if ( m_script[rank] == 0 ) return FALSE;
- return m_script[rank]->RetCompile();
-}
-
-// Saves a script in a text file.
-
-BOOL CBrain::WriteProgram(int rank, char* filename)
-{
- if ( m_script[rank] == 0 )
- {
- m_script[rank] = new CScript(m_iMan, m_object, &m_secondaryTask);
- }
-
- if ( m_script[rank]->WriteScript(filename) ) return TRUE;
-
- delete m_script[rank];
- m_script[rank] = 0;
-
- return FALSE;
-}
-
-
-// Load a stack of script implementation from a file.
-
-BOOL CBrain::ReadStack(FILE *file)
-{
- short op;
-
- fRead(&op, sizeof(short), 1, file);
- if ( op == 1 ) // run ?
- {
- fRead(&op, sizeof(short), 1, file); // program rank
- if ( op >= 0 && op < BRAINMAXSCRIPT )
- {
- m_program = op; // program restarts
- m_selScript = op;
- BlinkScript(TRUE); // blink
-
- if ( m_script[op] == 0 )
- {
- m_script[op] = new CScript(m_iMan, m_object, &m_secondaryTask);
- }
- if ( !m_script[op]->ReadStack(file) ) return FALSE;
- }
- }
-
- return TRUE;
-}
-
-// ave the script implementation stack of a file.
-
-BOOL CBrain::WriteStack(FILE *file)
-{
- short op;
-
- if ( m_program != -1 && // current program?
- m_script[m_program]->IsRunning() )
- {
- op = 1; // run
- fWrite(&op, sizeof(short), 1, file);
-
- op = m_program;
- fWrite(&op, sizeof(short), 1, file);
-
- return m_script[m_program]->WriteStack(file);
- }
-
- op = 0; // stop
- fWrite(&op, sizeof(short), 1, file);
- return TRUE;
-}
-
-
-
-// Start of registration of the design.
-
-void CBrain::TraceRecordStart()
-{
- m_traceOper = TO_STOP;
-
- m_tracePos = m_object->RetPosition(0);
- m_traceAngle = m_object->RetAngleY(0);
-
- if ( m_object->RetTraceDown() ) // pencil down?
- {
- m_traceColor = m_object->RetTraceColor();
- }
- else // pen up?
- {
- m_traceColor = -1;
- }
-
- delete m_traceRecordBuffer;
- m_traceRecordBuffer = (TraceRecord*)malloc(sizeof(TraceRecord)*MAXTRACERECORD);
- m_traceRecordIndex = 0;
-}
-
-// Saving the current drawing.
-
-void CBrain::TraceRecordFrame()
-{
- TraceOper oper = TO_STOP;
- D3DVECTOR pos;
- float angle, len, speed;
- int color;
-
- speed = m_physics->RetLinMotionX(MO_REASPEED);
- if ( speed > 0.0f ) oper = TO_ADVANCE;
- if ( speed < 0.0f ) oper = TO_RECEDE;
-
- speed = m_physics->RetCirMotionY(MO_REASPEED);
- if ( speed != 0.0f ) oper = TO_TURN;
-
- if ( m_object->RetTraceDown() ) // pencil down?
- {
- color = m_object->RetTraceColor();
- }
- else // pen up?
- {
- color = -1;
- }
-
- if ( oper != m_traceOper ||
- color != m_traceColor )
- {
- if ( m_traceOper == TO_ADVANCE ||
- m_traceOper == TO_RECEDE )
- {
- pos = m_object->RetPosition(0);
- len = Length2d(pos, m_tracePos);
- TraceRecordOper(m_traceOper, len);
- }
- if ( m_traceOper == TO_TURN )
- {
- angle = m_object->RetAngleY(0)-m_traceAngle;
- TraceRecordOper(m_traceOper, angle);
- }
-
- if ( color != m_traceColor )
- {
- TraceRecordOper(TO_PEN, (float)color);
- }
-
- m_traceOper = oper;
- m_tracePos = m_object->RetPosition(0);
- m_traceAngle = m_object->RetAngleY(0);
- m_traceColor = color;
- }
-}
-
-// End of the registration of the design. Program generates the CBOT.
-
-void CBrain::TraceRecordStop()
-{
- TraceOper lastOper, curOper;
- float lastParam, curParam;
- int max, i;
- char* buffer;
-
- if ( m_traceRecordBuffer == 0 ) return;
-
- max = 10000;
- buffer = (char*)malloc(max);
- *buffer = 0;
- strncat(buffer, "extern void object::AutoDraw()\n{\n", max-1);
-
- lastOper = TO_STOP;
- lastParam = 0.0f;
- for ( i=0 ; i<m_traceRecordIndex ; i++ )
- {
- curOper = m_traceRecordBuffer[i].oper;
- curParam = m_traceRecordBuffer[i].param;
-
- if ( curOper == lastOper )
- {
- if ( curOper == TO_PEN )
- {
- lastParam = curParam;
- }
- else
- {
- lastParam += curParam;
- }
- }
- else
- {
- TraceRecordPut(buffer, max, lastOper, lastParam);
- lastOper = curOper;
- lastParam = curParam;
- }
- }
- TraceRecordPut(buffer, max, lastOper, lastParam);
-
- delete m_traceRecordBuffer;
- m_traceRecordBuffer = 0;
-
- strncat(buffer, "}\n", max-1);
- buffer[max-1] = 0;
-
- i = m_selScript;
- if ( m_script[i] == 0 )
- {
- m_script[i] = new CScript(m_iMan, m_object, &m_secondaryTask);
- }
- m_script[i]->SendScript(buffer);
- delete buffer;
-}
-
-// Saves an instruction CBOT.
-
-BOOL CBrain::TraceRecordOper(TraceOper oper, float param)
-{
- int i;
-
- i = m_traceRecordIndex;
- if ( i >= MAXTRACERECORD ) return FALSE;
-
- m_traceRecordBuffer[i].oper = oper;
- m_traceRecordBuffer[i].param = param;
-
- m_traceRecordIndex = i+1;
- return TRUE;
-}
-
-// Generates an instruction CBOT.
-
-BOOL CBrain::TraceRecordPut(char *buffer, int max, TraceOper oper, float param)
-{
- char line[100];
- int color;
-
- if ( oper == TO_ADVANCE )
- {
- param /= g_unit;
- sprintf(line, "\tmove(%.1f);\n", param);
- strncat(buffer, line, max-1);
- }
-
- if ( oper == TO_RECEDE )
- {
- param /= g_unit;
- sprintf(line, "\tmove(-%.1f);\n", param);
- strncat(buffer, line, max-1);
- }
-
- if ( oper == TO_TURN )
- {
- param = -param*180.0f/PI;
- sprintf(line, "\tturn(%d);\n", (int)param);
-//? sprintf(line, "\tturn(%.1f);\n", param);
- strncat(buffer, line, max-1);
- }
-
- if ( oper == TO_PEN )
- {
- color = (int)param;
- if ( color == -1 ) strncat(buffer, "\tpenup();\n", max-1);
- if ( color == 1 ) strncat(buffer, "\tpendown(Black);\n", max-1);
- if ( color == 8 ) strncat(buffer, "\tpendown(Yellow);\n", max-1);
- if ( color == 7 ) strncat(buffer, "\tpendown(Orange);\n", max-1);
- if ( color == 4 ) strncat(buffer, "\tpendown(Red);\n", max-1);
- if ( color == 6 ) strncat(buffer, "\tpendown(Purple);\n", max-1);
- if ( color == 14 ) strncat(buffer, "\tpendown(Blue);\n", max-1);
- if ( color == 12 ) strncat(buffer, "\tpendown(Green);\n", max-1);
- if ( color == 10 ) strncat(buffer, "\tpendown(Brown);\n", max-1);
- }
-
- return TRUE;
-}
-
|