I expect to make this into a great script, and to beat the "SEND TO STAFF" feature they recently put in.
I YOU'RE NEED HELP!
What I currently need -
The keys that pop up in the bubble (the yellow one)... The most common.
ANY CODING HELP POSSIBLE . I would really appreciate any thing you have to offer, as long as it is of worth some value. I would really apreciate help on anti ban stuff.
PS. how do I repeat something 3 times?
SCAR Code:
{MADE BY R0B0T1!!!!!!
Dont' redistribute without this notice.
This is free, if you paid, your got scammed}
program TugOWar;
Var
x, y:Integer;
Procedure Waitl;
begin;
Wait(30+random(11));
end;
Procedure Waitsm;
begin;
Wait(0+random(6));
end;
Procedure Check;
begin;
If (FindColorTolerance(x, y, 3983593, 40, 5, 215, 85, 50))Then
begin;
KeyDown(GetKeyCode('q'));
KeyDown(GetKeyCode('w'));
KeyDown(GetKeyCode('e'));
Waitl; Waitsm;
KeyUp(GetKeyCode('q'));
KeyUp(GetKeyCode('w'));
Keyup(GetKeyCode('e'));
KeyDown(GetKeyCode('q'));
KeyDown(GetKeyCode('w'));
KeyDown(GetKeyCode('e'));
Waitl; Waitsm;
KeyUp(GetKeyCode('q'));
KeyUp(GetKeyCode('w'));
Keyup(GetKeyCode('e'));
KeyDown(GetKeyCode('q'));
KeyDown(GetKeyCode('w'));
KeyDown(GetKeyCode('e'));
Waitl; Waitsm;
KeyUp(GetKeyCode('q'));
KeyUp(GetKeyCode('w'));
Keyup(GetKeyCode('e'));
end;
begin;
repeat;
Check;
KeyDown(GetKeyCode('v'));
KeyDown(GetKeyCode('x'));
KeyDown(GetKeyCode('n'));
KeyDown(GetKeyCode('c'));
KeyDown(GetKeyCode('b'));
KeyDown(GetKeyCode('m'));
waitl; waitsm;
KeyUp(GetKeyCode('v'));
KeyUp(GetKeyCode('x'));
KeyUp(GetKeyCode('n'));
KeyUp(GetKeyCode('c'));
KeyUp(GetKeyCode('b'));
KeyUp(GetKeyCode('m'));
until(False);
end.
Any comments?