SCAR Code:
program New;
var
Messages : TStringArray;
i : integer;
procedure iType(Text : string; WaitTime : integer; Return : boolean);
var
i: integer;
s : string;
begin
s := '~!@#$%^&*()_+ABCDEFGHIJKLMNOPQRSTUVWXYZ{}|:"<>?';
for i := 1 to Length(Text) do
begin
if pos(Text[i], s) > 0 then
begin
KeyDown(VK_SHIFT);
Wait(WaitTime + Random(15) + Random(50));
end;
KeyDown(GetKeyCode(Text[i]));
Wait(WaitTime + Random(30));
KeyUp(GetKeyCode(Text[i]));
Wait(WaitTime + Random(30));
if pos(Text[i], s) > 0 then KeyUp(VK_SHIFT);
end;
if Return then
begin
Wait(10 + Random(30));
KeyDown(VK_RETURN);
Wait(10 + Random(30));
KeyUp(VK_RETURN);
end;
end;
begin
Messages := ['!hey$$', '!@lol~', 'iM bored!@^^'];
for i := 0 to high(Messages) do
begin
iType(Messages[i], 35, true);
Wait(60 + random(60));
end;
end.