SRL Archive - Help and Support

Ok I'm trying to make my script keep track of how many times the colors change on RS.

procedure CheckColors(Which : String);
var
  road, froad, frock, fwater : Boolean;
  xx, yy : Integer;
begin
  Case Which Of
    'road1' :
      begin
        froad := True;
        fwater := True;
      end;
    'road2' :
      begin
        froad := True;
        road := True;
      end;
    'altar1' :
      begin
        frock := True;
        road := True;
      end;
    'altar2' :
      begin
        road := True;
        frock := True;
      end;
    'altarout' :
      begin
        frock := True;
        road := True;
      end;
    'froad' : FRoad := True;
    'aroad' : Road := True;
  end;
  if fwater then if not FindColor(xx, yy, fwatercolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FWaterColor := FindWaterColor;
    ReportVars[14] := ReportVars[14] + 1;
  end;
  if frock then if not FindColor(xx, yy, frockcolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FRockColor := FindRockColor;
    ReportVars[11] := ReportVars[11] + 1;
  end;
  if road then if not FindColor(xx, yy, aroadcolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    ARoadColor := FindRoadColor;
    ReportVars[12] := ReportVars[12] + 1;
  end;
  if froad then if not FindColor(xx, yy, froadcolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FRoadColor := FindFallyRoadColor;
    ReportVars[13] := ReportVars[13] + 1;
  end;
end;

It should check for the color on the minimap and if it's not there, find the color and add one to the report var.

If you look at my script's SRL Stats, though, you can see that CheckColors Rock = 0 and the other ones look right.

My variable setup page looks like this. I don't even use var 15 in my script, why does it have a value? And why does var 11 not have a value when it should?

Also a quick question: When I'm able to figure out why this is, would I be able to reset those vars by making them equal to negative whatever value they have now and sending them? Or can't you send negative numbers or something. That seems like a rather evil way to make someone's script look bad :rolleyes:

SendSRLReport; or SRLRandomsReport;

It does it later in the script.

Still wouldn't explain why the wrong variable has a value.

Oh, the varible it says it -1 so 11 is 10 | 14 is 13.. so on…

procedure CheckColors(Which : String);
var
  road, froad, frock, fwater : Boolean;
  xx, yy : Integer;
begin
  Case Which Of
    'road1' :
      begin
        froad := True;
        fwater := True;
      end;
    'road2' :
      begin
        froad := True;
        road := True;
      end;
    'altar1' :
      begin
        frock := True;
        road := True;
      end;
    'altar2' :
      begin
        road := True;
        frock := True;
      end;
    'altarout' :
      begin
        frock := True;
        road := True;
      end;
    'froad' : FRoad := True;
    'aroad' : Road := True;
  end;
  if fwater then if not FindColor(xx, yy, fwatercolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FWaterColor := FindWaterColor;
    ReportVars[13] := ReportVars[13] + 1;
  end;
  if frock then if not FindColor(xx, yy, frockcolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FRockColor := FindRockColor;
    ReportVars[10] := ReportVars[10] + 1;
  end;
  if road then if not FindColor(xx, yy, aroadcolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    ARoadColor := FindRoadColor;
    ReportVars[11] := ReportVars[11] + 1;
  end;
  if froad then if not FindColor(xx, yy, froadcolor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FRoadColor := FindFallyRoadColor;
    ReportVars[12] := ReportVars[12] + 1;
  end;
end;

Also a quick question: When I'm able to figure out why this is, would I be able to reset those vars by making them equal to negative whatever value they have now and sending them? Or can't you send negative numbers or something. That seems like a rather evil way to make someone's script look bad :rolleyes:

rhere's a lil link when your looking at your script stats that says "reset stats" ;)

~RM