Simple T2D-based text writer

Well, I knew this moment would come eventually, but I had need for displaying text within the T2D scenegraph itself. While I think this would be better handled with a custom T2D class, I was able to get a script-based version up and running in less than 15 minutes. So, in case you have need of this, I've decided to post it.

This requires the "font1.png" file that is under the T2D/client directory. I haven't tested it, but font2 would probably work just as well.

You will need to make one modification to the engine to get this work: Under engine\console\consoleFunctions.cc, add anywhere (I put mine at the end):

//----------------------------------------------------------------

ConsoleFunctionGroupBegin( DavidStuff, "Functions that David Grace bolted onto here!");
ConsoleFunction(ord, S32, 2, 2, "ord(chartoconvert)") { return argv[1][0] ; }
ConsoleFunctionGroupEnd( DavidStuff )

Why? Because as far as I can, you can't get the ASCII value of a character from within Torquescript itself. So I had to add a simple function that does so.

The script function will return the string object, so you can apply physics to it. It will delete itself after %time milliseconds automatically. Right now, it only handles alphanumerics, but it would be easy to hunt down the values for punctuation and add them.

function createstringobj (%pos, %size, %color, %time, %str)
{
	%strobj = new fxStaticSprite2D() { scenegraph = cbSceneGraph2D; };
	%strobj.setsize (10) ;
	%strobj.setcollisionsuppress (true) ;
	%strobj.setposition (%pos) ;

	// font is 15x15 across
	for (%i = 0; %i < strlen (%str); %i++)
	{
		%let = new fxStaticSprite2D() { scenegraph = [b]ReplaceWithYourSceneGraph2DObjectHere[/b]; };
		%let.setsize (%size) ;
		%chr = ord (getsubstr(%str, %i, 1)) ;
		%val = 0 ;
		if (%chr >= 65 && %chr <= 90)
		  %val = %chr - 65 + 33 ;
		if (%chr >= 97 && %chr <= 122)
		  %val = %chr - 97 + 65 ;
		if (%chr >= 48 && %chr <= 57)
		  %val = %chr - 48 + 16 ;
		%let.setimagemap (font1ImageMap, %val) ;
		%let.mount (%strobj, %i * (%size * 0.11) SPC "0", 0, true, true, true, true) ;
		%let.setcollisionsuppress (true) ;
		%let.setblendcolour (%color) ;
		%let.setblending (true) ;
		%let.setlayer (0) ;
	}
	%strobj.schedule (%time, "safedelete") ;
	%strobj.setlayer (0) ;
	return (%strobj) ;
}