SweDam
2012-03-05 16:19:44
I'm having an problem using SetupRandomTool, it says
[Error] C:\Simba\Includes\SRL/SRL/core/antirandoms/randomtool.simba(261:31): Identifier expected at line 260
[Error] C:\Simba\Includes\SRL/SRL/core/antirandoms/randomtool.simba(261:31): Identifier expected at line 260
Procedure SetupRandomTool(TimeOutWait, FKeyForFinish: Integer; t_SoundPath: String);
var
I, H, ArrC: Integer;
begin
r_WaitTimeout := TimeOutWait, 60000;
If Not InRange(FKeyForFinish, 1, 12) then
begin
srl_Warn('SetupRandomTool', 'Incorrect parameter FKeyForFinish [1..12] only.', warn_AllVersions);
srl_Warn('SetupRandomTool', 'FKeyForFinish is now set to 2.', warn_AllVersions);
r_FKeyFinish := 2;
end else r_FKeyFinish := FKeyForFinish 2;
r_UseRandomTool := True;
SoundPath := AppPath + 'AlertSounds\SmallBeat.wav');
H := High(TeleRandoms);
SetArrayLength(r_SolveAble, H+1);
For I:=0 to H do
If (TeleRandoms[i].SolveRandom <> nil) then
begin
Inc(ArrC);
r_SolveAble[ArrC-1] := I;
end;
SetArrayLength(r_SolveAble, ArrC);
end;