I tried to shorten this code using arrays but massively failed. If anyone can shorten it, i wouldn't mind giving you a rep +.
SCAR Code:
procedure CheckShark;
var
next, next1, next2, next3: integer;
start, start1, start2, start3: integer;
begin
if InvFull then Exit;
Respond;
AntiBan;
start := InvCount;
Writeln('Your inv: '+ IntToStr(start));
RWaitAnti(10000,500);
AntiBan;
next := InvCount;
Writeln('Original inv: '+ IntToStr(start));
Writeln('New inv: ' + IntToStr(next));
if InvFull then Exit;
if start < next then start1 := InvCount;
if start = next then Exit;
RWaitAnti(10000,500);
AntiBan;
next1 := InvCount;
Writeln('Original inv: '+ IntToStr(start1));
Writeln('New inv: ' + IntToStr(next1));
if InvFull then Exit;
if start1 < next1 then start2 := InvCount;
if start1 = next1 then Exit;
RWaitAnti(10000,500);
AntiBan;
next2 := InvCount;
Writeln('Original inv: '+ IntToStr(start2));
Writeln('New inv: ' + IntToStr(next2));
if InvFull then Exit;
if start2 < next2 then start3 := InvCount;
if start2 = next2 then Exit;
RWaitAnti(10000,500);
AntiBan;
next3 := InvCount;
Writeln('Original inv: '+ IntToStr(start3));
Writeln('New inv: ' + IntToStr(next3));
if InvFull then Exit;
if start3 < next3 then RWaitAnti(10000,500);
if start3 = next3 then Exit;
end;
SCAR Code:
function RWaitAnti(Time,randomtime: integer): integer;
var
Time1, Random1, Repeats, Number: integer;
WriteIt : string;
begin
repeat
if InvFull then Exit;
Time1 := Time/4;
Random1 := randomtime/4
AntiBan;
Wait(Time1+ random(Random1));
Repeats := Repeats + 1;
until(Repeats > 4)
end;
It's really long..