colobot/src/script/script.cpp

// * 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/.

// script.cpp

#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 "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 "object.h"
#include "physics.h"
#include "interface.h"
#include "edit.h"
#include "list.h"
#include "text.h"
#include "displaytext.h"
#include "taskmanager.h"
#include "task.h"
#include "taskmanip.h"
#include "taskgoto.h"
#include "taskshield.h"
#include "cbottoken.h"
#include "script.h"



#define CBOT_IPF	100		// CBOT: number of instructions / frame

#define ERM_CONT	0		// if error -> continue
#define ERM_STOP	1		// if error -> stop




// Compiling a procedure without any parameters.

CBotTypResult cNull(CBotVar* &var, void* user)
{
	if ( var != 0 )  return CBotErrOverParam;
	return CBotTypResult(CBotTypFloat);
}

// Compiling a procedure with a single real number.

CBotTypResult cOneFloat(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();
	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}

// Compiling a procedure with two real numbers.

CBotTypResult cTwoFloat(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}

// Compiling a procedure with a "dot".

CBotTypResult cPoint(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);

	if ( var->GivType() <= CBotTypDouble )
	{
		var = var->GivNext();
		if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
		if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
		var = var->GivNext();
//?		if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
//?		if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
//?		var = var->GivNext();
		return CBotTypResult(0);
	}

	if ( var->GivType() == CBotTypClass )
	{
		if ( !var->IsElemOfClass("point") )  return CBotTypResult(CBotErrBadParam);
		var = var->GivNext();
		return CBotTypResult(0);
	}

	return CBotTypResult(CBotErrBadParam);
}

// Compiling a procedure with a single "point".

CBotTypResult cOnePoint(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}

// Compiling a procedure with a single string.

CBotTypResult cString(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() != CBotTypString &&
		 var->GivType() >  CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();
	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}


// Seeking value in an array of integers.

BOOL FindList(CBotVar* array, int type)
{
	while ( array != 0 )
	{
		if ( type == array->GivValInt() )  return TRUE;
		array = array->GivNext();
	}
	return FALSE;
}


// Gives a parameter of type "point".

BOOL GetPoint(CBotVar* &var, int& exception, D3DVECTOR& pos)
{
	CBotVar		*pX, *pY, *pZ;

	if ( var->GivType() <= CBotTypDouble )
	{
		pos.x = var->GivValFloat()*g_unit;
		var = var->GivNext();

		pos.z = var->GivValFloat()*g_unit;
		var = var->GivNext();

		pos.y = 0.0f;
	}
	else
	{
		pX = var->GivItem("x");
		if ( pX == NULL )
		{
			exception = CBotErrUndefItem;  return TRUE;
		}
		pos.x = pX->GivValFloat()*g_unit;

		pY = var->GivItem("y");
		if ( pY == NULL )
		{
			exception = CBotErrUndefItem;  return TRUE;
		}
		pos.z = pY->GivValFloat()*g_unit;  // attention y -> z !

		pZ = var->GivItem("z");
		if ( pZ == NULL )
		{
			exception = CBotErrUndefItem;  return TRUE;
		}
		pos.y = pZ->GivValFloat()*g_unit;  // attention z -> y !

		var = var->GivNext();
	}
	return TRUE;
}


// Instruction "sin(degrees)".

BOOL rSin(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(sinf(value*PI/180.0f));
	return TRUE;
}

// Instruction "cos(degrees)".

BOOL rCos(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(cosf(value*PI/180.0f));
	return TRUE;
}

// Instruction "tan(degrees)".

BOOL rTan(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(tanf(value*PI/180.0f));
	return TRUE;
}

// Instruction "asin(degrees)".

BOOL raSin(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(asinf(value)*180.0f/PI);
	return TRUE;
}

// Instruction "acos(degrees)".

BOOL raCos(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(acosf(value)*180.0f/PI);
	return TRUE;
}

// Instruction "atan(degrees)".

BOOL raTan(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(atanf(value)*180.0f/PI);
	return TRUE;
}

// Instruction "sqrt(value)".

BOOL rSqrt(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(sqrtf(value));
	return TRUE;
}

// Instruction "pow(x, y)".

BOOL rPow(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	x, y;

	x = var->GivValFloat();
	var = var->GivNext();
	y = var->GivValFloat();
	result->SetValFloat(powf(x, y));
	return TRUE;
}

// Instruction "rand()".

BOOL rRand(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	result->SetValFloat(Rand());
	return TRUE;
}

// Instruction "abs()".

BOOL rAbs(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	float	value;

	value = var->GivValFloat();
	result->SetValFloat(Abs(value));
	return TRUE;
}


// Compilation of the instruction "retobject(rank)".

CBotTypResult cRetObject(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();
	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);

	return CBotTypResult(CBotTypPointer, "object");
}

// Instruction "retobject(rank)".

BOOL rRetObject(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pObj;
	int			rank;

	rank = var->GivValInt();

	pObj = (CObject*)script->m_iMan->SearchInstance(CLASS_OBJECT, rank);
	if ( pObj == 0 )
	{
		result->SetPointer(0);
	}
	else
	{
		result->SetPointer(pObj->RetBotVar());
	}
	return TRUE;
}


// Compilation of the instruction "search(type, pos)".

CBotTypResult cSearch(CBotVar* &var, void* user)
{
	CBotVar*		array;
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() == CBotTypArrayPointer )
	{
		array = var->GivItemList();
		if ( array == 0 )  return CBotTypResult(CBotTypPointer);
		if ( array->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	}
	else if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();
	if ( var != 0 )
	{
		ret = cPoint(var, user);
		if ( ret.GivType() != 0 )  return ret;
		if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	}

	return CBotTypResult(CBotTypPointer, "object");
}

// Instruction "search(type, pos)".

BOOL rSearch(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject		*pObj, *pBest;
	CBotVar*	array;
	D3DVECTOR	pos, oPos;
	BOOL		bNearest = FALSE;
	BOOL		bArray;
	float		min, dist;
	int			type, oType, i;

	if ( var->GivType() == CBotTypArrayPointer )
	{
		array = var->GivItemList();
		bArray = TRUE;
	}
	else
	{
		type = var->GivValInt();
		bArray = FALSE;
	}
	var = var->GivNext();
	if ( var != 0 )
	{
		if ( !GetPoint(var, exception, pos) )  return TRUE;
		bNearest = TRUE;
	}

	min = 100000.0f;
	pBest = 0;
	for ( i=0 ; i<1000000 ; i++ )
	{
		pObj = (CObject*)script->m_iMan->SearchInstance(CLASS_OBJECT, i);
		if ( pObj == 0 )  break;

		if ( pObj->RetTruck() != 0 )  continue;  // object transported?
		if ( !pObj->RetActif() )  continue;

		oType = pObj->RetType();
		if ( oType == OBJECT_TOTO )  continue;

		if ( oType == OBJECT_RUINmobilew2 ||
			 oType == OBJECT_RUINmobilet1 ||
			 oType == OBJECT_RUINmobilet2 ||
			 oType == OBJECT_RUINmobiler1 ||
			 oType == OBJECT_RUINmobiler2 )
		{
			oType = OBJECT_RUINmobilew1;  // any ruin
		}

		if ( oType == OBJECT_SCRAP2 ||
			 oType == OBJECT_SCRAP3 ||
			 oType == OBJECT_SCRAP4 ||
			 oType == OBJECT_SCRAP5 )  // wastes?
		{
			oType = OBJECT_SCRAP1;  // any waste
		}

		if ( oType == OBJECT_BARRIER2 ||
			 oType == OBJECT_BARRIER3 )  // barriers?
		{
			oType = OBJECT_BARRIER1;  // any barrier
		}

		if ( bArray )
		{
			if ( !FindList(array, oType) )  continue;
		}
		else
		{
			if ( type != oType && type != OBJECT_NULL )  continue;
		}

		if ( bNearest )
		{
			oPos = pObj->RetPosition(0);
			dist = Length2d(pos, oPos);
			if ( dist < min )
			{
				min = dist;
				pBest = pObj;
			}
		}
		else
		{
			pBest = pObj;
			break;
		}
	}

	if ( pBest == 0 )
	{
		result->SetPointer(0);
	}
	else
	{
		result->SetPointer(pBest->RetBotVar());
	}
	return TRUE;
}


// Compilation of instruction "radar(type, angle, focus, min, max, sens)".

CBotTypResult cRadar(CBotVar* &var, void* user)
{
	CBotVar*	array;

	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	if ( var->GivType() == CBotTypArrayPointer )
	{
		array = var->GivItemList();
		if ( array == 0 )  return CBotTypResult(CBotTypPointer, "object");
		if ( array->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // type
	}
	else if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // type
	var = var->GivNext();
	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // angle
	var = var->GivNext();
	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // focus
	var = var->GivNext();
	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // min
	var = var->GivNext();
	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // max
	var = var->GivNext();
	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // sense
	var = var->GivNext();
	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);  // filter
	var = var->GivNext();
	if ( var == 0 )  return CBotTypResult(CBotTypPointer, "object");
	return CBotTypResult(CBotErrOverParam);
}

// Instruction "radar(type, angle, focus, min, max, sens, filter)".

BOOL rRadar(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	CObject		*pObj, *pBest;
	CPhysics*	physics;
	CBotVar*	array;
	D3DVECTOR	iPos, oPos;
	RadarFilter	filter;
	float		best, minDist, maxDist, sens, iAngle, angle, focus, d, a;
	int			type, oType, i;
	BOOL		bArray;

	type    = OBJECT_NULL;
	angle   = 0.0f;
	focus   = PI*2.0f;
	minDist = 0.0f*g_unit;
	maxDist = 1000.0f*g_unit;
	sens    = 1.0f;
	filter  = FILTER_NONE;

	if ( var != 0 )
	{
		if ( var->GivType() == CBotTypArrayPointer )
		{
			array = var->GivItemList();
			bArray = TRUE;
		}
		else
		{
			type = var->GivValInt();
			bArray = FALSE;
		}

		var = var->GivNext();
		if ( var != 0 )
		{
			angle = -var->GivValFloat()*PI/180.0f;

			var = var->GivNext();
			if ( var != 0 )
			{
				focus = var->GivValFloat()*PI/180.0f;

				var = var->GivNext();
				if ( var != 0 )
				{
					minDist = var->GivValFloat()*g_unit;

					var = var->GivNext();
					if ( var != 0 )
					{
						maxDist = var->GivValFloat()*g_unit;

						var = var->GivNext();
						if ( var != 0 )
						{
							sens = var->GivValFloat();

							var = var->GivNext();
							if ( var != 0 )
							{
								filter = (RadarFilter)var->GivValInt();
							}
						}
					}
				}
			}
		}
	}

	iPos   = pThis->RetPosition(0);
	iAngle = pThis->RetAngleY(0)+angle;
	iAngle = NormAngle(iAngle);  // 0..2*PI

	if ( sens >= 0.0f )  best = 100000.0f;
	else                 best = 0.0f;
	pBest = 0;
	for ( i=0 ; i<1000000 ; i++ )
	{
		pObj = (CObject*)script->m_iMan->SearchInstance(CLASS_OBJECT, i);
		if ( pObj == 0 )  break;
		if ( pObj == pThis )  continue;

		if ( pObj->RetTruck() != 0 )  continue;  // object transported?
		if ( !pObj->RetActif() )  continue;
		if ( pObj->RetProxyActivate() )  continue;

		oType = pObj->RetType();
		if ( oType == OBJECT_TOTO )  continue;

		if ( oType == OBJECT_RUINmobilew2 ||
			 oType == OBJECT_RUINmobilet1 ||
			 oType == OBJECT_RUINmobilet2 ||
			 oType == OBJECT_RUINmobiler1 ||
			 oType == OBJECT_RUINmobiler2 )
		{
			oType = OBJECT_RUINmobilew1;  // any ruin
		}

		if ( oType == OBJECT_SCRAP2 ||
			 oType == OBJECT_SCRAP3 ||
			 oType == OBJECT_SCRAP4 ||
			 oType == OBJECT_SCRAP5 )  // wastes?
		{
			oType = OBJECT_SCRAP1;  // any waste
		}

		if ( oType == OBJECT_BARRIER2 ||
			 oType == OBJECT_BARRIER3 )  // barriers?
		{
			oType = OBJECT_BARRIER1;  // any barrier
		}

		if ( filter == FILTER_ONLYLANDING )
		{
			physics = pObj->RetPhysics();
			if ( physics != 0 && !physics->RetLand() )  continue;
		}
		if ( filter == FILTER_ONLYFLYING )
		{
			physics = pObj->RetPhysics();
			if ( physics != 0 && physics->RetLand() )  continue;
		}

		if ( bArray )
		{
			if ( !FindList(array, oType) )  continue;
		}
		else
		{
			if ( type != oType && type != OBJECT_NULL )  continue;
		}

		oPos = pObj->RetPosition(0);
		d = Length2d(iPos, oPos);
		if ( d < minDist || d > maxDist )  continue;  // too close or too far?

		if ( focus >= PI*2.0f )
		{
			if ( (sens >= 0.0f && d < best) ||
				 (sens <  0.0f && d > best) )
			{
				best = d;
				pBest = pObj;
			}
			continue;
		}

		a = RotateAngle(oPos.x-iPos.x, iPos.z-oPos.z);  // CW !
		if ( TestAngle(a, iAngle-focus/2.0f, iAngle+focus/2.0f) )
		{
			if ( (sens >= 0.0f && d < best) ||
				 (sens <  0.0f && d > best) )
			{
				best = d;
				pBest = pObj;
			}
		}
	}

	if ( pBest == 0 )
	{
		result->SetPointer(0);
	}
	else
	{
		result->SetPointer(pBest->RetBotVar());
	}
	return TRUE;
}


// Monitoring a task.

BOOL Process(CScript* script, CBotVar* result, int &exception)
{
	Error		err;

	err = script->m_primaryTask->IsEnded();
	if ( err != ERR_CONTINUE )  // task terminated?
	{
		delete script->m_primaryTask;
		script->m_primaryTask = 0;

		script->m_bContinue = FALSE;

		if ( err == ERR_STOP )  err = ERR_OK;
		result->SetValInt(err);  // indicates the error or ok
		if ( err != ERR_OK && script->m_errMode == ERM_STOP )
		{
			exception = err;
			return FALSE;
		}
		return TRUE;  // it's all over
	}

	script->m_primaryTask->EventProcess(script->m_event);
	script->m_bContinue = TRUE;
	return FALSE;  // not done
}


// Compilation of the instruction "detect(type)".

CBotTypResult cDetect(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();
	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypBoolean);
}

// Instruction "detect(type)".

BOOL rDetect(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	CObject		*pObj, *pGoal, *pBest;
	CPhysics*	physics;
	CBotVar*	array;
	D3DVECTOR	iPos, oPos;
	RadarFilter	filter;
	float		bGoal, best, minDist, maxDist, sens, iAngle, angle, focus, d, a;
	int			type, oType, i;
	BOOL		bArray;
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		type    = OBJECT_NULL;
		angle   = 0.0f;
		focus   = 45.0f*PI/180.0f;
		minDist = 0.0f*g_unit;
		maxDist = 20.0f*g_unit;
		sens    = 1.0f;
		filter  = FILTER_NONE;

		if ( var != 0 )
		{
			if ( var->GivType() == CBotTypArrayPointer )
			{
				array = var->GivItemList();
				bArray = TRUE;
			}
			else
			{
				type = var->GivValInt();
				bArray = FALSE;
			}
		}

		iPos   = pThis->RetPosition(0);
		iAngle = pThis->RetAngleY(0)+angle;
		iAngle = NormAngle(iAngle);  // 0..2*PI

		bGoal = 100000.0f;
		pGoal = 0;
		if ( sens >= 0.0f )  best = 100000.0f;
		else                 best = 0.0f;
		pBest = 0;
		for ( i=0 ; i<1000000 ; i++ )
		{
			pObj = (CObject*)script->m_iMan->SearchInstance(CLASS_OBJECT, i);
			if ( pObj == 0 )  break;
			if ( pObj == pThis )  continue;

			if ( pObj->RetTruck() != 0 )  continue;  // object transported?
			if ( !pObj->RetActif() )  continue;
			if ( pObj->RetProxyActivate() )  continue;

			oType = pObj->RetType();
			if ( oType == OBJECT_TOTO )  continue;

			if ( oType == OBJECT_RUINmobilew2 ||
				 oType == OBJECT_RUINmobilet1 ||
				 oType == OBJECT_RUINmobilet2 ||
				 oType == OBJECT_RUINmobiler1 ||
				 oType == OBJECT_RUINmobiler2 )
			{
				oType = OBJECT_RUINmobilew1;  // any ruin
			}

			if ( oType == OBJECT_SCRAP2 ||
				 oType == OBJECT_SCRAP3 ||
				 oType == OBJECT_SCRAP4 ||
				 oType == OBJECT_SCRAP5 )  // wastes?
			{
				oType = OBJECT_SCRAP1;  // any waste
			}

			if ( oType == OBJECT_BARRIER2 ||
				 oType == OBJECT_BARRIER3 )  // barriers?
			{
				oType = OBJECT_BARRIER1;  // any barrier
			}

			if ( filter == FILTER_ONLYLANDING )
			{
				physics = pObj->RetPhysics();
				if ( physics != 0 && !physics->RetLand() )  continue;
			}
			if ( filter == FILTER_ONLYFLYING )
			{
				physics = pObj->RetPhysics();
				if ( physics != 0 && physics->RetLand() )  continue;
			}

			if ( bArray )
			{
				if ( !FindList(array, oType) )  continue;
			}
			else
			{
				if ( type != oType && type != OBJECT_NULL )  continue;
			}

			oPos = pObj->RetPosition(0);
			d = Length2d(iPos, oPos);
			a = RotateAngle(oPos.x-iPos.x, iPos.z-oPos.z);  // CW !

			if ( d < bGoal &&
				 TestAngle(a, iAngle-(5.0f*PI/180.0f)/2.0f, iAngle+(5.0f*PI/180.0f)/2.0f) )
			{
				bGoal = d;
				pGoal = pObj;
			}

			if ( d < minDist || d > maxDist )  continue;  // too close or too far?

			if ( focus >= PI*2.0f )
			{
				if ( (sens >= 0.0f && d < best) ||
					 (sens <  0.0f && d > best) )
				{
					best = d;
					pBest = pObj;
				}
				continue;
			}

			if ( TestAngle(a, iAngle-focus/2.0f, iAngle+focus/2.0f) )
			{
				if ( (sens >= 0.0f && d < best) ||
					 (sens <  0.0f && d > best) )
				{
					best = d;
					pBest = pObj;
				}
			}
		}

		pThis->StartDetectEffect(pGoal, pBest!=0);

		if ( pBest == 0 )
		{
			script->m_returnValue = 0.0f;
		}
		else
		{
			script->m_returnValue = 1.0f;
		}

		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		err = script->m_primaryTask->StartTaskWait(0.3f);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	if ( !Process(script, result, exception) )  return FALSE;  // not finished
	result->SetValFloat(script->m_returnValue);
	return TRUE;
}


// Compilation of the instruction "direction(pos)".

CBotTypResult cDirection(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;
	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);

	return CBotTypResult(CBotTypFloat);
}

// Instruction "direction(pos)".

BOOL rDirection(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	D3DVECTOR	iPos, oPos;
	float		a, g;

	if ( !GetPoint(var, exception, oPos) )  return TRUE;

	iPos = pThis->RetPosition(0);

	a = pThis->RetAngleY(0);
	g = RotateAngle(oPos.x-iPos.x, iPos.z-oPos.z);  // CW !

	result->SetValFloat(-Direction(a, g)*180.0f/PI);
	return TRUE;
}


// Compilation of the instruction "produce(pos, angle, type, scriptName)".

CBotTypResult cProduce(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() != CBotTypString )  return CBotTypResult(CBotErrBadString);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);

	return CBotTypResult(CBotTypFloat);
}

// Instruction "produce(pos, angle, type, scriptName)".

BOOL rProduce(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	object;
	CBotString	cbs;
	const char*	name;
	D3DVECTOR	pos;
	float		angle;
	ObjectType	type;

	if ( !GetPoint(var, exception, pos) )  return TRUE;

	angle = var->GivValFloat()*PI/180.0f;
	var = var->GivNext();

	type = (ObjectType)var->GivValInt();
	var = var->GivNext();

	cbs = var->GivValString();
	name = cbs;

	if ( type == OBJECT_FRET     ||
		 type == OBJECT_STONE    ||
		 type == OBJECT_URANIUM  ||
		 type == OBJECT_METAL    ||
		 type == OBJECT_POWER    ||
		 type == OBJECT_ATOMIC   ||
		 type == OBJECT_BULLET   ||
		 type == OBJECT_BBOX     ||
		 type == OBJECT_KEYa     ||
		 type == OBJECT_KEYb     ||
		 type == OBJECT_KEYc     ||
		 type == OBJECT_KEYd     ||
		 type == OBJECT_TNT      ||
		 type == OBJECT_SCRAP1   ||
		 type == OBJECT_SCRAP2   ||
		 type == OBJECT_SCRAP3   ||
		 type == OBJECT_SCRAP4   ||
		 type == OBJECT_SCRAP5   ||
		 type == OBJECT_BOMB     ||
		 type == OBJECT_WAYPOINT ||
		 type == OBJECT_SHOW     ||
		 type == OBJECT_WINFIRE  )
	{
		object = new CObject(script->m_iMan);
		if ( !object->CreateResource(pos, angle, type) )
		{
			delete object;
			result->SetValInt(1);  // error
			return TRUE;
		}
	}
	else
	if ( type == OBJECT_MOTHER ||
		 type == OBJECT_ANT    ||
		 type == OBJECT_SPIDER ||
		 type == OBJECT_BEE    ||
		 type == OBJECT_WORM   )
	{
		CObject*	egg;

		object = new CObject(script->m_iMan);
		if ( !object->CreateInsect(pos, angle, type) )
		{
			delete object;
			result->SetValInt(1);  // error
			return TRUE;
		}

		egg = new CObject(script->m_iMan);
		if ( !egg->CreateResource(pos, angle, OBJECT_EGG, 0.0f) )
		{
			delete egg;
		}
	}
	else
	{
		result->SetValInt(1);  // impossible
		return TRUE;
	}
	object->SetActivity(FALSE);
	object->ReadProgram(0, (char*)name);
	object->RunProgram(0);
	
	result->SetValInt(0);  // no error
	return TRUE;
}


// Compilation of the instruction "distance(p1, p2)".

CBotTypResult cDistance(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);

	return CBotTypResult(CBotTypFloat);
}

// Instruction "distance(p1, p2)".

BOOL rDistance(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	D3DVECTOR	p1, p2;
	float		value;

	if ( !GetPoint(var, exception, p1) )  return TRUE;
	if ( !GetPoint(var, exception, p2) )  return TRUE;

	value = Length(p1, p2);
	result->SetValFloat(value/g_unit);
	return TRUE;
}

// Instruction "distance2d(p1, p2)".

BOOL rDistance2d(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	D3DVECTOR	p1, p2;
	float		value;

	if ( !GetPoint(var, exception, p1) )  return TRUE;
	if ( !GetPoint(var, exception, p2) )  return TRUE;

	value = Length2d(p1, p2);
	result->SetValFloat(value/g_unit);
	return TRUE;
}


// Compilation of the instruction "space(center, rMin, rMax, dist)".

CBotTypResult cSpace(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotTypIntrinsic, "point");
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var == 0 )  return CBotTypResult(CBotTypIntrinsic, "point");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypIntrinsic, "point");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypIntrinsic, "point");
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypIntrinsic, "point");
}

// Instruction "space(center, rMin, rMax, dist)".

BOOL rSpace(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	CBotVar*	pSub;
	D3DVECTOR	center;
	float		rMin, rMax, dist;

	rMin = 10.0f*g_unit;
	rMax = 50.0f*g_unit;
	dist =  4.0f*g_unit;

	if ( var == 0 )
	{
		center = pThis->RetPosition(0);
	}
	else
	{
		if ( !GetPoint(var, exception, center) )  return TRUE;

		if ( var != 0 )
		{
			rMin = var->GivValFloat()*g_unit;
			var = var->GivNext();

			if ( var != 0 )
			{
				rMax = var->GivValFloat()*g_unit;
				var = var->GivNext();

				if ( var != 0 )
				{
					dist = var->GivValFloat()*g_unit;
					var = var->GivNext();
				}
			}
		}
	}
	script->m_main->FreeSpace(center, rMin, rMax, dist, pThis);

	if ( result != 0 )
	{
		pSub = result->GivItemList();
		if ( pSub != 0 )
		{
			pSub->SetValFloat(center.x/g_unit);
			pSub = pSub->GivNext();  // "y"
			pSub->SetValFloat(center.z/g_unit);
			pSub = pSub->GivNext();  // "z"
			pSub->SetValFloat(center.y/g_unit);
		}
	}
	return TRUE;
}


// Compilation of the instruction "flatground(center, rMax)".

CBotTypResult cFlatGround(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);

	return CBotTypResult(CBotTypFloat);
}

// Instruction "flatground(center, rMax)".

BOOL rFlatGround(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	D3DVECTOR	center;
	float		rMax, dist;

	if ( !GetPoint(var, exception, center) )  return TRUE;
	rMax = var->GivValFloat()*g_unit;
	var = var->GivNext();

	dist = script->m_main->RetFlatZoneRadius(center, rMax, pThis);
	result->SetValFloat(dist/g_unit);

	return TRUE;
}


// Instruction "wait(t)".

BOOL rWait(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	float		value;
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		value = var->GivValFloat();
		err = script->m_primaryTask->StartTaskWait(value);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Instruction "move(dist)".

BOOL rMove(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	float		value;
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		value = var->GivValFloat();
		err = script->m_primaryTask->StartTaskAdvance(value*g_unit);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Instruction "turn(angle)".

BOOL rTurn(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	float		value;
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		value = var->GivValFloat();
		err = script->m_primaryTask->StartTaskTurn(-value*PI/180.0f);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Compilation of the instruction "goto(pos, altitude, crash, goal)".

CBotTypResult cGoto(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	return CBotTypResult(CBotErrOverParam);
}

// Instruction "goto(pos, altitude, mode)".

BOOL rGoto(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*		script = ((CObject*)user)->RetRunScript();
	D3DVECTOR		pos;
	TaskGotoGoal	goal;
	TaskGotoCrash	crash;
	float			altitude;
	Error			err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		if ( !GetPoint(var, exception, pos) )  return TRUE;

		goal  = TGG_DEFAULT;
		crash = TGC_DEFAULT;
		altitude = 0.0f*g_unit;

		if ( var != 0 )
		{
			altitude = var->GivValFloat()*g_unit;

			var = var->GivNext();
			if ( var != 0 )
			{
				goal = (TaskGotoGoal)var->GivValInt();

				var = var->GivNext();
				if ( var != 0 )
				{
					crash = (TaskGotoCrash)var->GivValInt();
				}
			}
		}

		err = script->m_primaryTask->StartTaskGoto(pos, altitude, goal, crash);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Instruction "find(type)".

BOOL rFind(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*		script = ((CObject*)user)->RetRunScript();
	D3DVECTOR		pos;
	TaskGotoGoal	goal;
	TaskGotoCrash	crash;
	float			altitude;
	Error			err;
	CObject*		pThis = (CObject*)user;
	CObject			*pObj, *pBest;
	CBotVar*		array;
	D3DVECTOR		iPos, oPos;
	float			best, minDist, maxDist, sens, iAngle, angle, focus, d, a;
	int				type, oType, i;
	BOOL			bArray;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		type    = OBJECT_NULL;
		angle   = 0.0f;
		focus   = PI*2.0f;
		minDist = 0.0f*g_unit;
		maxDist = 1000.0f*g_unit;
		sens    = 1.0f;

		if ( var->GivType() == CBotTypArrayPointer )
		{
			array = var->GivItemList();
			bArray = TRUE;
		}
		else
		{
			type = var->GivValInt();
			bArray = FALSE;
		}

		best = 100000.0f;
		pBest = 0;
		for ( i=0 ; i<1000000 ; i++ )
		{
			pObj = (CObject*)script->m_iMan->SearchInstance(CLASS_OBJECT, i);
			if ( pObj == 0 )  break;
			if ( pObj == pThis )  continue;

			if ( pObj->RetTruck() != 0 )  continue;  // object transported?
			if ( !pObj->RetActif() )  continue;
			if ( pObj->RetProxyActivate() )  continue;

			oType = pObj->RetType();
			if ( oType == OBJECT_TOTO )  continue;

			if ( oType == OBJECT_RUINmobilew2 ||
				 oType == OBJECT_RUINmobilet1 ||
				 oType == OBJECT_RUINmobilet2 ||
				 oType == OBJECT_RUINmobiler1 ||
				 oType == OBJECT_RUINmobiler2 )
			{
				oType = OBJECT_RUINmobilew1;  // any ruin
			}

			if ( oType == OBJECT_SCRAP2 ||
				 oType == OBJECT_SCRAP3 ||
				 oType == OBJECT_SCRAP4 ||
				 oType == OBJECT_SCRAP5 )  // wastes?
			{
				oType = OBJECT_SCRAP1;  // any waste
			}

			if ( oType == OBJECT_BARRIER2 ||
				 oType == OBJECT_BARRIER3 )  // barriers?
			{
				oType = OBJECT_BARRIER1;  // any barrier
			}

			if ( bArray )
			{
				if ( !FindList(array, oType) )  continue;
			}
			else
			{
				if ( type != oType && type != OBJECT_NULL )  continue;
			}

			oPos = pObj->RetPosition(0);
			d = Length2d(iPos, oPos);
			if ( d < minDist || d > maxDist )  continue;  // too close or too far?

			if ( focus >= PI*2.0f )
			{
				if ( d < best )
				{
					best = d;
					pBest = pObj;
				}
				continue;
			}

			a = RotateAngle(oPos.x-iPos.x, iPos.z-oPos.z);  // CW !
			if ( TestAngle(a, iAngle-focus/2.0f, iAngle+focus/2.0f) )
			{
				if ( d < best )
				{
					best = d;
					pBest = pObj;
				}
			}
		}

		if ( pBest == 0 )
		{
			exception = ERR_FIND_IMPOSSIBLE;
			return FALSE;
		}

		pos = pBest->RetPosition(0);
		goal  = TGG_DEFAULT;
		crash = TGC_DEFAULT;
		altitude = 0.0f*g_unit;

		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		err = script->m_primaryTask->StartTaskGoto(pos, altitude, goal, crash);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Compilation "grab/drop(oper)".

CBotTypResult cGrabDrop(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();
	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}

// Instruction "grab(oper)".

BOOL rGrab(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	ObjectType	oType;
	TaskManipArm type;
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		if ( var == 0 )  type = TMA_FFRONT;
		else             type = (TaskManipArm)var->GivValInt();

		oType = pThis->RetType();
		if ( oType == OBJECT_HUMAN ||
			 oType == OBJECT_TECH  )
		{
			err = script->m_primaryTask->StartTaskTake();
		}
		else
		{
			err = script->m_primaryTask->StartTaskManip(TMO_GRAB, type);
		}

		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Instruction "drop(oper)".

BOOL rDrop(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	ObjectType	oType;
	TaskManipArm type;
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		if ( var == 0 )  type = TMA_FFRONT;
		else             type = (TaskManipArm)var->GivValInt();

		oType = pThis->RetType();
		if ( oType == OBJECT_HUMAN ||
			 oType == OBJECT_TECH  )
		{
			err = script->m_primaryTask->StartTaskTake();
		}
		else
		{
			err = script->m_primaryTask->StartTaskManip(TMO_DROP, type);
		}

		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Instruction "sniff()".

BOOL rSniff(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		err = script->m_primaryTask->StartTaskSearch();
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Compilation of the instruction "receive(nom, power)".

CBotTypResult cReceive(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() != CBotTypString )  return CBotTypResult(CBotErrBadString);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}

// Instruction "receive(nom, power)".

BOOL rReceive(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	CBotString	cbs;
	Error		err;
	const char*	p;
	float		value, power;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);

		cbs = var->GivValString();
		p = cbs;
		var = var->GivNext();

		power = 10.0f*g_unit;
		if ( var != 0 )
		{
			power = var->GivValFloat()*g_unit;
			var = var->GivNext();
		}

		err = script->m_primaryTask->StartTaskInfo((char*)p, 0.0f, power, FALSE);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetInit(IS_NAN);
			return TRUE;
		}
	}
	if ( !Process(script, result, exception) )  return FALSE;  // not finished

	value = pThis->RetInfoReturn();
	if ( value == NAN )
	{
		result->SetInit(IS_NAN);
	}
	else
	{
		result->SetValFloat(value);
	}
	return TRUE;
}

// Compilation of the instruction "send(nom, value, power)".

CBotTypResult cSend(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() != CBotTypString )  return CBotTypResult(CBotErrBadString);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();
	
	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}

// Instruction "send(nom, value, power)".

BOOL rSend(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	CBotString	cbs;
	Error		err;
	const char*	p;
	float		value, power;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);

		cbs = var->GivValString();
		p = cbs;
		var = var->GivNext();

		value = var->GivValFloat();
		var = var->GivNext();

		power = 10.0f*g_unit;
		if ( var != 0 )
		{
			power = var->GivValFloat()*g_unit;
			var = var->GivNext();
		}

		err = script->m_primaryTask->StartTaskInfo((char*)p, value, power, TRUE);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Seeks the nearest information terminal.

CObject* SearchInfo(CScript* script, CObject* object, float power)
{
	CObject		*pObj, *pBest;
	D3DVECTOR	iPos, oPos;
	ObjectType	type;
	float		dist, min;
	int			i;

	iPos = object->RetPosition(0);

	min = 100000.0f;
	pBest = 0;
	for ( i=0 ; i<1000000 ; i++ )
	{
		pObj = (CObject*)script->m_iMan->SearchInstance(CLASS_OBJECT, i);
		if ( pObj == 0 )  break;

		type = pObj->RetType();
		if ( type != OBJECT_INFO )  continue;

		if ( !pObj->RetActif() )  continue;

		oPos = pObj->RetPosition(0);
		dist = Length(oPos, iPos);
		if ( dist > power )  continue;  // too far?
		if ( dist < min )
		{
			min = dist;
			pBest = pObj;
		}
	}

	return pBest;
}

// Compilation of the instruction "deleteinfo(nom, power)".

CBotTypResult cDeleteInfo(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() != CBotTypString )  return CBotTypResult(CBotErrBadString);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypFloat);
}

// Instruction "deleteinfo(nom, power)".

BOOL rDeleteInfo(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	CObject*	pInfo;
	CBotString	cbs;
	Info		info;
	const char*	p;
	float		power;
	int			i, total;

	exception = 0;

	cbs = var->GivValString();
	p = cbs;
	var = var->GivNext();

	power = 10.0f*g_unit;
	if ( var != 0 )
	{
		power = var->GivValFloat()*g_unit;
		var = var->GivNext();
	}

	pInfo = SearchInfo(script, pThis, power);
	if ( pInfo == 0 )
	{
		result->SetValFloat(0.0f);  // false
		return TRUE;
	}

	total = pInfo->RetInfoTotal();
	for ( i=0 ; i<total ; i++ )
	{
		info = pInfo->RetInfo(i);
		if ( strcmp(info.name, p) == 0 )
		{
			pInfo->DeleteInfo(i);
			result->SetValFloat(1.0f);  // true
			return TRUE;
		}
	}
	result->SetValFloat(0.0f);  // false
	return TRUE;
}

// Compilation of the instruction "testinfo(nom, power)".

CBotTypResult cTestInfo(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() != CBotTypString )  return CBotTypResult(CBotErrBadString);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypBoolean);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
	return CBotTypResult(CBotTypBoolean);
}

// Instruction "testinfo(nom, power)".

BOOL rTestInfo(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	CObject*	pInfo;
	CBotString	cbs;
	Info		info;
	const char*	p;
	float		power;
	int			i, total;

	exception = 0;

	cbs = var->GivValString();
	p = cbs;
	var = var->GivNext();

	power = 10.0f*g_unit;
	if ( var != 0 )
	{
		power = var->GivValFloat()*g_unit;
		var = var->GivNext();
	}

	pInfo = SearchInfo(script, pThis, power);
	if ( pInfo == 0 )
	{
		result->SetValInt(FALSE);
		return TRUE;
	}

	total = pInfo->RetInfoTotal();
	for ( i=0 ; i<total ; i++ )
	{
		info = pInfo->RetInfo(i);
		if ( strcmp(info.name, p) == 0 )
		{
			result->SetValInt(TRUE);
			return TRUE;
		}
	}
	result->SetValInt(FALSE);
	return TRUE;
}

// Instruction "thump()".

BOOL rThump(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		err = script->m_primaryTask->StartTaskTerraform();
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Instruction "recycle()".

BOOL rRecycle(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		err = script->m_primaryTask->StartTaskRecover();
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			if ( script->m_errMode == ERM_STOP )
			{
				exception = err;
				return FALSE;
			}
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Compilation "shield(oper, radius)".

CBotTypResult cShield(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);

	return CBotTypResult(CBotTypFloat);
}

// Instruction "shield(oper, radius)".

BOOL rShield(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	float		oper, radius;
	Error		err;

	oper = var->GivValFloat();  // 0=down, 1=up
	var = var->GivNext();

	radius = var->GivValFloat();
	if ( radius < 10.0f )  radius = 10.0f;
	if ( radius > 25.0f )  radius = 25.0f;
	radius = (radius-10.0f)/15.0f;

	if ( *script->m_secondaryTask == 0 )  // shield folds?
	{
		if ( oper == 0.0f )  // down?
		{
			result->SetValInt(1);  // shows the error
		}
		else	// up ?
		{
			pThis->SetParam(radius);

			*script->m_secondaryTask = new CTaskManager(script->m_iMan, script->m_object);
			err = (*script->m_secondaryTask)->StartTaskShield(TSM_UP, 1000.0f);
			if ( err != ERR_OK )
			{
				delete *script->m_secondaryTask;
				*script->m_secondaryTask = 0;
				result->SetValInt(err);  // shows the error
			}
		}
	}
	else	// shield deployed?
	{
		if ( oper == 0.0f )  // down?
		{
			(*script->m_secondaryTask)->StartTaskShield(TSM_DOWN, 0.0f);
		}
		else	// up?
		{
//?			result->SetValInt(1);  // shows the error
			pThis->SetParam(radius);
			(*script->m_secondaryTask)->StartTaskShield(TSM_UPDATE, 0.0f);
		}
	}

	return TRUE;
}

// Compilation "fire(delay)".

CBotTypResult cFire(CBotVar* &var, void* user)
{
#if 0
	CObject*	pThis = (CObject*)user;
	ObjectType	type;

	type = pThis->RetType();

	if ( type == OBJECT_ANT )
	{
		return cOnePoint(var, user);
	}
	else if ( type == OBJECT_SPIDER )
	{
		return cNull(var, user);
	}
	else
	{
		if ( var == 0 )  return CBotTypResult(CBotTypFloat);
		if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
		var = var->GivNext();
		if ( var != 0 )  return CBotTypResult(CBotErrOverParam);
		return CBotTypResult(CBotTypFloat);
	}
#else
	return CBotTypResult(CBotTypFloat);
#endif
}

// Instruction "fire(delay)".

BOOL rFire(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	float		delay;
	D3DVECTOR	impact;
	Error		err;
	ObjectType	type;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);

		type = pThis->RetType();

		if ( type == OBJECT_ANT )
		{
			if ( !GetPoint(var, exception, impact) )  return TRUE;
			impact.y += pThis->RetWaterLevel();
			err = script->m_primaryTask->StartTaskFireAnt(impact);
		}
		else if ( type == OBJECT_SPIDER )
		{
			err = script->m_primaryTask->StartTaskSpiderExplo();
		}
		else
		{
			if ( var == 0 )  delay = 0.0f;
			else             delay = var->GivValFloat();
			err = script->m_primaryTask->StartTaskFire(delay);
		}

		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Instruction "aim(dir)".

BOOL rAim(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	float		value;
	Error		err;

	exception = 0;

	if ( script->m_primaryTask == 0 )  // no task in progress?
	{
		script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
		value = var->GivValFloat();
		err = script->m_primaryTask->StartTaskGunGoal(value*PI/180.0f, 0.0f);
		if ( err != ERR_OK )
		{
			delete script->m_primaryTask;
			script->m_primaryTask = 0;
			result->SetValInt(err);  // shows the error
			return TRUE;
		}
	}
	return Process(script, result, exception);
}

// Compilation of the instruction "motor(left, right)".

CBotTypResult cMotor(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var != 0 )  return CBotTypResult(CBotErrOverParam);

	return CBotTypResult(CBotTypFloat);
}

// Instruction "motor(left, right)".

BOOL rMotor(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CObject*	pThis = (CObject*)user;
	CPhysics*	physics = ((CObject*)user)->RetPhysics();
	float		left, right, speed, turn;

	left = var->GivValFloat();
	var = var->GivNext();
	right = var->GivValFloat();

	speed = (left+right)/2.0f;
	if ( speed < -1.0f )  speed = -1.0f;
	if ( speed >  1.0f )  speed =  1.0f;

	turn = left-right;
	if ( turn < -1.0f )  turn = -1.0f;
	if ( turn >  1.0f )  turn =  1.0f;
	
	if ( pThis->RetFixed() )  // ant on the back?
	{
		speed = 0.0f;
		turn  = 0.0f;
	}

	physics->SetMotorSpeedX(speed);  // forward/backward
	physics->SetMotorSpeedZ(turn);  // turns

	return TRUE;
}

// Instruction "jet(power)".

BOOL rJet(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CPhysics*	physics = ((CObject*)user)->RetPhysics();
	float		value;

	value = var->GivValFloat();
	physics->SetMotorSpeedY(value);

	return TRUE;
}

// Compilation of the instruction "topo(pos)".

CBotTypResult cTopo(CBotVar* &var, void* user)
{
	CBotTypResult	ret;

	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	ret = cPoint(var, user);
	if ( ret.GivType() != 0 )  return ret;

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	return CBotTypResult(CBotErrOverParam);
}

// Instruction "topo(pos)".

BOOL rTopo(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	D3DVECTOR	pos;
	float		level;

	exception = 0;

	if ( !GetPoint(var, exception, pos) )  return TRUE;

	level = script->m_terrain->RetFloorLevel(pos);
	level -= script->m_water->RetLevel();
	result->SetValFloat(level/g_unit);
	return TRUE;
}

// Compilation of the instruction "message(string, type)".

CBotTypResult cMessage(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotErrLowParam);
	if ( var->GivType() != CBotTypString &&
		 var->GivType() >  CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	return CBotTypResult(CBotErrOverParam);
}

// Instruction "message(string, type)".

BOOL rMessage(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CBotString	cbs;
	const char*	p;
	TextType	type;

	cbs = var->GivValString();
	p = cbs;

	type = TT_MESSAGE;
	var = var->GivNext();
	if ( var != 0 )
	{
		type = (TextType)var->GivValInt();
	}

	script->m_displayText->DisplayText((char*)p, script->m_object, 10.0f, type);
	script->m_main->CheckEndMessage((char*)p);

	return TRUE;
}

// Instruction "cmdline(rank)".

BOOL rCmdline(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	float		value;
	int			rank;

	rank = var->GivValInt();
	value = pThis->RetCmdLine(rank);
	result->SetValFloat(value);

	return TRUE;
}

// Instruction "ismovie()".

BOOL rIsMovie(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	float		value;

	value = script->m_main->RetMovieLock()?1.0f:0.0f;
	result->SetValFloat(value);

	return TRUE;
}

// Instruction "errmode(mode)".

BOOL rErrMode(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	int			value;

	value = var->GivValInt();
	if ( value < 0 )  value = 0;
	if ( value > 1 )  value = 1;
	script->m_errMode = value;

	return TRUE;
}

// Instruction "ipf(num)".

BOOL rIPF(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	int			value;

	value = var->GivValInt();
	if ( value <     1 )  value =     1;
	if ( value > 10000 )  value = 10000;
	script->m_ipf = value;

	return TRUE;
}

// Instruction "abstime()".

BOOL rAbsTime(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	float		value;

	value = script->m_main->RetGameTime();
	result->SetValFloat(value);
	return TRUE;
}


// Prepares a file name.

void PrepareFilename(CBotString &filename, char *dir)
{
	int			pos;

	pos = filename.ReverseFind('\\');
	if ( pos > 0 )
	{
		filename = filename.Mid(pos+1);  // removes folders
	}

	pos = filename.ReverseFind('/');
	if ( pos > 0 )
	{
		filename = filename.Mid(pos+1);  // also those with /
	}

	pos = filename.ReverseFind(':');
	if ( pos > 0 )
	{
		filename = filename.Mid(pos+1);  // also removes the drive letter C:
	}

	filename = CBotString(dir) + CBotString("\\") + filename;
}

// Instruction "deletefile(filename)".

BOOL rDeleteFile(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CBotString	cbs;
	const char*	p;
	char*		dir;

	cbs = var->GivValString();
	dir = script->m_main->RetFilesDir();
	PrepareFilename(cbs, dir);
	p = cbs;
	DeleteFile(p);

	return TRUE;
}

// Compilation of the instruction "pendown(color, width)".

CBotTypResult cPenDown(CBotVar* &var, void* user)
{
	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	if ( var->GivType() > CBotTypDouble )  return CBotTypResult(CBotErrBadNum);
	var = var->GivNext();

	if ( var == 0 )  return CBotTypResult(CBotTypFloat);
	return CBotTypResult(CBotErrOverParam);
}

// Instruction "pendown(color, width)".

BOOL rPenDown(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	int			color;
	float		width;
	Error		err;

	if ( pThis->RetType() == OBJECT_MOBILEdr )
	{
		exception = 0;

		if ( script->m_primaryTask == 0 )  // no task in progress?
		{
			if ( var != 0 )
			{
				color = var->GivValInt();
				if ( color <  0 )  color =  0;
				if ( color > 17 )  color = 17;
				pThis->SetTraceColor(color);

				var = var->GivNext();
				if ( var != 0 )
				{
					width = var->GivValFloat();
					if ( width < 0.1f )  width = 0.1f;
					if ( width > 1.0f )  width = 1.0f;
					pThis->SetTraceWidth(width);
				}
			}
			pThis->SetTraceDown(TRUE);

			script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
			err = script->m_primaryTask->StartTaskPen(pThis->RetTraceDown(), pThis->RetTraceColor());
			if ( err != ERR_OK )
			{
				delete script->m_primaryTask;
				script->m_primaryTask = 0;
				result->SetValInt(err);  // shows the error
				if ( script->m_errMode == ERM_STOP )
				{
					exception = err;
					return FALSE;
				}
				return TRUE;
			}
		}
		return Process(script, result, exception);
	}
	else
	{
		if ( var != 0 )
		{
			color = var->GivValInt();
			if ( color <  0 )  color =  0;
			if ( color > 17 )  color = 17;
			pThis->SetTraceColor(color);

			var = var->GivNext();
			if ( var != 0 )
			{
				width = var->GivValFloat();
				if ( width < 0.1f )  width = 0.1f;
				if ( width > 1.0f )  width = 1.0f;
				pThis->SetTraceWidth(width);
			}
		}
		pThis->SetTraceDown(TRUE);

		return TRUE;
	}
}

// Instruction "penup()".

BOOL rPenUp(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CObject*	pThis = (CObject*)user;
	Error		err;

	if ( pThis->RetType() == OBJECT_MOBILEdr )
	{
		exception = 0;

		if ( script->m_primaryTask == 0 )  // no task in progress?
		{
			pThis->SetTraceDown(FALSE);

			script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
			err = script->m_primaryTask->StartTaskPen(pThis->RetTraceDown(), pThis->RetTraceColor());
			if ( err != ERR_OK )
			{
				delete script->m_primaryTask;
				script->m_primaryTask = 0;
				result->SetValInt(err);  // shows the error
				if ( script->m_errMode == ERM_STOP )
				{
					exception = err;
					return FALSE;
				}
				return TRUE;
			}
		}
		return Process(script, result, exception);
	}
	else
	{
		pThis->SetTraceDown(FALSE);
		return TRUE;
	}
}

// Instruction "pencolor()".

BOOL rPenColor(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CScript*	script = ((CObject*)user)->RetRunScript();
	CPhysics*	physics = ((CObject*)user)->RetPhysics();
	CObject*	pThis = (CObject*)user;
	int			color;
	Error		err;

	if ( pThis->RetType() == OBJECT_MOBILEdr )
	{
		exception = 0;

		if ( script->m_primaryTask == 0 )  // no task in progress?
		{
			color = var->GivValInt();
			if ( color <  0 )  color =  0;
			if ( color > 17 )  color = 17;
			pThis->SetTraceColor(color);

			script->m_primaryTask = new CTaskManager(script->m_iMan, script->m_object);
			err = script->m_primaryTask->StartTaskPen(pThis->RetTraceDown(), pThis->RetTraceColor());
			if ( err != ERR_OK )
			{
				delete script->m_primaryTask;
				script->m_primaryTask = 0;
				result->SetValInt(err);  // shows the error
				if ( script->m_errMode == ERM_STOP )
				{
					exception = err;
					return FALSE;
				}
				return TRUE;
			}
		}
		return Process(script, result, exception);
	}
	else
	{
		color = var->GivValInt();
		if ( color <  0 )  color =  0;
		if ( color > 17 )  color = 17;
		pThis->SetTraceColor(color);

		return TRUE;
	}
}

// Instruction "penwidth()".

BOOL rPenWidth(CBotVar* var, CBotVar* result, int& exception, void* user)
{
	CObject*	pThis = (CObject*)user;
	float		width;

	width = var->GivValFloat();
	if ( width < 0.1f )  width = 0.1f;
	if ( width > 1.0f )  width = 1.0f;
	pThis->SetTraceWidth(width);
	return TRUE;
}



// Object's constructor.

CScript::CScript(CInstanceManager* iMan, CObject* object, CTaskManager** secondaryTask)
{
	m_iMan = iMan;
	m_iMan->AddInstance(CLASS_SCRIPT, this, 100);

	m_engine      = (CD3DEngine*)m_iMan->SearchInstance(CLASS_ENGINE);
	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_terrain     = (CTerrain*)m_iMan->SearchInstance(CLASS_TERRAIN);
	m_water       = (CWater*)m_iMan->SearchInstance(CLASS_WATER);
	m_botProg = 0;
	m_object = object;
	m_primaryTask = 0;
	m_secondaryTask = secondaryTask;

	m_ipf = CBOT_IPF;
	m_errMode = ERM_STOP;
	m_len = 0;
	m_script = 0;
	m_bRun = FALSE;
	m_bStepMode = FALSE;
	m_bCompile = FALSE;
	m_title[0] = 0;
	m_cursor1 = 0;
	m_cursor2 = 0;
	m_filename[0] = 0;
}

// Initializes all functions for module CBOT.

void CScript::InitFonctions()
{
	CBotProgram::AddFunction("sin",       rSin,       cOneFloat);
	CBotProgram::AddFunction("cos",       rCos,       cOneFloat);
	CBotProgram::AddFunction("tan",       rTan,       cOneFloat);
	CBotProgram::AddFunction("asin",      raSin,      cOneFloat);
	CBotProgram::AddFunction("acos",      raCos,      cOneFloat);
	CBotProgram::AddFunction("atan",      raTan,      cOneFloat);
	CBotProgram::AddFunction("sqrt",      rSqrt,      cOneFloat);
	CBotProgram::AddFunction("pow",       rPow,       cTwoFloat);
	CBotProgram::AddFunction("rand",      rRand,      cNull);
	CBotProgram::AddFunction("abs",       rAbs,       cOneFloat);

	CBotProgram::AddFunction("retobject", rRetObject, cRetObject);
	CBotProgram::AddFunction("search",    rSearch,    cSearch);
	CBotProgram::AddFunction("radar",     rRadar,     cRadar);
	CBotProgram::AddFunction("detect",    rDetect,    cDetect);
	CBotProgram::AddFunction("direction", rDirection, cDirection);
	CBotProgram::AddFunction("produce",   rProduce,   cProduce);
	CBotProgram::AddFunction("distance",  rDistance,  cDistance);
	CBotProgram::AddFunction("distance2d",rDistance2d,cDistance);
	CBotProgram::AddFunction("space",     rSpace,     cSpace);
	CBotProgram::AddFunction("flatground",rFlatGround,cFlatGround);
	CBotProgram::AddFunction("wait",      rWait,      cOneFloat);
	CBotProgram::AddFunction("move",      rMove,      cOneFloat);
	CBotProgram::AddFunction("turn",      rTurn,      cOneFloat);
	CBotProgram::AddFunction("goto",      rGoto,      cGoto);
	CBotProgram::AddFunction("find",      rFind,      cOneFloat);
	CBotProgram::AddFunction("grab",      rGrab,      cGrabDrop);
	CBotProgram::AddFunction("drop",      rDrop,      cGrabDrop);
	CBotProgram::AddFunction("sniff",     rSniff,     cNull);
	CBotProgram::AddFunction("receive",   rReceive,   cReceive);
	CBotProgram::AddFunction("send",      rSend,      cSend);
	CBotProgram::AddFunction("deleteinfo",rDeleteInfo,cDeleteInfo);
	CBotProgram::AddFunction("testinfo",  rTestInfo,  cTestInfo);
	CBotProgram::AddFunction("thump",     rThump,     cNull);
	CBotProgram::AddFunction("recycle",   rRecycle,   cNull);
	CBotProgram::AddFunction("shield",    rShield,    cShield);
	CBotProgram::AddFunction("fire",      rFire,      cFire);
	CBotProgram::AddFunction("aim",       rAim,       cOneFloat);
	CBotProgram::AddFunction("motor",     rMotor,     cMotor);
	CBotProgram::AddFunction("jet",       rJet,       cOneFloat);
	CBotProgram::AddFunction("topo",      rTopo,      cTopo);
	CBotProgram::AddFunction("message",   rMessage,   cMessage);
	CBotProgram::AddFunction("cmdline",   rCmdline,   cOneFloat);
	CBotProgram::AddFunction("ismovie",   rIsMovie,   cNull);
	CBotProgram::AddFunction("errmode",   rErrMode,   cOneFloat);
	CBotProgram::AddFunction("ipf",       rIPF,       cOneFloat);
	CBotProgram::AddFunction("abstime",   rAbsTime,   cNull);
	CBotProgram::AddFunction("deletefile",rDeleteFile,cString);
	CBotProgram::AddFunction("pendown",   rPenDown,   cPenDown);
	CBotProgram::AddFunction("penup",     rPenUp,     cNull);
	CBotProgram::AddFunction("pencolor",  rPenColor,  cOneFloat);
	CBotProgram::AddFunction("penwidth",  rPenWidth,  cOneFloat);
}

// Object's destructor.

CScript::~CScript()
{
	delete m_botProg;
	delete m_primaryTask;
	delete m_script;
	m_script = 0;
	m_len = 0;

	m_iMan->DeleteInstance(CLASS_SCRIPT, this);
}


// Gives the script editable block of text.

void CScript::PutScript(CEdit* edit, char* name)
{
	if ( m_script == 0 )
	{
		New(edit, name);
	}
	else
	{
		edit->SetText(m_script);
		edit->SetCursor(m_cursor2, m_cursor1);
		edit->ShowSelect();
	}
	edit->SetFocus(TRUE);
}

// The script takes a paved text.

BOOL CScript::GetScript(CEdit* edit)
{
	int		len;

	delete m_script;
	m_script = 0;

	len = edit->RetTextLength();
	m_script = (char*)malloc(sizeof(char)*(len+1));

	edit->GetText(m_script, len+1);
	edit->GetCursor(m_cursor2, m_cursor1);
	m_len = strlen(m_script);

	if ( !CheckToken() )
	{
		edit->SetCursor(m_cursor2, m_cursor1);
		edit->ShowSelect();
		edit->SetFocus(TRUE);
		return FALSE;
	}

	if ( !Compile() )
	{
		edit->SetCursor(m_cursor2, m_cursor1);
		edit->ShowSelect();
		edit->SetFocus(TRUE);
		return FALSE;
	}

	return TRUE;
}

// Indicates whether a program is compiled correctly.

BOOL CScript::RetCompile()
{
	return m_bCompile;
}

// Indicates whether the program is empty.

BOOL CScript::IsEmpty()
{
	int		i;

	for ( i=0 ; i<m_len ; i++ )
	{
		if ( m_script[i] != ' '  &&
			 m_script[i] != '\n' )  return FALSE;
	}
	return TRUE;
}

// Checks if a program does not contain the prohibited instructions
// and if it contains well at least once every mandatory instructions.

BOOL CScript::CheckToken()
{
	CBotToken*	bt;
	CBotString	bs;
	const char*	token;
	int			error, type, cursor1, cursor2, i;
	char		used[100];

	if ( !m_object->RetCheckToken() )  return TRUE;

	m_error = 0;
	m_title[0] = 0;
	m_token[0] = 0;
	m_bCompile = FALSE;

	for ( i=0 ; i<m_main->RetObligatoryToken() ; i++ )
	{
		used[i] = 0;  // token not used
	}

	bt = CBotToken::CompileTokens(m_script, error);
	while ( bt != 0 )
	{
		bs = bt->GivString();
		token = bs;
		type = bt->GivType();

		cursor1 = bt->GivStart();
		cursor2 = bt->GivEnd();

		i = m_main->IsObligatoryToken((char*)token);
		if ( i != -1 )
		{
			used[i] = 1;  // token used
		}

		if ( !m_main->IsProhibitedToken((char*)token) )
		{
			m_error = ERR_PROHIBITEDTOKEN;
			m_cursor1 = cursor1;
			m_cursor2 = cursor2;
			strcpy(m_title, "<erreur>");
			CBotToken::Delete(bt);
			return FALSE;
		}

		bt = bt->GivNext();
	}

	// At least once every obligatory instruction?
	for ( i=0 ; i<m_main->RetObligatoryToken() ; i++ )
	{
		if ( used[i] == 0 )  // token not used?
		{
			strcpy(m_token, m_main->RetObligatoryToken(i));
			m_error = ERR_OBLIGATORYTOKEN;
			strcpy(m_title, "<erreur>");
			CBotToken::Delete(bt);
			return FALSE;
		}
	}

	CBotToken::Delete(bt);
	return TRUE;
}

// Compile the script of a paved text.

BOOL CScript::Compile()
{
	CBotStringArray	liste;
	int				i;
	const char*		p;

	m_error = 0;
	m_cursor1 = 0;
	m_cursor2 = 0;
	m_title[0] = 0;
	m_bCompile = FALSE;

	if ( IsEmpty() )  // program exist?
	{
		delete m_botProg;
		m_botProg = 0;
		return TRUE;
	}

	if ( m_botProg == 0 )
	{
		m_botProg = new CBotProgram(m_object->RetBotVar());
	}

	if ( m_botProg->Compile(m_script, liste, this) )
	{
		if ( liste.GivSize() == 0 )
		{
			strcpy(m_title, "<sans nom>");
		}
		else
		{
			p = liste[0];
			i = 0;
			while ( TRUE )
			{
				if ( p[i] == 0 || p[i] == '(' )  break;
				if ( i >= 20 )
				{
					m_title[i++] = '.';
					m_title[i++] = '.';
					m_title[i++] = '.';
					break;
				}
				m_title[i] = p[i];
				i ++;
			}
			m_title[i] = 0;
		}
		m_bCompile = TRUE;
		return TRUE;
	}
	else
	{
		m_botProg->GetError(m_error, m_cursor1, m_cursor2);
		if ( m_cursor1 < 0 || m_cursor1 > m_len ||
			 m_cursor2 < 0 || m_cursor2 > m_len )
		{
			m_cursor1 = 0;
			m_cursor2 = 0;
		}
		if ( m_error == 0 )
		{
			m_cursor1 = m_cursor2 = 0;
		}
		strcpy(m_title, "<erreur>");
		return FALSE;
	}
}


// Returns the title of the script.

void CScript::GetTitle(char* buffer)
{
	strcpy(buffer, m_title);
}


// Choice of mode of execution.

void CScript::SetStepMode(BOOL bStep)
{
	m_bStepMode = bStep;
}


// Runs the program from the beginning.

BOOL CScript::Run()
{
	if( m_botProg == 0 )  return FALSE;
	if ( m_script == 0 || m_len == 0 )  return FALSE;

	if ( !m_botProg->Start(m_title) )  return FALSE;

	m_object->SetRunScript(this);
	m_bRun = TRUE;
	m_bContinue = FALSE;
	m_ipf = CBOT_IPF;
	m_errMode = ERM_STOP;

	if ( m_bStepMode )  // step by step mode?
	{
		Event	newEvent;
		ZeroMemory(&newEvent, sizeof(Event));
		Step(newEvent);
	}

	return TRUE;
}

// Continues the execution of current program.
// Returns TRUE when execution is finished.

BOOL CScript::Continue(const Event &event)
{
	if( m_botProg == 0 )  return TRUE;
	if ( !m_bRun )  return TRUE;

	m_event = event;

	if ( m_bStepMode )  // step by step mode?
	{
		if ( m_bContinue )  // instuction "move", "goto", etc. ?
		{
			if ( m_botProg->Run(m_object, 0) )
			{
				m_botProg->GetError(m_error, m_cursor1, m_cursor2);
				if ( m_cursor1 < 0 || m_cursor1 > m_len ||
					 m_cursor2 < 0 || m_cursor2 > m_len )
				{
					m_cursor1 = 0;
					m_cursor2 = 0;
				}
				if ( m_error == 0 )
				{
					m_cursor1 = m_cursor2 = 0;
				}
				m_bRun = FALSE;

				if ( m_error != 0 && m_errMode == ERM_STOP )
				{
					char	s[100];
					GetError(s);
					m_displayText->DisplayText(s, m_object, 10.0f, TT_ERROR);
				}
				m_engine->SetPause(TRUE);  // gives pause
				return TRUE;
			}
			if ( !m_bContinue )
			{
				m_engine->SetPause(TRUE);  // gives pause
			}
		}

		return FALSE;
	}

	if ( m_botProg->Run(m_object, m_ipf) )
	{
		m_botProg->GetError(m_error, m_cursor1, m_cursor2);
		if ( m_cursor1 < 0 || m_cursor1 > m_len ||
			 m_cursor2 < 0 || m_cursor2 > m_len )
		{
			m_cursor1 = 0;
			m_cursor2 = 0;
		}
		if ( m_error == 0 )
		{
			m_cursor1 = m_cursor2 = 0;
		}
		m_bRun = FALSE;

		if ( m_error != 0 && m_errMode == ERM_STOP )
		{
			char	s[100];
			GetError(s);
			m_displayText->DisplayText(s, m_object, 10.0f, TT_ERROR);
		}
		return TRUE;
	}

	return FALSE;
}

// Continues the execution of current program.
// Returns TRUE when execution is finished.

BOOL CScript::Step(const Event &event)
{
	if( m_botProg == 0 )  return TRUE;
	if ( !m_bRun )  return TRUE;
	if ( !m_bStepMode )  return FALSE;

	m_engine->SetPause(FALSE);
	m_engine->StepSimul(0.01f);  // advance of 10ms
	m_engine->SetPause(TRUE);

	m_event = event;

	if ( m_botProg->Run(m_object, 0) )  // step mode
	{
		m_botProg->GetError(m_error, m_cursor1, m_cursor2);
		if ( m_cursor1 < 0 || m_cursor1 > m_len ||
			 m_cursor2 < 0 || m_cursor2 > m_len )
		{
			m_cursor1 = 0;
			m_cursor2 = 0;
		}
		if ( m_error == 0 )
		{
			m_cursor1 = m_cursor2 = 0;
		}
		m_bRun = FALSE;

		if ( m_error != 0 && m_errMode == ERM_STOP )
		{
			char	s[100];
			GetError(s);
			m_displayText->DisplayText(s, m_object, 10.0f, TT_ERROR);
		}
		return TRUE;
	}

	if ( m_bContinue )  // instuction "move", "goto", etc. ?
	{
		m_engine->SetPause(FALSE);  // removes the pause
	}
	return FALSE;
}

// Stops the program.

void CScript::Stop()
{
	if ( !m_bRun )  return;

	if( m_botProg != 0 )
	{
		m_botProg->Stop();
	}

	if ( m_primaryTask != 0 )
	{
		m_primaryTask->Abort();
		delete m_primaryTask;
		m_primaryTask = 0;
	}

	m_bRun = FALSE;
}

// Indicates whether the program runs.

BOOL CScript::IsRunning()
{
	return m_bRun;
}

// Indicates whether the program continues a step.

BOOL CScript::IsContinue()
{
	return m_bContinue;
}


// Gives the position of the cursor during the execution.

BOOL CScript::GetCursor(int &cursor1, int &cursor2)
{
	const char*	funcName;

	cursor1 = cursor2 = 0;

	if( m_botProg == 0 )  return FALSE;
	if ( !m_bRun )  return FALSE;

	m_botProg->GetRunPos(funcName, cursor1, cursor2);
	if ( cursor1 < 0 || cursor1 > m_len ||
		 cursor2 < 0 || cursor2 > m_len )
	{
		cursor1 = 0;
		cursor2 = 0;
	}
	return TRUE;
}


// Put of the variables in a list.

void PutList(char *baseName, BOOL bArray, CBotVar *var, CList *list, int &rankList)
{
	CBotString	bs;
	CBotVar		*svar, *pStatic;
	char		varName[100];
	char		buffer[100];
	const char	*p;
	int			index, type;

	if ( var == 0 && baseName[0] != 0 )
	{
		sprintf(buffer, "%s = null;", baseName);
		list->SetName(rankList++, buffer);
		return;
	}

	index = 0;
	while ( var != 0 )
	{
		var->Maj(NULL, FALSE);
		pStatic = var->GivStaticVar();  // finds the static element

		bs = pStatic->GivName();  // variable name
		p = bs;
//?		if ( strcmp(p, "this") == 0 )
//?		{
//?			var = var->GivNext();
//?			continue;
//?		}

		if ( baseName[0] == 0 )
		{
			sprintf(varName, "%s", p);
		}
		else
		{
			if ( bArray )
			{
				sprintf(varName, "%s[%d]", baseName, index);
			}
			else
			{
				sprintf(varName, "%s.%s", baseName, p);
			}
		}

		type = pStatic->GivType();

		if ( type < CBotTypBoolean )
		{
			CBotString	value;
			value = pStatic->GivValString();
			p = value;
			sprintf(buffer, "%s = %s;", varName, p);
			list->SetName(rankList++, buffer);
		}
		else if ( type == CBotTypString )
		{
			CBotString	value;
			value = pStatic->GivValString();
			p = value;
			sprintf(buffer, "%s = \"%s\";", varName, p);
			list->SetName(rankList++, buffer);
		}
		else if ( type == CBotTypArrayPointer )
		{
			svar = pStatic->GivItemList();
			PutList(varName, TRUE, svar, list, rankList);
		}
		else if ( type == CBotTypClass   ||
				  type == CBotTypPointer )
		{
			svar = pStatic->GivItemList();
			PutList(varName, FALSE, svar, list, rankList);
		}
		else
		{
			sprintf(buffer, "%s = ?;", varName);
			list->SetName(rankList++, buffer);
		}

		index ++;
		var = var->GivNext();
	}
}

// Fills a list with variables.

void CScript::UpdateList(CList* list)
{
	CBotVar		*var;
	const char	*progName, *funcName;
	int			total, select, level, cursor1, cursor2, rank;

	if( m_botProg == 0 )  return;

	total  = list->RetTotal();
	select = list->RetSelect();

	list->Flush();  // empty list
	m_botProg->GetRunPos(progName, cursor1, cursor2);
	if ( progName == 0 )  return;

	level = 0;
	rank  = 0;
	while ( TRUE )
	{
		var = m_botProg->GivStackVars(funcName, level--);
		if ( funcName != progName )  break;

		PutList("", FALSE, var, list, rank);
	}

	if ( total == list->RetTotal() )  // same total?
	{
		list->SetSelect(select);
	}

	list->SetTooltip("");
	list->SetState(STATE_ENABLE);
}


// Colorize the text according to syntax.

void CScript::ColorizeScript(CEdit* edit)
{
	CBotToken*	bt;
	CBotString	bs;
	const char*	token;
	int			error, type, cursor1, cursor2, color;

	edit->ClearFormat();

	bt = CBotToken::CompileTokens(edit->RetText(), error);
	while ( bt != 0 )
	{
		bs = bt->GivString();
		token = bs;
		type = bt->GivType();

		cursor1 = bt->GivStart();
		cursor2 = bt->GivEnd();

		color = 0;
		if ( type >= TokenKeyWord && type < TokenKeyWord+100 )
		{
			color = COLOR_TOKEN;
		}
		if ( type >= TokenKeyDeclare && type < TokenKeyDeclare+100 )
		{
			color = COLOR_TYPE;
		}
		if ( type >= TokenKeyVal && type < TokenKeyVal+100 )
		{
			color = COLOR_CONST;
		}
		if ( type == TokenTypVar )
		{
			if ( IsType(token) )
			{
				color = COLOR_TYPE;
			}
			else if ( IsFunction(token) )
			{
				color = COLOR_TOKEN;
			}
		}
		if ( type == TokenTypDef )
		{
			color = COLOR_CONST;
		}

		if ( cursor1 < cursor2 && color != 0 )
		{
			edit->SetFormat(cursor1, cursor2, color);
		}

		bt = bt->GivNext();
	}

	CBotToken::Delete(bt);
}


// Seeks a token at random in a script.
// Returns the index of the start of the token found, or -1.

int SearchToken(char* script, char* token)
{
	int		lScript, lToken, i, iFound;
	int		found[100];
	char*	p;

	lScript = strlen(script);
	lToken  = strlen(token);
	iFound  = 0;
	for ( i=0 ; i<lScript-lToken ; i++ )
	{
		p = strstr(script+i, token);
		if ( p != 0 )
		{
			found[iFound++] = p-script;
			if ( iFound >= 100 )  break;
		}
	}

	if ( iFound == 0 )  return -1;
	return found[rand()%iFound];
}

// Removes a token in a script.

void DeleteToken(char* script, int pos, int len)
{
	while ( TRUE )
	{
		script[pos] = script[pos+len];
		if ( script[pos++] == 0 )  break;
	}
}

// Inserts a token in a script.

void InsertToken(char* script, int pos, char* token)
{
	int		lScript, lToken, i;

	lScript = strlen(script);
	lToken  = strlen(token);
	for ( i=lScript ; i>=pos ; i-- )
	{
		script[i+lToken] = script[i];
	}
	memcpy(script+pos, token, lToken);
}

// Introduces a virus into a program.

BOOL CScript::IntroduceVirus()
{
	int		i, start, iFound;
	int		found[11*2];
	char*	newScript;

	char*	names[11*2] =
	{
		"==",			"!=",
		"!=",			"==",
		">",			"<",
		"<",			">",
		"true",			"false",
		"false",		"true",
		"grab",			"drop",
		"drop",			"grab",
		"InFront",		"Behind",
		"Behind",		"EnergyCell",
		"EnergyCell",	"InFront",
	};

	iFound = 0;
	for ( i=0 ; i<11 ; i++ )
	{
		start = SearchToken(m_script, names[i*2]);
		if ( start != -1 )
		{
			found[iFound++] = i*2;
			found[iFound++] = start;
		}
	}
	if ( iFound == 0 )  return FALSE;

	i = (rand()%(iFound/2))*2;
	start = found[i+1];
	i     = found[i+0];

	newScript = (char*)malloc(sizeof(char)*(m_len+strlen(names[i+1])+1));
	strcpy(newScript, m_script);
	delete m_script;
	m_script = newScript;

	DeleteToken(m_script, start, strlen(names[i]));
	InsertToken(m_script, start, names[i+1]);
	m_len = strlen(m_script);
	Compile();  // recompile with the virus

	return TRUE;
}


// Returns the number of the error.

int CScript::RetError()
{
	return m_error;
}

// Returns the text of the error.

void CScript::GetError(char* buffer)
{
	if ( m_error == 0 )
	{
		buffer[0] = 0;
	}
	else
	{
		if ( m_error == ERR_OBLIGATORYTOKEN )
		{
			char s[100];
			GetResource(RES_ERR, m_error, s);
			sprintf(buffer, s, m_token);
		}
		else if ( m_error < 1000 )
		{
			GetResource(RES_ERR, m_error, buffer);
		}
		else
		{
			GetResource(RES_CBOT, m_error, buffer);
		}
	}
}


// New program.

void CScript::New(CEdit* edit, char* name)
{
	FILE	*file = NULL;
	char	res[100];
	char	text[100];
	char	filename[100];
	char	script[500];
	char	buffer[500];
	char	*sf;
	int		cursor1, cursor2, len, i, j;

	GetResource(RES_TEXT, RT_SCRIPT_NEW, res);
	if ( name[0] == 0 )  strcpy(text, res);
	else                 strcpy(text, name);

	sprintf(script, "extern void object::%s()\n{\n\t\n\t\n\t\n}\n", text);
	edit->SetText(script, FALSE);

	if ( strcmp(text, res) == 0 )
	{
		cursor1 = 20;
		cursor2 = 20+strlen(text);  // update "New"
	}
	else
	{
		if ( edit->RetAutoIndent() )
		{
			cursor1 = 20+strlen(text)+6;
			cursor2 = cursor1;  // cursor in { }
		}
		else
		{
			cursor1 = 20+strlen(text)+8;
			cursor2 = cursor1;  // cursor in { }
		}
	}

	edit->SetCursor(cursor2, cursor1);
	edit->ShowSelect();
	edit->SetFocus(TRUE);
	
	sf = m_main->RetScriptFile();
	if ( sf[0] != 0 )  // Load an empty program specific?
	{
		strcpy(filename, "script\\");
		strcat(filename, sf);
		file = fopen(filename, "rb");
		if ( file != NULL )
		{
			fseek(file, 0, SEEK_END);
			len = ftell(file);
			fseek(file, 0, SEEK_SET);

			if ( len > 500-1 )  len = 500-1;
			fread(buffer, 1, len, file);
			buffer[len] = 0;
			fclose(file);

			cursor1 = 0;
			i = 0;
			j = 0;
			while ( TRUE )
			{
				if ( buffer[i] == 0 )  break;

				if ( buffer[i] == '\r' )
				{
					i ++;
					continue;
				}

				if ( buffer[i] == '\t' && edit->RetAutoIndent() )
				{
					i ++;
					continue;
				}

				if ( buffer[i+0] == '%' &&
					 buffer[i+1] == 's' )
				{
					strcpy(script+j, text);
					j += strlen(text);
					i += 2;
					continue;
				}

				if ( buffer[i] == '#' )
				{
					cursor1 = j;
					i ++;
					continue;
				}

				script[j++] = buffer[i++];
			}
			script[j] = 0;
			edit->SetText(script, FALSE);

			cursor2 = cursor1;
			edit->SetCursor(cursor2, cursor1);
			edit->ShowSelect();
			edit->SetFocus(TRUE);
		}
	}

	ColorizeScript(edit);
}


// Provided a script for all parts.

BOOL CScript::SendScript(char* text)
{
	m_len = strlen(text);
	m_script = (char*)malloc(sizeof(char)*(m_len+1));
	strcpy(m_script, text);
	if ( !CheckToken() )  return FALSE;
	if ( !Compile() )  return FALSE;

	return TRUE;
}

// Reads a script as a text file.

BOOL CScript::ReadScript(char* filename)
{
	FILE*		file;
	CEdit*		edit;
	char		name[100];

	if ( strchr(filename, '\\') == 0 )
	{
		strcpy(name, "script\\");
		strcat(name, filename);
	}
	else
	{
//?		strcpy(name, filename);
		UserDir(name, filename, "");
	}

	file = fopen(name, "rb");
	if ( file == NULL )  return FALSE;
	fclose(file);

	delete m_script;
	m_script = 0;

	edit = m_interface->CreateEdit(FPOINT(0.0f, 0.0f), FPOINT(0.0f, 0.0f), 0, EVENT_EDIT9);
	edit->SetMaxChar(EDITSTUDIOMAX);
	edit->SetAutoIndent(m_engine->RetEditIndentMode());
	edit->ReadText(name);
	GetScript(edit);
	m_interface->DeleteControl(EVENT_EDIT9);
	return TRUE;
}

// Writes a script as a text file.

BOOL CScript::WriteScript(char* filename)
{
	CEdit*		edit;
	char		name[100];

	if ( strchr(filename, '\\') == 0 )
	{
		strcpy(name, "script\\");
		strcat(name, filename);
	}
	else
	{
		strcpy(name, filename);
	}

	if ( m_script == 0 )
	{
		remove(filename);
		return FALSE;
	}

	edit = m_interface->CreateEdit(FPOINT(0.0f, 0.0f), FPOINT(0.0f, 0.0f), 0, EVENT_EDIT9);
	edit->SetMaxChar(EDITSTUDIOMAX);
	edit->SetAutoIndent(m_engine->RetEditIndentMode());
	edit->SetText(m_script);
	edit->WriteText(name);
	m_interface->DeleteControl(EVENT_EDIT9);
	return TRUE;
}


// Reads a stack of script by execution as a file.

BOOL CScript::ReadStack(FILE *file)
{
	int		nb;

	fRead(&nb, sizeof(int), 1, file);
	fRead(&m_ipf, sizeof(int), 1, file);
	fRead(&m_errMode, sizeof(int), 1, file);

	if ( m_botProg == 0 )  return FALSE;
	if ( !m_botProg->RestoreState(file) )  return FALSE;
	
	m_object->SetRunScript(this);
	m_bRun = TRUE;
	m_bContinue = FALSE;
	return TRUE;
}

// Writes a stack of script by execution as a file.

BOOL CScript::WriteStack(FILE *file)
{
	int		nb;

	nb = 2;
	fWrite(&nb, sizeof(int), 1, file);
	fWrite(&m_ipf, sizeof(int), 1, file);
	fWrite(&m_errMode, sizeof(int), 1, file);

	return m_botProg->SaveState(file);
}


// Compares two scripts.

BOOL CScript::Compare(CScript* other)
{
	if ( m_len != other->m_len )  return FALSE;

	return ( strcmp(m_script, other->m_script) == 0 );
}


// Management of the file name when the script is saved.

void CScript::SetFilename(char *filename)
{
	strcpy(m_filename, filename);
}

char* CScript::RetFilename()
{
	return m_filename;
}