Need Text Include Please

[Dusk412]

I accidently edited my TypeSend procedure in Includes/SRL/SRL/core/Text.scar and I tried to redownload it all but it did not replace it for some reason. Anyway can someone either upload theirs here or just copy paste it in some SCAR tags for me. Thanks in advance.

[benjaa]

{************************************************* ******************************
procedure TypeSend(Text: string);
By: SKy Scripter
Description: Sends human like text.
************************************************** *****************************}
procedure TypeSend(Text: string);
var
S: string;
I: Integer;
C: Byte;
Shift: Boolean;
begin
S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
for I:= 1 to Length(Text) do
begin
Shift:= (Pos(Text[i], S) > 0);
if(Shift)then
begin
KeyDown(VK_SHIFT) Wait(40 + Random(40));
while(Pos(Text[i], S) > 0)and(I <= Length(Text))do
begin
C := GetKeyCode(StrGet(Text, I));
TypeByte(c);
I:= I + 1;
if(I > Length(Text))then Break;
end;
end;
if(Shift)then
KeyUp(VK_SHIFT);
Wait(40 + Random(40));
if(I <= Length(Text))then
begin
C:= GetKeyCode(StrGet(Text, I));
TypeByte(C);
Wait(40 + Random(40));
end;
end;
C := GetKeyCode(Chr(13));
TypeByte(C);
end;