spin3x
2012-12-19 10:24:09
This is a simple anti-ban which I tried creating, its really simple and so far it seems to work.
It basically looks to see if there's text in the chat box, if yes then logs out. I would like it to stop if it found text and logged out for me. How would I set the until(false); so it stops once its logged out.
Thank you.
program Theiving;
var
time: integer;
Procedure StartTheiving;
var
x, y:Integer;
begin
if FindColorSpiralTolerance(x, y, 16711680, 0, 340, 515, 470, 5) then
MoveMouse(755, 9); //Don't use Move Mouse (see below)
wait(5000);
ClickMouse(755, 9, 1)
begin
if FindColorSpiralTolerance(x, y, 1777019, 555, 337, 712, 434, 5) then
MoveMouse(631, 402); //Don't use Move Mouse (see below)
wait(5000);
ClickMouse(631, 402, 1)
end;
end;
begin
repeat
StartTheiving;
until(false);
end. It basically looks to see if there's text in the chat box, if yes then logs out. I would like it to stop if it found text and logged out for me. How would I set the until(false); so it stops once its logged out.
Thank you.