Class KFGUI_TextScroll extends KFGUI_TextField;

`include(Build.uci)
`include(Logger.uci)

var float ScrollSpeed;

var transient float CharStartTime;
var transient bool bScrollCompleted, bTextDirty;
var transient array < bool> RowsCompleted;
var transient int MaxIndex, RowsDropped;

function SetText( string S)
{
	Super.SetText(S);

	MaxIndex = 0;
	RowsCompleted.Length = 0;
	RowsDropped = 0;

	bScrollCompleted = false;
	bTextDirty = true;
	CharStartTime = GetPlayer().WorldInfo.TimeSeconds;
}

function DrawMenu()
{
	local int i,j,k,SLen,CurrentIndex;
	local float Y, DTime, XL, YL, MainY, MainX, CharTime;
	local string MainString;
	local Color MainTextColor;
	local Texture CurrentCursor;
	local ETextFieldStyles TextStyle;

	if (bScrollCompleted)
	{
		Super.DrawMenu();
		return;
	}

	if (Text == "")
		return;

	// Need to figure out best fitting font.
	if (OldSize[0] != CompPos[2] || OldSize[1] != CompPos[3])
		InitSize();

	Canvas.Font = InitFont;

	if (bShowScrollbar)
	{
		Canvas.SetClip(CompPos[0]+(CompPos[2]-ScrollWidth),CompPos[1]+CompPos[3]);
		i = ScrollBar.GetValue();
	}
	else i = 0;

	if (ScrollBar != None)
	{
		if (bTextDirty)
		{
			ScrollBar.bDisabled = true;
			RowsCompleted.Length = Lines.Length;
			bTextDirty = false;
		}

		if (RowsCompleted[Lines.Length-1])
		{
			ScrollBar.AddValue(1);
			ScrollBar.bDisabled = false;
			bScrollCompleted = true;

			//Temp fix! The last line in the string seems to be skipped
			AddText(LineSplitter);

			return;
		}
		else if (MaxIndex != 0 && RowsCompleted[MaxIndex])
		{
			MaxIndex = 0;
			ScrollBar.AddValue(1);

			RowsDropped++;

			i = ScrollBar.GetValue();
		}
	}

	if (RowsDropped > 0)
	{
		for (i=0; i <= RowsDropped; ++i)
		{
			for (j=0; j < Lines[i].Text.Length; ++j)
			{
				for (k=0; k <= Len(Lines[i].Text[j].S); ++k)
				{
					CharTime += ScrollSpeed;
				}
			}
		}
	}

	DTime = `TimeSinceEx(GetPlayer(), CharStartTime);
	if (i < Lines.Length)
	{
		CurrentCursor = Owner.DefaultPens[GetCursorStyle()];
		Y = Lines[i].Y;
		for (i=i; i < Lines.Length; ++i)
		{
			if ((Lines[i].Y-Y+TextHeight) >= CompPos[3])
			{
				MaxIndex = i-1;
				break;
			}

			if (Lines[i].Text.Length != 0)
			{
				for (j=0; j < Lines[i].Text.Length; ++j)
				{
					MainTextColor = Lines[i].Text[j].C;
					if (MainTextColor.A == 0)
						MainTextColor = TextColor;

					TextStyle = Lines[i].Text[j].TextType;

					MainX = Lines[i].Text[j].X;
					MainY = Lines[i].Y-Y;
					MainString = Lines[i].Text[j].S;
					SLen = Len(MainString);

					CurrentIndex = 0;
					for (k=0; k <= SLen; ++k)
					{
						CharTime += ScrollSpeed;

						Canvas.TextSize(Mid(MainString, 0, k), XL, YL, InitFontScale, InitFontScale);

						if (CharTime > DTime)
						{
							if (CurrentIndex == k)
							{
								Canvas.SetDrawColor(255,255,255,255);
								Canvas.SetPos(MainX+XL,MainY);
								Canvas.DrawTile(CurrentCursor, YL/2, YL, 0, 0, CurrentCursor.GetSurfaceWidth(), CurrentCursor.GetSurfaceHeight());
							}

							continue;
						}

						Canvas.DrawColor = GetColorFromStyle(MainTextColor, TextStyle);
						Canvas.SetPos(MainX+XL,MainY);
						Canvas.DrawText(Mid(MainString, k, 1),,InitFontScale,InitFontScale,TextFontInfo);

						CurrentIndex = k+1;

						if (k >= SLen)
						{
							RowsCompleted[i] = true;
						}
					}
				}
			}
		}
	}
}

function bool CaptureMouse()
{
	return (!bScrollCompleted && Super(KFGUI_MultiComponent).CaptureMouse()) || Super.CaptureMouse();
}

function MouseClick( bool bRight)
{
	if (bScrollCompleted)
		return;

	if (ScrollBar != None)
		ScrollBar.bDisabled = false;

	bScrollCompleted = true;

	//Temp fix! The last line in the string seems to be skipped
	AddText(LineSplitter);
}

defaultproperties
{
	ScrollSpeed=0.01
}