No, something like this:
SCAR Code:
Program New;
{.include srl/srl.scar}
var
Array1 : Array of String;
Array2 : Array of Integer;
Function FunDuel : String;
Var
P : Integer;
Begin
Case Random(Array2[0] + Array2[1] + Array2[2] + Array2[3] + Array2[4] + Array2[5]) Of
0..Array2[0] : Begin
Result := Array1[0];
Inc(Array2[0]);
End;
Array2[0]..Array2[1] + Array2[0] : Begin
Result := Array1[1];
Inc(Array2[1]);
End;
Array2[1]..Array2[2] + Array2[1] : Begin
Result := Array1[2];
Inc(Array2[2]);
End;
Array2[2]..Array2[3] + Array2[2] : Begin
Result := Array1[3];
Inc(Array2[3]);
End;
Array2[3]..Array2[4] + Array2[3] : Begin
Result := Array1[4];
Inc(Array2[4]);
End;
Array2[4]..Array2[5] + Array2[4] : Begin
Result := Array1[5];
Inc(Array2[5]);
End;
End;
If Result = '' Then
Begin
P := Random(6);
Result := Array1[P];
Inc(Array2[P]);
End;
End;
Begin
SetupSrl;
ClearDebug;
Array1 := ['funning all', 'fun dueling', 'funning everyone', 'dueling for fun', 'funning', 'funning anyone'];
Array2 := [1, 2, 3, 4, 5, 6];
Repeat
WriteLn(Funduel)
wait(1);
Until(IsFkeyDown(9))
AddToReport(IntToStr(Array2[0]));
AddToReport(IntToStr(Array2[1]));
AddToReport(IntToStr(Array2[2]));
AddToReport(IntToStr(Array2[3]));
AddToReport(IntToStr(Array2[4]));
AddToReport(IntToStr(Array2[5]));
End.
Got it working
.