local T = require "scriptbank\\textlib"

local Chars = nil

function text_test_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' }
	}
	
function text_test_main( e )

	if Chars == nil then
				Chars = T.RegisterSprites( 
		  { ['0'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\0.png" ),
		    ['1'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\1.png" ),
		    ['2'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\2.png" ),
		    ['3'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\3.png" ),
		    ['4'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\4.png" ),
		    ['5'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\5.png" ),
		    ['6'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\6.png" ),
		    ['7'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\7.png" ),
		    ['8'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\8.png" ),
		    ['9'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\9.png" ),
			['/'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Ssl.png" ),
			['a'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\La.png" ),
			['b'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lb.png" ),
			['c'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lc.png" ),
			['d'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Ld.png" ),
			['e'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Le.png" ),
			['f'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lf.png" ),
			['g'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lg.png" ),
			['h'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lh.png" ),
			['i'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Li.png" ),
			['j'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lj.png" ),
			['k'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lk.png" ),
			['l'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Ll.png" ),
			['m'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lm.png" ),
			['n'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Ln.png" ),
			['o'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lo.png" ),
			['p'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lp.png" ),
			['q'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lq.png" ),
			['r'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lr.png" ),
			['s'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Ls.png" ),
			['t'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lt.png" ),
			['u'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lu.png" ),
			['v'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lv.png" ),
			['w'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lw.png" ),
			['x'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lx.png" ),
			['y'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Ly.png" ),
			['z'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Lz.png" ),
			['A'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UA.png" ),
			['B'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UB.png" ),
			['C'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UC.png" ),
			['D'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UD.png" ),
			['E'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UE.png" ),
			['F'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UF.png" ),
			['G'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UG.png" ),
			['H'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UH.png" ),
			['I'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UI.png" ),
			['J'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UJ.png" ),
			['K'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UK.png" ),
			['L'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UL.png" ),
			['M'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UM.png" ),
			['N'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UN.png" ),
			['O'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UO.png" ),
			['P'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UP.png" ),
			['Q'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UQ.png" ),
			['R'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UR.png" ),
			['S'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\US.png" ),
			['T'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UT.png" ),
			['U'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UU.png" ),
			['V'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UV.png" ),
			['W'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UW.png" ),
			['X'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UX.png" ),
			['Y'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UY.png" ),
			['Z'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\UZ.png" ),
			['!'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\S!.png" ),
			['+'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\S+.png" ),
			['-'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\S-.png" ),
			['='] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\S=.png" ),
			['%'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\S%.png" ),
			['^'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\S^.png" ),
			['&'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\S&.png" ),
			['*'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Smpl.png" ),
			['/'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Ssl.png" ),
			['.'] = LoadImage( "scriptbank\\images\\test_fonts\\Font2\\Sfs.png" )
		  }, 3.242, 11.25, 0.95 )
	end

	if timer == nil then timer = g_Time + 5000 end
	
	if g_Time < timer then 
		
		if testText1 == nil then
			T.SetTextColour( 240, 100, 0, 0 )

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

			if textCount1 < #textList1 then 
				textCount1 = textCount1 + 1
			else
				textCount1 = 1
			end

			T.SetTextColour( 0, 100, 180, 255 )
			
			testText2 = T.DisplayNewText( textList2[ textCount2 ].t, Chars, 50, 80, 1, textList2[ textCount2 ].j ) 
			
			if textCount2 < #textList2 then 
				textCount2 = textCount2 + 1
			else
				textCount2 = 1
			end
		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
	
	if testText1 ~= nil then
		T.FadeInText( testText1, 2 )
	end
	if testText2 ~= nil then
		T.FadeOutText( testText2, 1 )
	end
	
end