doom3-bfg/neo/swf/SWF_ScriptFunction.cpp

/*
===========================================================================

Doom 3 BFG Edition GPL Source Code
Copyright (C) 1993-2012 id Software LLC, a ZeniMax Media company.

This file is part of the Doom 3 BFG Edition GPL Source Code ("Doom 3 BFG Edition Source Code").

Doom 3 BFG Edition Source Code 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.

Doom 3 BFG Edition Source Code 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 Doom 3 BFG Edition Source Code.  If not, see <http://www.gnu.org/licenses/>.

In addition, the Doom 3 BFG Edition Source Code is also subject to certain additional terms. You should have received a copy of these additional terms immediately following the terms and conditions of the GNU General Public License which accompanied the Doom 3 BFG Edition Source Code.  If not, please request a copy in writing from id Software at the address below.

If you have questions concerning this license or the applicable additional terms, you may contact in writing id Software LLC, c/o ZeniMax Media Inc., Suite 120, Rockville, Maryland 20850 USA.

===========================================================================
*/
#pragma hdrstop
#include "../idlib/precompiled.h"

idCVar swf_debug( "swf_debug", "0", CVAR_INTEGER | CVAR_ARCHIVE, "debug swf scripts.  1 shows traces/errors.  2 also shows warnings.  3 also shows disassembly.  4 shows parameters in the disassembly." );
idCVar swf_debugInvoke( "swf_debugInvoke", "0", CVAR_INTEGER, "debug swf functions being called from game." );

idSWFConstantPool::idSWFConstantPool()
{
}


/*
========================
idSWFConstantPool::Clear
========================
*/
void idSWFConstantPool::Clear()
{
	for( int i = 0; i < pool.Num(); i++ )
	{
		pool[i]->Release();
	}
	pool.Clear();
}

/*
========================
idSWFConstantPool::Copy
========================
*/
void idSWFConstantPool::Copy( const idSWFConstantPool& other )
{
	Clear();
	pool.SetNum( other.pool.Num() );
	for( int i = 0; i < pool.Num(); i++ )
	{
		pool[i] = other.pool[i];
		pool[i]->AddRef();
	}
}

/*
========================
idSWFScriptFunction_Script::~idSWFScriptFunction_Script
========================
*/
idSWFScriptFunction_Script::~idSWFScriptFunction_Script()
{
	for( int i = 0; i < scope.Num(); i++ )
	{
		if( verify( scope[i] ) )
		{
			scope[i]->Release();
		}
	}
	if( prototype )
	{
		prototype->Release();
	}
}

/*
========================
idSWFScriptFunction_Script::Call
========================
*/
void idSWFScriptFunction_Script::SetScope( idList<idSWFScriptObject*>& newScope )
{
	assert( scope.Num() == 0 );
	for( int i = 0; i < scope.Num(); i++ )
	{
		if( verify( scope[i] ) )
		{
			scope[i]->Release();
		}
	}
	scope.Clear();
	scope.Append( newScope );
	for( int i = 0; i < newScope.Num(); i++ )
	{
		if( verify( scope[i] ) )
		{
			scope[i]->AddRef();
		}
	}
}

/*
========================
idSWFScriptFunction_Script::Call
========================
*/
idSWFScriptVar idSWFScriptFunction_Script::Call( idSWFScriptObject* thisObject, const idSWFParmList& parms )
{
	idSWFBitStream bitstream( data, length, false );
	
	// We assume scope[0] is the global scope
	assert( scope.Num() > 0 );
	
	if( thisObject == NULL )
	{
		thisObject = scope[0];
	}
	
	idSWFScriptObject* locals = idSWFScriptObject::Alloc();
	
	idSWFStack stack;
	stack.SetNum( parms.Num() + 1 );
	for( int i = 0; i < parms.Num(); i++ )
	{
		stack[ parms.Num() - i - 1 ] = parms[i];
		
		// Unfortunately at this point we don't have the function name anymore, so our warning messages aren't very detailed
		if( i < parameters.Num() )
		{
			if( parameters[i].reg > 0 && parameters[i].reg < registers.Num() )
			{
				registers[ parameters[i].reg ] = parms[i];
			}
			locals->Set( parameters[i].name, parms[i] );
		}
	}
	// Set any additional parameters to undefined
	for( int i = parms.Num(); i < parameters.Num(); i++ )
	{
		if( parameters[i].reg > 0 && parameters[i].reg < registers.Num() )
		{
			registers[ parameters[i].reg ].SetUndefined();
		}
		locals->Set( parameters[i].name, idSWFScriptVar() );
	}
	stack.A().SetInteger( parms.Num() );
	
	int preloadReg = 1;
	if( flags & BIT( 0 ) )
	{
		// load "this" into a register
		registers[ preloadReg ].SetObject( thisObject );
		preloadReg++;
	}
	if( ( flags & BIT( 1 ) ) == 0 )
	{
		// create "this"
		locals->Set( "this", idSWFScriptVar( thisObject ) );
	}
	if( flags & BIT( 2 ) )
	{
		idSWFScriptObject* arguments = idSWFScriptObject::Alloc();
		// load "arguments" into a register
		arguments->MakeArray();
		
		int numElements = parms.Num();
		
		for( int i = 0; i < numElements; i++ )
		{
			arguments->Set( i, parms[i] );
		}
		
		registers[ preloadReg ].SetObject( arguments );
		preloadReg++;
		
		arguments->Release();
	}
	if( ( flags & BIT( 3 ) ) == 0 )
	{
		idSWFScriptObject* arguments = idSWFScriptObject::Alloc();
		
		// create "arguments"
		arguments->MakeArray();
		
		int numElements = parms.Num();
		
		for( int i = 0; i < numElements; i++ )
		{
			arguments->Set( i, parms[i] );
		}
		
		locals->Set( "arguments", idSWFScriptVar( arguments ) );
		
		arguments->Release();
	}
	if( flags & BIT( 4 ) )
	{
		// load "super" into a register
		registers[ preloadReg ].SetObject( thisObject->GetPrototype() );
		preloadReg++;
	}
	if( ( flags & BIT( 5 ) ) == 0 )
	{
		// create "super"
		locals->Set( "super", idSWFScriptVar( thisObject->GetPrototype() ) );
	}
	if( flags & BIT( 6 ) )
	{
		// preload _root
		registers[ preloadReg ] = scope[0]->Get( "_root" );
		preloadReg++;
	}
	if( flags & BIT( 7 ) )
	{
		// preload _parent
		if( thisObject->GetSprite() != NULL && thisObject->GetSprite()->parent != NULL )
		{
			registers[ preloadReg ].SetObject( thisObject->GetSprite()->parent->scriptObject );
		}
		else
		{
			registers[ preloadReg ].SetNULL();
		}
		preloadReg++;
	}
	if( flags & BIT( 8 ) )
	{
		// load "_global" into a register
		registers[ preloadReg ].SetObject( scope[0] );
		preloadReg++;
	}
	
	int scopeSize = scope.Num();
	scope.Append( locals );
	locals->AddRef();
	
	idSWFScriptVar retVal = Run( thisObject, stack, bitstream );
	
	assert( scope.Num() == scopeSize + 1 );
	for( int i = scopeSize; i < scope.Num(); i++ )
	{
		if( verify( scope[i] ) )
		{
			scope[i]->Release();
		}
	}
	scope.SetNum( scopeSize );
	
	locals->Release();
	locals = NULL;
	
	return retVal;
}

/*
========================
<anonymous>::Split
========================
*/
namespace
{
const char* GetPropertyName( int index )
{
	switch( index )
	{
		case 0:
			return "_x";
		case 1:
			return "_y";
		case 2:
			return "_xscale";
		case 3:
			return "_yscale";
		case 4:
			return "_currentframe";
		case 5:
			return "_totalframes";
		case 6:
			return "_alpha";
		case 7:
			return "_visible";
		case 8:
			return "_width";
		case 9:
			return "_height";
		case 10:
			return "_rotation";
		case 11:
			return "_target";
		case 12:
			return "_framesloaded";
		case 13:
			return "_name";
		case 14:
			return "_droptarget";
		case 15:
			return "_url";
		case 16:
			return "_highquality";
		case 17:
			return "_focusrect";
		case 18:
			return "_soundbuftime";
		case 19:
			return "_quality";
		case 20:
			return "_mousex";
		case 21:
			return "_mousey";
	}
	return "";
}

const char* GetSwfActionName( swfAction_t code )
{
	switch( code )
	{
		case Action_End:
			return "Action_End";
			
			// swf 3
		case Action_NextFrame:
			return "Action_NextFrame";
		case Action_PrevFrame:
			return "Action_PrevFrame";
		case Action_Play:
			return "Action_Play";
		case Action_Stop:
			return "Action_Stop";
		case Action_ToggleQuality:
			return "Action_ToggleQuality";
		case Action_StopSounds:
			return "Action_StopSounds";
			
		case Action_GotoFrame:
			return "Action_GotoFrame";
		case Action_GetURL:
			return "Action_GetURL";
		case Action_WaitForFrame:
			return "Action_WaitForFrame";
		case Action_SetTarget:
			return "Action_SetTarget";
		case Action_GoToLabel:
			return "Action_GoToLabel";
			
			// swf 4
		case Action_Add:
			return "Action_Add";
		case Action_Subtract:
			return "Action_Subtract";
		case Action_Multiply:
			return "Action_Multiply";
		case Action_Divide:
			return "Action_Divide";
		case Action_Equals:
			return "Action_Equals";
		case Action_Less:
			return "Action_Less";
		case Action_And:
			return "Action_And";
		case Action_Or:
			return "Action_Or";
		case Action_Not:
			return "Action_Not";
		case Action_StringEquals:
			return "Action_StringEquals";
		case Action_StringLength:
			return "Action_StringLength";
		case Action_StringExtract:
			return "Action_StringExtract";
		case Action_Pop:
			return "Action_Pop";
		case Action_ToInteger:
			return "Action_ToInteger";
		case Action_GetVariable:
			return "Action_GetVariable";
		case Action_SetVariable:
			return "Action_SetVariable";
		case Action_SetTarget2:
			return "Action_SetTarget2";
		case Action_StringAdd:
			return "Action_StringAdd";
		case Action_GetProperty:
			return "Action_GetProperty";
		case Action_SetProperty:
			return "Action_SetProperty";
		case Action_CloneSprite:
			return "Action_CloneSprite";
		case Action_RemoveSprite:
			return "Action_RemoveSprite";
		case Action_Trace:
			return "Action_Trace";
		case Action_StartDrag:
			return "Action_StartDrag";
		case Action_EndDrag:
			return "Action_EndDrag";
		case Action_StringLess:
			return "Action_StringLess";
		case Action_RandomNumber:
			return "Action_RandomNumber";
		case Action_MBStringLength:
			return "Action_MBStringLength";
		case Action_CharToAscii:
			return "Action_CharToAscii";
		case Action_AsciiToChar:
			return "Action_AsciiToChar";
		case Action_GetTime:
			return "Action_GetTime";
		case Action_MBStringExtract:
			return "Action_MBStringExtract";
		case Action_MBCharToAscii:
			return "Action_MBCharToAscii";
		case Action_MBAsciiToChar:
			return "Action_MBAsciiToChar";
			
		case Action_WaitForFrame2:
			return "Action_WaitForFrame2";
		case Action_Push:
			return "Action_Push";
		case Action_Jump:
			return "Action_Jump";
		case Action_GetURL2:
			return "Action_GetURL2";
		case Action_If:
			return "Action_If";
		case Action_Call:
			return "Action_Call";
		case Action_GotoFrame2:
			return "Action_GotoFrame2";
			
			// swf 5
		case Action_Delete:
			return "Action_Delete";
		case Action_Delete2:
			return "Action_Delete2";
		case Action_DefineLocal:
			return "Action_DefineLocal";
		case Action_CallFunction:
			return "Action_CallFunction";
		case Action_Return:
			return "Action_Return";
		case Action_Modulo:
			return "Action_Modulo";
		case Action_NewObject:
			return "Action_NewObject";
		case Action_DefineLocal2:
			return "Action_DefineLocal2";
		case Action_InitArray:
			return "Action_InitArray";
		case Action_InitObject:
			return "Action_InitObject";
		case Action_TypeOf:
			return "Action_TypeOf";
		case Action_TargetPath:
			return "Action_TargetPath";
		case Action_Enumerate:
			return "Action_Enumerate";
		case Action_Add2:
			return "Action_Add2";
		case Action_Less2:
			return "Action_Less2";
		case Action_Equals2:
			return "Action_Equals2";
		case Action_ToNumber:
			return "Action_ToNumber";
		case Action_ToString:
			return "Action_ToString";
		case Action_PushDuplicate:
			return "Action_PushDuplicate";
		case Action_StackSwap:
			return "Action_StackSwap";
		case Action_GetMember:
			return "Action_GetMember";
		case Action_SetMember:
			return "Action_SetMember";
		case Action_Increment:
			return "Action_Increment";
		case Action_Decrement:
			return "Action_Decrement";
		case Action_CallMethod:
			return "Action_CallMethod";
		case Action_NewMethod:
			return "Action_NewMethod";
		case Action_BitAnd:
			return "Action_BitAnd";
		case Action_BitOr:
			return "Action_BitOr";
		case Action_BitXor:
			return "Action_BitXor";
		case Action_BitLShift:
			return "Action_BitLShift";
		case Action_BitRShift:
			return "Action_BitRShift";
		case Action_BitURShift:
			return "Action_BitURShift";
			
		case Action_StoreRegister:
			return "Action_StoreRegister";
		case Action_ConstantPool:
			return "Action_ConstantPool";
		case Action_With:
			return "Action_With";
		case Action_DefineFunction:
			return "Action_DefineFunction";
			
			// swf 6
		case Action_InstanceOf:
			return "Action_InstanceOf";
		case Action_Enumerate2:
			return "Action_Enumerate2";
		case Action_StrictEquals:
			return "Action_StrictEquals";
		case Action_Greater:
			return "Action_Greater";
		case Action_StringGreater:
			return "Action_StringGreater";
			
			// swf 7
		case Action_Extends:
			return "Action_Extends";
		case Action_CastOp:
			return "Action_CastOp";
		case Action_ImplementsOp:
			return "Action_ImplementsOp";
		case Action_Throw:
			return "Action_Throw";
		case Action_Try:
			return "Action_Try";
			
		case Action_DefineFunction2:
			return "Action_DefineFunction2";
		default:
			return "UNKNOWN CODE";
	}
}
}

/*
========================
idSWFScriptFunction_Script::Run
========================
*/
idSWFScriptVar idSWFScriptFunction_Script::Run( idSWFScriptObject* thisObject, idSWFStack& stack, idSWFBitStream& bitstream )
{
	static int callstackLevel = -1;
	idSWFSpriteInstance* thisSprite = thisObject->GetSprite();
	idSWFSpriteInstance* currentTarget = thisSprite;
	
	if( currentTarget == NULL )
	{
		thisSprite = currentTarget = defaultSprite;
	}
	
	callstackLevel++;
	
	while( bitstream.Tell() < bitstream.Length() )
	{
		swfAction_t code = ( swfAction_t )bitstream.ReadU8();
		uint16 recordLength = 0;
		if( code >= 0x80 )
		{
			recordLength = bitstream.ReadU16();
		}
		
		if( swf_debug.GetInteger() >= 3 )
		{
			// stack[0] is always 0 so don't read it
			if( swf_debug.GetInteger() >= 4 )
			{
				for( int i = stack.Num() - 1; i >= 0 ; i-- )
				{
					idLib::Printf( "  %c: %s (%s)\n", ( char )( 64 + stack.Num() - i ), stack[i].ToString().c_str(), stack[i].TypeOf() );
				}
				
				for( int i = 0; i < registers.Num(); i++ )
				{
					if( !registers[i].IsUndefined() )
					{
						idLib::Printf( " R%d: %s (%s)\n", i, registers[i].ToString().c_str(), registers[i].TypeOf() );
					}
				}
			}
			
			idLib::Printf( "SWF%d: code %s\n", callstackLevel, GetSwfActionName( code ) );
		}
		
		switch( code )
		{
			case Action_Return:
				callstackLevel--;
				return stack.A();
			case Action_End:
				callstackLevel--;
				return idSWFScriptVar();
			case Action_NextFrame:
				if( verify( currentTarget != NULL ) )
				{
					currentTarget->NextFrame();
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for nextFrame\n" );
				}
				break;
			case Action_PrevFrame:
				if( verify( currentTarget != NULL ) )
				{
					currentTarget->PrevFrame();
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for prevFrame\n" );
				}
				break;
			case Action_Play:
				if( verify( currentTarget != NULL ) )
				{
					currentTarget->Play();
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for play\n" );
				}
				break;
			case Action_Stop:
				if( verify( currentTarget != NULL ) )
				{
					currentTarget->Stop();
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for stop\n" );
				}
				break;
			case Action_ToggleQuality:
				break;
			case Action_StopSounds:
				break;
			case Action_GotoFrame:
			{
				assert( recordLength == 2 );
				int frameNum = bitstream.ReadU16() + 1;
				if( verify( currentTarget != NULL ) )
				{
					currentTarget->RunTo( frameNum );
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for runTo %d\n", frameNum );
				}
				break;
			}
			case Action_SetTarget:
			{
				const char* targetName = ( const char* )bitstream.ReadData( recordLength );
				if( verify( thisSprite != NULL ) )
				{
					currentTarget = thisSprite->ResolveTarget( targetName );
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for setTarget %s\n", targetName );
				}
				break;
			}
			case Action_GoToLabel:
			{
				const char* targetName = ( const char* )bitstream.ReadData( recordLength );
				if( verify( currentTarget != NULL ) )
				{
					currentTarget->RunTo( currentTarget->FindFrame( targetName ) );
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for runTo %s\n", targetName );
				}
				break;
			}
			case Action_Push:
			{
				idSWFBitStream pushstream( bitstream.ReadData( recordLength ), recordLength, false );
				while( pushstream.Tell() < pushstream.Length() )
				{
					uint8 type = pushstream.ReadU8();
					switch( type )
					{
						case 0:
							stack.Alloc().SetString( pushstream.ReadString() );
							break;
						case 1:
							stack.Alloc().SetFloat( pushstream.ReadFloat() );
							break;
						case 2:
							stack.Alloc().SetNULL();
							break;
						case 3:
							stack.Alloc().SetUndefined();
							break;
						case 4:
							stack.Alloc() = registers[ pushstream.ReadU8() ];
							break;
						case 5:
							stack.Alloc().SetBool( pushstream.ReadU8() != 0 );
							break;
						case 6:
							stack.Alloc().SetFloat( ( float )pushstream.ReadDouble() );
							break;
						case 7:
							stack.Alloc().SetInteger( pushstream.ReadS32() );
							break;
						case 8:
							stack.Alloc().SetString( constants.Get( pushstream.ReadU8() ) );
							break;
						case 9:
							stack.Alloc().SetString( constants.Get( pushstream.ReadU16() ) );
							break;
					}
				}
				break;
			}
			case Action_Pop:
				stack.Pop( 1 );
				break;
			case Action_Add:
				stack.B().SetFloat( stack.B().ToFloat() + stack.A().ToFloat() );
				stack.Pop( 1 );
				break;
			case Action_Subtract:
				stack.B().SetFloat( stack.B().ToFloat() - stack.A().ToFloat() );
				stack.Pop( 1 );
				break;
			case Action_Multiply:
				stack.B().SetFloat( stack.B().ToFloat() * stack.A().ToFloat() );
				stack.Pop( 1 );
				break;
			case Action_Divide:
				stack.B().SetFloat( stack.B().ToFloat() / stack.A().ToFloat() );
				stack.Pop( 1 );
				break;
			case Action_Equals:
				stack.B().SetBool( stack.B().ToFloat() == stack.A().ToFloat() );
				stack.Pop( 1 );
				break;
			case Action_Less:
				stack.B().SetBool( stack.B().ToFloat() < stack.A().ToFloat() );
				stack.Pop( 1 );
				break;
			case Action_And:
				stack.B().SetBool( stack.B().ToBool() && stack.A().ToBool() );
				stack.Pop( 1 );
				break;
			case Action_Or:
				stack.B().SetBool( stack.B().ToBool() || stack.A().ToBool() );
				stack.Pop( 1 );
				break;
			case Action_Not:
				stack.A().SetBool( !stack.A().ToBool() );
				break;
			case Action_StringEquals:
				stack.B().SetBool( stack.B().ToString() == stack.A().ToString() );
				stack.Pop( 1 );
				break;
			case Action_StringLength:
				stack.A().SetInteger( stack.A().ToString().Length() );
				break;
			case Action_StringAdd:
				stack.B().SetString( stack.B().ToString() + stack.A().ToString() );
				stack.Pop( 1 );
				break;
			case Action_StringExtract:
				stack.C().SetString( stack.C().ToString().Mid( stack.B().ToInteger(), stack.A().ToInteger() ) );
				stack.Pop( 2 );
				break;
			case Action_StringLess:
				stack.B().SetBool( stack.B().ToString() < stack.A().ToString() );
				stack.Pop( 1 );
				break;
			case Action_StringGreater:
				stack.B().SetBool( stack.B().ToString() > stack.A().ToString() );
				stack.Pop( 1 );
				break;
			case Action_ToInteger:
				stack.A().SetInteger( stack.A().ToInteger() );
				break;
			case Action_CharToAscii:
				stack.A().SetInteger( stack.A().ToString()[0] );
				break;
			case Action_AsciiToChar:
				stack.A().SetString( va( "%c", stack.A().ToInteger() ) );
				break;
			case Action_Jump:
				bitstream.Seek( bitstream.ReadS16() );
				break;
			case Action_If:
			{
				int16 offset = bitstream.ReadS16();
				if( stack.A().ToBool() )
				{
					bitstream.Seek( offset );
				}
				stack.Pop( 1 );
				break;
			}
			case Action_GetVariable:
			{
				idStr variableName = stack.A().ToString();
				for( int i = scope.Num() - 1; i >= 0; i-- )
				{
					stack.A() = scope[i]->Get( variableName );
					if( !stack.A().IsUndefined() )
					{
						break;
					}
				}
				if( stack.A().IsUndefined() && swf_debug.GetInteger() > 1 )
				{
					idLib::Printf( "SWF: unknown variable %s\n", variableName.c_str() );
				}
				break;
			}
			case Action_SetVariable:
			{
				idStr variableName = stack.B().ToString();
				bool found = false;
				for( int i = scope.Num() - 1; i >= 0; i-- )
				{
					if( scope[i]->HasProperty( variableName ) )
					{
						scope[i]->Set( variableName, stack.A() );
						found = true;
						break;
					}
				}
				if( !found )
				{
					thisObject->Set( variableName, stack.A() );
				}
				stack.Pop( 2 );
				break;
			}
			case Action_GotoFrame2:
			{
			
				uint32 frameNum = 0;
				uint8 flags = bitstream.ReadU8();
				if( flags & 2 )
				{
					frameNum += bitstream.ReadU16();
				}
				
				if( verify( thisSprite != NULL ) )
				{
					if( stack.A().IsString() )
					{
						frameNum += thisSprite->FindFrame( stack.A().ToString() );
					}
					else
					{
						frameNum += ( uint32 )stack.A().ToInteger();
					}
					if( ( flags & 1 ) != 0 )
					{
						thisSprite->Play();
					}
					else
					{
						thisSprite->Stop();
					}
					thisSprite->RunTo( frameNum );
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					if( ( flags & 1 ) != 0 )
					{
						idLib::Printf( "SWF: no target movie clip for gotoAndPlay\n" );
					}
					else
					{
						idLib::Printf( "SWF: no target movie clip for gotoAndStop\n" );
					}
				}
				stack.Pop( 1 );
				break;
			}
			case Action_GetProperty:
			{
				if( verify( thisSprite != NULL ) )
				{
					idSWFSpriteInstance* target = thisSprite->ResolveTarget( stack.B().ToString() );
					stack.B() = target->scriptObject->Get( GetPropertyName( stack.A().ToInteger() ) );
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for getProperty\n" );
				}
				stack.Pop( 1 );
				break;
			}
			case Action_SetProperty:
			{
				if( verify( thisSprite != NULL ) )
				{
					idSWFSpriteInstance* target = thisSprite->ResolveTarget( stack.C().ToString() );
					target->scriptObject->Set( GetPropertyName( stack.B().ToInteger() ), stack.A() );
				}
				else if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: no target movie clip for setProperty\n" );
				}
				stack.Pop( 3 );
				break;
			}
			case Action_Trace:
				idLib::PrintfIf( swf_debug.GetInteger() > 0, "SWF Trace: %s\n", stack.A().ToString().c_str() );
				stack.Pop( 1 );
				break;
			case Action_GetTime:
				stack.Alloc().SetInteger( Sys_Milliseconds() );
				break;
			case Action_RandomNumber:
				assert( thisSprite && thisSprite->sprite && thisSprite->sprite->GetSWF() );
				stack.A().SetInteger( thisSprite->sprite->GetSWF()->GetRandom().RandomInt( stack.A().ToInteger() ) );
				break;
			case Action_CallFunction:
			{
				idStr functionName = stack.A().ToString();
				idSWFScriptVar function;
				idSWFScriptObject* object = NULL;
				for( int i = scope.Num() - 1; i >= 0; i-- )
				{
					function = scope[i]->Get( functionName );
					if( !function.IsUndefined() )
					{
						object = scope[i];
						break;
					}
				}
				stack.Pop( 1 );
				
				idSWFParmList parms;
				parms.SetNum( stack.A().ToInteger() );
				stack.Pop( 1 );
				for( int i = 0; i < parms.Num(); i++ )
				{
					parms[i] = stack.A();
					stack.Pop( 1 );
				}
				
				if( function.IsFunction() && verify( object ) )
				{
					stack.Alloc() = function.GetFunction()->Call( object, parms );
				}
				else
				{
					idLib::PrintfIf( swf_debug.GetInteger() > 0, "SWF: unknown function %s\n", functionName.c_str() );
					stack.Alloc().SetUndefined();
				}
				
				break;
			}
			case Action_CallMethod:
			{
				idStr functionName = stack.A().ToString();
				// If the top stack is undefined but there is an object, it's calling the constructor
				if( functionName.IsEmpty() || stack.A().IsUndefined() || stack.A().IsNULL() )
				{
					functionName = "__constructor__";
				}
				idSWFScriptObject* object = NULL;
				idSWFScriptVar function;
				if( stack.B().IsObject() )
				{
					object = stack.B().GetObject();
					function = object->Get( functionName );
					if( !function.IsFunction() )
					{
						idLib::PrintfIf( swf_debug.GetInteger() > 1, "SWF: unknown method %s on %s\n", functionName.c_str(), object->DefaultValue( true ).ToString().c_str() );
					}
				}
				else
				{
					idLib::PrintfIf( swf_debug.GetInteger() > 1, "SWF: NULL object for method %s\n", functionName.c_str() );
				}
				
				stack.Pop( 2 );
				
				idSWFParmList parms;
				parms.SetNum( stack.A().ToInteger() );
				stack.Pop( 1 );
				for( int i = 0; i < parms.Num(); i++ )
				{
					parms[i] = stack.A();
					stack.Pop( 1 );
				}
				
				if( function.IsFunction() )
				{
					stack.Alloc() = function.GetFunction()->Call( object, parms );
				}
				else
				{
					stack.Alloc().SetUndefined();
				}
				break;
			}
			case Action_ConstantPool:
			{
				constants.Clear();
				uint16 numConstants = bitstream.ReadU16();
				for( int i = 0; i < numConstants; i++ )
				{
					constants.Append( idSWFScriptString::Alloc( bitstream.ReadString() ) );
				}
				break;
			}
			case Action_DefineFunction:
			{
				idStr functionName = bitstream.ReadString();
				
				idSWFScriptFunction_Script* newFunction = idSWFScriptFunction_Script::Alloc();
				newFunction->SetScope( scope );
				newFunction->SetConstants( constants );
				newFunction->SetDefaultSprite( defaultSprite );
				
				uint16 numParms = bitstream.ReadU16();
				newFunction->AllocParameters( numParms );
				for( int i = 0; i < numParms; i++ )
				{
					newFunction->SetParameter( i, 0, bitstream.ReadString() );
				}
				uint16 codeSize = bitstream.ReadU16();
				newFunction->SetData( bitstream.ReadData( codeSize ), codeSize );
				
				if( functionName.IsEmpty() )
				{
					stack.Alloc().SetFunction( newFunction );
				}
				else
				{
					thisObject->Set( functionName, idSWFScriptVar( newFunction ) );
				}
				newFunction->Release();
				break;
			}
			case Action_DefineFunction2:
			{
				idStr functionName = bitstream.ReadString();
				
				idSWFScriptFunction_Script* newFunction = idSWFScriptFunction_Script::Alloc();
				newFunction->SetScope( scope );
				newFunction->SetConstants( constants );
				newFunction->SetDefaultSprite( defaultSprite );
				
				uint16 numParms = bitstream.ReadU16();
				
				// The number of registers is from 0 to 255, although valid values are 1 to 256.
				// There must always be at least one register for DefineFunction2, to hold "this" or "super" when required.
				uint8 numRegs = bitstream.ReadU8() + 1;
				
				// Note that SWF byte-ordering causes the flag bits to be reversed per-byte
				// from how the swf_file_format_spec_v10.pdf document describes the ordering in ActionDefineFunction2.
				// PreloadThisFlag is byte 0, not 7, PreloadGlobalFlag is 8, not 15.
				uint16 flags = bitstream.ReadU16();
				
				newFunction->AllocParameters( numParms );
				newFunction->AllocRegisters( numRegs );
				newFunction->SetFlags( flags );
				
				for( int i = 0; i < numParms; i++ )
				{
					uint8 reg = bitstream.ReadU8();
					const char* name = bitstream.ReadString();
					if( reg >= numRegs )
					{
						idLib::Warning( "SWF: Parameter %s in function %s bound to out of range register %d", name, functionName.c_str(), reg );
						reg = 0;
					}
					newFunction->SetParameter( i, reg, name );
				}
				
				uint16 codeSize = bitstream.ReadU16();
				newFunction->SetData( bitstream.ReadData( codeSize ), codeSize );
				
				if( functionName.IsEmpty() )
				{
					stack.Alloc().SetFunction( newFunction );
				}
				else
				{
					thisObject->Set( functionName, idSWFScriptVar( newFunction ) );
				}
				newFunction->Release();
				break;
			}
			case Action_Enumerate:
			{
				idStr variableName = stack.A().ToString();
				for( int i = scope.Num() - 1; i >= 0; i-- )
				{
					stack.A() = scope[i]->Get( variableName );
					if( !stack.A().IsUndefined() )
					{
						break;
					}
				}
				if( !stack.A().IsObject() )
				{
					stack.A().SetNULL();
				}
				else
				{
					idSWFScriptObject* object = stack.A().GetObject();
					object->AddRef();
					stack.A().SetNULL();
					for( int i = 0; i < object->NumVariables(); i++ )
					{
						stack.Alloc().SetString( object->EnumVariable( i ) );
					}
					object->Release();
				}
				break;
			}
			case Action_Enumerate2:
			{
				if( !stack.A().IsObject() )
				{
					stack.A().SetNULL();
				}
				else
				{
					idSWFScriptObject* object = stack.A().GetObject();
					object->AddRef();
					stack.A().SetNULL();
					for( int i = 0; i < object->NumVariables(); i++ )
					{
						stack.Alloc().SetString( object->EnumVariable( i ) );
					}
					object->Release();
				}
				break;
			}
			case Action_Equals2:
			{
				stack.B().SetBool( stack.A().AbstractEquals( stack.B() ) );
				stack.Pop( 1 );
				break;
			}
			case Action_StrictEquals:
			{
				stack.B().SetBool( stack.A().StrictEquals( stack.B() ) );
				stack.Pop( 1 );
				break;
			}
			case Action_GetMember:
			{
				if( ( stack.B().IsUndefined() || stack.B().IsNULL() ) && swf_debug.GetInteger() > 1 )
				{
					idLib::Printf( "SWF: tried to get member %s on an invalid object in sprite '%s'\n", stack.A().ToString().c_str(), thisSprite != NULL ? thisSprite->GetName() : "" );
				}
				if( stack.B().IsObject() )
				{
					idSWFScriptObject* object = stack.B().GetObject();
					if( stack.A().IsNumeric() )
					{
						stack.B() = object->Get( stack.A().ToInteger() );
					}
					else
					{
						stack.B() = object->Get( stack.A().ToString() );
					}
					if( stack.B().IsUndefined() && swf_debug.GetInteger() > 1 )
					{
						idLib::Printf( "SWF: unknown member %s\n", stack.A().ToString().c_str() );
					}
				}
				else if( stack.B().IsString() )
				{
					idStr propertyName = stack.A().ToString();
					if( propertyName.Cmp( "length" ) == 0 )
					{
						stack.B().SetInteger( stack.B().ToString().Length() );
					}
					else if( propertyName.Cmp( "value" ) == 0 )
					{
						// Do nothing
					}
					else
					{
						stack.B().SetUndefined();
					}
				}
				else if( stack.B().IsFunction() )
				{
					idStr propertyName = stack.A().ToString();
					if( propertyName.Cmp( "prototype" ) == 0 )
					{
						// if this is a function, it's a class definition function, and it just wants the prototype object
						// create it if it hasn't been already, and return it
						idSWFScriptFunction* sfs = stack.B().GetFunction();
						idSWFScriptObject* object = sfs->GetPrototype();
						
						if( object == NULL )
						{
							object = idSWFScriptObject::Alloc();
							// Set the __proto__ to the main Object prototype
							idSWFScriptVar baseObjConstructor = scope[0]->Get( "Object" );
							idSWFScriptFunction* baseObj = baseObjConstructor.GetFunction();
							object->Set( "__proto__", baseObj->GetPrototype() );
							sfs->SetPrototype( object );
						}
						
						stack.B() = idSWFScriptVar( object );
					}
					else
					{
						stack.B().SetUndefined();
					}
				}
				else
				{
					stack.B().SetUndefined();
				}
				stack.Pop( 1 );
				break;
			}
			case Action_SetMember:
			{
				if( stack.C().IsObject() )
				{
					idSWFScriptObject* object = stack.C().GetObject();
					if( stack.B().IsNumeric() )
					{
						object->Set( stack.B().ToInteger(), stack.A() );
					}
					else
					{
						object->Set( stack.B().ToString(), stack.A() );
					}
				}
				stack.Pop( 3 );
				break;
			}
			case Action_InitArray:
			{
				idSWFScriptObject* object = idSWFScriptObject::Alloc();
				object->MakeArray();
				
				int numElements = stack.A().ToInteger();
				stack.Pop( 1 );
				
				for( int i = 0; i < numElements; i++ )
				{
					object->Set( i, stack.A() );
					stack.Pop( 1 );
				}
				
				stack.Alloc().SetObject( object );
				
				object->Release();
				break;
			}
			case Action_InitObject:
			{
				idSWFScriptObject* object = idSWFScriptObject::Alloc();
				
				int numElements = stack.A().ToInteger();
				stack.Pop( 1 );
				
				for( int i = 0; i < numElements; i++ )
				{
					object->Set( stack.B().ToString(), stack.A() );
					stack.Pop( 2 );
				}
				
				stack.Alloc().SetObject( object );
				
				object->Release();
				break;
			}
			case Action_NewObject:
			{
				idSWFScriptObject* object = idSWFScriptObject::Alloc();
				
				idStr functionName = stack.A().ToString();
				stack.Pop( 1 );
				
				if( functionName.Cmp( "Array" ) == 0 )
				{
					object->MakeArray();
					
					int numElements = stack.A().ToInteger();
					stack.Pop( 1 );
					
					for( int i = 0; i < numElements; i++ )
					{
						object->Set( i, stack.A() );
						stack.Pop( 1 );
					}
					
					idSWFScriptVar baseObjConstructor = scope[0]->Get( "Object" );
					idSWFScriptFunction* baseObj = baseObjConstructor.GetFunction();
					object->Set( "__proto__", baseObj->GetPrototype() );
					// object prototype is not set here because it will be auto created from Object later
				}
				else
				{
					idSWFParmList parms;
					parms.SetNum( stack.A().ToInteger() );
					stack.Pop( 1 );
					for( int i = 0; i < parms.Num(); i++ )
					{
						parms[i] = stack.A();
						stack.Pop( 1 );
					}
					
					idSWFScriptVar objdef = scope[0]->Get( functionName );
					if( objdef.IsFunction() )
					{
						idSWFScriptFunction* constructorFunction = objdef.GetFunction();
						object->Set( "__proto__", constructorFunction->GetPrototype() );
						object->SetPrototype( constructorFunction->GetPrototype() );
						constructorFunction->Call( object, parms );
					}
					else
					{
						idLib::Warning( "SWF: Unknown class definition %s", functionName.c_str() );
					}
				}
				
				stack.Alloc().SetObject( object );
				
				object->Release();
				break;
			}
			case Action_Extends:
			{
				idSWFScriptFunction* superclassConstructorFunction = stack.A().GetFunction();
				idSWFScriptFunction* subclassConstructorFunction = stack.B().GetFunction();
				stack.Pop( 2 );
				
				idSWFScriptObject* scriptObject = idSWFScriptObject::Alloc();
				scriptObject->SetPrototype( superclassConstructorFunction->GetPrototype() );
				scriptObject->Set( "__proto__", idSWFScriptVar( superclassConstructorFunction->GetPrototype() ) );
				scriptObject->Set( "__constructor__", idSWFScriptVar( superclassConstructorFunction ) );
				
				subclassConstructorFunction->SetPrototype( scriptObject );
				
				scriptObject->Release();
				break;
			}
			case Action_TargetPath:
			{
				if( !stack.A().IsObject() )
				{
					stack.A().SetUndefined();
				}
				else
				{
					idSWFScriptObject* object = stack.A().GetObject();
					if( object->GetSprite() == NULL )
					{
						stack.A().SetUndefined();
					}
					else
					{
						idStr dotName = object->GetSprite()->name.c_str();
						for( idSWFSpriteInstance* target = object->GetSprite()->parent; target != NULL; target = target->parent )
						{
							dotName = target->name + "." + dotName;
						}
						stack.A().SetString( dotName );
					}
				}
				break;
			}
			case Action_With:
			{
				int withSize = bitstream.ReadU16();
				idSWFBitStream bitstream2( bitstream.ReadData( withSize ), withSize, false );
				if( stack.A().IsObject() )
				{
					idSWFScriptObject* withObject = stack.A().GetObject();
					withObject->AddRef();
					stack.Pop( 1 );
					scope.Append( withObject );
					Run( thisObject, stack, bitstream2 );
					scope.SetNum( scope.Num() - 1 );
					withObject->Release();
				}
				else
				{
					if( swf_debug.GetInteger() > 0 )
					{
						idLib::Printf( "SWF: with() invalid object specified\n" );
					}
					stack.Pop( 1 );
				}
				break;
			}
			case Action_ToNumber:
				stack.A().SetFloat( stack.A().ToFloat() );
				break;
			case Action_ToString:
				stack.A().SetString( stack.A().ToString() );
				break;
			case Action_TypeOf:
				stack.A().SetString( stack.A().TypeOf() );
				break;
			case Action_Add2:
			{
				if( stack.A().IsString() || stack.B().IsString() )
				{
					stack.B().SetString( stack.B().ToString() + stack.A().ToString() );
				}
				else
				{
					stack.B().SetFloat( stack.B().ToFloat() + stack.A().ToFloat() );
				}
				stack.Pop( 1 );
				break;
			}
			case Action_Less2:
			{
				if( stack.A().IsString() && stack.B().IsString() )
				{
					stack.B().SetBool( stack.B().ToString() < stack.A().ToString() );
				}
				else
				{
					stack.B().SetBool( stack.B().ToFloat() < stack.A().ToFloat() );
				}
				stack.Pop( 1 );
				break;
			}
			case Action_Greater:
			{
				if( stack.A().IsString() && stack.B().IsString() )
				{
					stack.B().SetBool( stack.B().ToString() > stack.A().ToString() );
				}
				else
				{
					stack.B().SetBool( stack.B().ToFloat() > stack.A().ToFloat() );
				}
				stack.Pop( 1 );
				break;
			}
			case Action_Modulo:
			{
				int32 a = stack.A().ToInteger();
				int32 b = stack.B().ToInteger();
				if( a == 0 )
				{
					stack.B().SetUndefined();
				}
				else
				{
					stack.B().SetInteger( b % a );
				}
				stack.Pop( 1 );
				break;
			}
			case Action_BitAnd:
				stack.B().SetInteger( stack.B().ToInteger() & stack.A().ToInteger() );
				stack.Pop( 1 );
				break;
			case Action_BitLShift:
				stack.B().SetInteger( stack.B().ToInteger() << stack.A().ToInteger() );
				stack.Pop( 1 );
				break;
			case Action_BitOr:
				stack.B().SetInteger( stack.B().ToInteger() | stack.A().ToInteger() );
				stack.Pop( 1 );
				break;
			case Action_BitRShift:
				stack.B().SetInteger( stack.B().ToInteger() >> stack.A().ToInteger() );
				stack.Pop( 1 );
				break;
			case Action_BitURShift:
				stack.B().SetInteger( ( uint32 )stack.B().ToInteger() >> stack.A().ToInteger() );
				stack.Pop( 1 );
				break;
			case Action_BitXor:
				stack.B().SetInteger( stack.B().ToInteger() ^ stack.A().ToInteger() );
				stack.Pop( 1 );
				break;
			case Action_Decrement:
				stack.A().SetFloat( stack.A().ToFloat() - 1.0f );
				break;
			case Action_Increment:
				stack.A().SetFloat( stack.A().ToFloat() + 1.0f );
				break;
			case Action_PushDuplicate:
			{
				idSWFScriptVar dup = stack.A();
				stack.Alloc() = dup;
				break;
			}
			case Action_StackSwap:
			{
				idSWFScriptVar temp = stack.A();
				stack.A() = stack.B();
				stack.A() = temp;
				break;
			}
			case Action_StoreRegister:
			{
				uint8 registerNumber = bitstream.ReadU8();
				registers[ registerNumber ] = stack.A();
				break;
			}
			case Action_DefineLocal:
			{
				scope[scope.Num() - 1]->Set( stack.B().ToString(), stack.A() );
				stack.Pop( 2 );
				break;
			}
			case Action_DefineLocal2:
			{
				scope[scope.Num() - 1]->Set( stack.A().ToString(), idSWFScriptVar() );
				stack.Pop( 1 );
				break;
			}
			case Action_Delete:
			{
				if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: Delete ignored\n" );
				}
				// We no longer support deleting variables because the performance cost of updating the hash tables is not worth it
				stack.Pop( 2 );
				break;
			}
			case Action_Delete2:
			{
				if( swf_debug.GetInteger() > 0 )
				{
					idLib::Printf( "SWF: Delete2 ignored\n" );
				}
				// We no longer support deleting variables because the performance cost of updating the hash tables is not worth it
				stack.Pop( 1 );
				break;
			}
			// These are functions we just don't support because we never really needed to
			case Action_CloneSprite:
			case Action_RemoveSprite:
			case Action_Call:
			case Action_SetTarget2:
			case Action_NewMethod:
			default:
				idLib::Warning( "SWF: Unhandled Action %s", idSWF::GetActionName( code ) );
				// We have to abort here because the rest of the script is basically meaningless now
				assert( false );
				callstackLevel--;
				return idSWFScriptVar();
		}
	}
	callstackLevel--;
	return idSWFScriptVar();
}

/*
========================
idSWF::Invoke
========================
*/
void idSWF::Invoke( const char* functionName, const idSWFParmList& parms )
{
	idSWFScriptObject* obj = mainspriteInstance->GetScriptObject();
	idSWFScriptVar scriptVar = obj->Get( functionName );
	
	if( swf_debugInvoke.GetBool() )
	{
		idLib::Printf( "SWF: Invoke %s with %d parms (%s)\n", functionName, parms.Num(), GetName() );
	}
	
	if( scriptVar.IsFunction() )
	{
		scriptVar.GetFunction()->Call( NULL, parms );
	}
}

/*
========================
idSWF::Invoke
========================
*/
void idSWF::Invoke( const char* functionName, const idSWFParmList& parms, idSWFScriptVar& scriptVar )
{

	if( scriptVar.IsFunction() )
	{
		scriptVar.GetFunction()->Call( NULL, parms );
	}
	else
	{
		idSWFScriptObject* obj = mainspriteInstance->GetScriptObject();
		scriptVar = obj->Get( functionName );
		
		if( scriptVar.IsFunction() )
		{
			scriptVar.GetFunction()->Call( NULL, parms );
		}
	}
}

/*
========================
idSWF::Invoke
========================
*/
void idSWF::Invoke( const char*   functionName, const idSWFParmList& parms, bool& functionExists )
{
	idSWFScriptObject* obj = mainspriteInstance->GetScriptObject();
	idSWFScriptVar scriptVar = obj->Get( functionName );
	
	if( swf_debugInvoke.GetBool() )
	{
		idLib::Printf( "SWF: Invoke %s with %d parms (%s)\n", functionName, parms.Num(), GetName() );
	}
	
	if( scriptVar.IsFunction() )
	{
		scriptVar.GetFunction()->Call( NULL, parms );
		functionExists = true;
	}
	else
	{
		functionExists = false;
	}
}