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;