local T = require "scriptbank\\textlib"

local Chars = nil

function text_test2_init( e )
	Include( "textlib.lua" )
end

local timer = nil
local testText1, testText2
local textCount1 = 1
local textList1 =
	{ { t = "Right Justified"     , j = 'Right'  },
	  { t = "Centred"             , j = 'Centre' },
	  { t = "Left Justified"      , j = 'Left'   }, 
	  { t = "1234567890.-+=/?#><,", j = 'Centre' }
	}
	
local textCount2 = 1
local textList2 =
	{ { t = "ABCDEFGHIJKLMNOPQRSTUVWXYZ", j = 'Centre' },
	  { t = "abcdefghijklmnopqrstuvwxyz", j = 'Centre' }
	}

local Char = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N0.png" )
 	
function text_test2_main( e )

	if Chars == nil then
				Chars = T.RegisterSprites( 
		  { ['0'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N0.png" ),
		    ['1'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N1.png" ),
		    ['2'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N2.png" ),
		    ['3'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N3.png" ),
		    ['4'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N4.png" ),
		    ['5'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N5.png" ),
		    ['6'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N6.png" ),
		    ['7'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N7.png" ),
		    ['8'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N8.png" ),
		    ['9'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\N9.png" ),
			['/'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Ssl.png" ),
			['a'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\La.png" ),
			['b'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lb.png" ),
			['c'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lc.png" ),
			['d'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Ld.png" ),
			['e'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Le.png" ),
			['f'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lf.png" ),
			['g'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lg.png" ),
			['h'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lh.png" ),
			['i'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Li.png" ),
			['j'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lj.png" ),
			['k'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lk.png" ),
			['l'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Ll.png" ),
			['m'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lm.png" ),
			['n'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Ln.png" ),
			['o'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lo.png" ),
			['p'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lp.png" ),
			['q'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lq.png" ),
			['r'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lr.png" ),
			['s'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Ls.png" ),
			['t'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lt.png" ),
			['u'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lu.png" ),
			['v'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lv.png" ),
			['w'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lw.png" ),
			['x'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lx.png" ),
			['y'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Ly.png" ),
			['z'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Lz.png" ),
			['A'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UA.png" ),
			['B'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UB.png" ),
			['C'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UC.png" ),
			['D'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UD.png" ),
			['E'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UE.png" ),
			['F'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UF.png" ),
			['G'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UG.png" ),
			['H'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UH.png" ),
			['I'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UI.png" ),
			['J'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UJ.png" ),
			['K'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UK.png" ),
			['L'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UL.png" ),
			['M'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UM.png" ),
			['N'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UN.png" ),
			['O'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UO.png" ),
			['P'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UP.png" ),
			['Q'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UQ.png" ),
			['R'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UR.png" ),
			['S'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\US.png" ),
			['T'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UT.png" ),
			['U'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UU.png" ),
			['V'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UV.png" ),
			['W'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UW.png" ),
			['X'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UX.png" ),
			['Y'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UY.png" ),
			['Z'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\UZ.png" ),
			['?'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Sqm.png" ),
			['+'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\S+.png" ),
			['-'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\S-.png" ),
			['='] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\S=.png" ),
			['#'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\S#.png" ),
			[','] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Sc.png" ),
			['>'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Sgt.png" ),
			['<'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Slt.png" ),
			['/'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Ssl.png" ),
			['.'] = LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\Sfs.png" )
		  }, 0.8, 2.55, 1,
		     LoadImage( "scriptbank\\images\\test_fonts\\Lucida\\text_back.png" ) )
	end
	
	if timer == nil then timer = g_Time + 5000 end
	
	if g_Time < timer then 
		
		if testText1 == nil then

			T.ClearTextColour()
			T.SetTextDepth( 50 )

			testText1 = T.DisplayNewText( textList1[ textCount1 ].t, Chars, 50, 50, 1, textList1[ textCount1 ].j )

			if textCount1 < #textList1 then 
				textCount1 = textCount1 + 1
			else
				textCount1 = 1
			end
			
			testText2 = T.DisplayNewText( textList2[ textCount2 ].t, Chars, 50, 60, 2, textList2[ textCount2 ].j ) 
			
			if textCount2 < #textList2 then 
				textCount2 = textCount2 + 1
			else
				textCount2 = 1
			end
			
			T.ClearTextDepth()
		end
		
	elseif testText1 ~= nil then
		T.DeleteText( testText1 )
		testText1 = nil    -- make sure we don't try to delete again
		T.DeleteText( testText2 )
		testText2 = nil    -- make sure we don't try to delete again
		timer = nil
	end
	
end