SRL Archive - Discussions and Debates

I heard that you have edited the pinball random. Have you released it yet? Because I tested the current one and it doesn't work so I was wondering if you had released yours to test yours yet to test.

His one will probably be in the next SRL.

program New;

{.include SRL/SRL.scar}

Function TrollsInGoodPos: Boolean;

Var
   TrPoint: TPointArray;
Begin
  ColorToleranceSpeed(2);
  FindColorsTolerance(TrPoint, 7040112, 105, 210, MSX2, MSY2, 25);
  WriteLn('Troll: ' + IntToStr(GetArrayLength(TrPoint)));
  Result := GetArrayLength(TrPoint) > 1500;
End;

var
   mydtm2, i: integer;
   angle: extended;

begin
  mydtm2 := DTMFromString('78DA63E460646070604001BE27E3188481342' +
       '394CF08526385AA26EA6426A61A1F543589E78B50D50800596AA8' +
       '6AC236A7C0D5FC07020022820B78');
  SetupSRL;
  MakeCompass('N');
  HighestAngle;
  ClearDebug;
  MouseSpeed := 1;
  BenMouse := False;
  repeat
    If TrollsInGoodPos Then
    Begin
      colortolerancespeed(0);
      if finddtmrotated(mydtm2, x, y, MSX1, MSY1, MSX2, MSY2,
       -Radians(90), Radians(90), 0.05, Angle) then
      Begin
        mouse(x, y, 0, 0, True);
        WriteLn('Found a Pillar.');
        Wait(5000);
      End;
    End;
    wait(50);
    I := I + 1;
    If I > 50 Then
    begin
      ClearDebug;
      i := 0;
    end;
  until GetColor(378, 258) = 65535;
  FreeDTM(mydtm2);
  WriteLn('Done with pinball.');
end.

Works perfectly however the "TrollsInPostion" functions slows it down but I understand the importance of that.

WOW. That's it? That's all the code in a working Pinball random? wow… that is surprising.

It's simple, but it works great.