Sorry your browser is not supported!

if ( myAI.Mad ) then myAI.attack(); end

#include <gmThread.h>
gmMachine script;

#include "gmThread.h"

For both your project and the project that you are compiling the library with:
Project -> 'Projectname' Properties -> C/C++ Code Generation ->Runtime Library: Multi-Threaded

Make sure you compile the GM library in release, NOT debug, even if you are compiling your project in debug mode, you will get a pile of warnings that GM has no debug info, but bad luck.

#include "DarkGDK.h"
#include "gmThread.h"
#include "gmCall.h"

#include "gmMathLib.h"
#include "gmSystemLib.h"

#include <fstream>
#include <string>
#include <iterator>

using namespace std;

namespace Script
{
	// Function that loads a GM script, from file, using STL
	int Load( gmMachine &a_machine, const char *a_filename )
	{
		ifstream file( a_filename );

		if ( !file )
			return GM_EXCEPTION;

		string fileString = string( istreambuf_iterator<char>(file), istreambuf_iterator<char>() );

		file.close();

		return a_machine.ExecuteString( fileString.c_str(), NULL, false );
	}

	// Function that runs all scripts that have been loaded from file this cycle
	void Execute( gmMachine &a_machine )
	{
		a_machine.Execute( 0 );
	}

	// Function that handles and lists errors from GM
	void handleErrors( gmMachine &a_machine )
	{
		gmLog &log = a_machine.GetLog();
		bool firstError = true;
		const char *err = log.GetEntry( firstError );
		dbPrint( "Game Monkey Error:" );
		while ( err )
		{
			dbPrint( (LPSTR)err );
			err = log.GetEntry( firstError );
		}
	}
}

// Function that overrides the standard GM print() function
void PrintCallback( gmMachine* a_machine, const char* a_string )
{
	dbPrint( (LPSTR)a_string );
}

// Function that details how the "Include" function behaves on the C++ side
int GM_CDECL gm_Include( gmThread* a_thread )
{
	GM_CHECK_NUM_PARAMS(1);
	GM_CHECK_STRING_PARAM( fileName, 0 );

	Script::Load( *a_thread->GetMachine(), fileName );

	return GM_OK;
}

// Function that details how the "myMultiply" function behaves on the C++ side
int GM_CDECL gm_myMultiply( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(2);
	GM_CHECK_INT_PARAM( a_x, 0 );
	GM_CHECK_INT_PARAM( a_y, 1 );

	int ret = a_x * a_y;

	a_thread->PushInt( ret );

	return GM_OK;
}

// Function to test personalized non-parameterized function
int GM_CDECL gm_Background( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(0);

//	dbBackdropOn();

	return GM_OK;
}

// Function library to be registered by the VM, with name specifications.
gmFunctionEntry s_myLibrary [] =
{
	{ "myMultiply", gm_myMultiply }
};

// Function library to be registered by the VM, with name specifications.
gmFunctionEntry s_Background [] =
{
	{ "Background", gm_Background }
};

// Function library to be registered by the VM, with name specifications.
gmFunctionEntry s_Include [] =
{
	{ "Include", gm_Include }
};


void DarkGDK ( void )
{
	dbSyncOn   ( );
	dbSyncRate ( 60 );

	gmMachine machine;
	gmMachine::s_printCallback = PrintCallback;

	// Actual registration of the function library into the VM
	machine.RegisterLibrary( s_myLibrary, sizeof(s_myLibrary) / sizeof(s_myLibrary[1]), 0 );
	machine.RegisterLibrary( s_Background, sizeof(s_Background) / sizeof(s_Background[1]), 0 );
	machine.RegisterLibrary( s_Include, sizeof(s_Include) / sizeof(s_Include[1]), 0 );
	gmBindMathLib( &machine );
	gmBindSystemLib( &machine );

	int check; // Temporary variable to hold VM return data
	check = Script::Load( machine, "GM/test.gm" ); // GM loadcall

	if ( check != 0 )
		Script::handleErrors( machine ); // Handle errors, based on data from GM loadcall

	while ( LoopGDK ( ) )
	{
		dbSetCursor( 0, 0 );

		Script::Execute( machine );
		dbSync ( );
	}

	return;
}

int GM_CDECL getObjectPositionX( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(1);
	GM_CHECK_INT_PARAM( objNo, 0 );

	float ret = dbObjectPositionX(objNo);

	a_thread->PushFloat( ret );

	return GM_OK;
}


int GM_CDECL getObjectPositionY( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(1);
	GM_CHECK_INT_PARAM( objNo, 0 );

	float ret = dbObjectPositionY(objNo);

	a_thread->PushFloat( ret );

	return GM_OK;
}


int GM_CDECL getObjectPositionZ( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(1);
	GM_CHECK_INT_PARAM( objNo, 0 );

	float ret = dbObjectPositionZ(objNo);

	a_thread->PushFloat( ret );

	return GM_OK;
}

int GM_CDECL getObjectAngleX( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(1);
	GM_CHECK_INT_PARAM( objNo, 0 );

	float ret = dbObjectAngleX(objNo);

	a_thread->PushFloat( ret );

	return GM_OK;
}

int GM_CDECL getObjectAngleY( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(1);
	GM_CHECK_INT_PARAM( objNo, 0 );

	float ret = dbObjectAngleY(objNo);

	a_thread->PushFloat( ret );

	return GM_OK;
}

int GM_CDECL getObjectAngleZ( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(1);
	GM_CHECK_INT_PARAM( objNo, 0 );

	float ret = dbObjectAngleZ(objNo);

	a_thread->PushFloat( ret );

	return GM_OK;
}


int GM_CDECL setObjectPosition( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(4);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( xPos, 1 );
	GM_CHECK_FLOAT_PARAM( yPos, 2 );
	GM_CHECK_FLOAT_PARAM( zPos, 3 );

	dbPositionObject(objNo,xPos,yPos,zPos);

	return GM_OK;
}

int GM_CDECL setObjectRotation( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(4);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( xAngle, 1 );
	GM_CHECK_FLOAT_PARAM( yAngle, 2 );
	GM_CHECK_FLOAT_PARAM( zAngle, 3 );

	dbRotateObject(objNo,xAngle,yAngle,zAngle);

	return GM_OK;
}


int GM_CDECL setObjectAngleX( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(2);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( xAngle, 1 );

	dbXRotateObject(objNo,xAngle);

	return GM_OK;
}

int GM_CDECL setObjectAngleY( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(2);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( yAngle, 1 );

	dbYRotateObject(objNo,yAngle);

	return GM_OK;
}

int GM_CDECL setObjectAngleZ( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(2);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( zAngle, 1 );

	dbXRotateObject(objNo,zAngle);

	return GM_OK;
}

int GM_CDECL setObjectScale( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(4);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( xScale, 1 );
	GM_CHECK_FLOAT_PARAM( yScale, 2 );
	GM_CHECK_FLOAT_PARAM( zScale, 3 );

	dbScaleObject(objNo,xScale,yScale,zScale);

	return GM_OK;
}

setObjectPosition = function() {  setObjectPosition(1, 2.0, 2.0, 2.0); };

gmFunctionEntry s_myLibrary [] =
{
	{ "setObjectPosition", setObjectPosition }
};

machine.RegisterLibrary( s_myLibrary, sizeof(s_myLibrary) / sizeof(s_myLibrary[0]), 0 );

int GM_CDECL setObjectPosition( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(4);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( xPos, 1 );
	GM_CHECK_FLOAT_PARAM( yPos, 2 );
	GM_CHECK_FLOAT_PARAM( zPos, 3 );

	dbPositionObject(objNo,xPos,yPos,zPos);

	return GM_OK;
}

gmMachine machine;
gmFunctionEntry s_myLibrary [] =
{
	{ "setObjectPosition", setObjectPosition }
};
machine.RegisterLibrary( s_myLibrary, sizeof(s_myLibrary) / sizeof(s_myLibrary[0]), 0 );
int check; // Temporary variable to hold VM return data
check = Script::Load( machine, "GM/test.gm" ); // GM loadcall

if ( check != 0 )
{
	Script::handleErrors( machine );
}
Script::Execute( machine );

setObjectPosition(3,10,10,10);

gmMachine machine;
gmFunctionEntry s_myLibrary [] =
{
	{ "setObjectPosition", setObjectPosition }
};
machine.RegisterLibrary( s_myLibrary, sizeof(s_myLibrary) / sizeof(s_myLibrary[0]), 0 );
int check; // Temporary variable to hold VM return data
check = Script::Load( machine, "GM/test.gm" ); // GM loadcall

if ( check != 0 )
{
	Script::handleErrors( machine );
}
Script::Execute( machine );

int GM_CDECL setObjectPosition( gmThread *a_thread )
{
	GM_CHECK_NUM_PARAMS(4);
	GM_CHECK_INT_PARAM( objNo, 0 );
	GM_CHECK_FLOAT_PARAM( xPos, 1 );
	GM_CHECK_FLOAT_PARAM( yPos, 2 );
	GM_CHECK_FLOAT_PARAM( zPos, 3 );

	dbPositionObject(objNo,xPos,yPos,zPos);

	return GM_OK;
}

gmFunctionEntry s_myLibrary [] =
	{
		{ "setObjectPosition", setObjectPosition }
	};

setObjectPosition(1,2,2,2);

setObjectPosition(1,2.0,2.0,2.0);

Include( "GM/test2.gm" );

Number = 0;

while ( Number < 10 )
{
	print( "Number:", Number );
	Number += 1;
};

randseed( system.Time() );

print( myMultiply( 2, 6 ) );
print( "Time:", system.Time() );
print( "Random Float", randfloat( -50.0, 50.0 ) );

for ( i = 0; i < 10; i = i + 1 )
{
	x = randfloat( -50.0, 50.0 );
	y = 20.0;
	z = randfloat( -50.0, 50.0 );
	
	print( x, y, z );
}

Background();