SRL Archive - SRL Archives

This is something I'd like to see in the future. Ive never found anything like that in the previouse srl version (Except this one procedure, but it was for rev 34), I think this will be very useful.

if FindNormal Randoms will detect if you are in a random?

but that solves it.

function InRandom: Boolean;
begin
  if(Rand_GetRandomType > 0)then
    Result := True;
end;

Thanks ian. I'll test it out when freddy release the new scar ^^

He has a prerelease. Use this in Tortoise.. http://Freddy1990.com/svn/scarprerelease

From my aircrafter

function m_FindRandoms: boolean;
var
  TypeID, H, HH, I, J: integer;
  B: TBox;
  Rand_Music: string;
  RandResult: boolean;
begin
  TypeID := Rand_GetRandomType;
  H := High(TeleRandoms);
  for I := 0 to H do
  begin
    if (TypeID = TeleRandoms[I].TypeID) then
    begin
      if (TeleRandoms[I].IsInRandom <> nil) then
        RandResult := TeleRandoms[I].IsInRandom();
      if (TeleRandoms[I].IsInRandom = nil) or (RandResult) then
      begin
        Result := (Length(TeleRandoms[I].Texts) = 0) and (TeleRandoms[I].Music = '');
        if (not(Result)) and (TeleRandoms[I].Music <> '') then
        begin
          if (Rand_Music = '') then Rand_Music := Lowercase(GetMusic);
          Result := (Rand_Music = TeleRandoms[I].Music);
        end;
        if (not(Result)) and (Length(TeleRandoms[I].Texts) > 0) then
        begin
          HH := High(TeleRandoms[I].Texts)
          for J := 0 to HH do
          begin
            B := TeleRandoms[I].TextBoxes[J];
            Result := (FindTextTPA(TeleRandoms[I].TextColors[J], 0, B.X1, B.Y1, B.X2, B.Y2, TeleRandoms[I].Texts[J], TeleRandoms[I].TextFonts[J], Nothing));
            if (Result) then
            begin
             players[currentplayer].Loc := TeleRandoms[I].Name; // <--  you can comment this out
             Alert('Random detected!'); // <--  you can comment this out
             Break;
            end;
          end;
        end;
      end;
    end;
  end;
  FindNormalRandoms; // <-- you can comment this out
end;

Err.. Marpis, mine will work just the same, I think. :p

From: ian.
Err.. Marpis, mine will work just the same, I think. :p

Nope, it will always either return 1 or 2. Never 0.

Which 1 or 2 declare that its in random? (Don't have srl atm)

From: Main_Ftw
Which 1 or 2 declare that its in random? (Don't have srl atm)

i may be totally wrong but i think 1 or 2 counts the tabs to figure out what random it is in

No idea do this even work :P

function InRandom: Boolean;
begin
    Result := Rand_GetRandomType > 0;
end;

~Home :P