Code:
program Train;
{$I SRL-6/SRL.Simba}
var
Count, AntiBanCount, X, Y: Integer;
procedure EquClick
begin
mouseSpeed := (randomRange(6, 45));
Mouse(814, 627, 20, 30, MOUSE_LEFT);
wait(randomRange(1500, 2500));
Count := Count +1;
end;
procedure SomthingDiffrent
begin
AntiBanCount := AntiBanCount +1;
if(AntiBanCount = (randomRange(8, 20)))then // THIS IS THE PART I NEED HELP WITH
begin
mouseSpeed := (randomRange(28, 40));
Mouse(830, 639, 5, 1, MOUSE_LEFT);
wait(randomRange(312, 743));
Mouse(1524, 698, 5, 1, MOUSE_LEFT);
wait(randomRange(312, 743));
writeln('Antiban Completed on count '+IntToStr(AntiBanCount));
AntiBanCount := 0;
end else
begin
end
end;
begin
Count := 0;
AntiBanCount := 0;
repeat
EquClick;
SomthingDiffrent;
//writeln('count is '+IntToStr(Count));
//if not(Findcolor(X,Y, 7494225, 756, 575, 934, 728))then
//begin
//Mouse(1521, 995, 5, 1, MOUSE_LEFT);
// wait(randomRange(300, 456));
//Mouse(1516, 945, 5, 1, MOUSE_LEFT);
//writeln('Lost fishing spot, Logged out');
// Count := 101;
// end
writeln('Antiban count '+IntToStr(AntiBanCount));
until(Count=101);
Mouse(1521, 995, 5, 1, MOUSE_LEFT);
wait(randomRange(300, 456));
Mouse(1516, 945, 5, 1, MOUSE_LEFT);
end.