SRL Archive - OSR Help

Assignment Expected


DeSnob

2010-05-14 08:08:28

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)

{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;

Wizzup?

2010-05-14 08:29:12

I took a quick glance, and perhaps the problem lies in the fact that your variables have the same names as procedures. Name them like myvarLogout, myvarAntiban, etc.

Gu3st...

2010-05-14 08:59:10

Is SCAR/Simba/PascalScript, variables and stuff like that isn't case sensitive. AntiBan = antiban :)