It could be changed with a simple edit.
Add two integer variables in text.simba
- KeyMS
- RandKeyMS
These can be changed like MouseSpeed. Just replace the waits with the variables.
If a user chooses not to set their own, the default (40) can be set for both.
var
OldLine, TheLine, TheName: string;
KeyMS, RandKeyMS : Integer;
{ const clMessage, clChat, clTrade, clFriend
Description: Text colour constants. }
const
clMessage = clBlack;
clChat = clBlue;
clTrade = clPurple;
clFriend = 128;
//CODE CUT
{*******************************************************************************
procedure TypeSendEx(Text: string; PressEnter: Boolean);
By: SKy Scripter
Description: Sends human like text.
*******************************************************************************}
procedure TypeSendEx(Text: string; PressEnter: Boolean);
var
S: string;
I, L: Integer;
Shift: Boolean;
begin
if KeyMS = 0 then
KeyMS = 40;
if RandKeyMS = 0 then
RandKeyMS = 40;
S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
L := Length(Text);
for I := 1 to L do
begin
Shift := (Pos(Text[i], S) > 0);
if (Shift) then
begin
KeyDown(VK_SHIFT);
Wait(KeyMS + Random(RandKeyMS));
while (Pos(Text[i], S) > 0) and (I <= Length(Text)) do
begin
TypeByte(GetKeyCode(Text[I]));
Wait(KeyMS + Random(RandKeyMS));
Inc(I);
if (I > Length(Text)) then Break;
end;
end;
if (Shift) then
KeyUp(VK_SHIFT);
Wait(KeyMS + Random(RandKeyMS));
if (I <= Length(Text)) then
begin
TypeByte(GetKeyCode(Text[I]));
Wait(KeyMS + Random(RandKeyMS));
end;
end;
if (PressEnter) then
TypeByte(GetKeyCode(Chr(13)));
end;