I know I'm doing something stupid, I just can't figure out where! In this custom procedure with 1000 parameters, it says the error is on line 87 (shown in code below)
SCAR Code:
{Setting 1 = Stay offline Setting 2 = Log back on}
procedure WaitR(reason: string; time, randomness, setting: integer; antiban, randoms, logout: boolean);
begin
Writeln('INFO: ' + reason + ': ' + IntToStr(time));
if (antiban) then AntiBan;//HERE I AM! I'M THE CUTE LITTLE ERROR!!
if (randoms) then FindNormalRandoms;
if (logout) then LogOut;
Wait(time+random(randomness));
case (setting) of
1: Writeln('INFO: WaitR/ Staying offline.');
2: begin LogInPlayer; Writeln('INFO: Logged back on'); end;
end;
end;