SCAR Code:
procedure TypeSentence(Sentence: String);
(*****Created by Mutant Squirrle - Modified by IP-Drowner*****)
(*****Added Caps Lock Keys - You can now type CAPITAL LETTERS*****)
var
p,i: byte;
ShiftKey: Boolean;
Caps: TStringArray;
begin
Caps := ['~','!','@','#','$','%','^','&','*','(',')','_','+','A','B','C','D','E','F',
'G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y',
'Z','<','>','?',':','"','{','}','|']
for p := 0 to Length(Sentence) do
begin
for i := 0 to 46 do
begin
ShiftKey := (Sentence[p] = Caps[i]);
if ShiftKey then Break;
end;
if ShiftKey then
begin
KeyDown(VK_Shift);
Wait(10+random(13));
SendLetter(GetKeyCode(Sentence[p]));
KeyUp(VK_Shift);
end else SendLetter(GetKeyCode(Sentence[p]));
Wait(25+Random(50));
end;
SendLetter(13);
end;
procedure SendMouse(x,y,rx,ry: Integer);
(*****Created By IP-Drowner*****)
(*****Moves the mouse to a specified location*****)
begin
MoveMouseSpline(x,y,rx,ry);
MoveMouseSpline(x+1+Random(10),y+1+Random(10),rx+1+Random(8),ry+1+Random(8));
end;
function FindClient(Name: String): Boolean;
(*****Created By IP-Drowner*****)
(*****Will find a part of the specified window name. If found will return true
and will switch windows - CaSe SenSItIve*****)
begin
Result := FindWindowTitlePart(Name, True)
if Result then ActivateClient;
end;
function GetColorAt(x, y, colour: Integer): Boolean;
(*****Created By IP-Drowner*****)
(*****Will Find Specified Colour At Specified Coordinates*****)
begin
Result := (GetColor(x,y) = colour);
end;