SRL Archive - Help and Support

While at school got this random while i was gone took a picture hope you guys have fun with this! O was while running darkness's chicken fighter.

I think we have a pinball solver :)

{*******************************************************************************
function SolvePinball: Boolean;
by: pups
Description: Solves the pinball random
*******************************************************************************}

function SolvePinball: Boolean;
var
  ringsDTM: integer;
  x, y: integer;
  t: integer;
begin
  if ((GetColor(83, 431) = 0) and (GetColor(88, 418) = 0)) or
    ((GetColor(83, 430) = 0) and (GetColor(88, 417) = 0)) or
    ((GetColor(151, 426) = 0) and (GetColor(470, 393) = 0) and (GetColor(372, 370) = 128)) then
    writeln('Found pinball random, solving...')
  else
    exit;
  if ((GetColor(151, 426) = 0) and (GetColor(470, 393) = 0) and (GetColor(372, 370) = 128)) then
    repeat
      if not loggedin then break;
    until not ClickToContinue;
  t := GetSystemTime;
  ringsDTM := DTMFromString('78DA631461646070664001CE5BC218E480345' +
    '086E13F103082D4D8A1AAC9CECB80AB0101B01A7754355939E9A8' +
    '6A44812C2B5435AE3B107631C2CCF14153B30DA1860988015A3A0' +
    'CC7');
  result := false;
  repeat
    wait(1);
    if not LoggedIn then begin
      result := false;
      exit;
    end;
    if FindMSDTM(x, y, ringsDTM) then begin
      mmouse(x, y, 0, 0);
      if IsUpText('Tag') then begin
        mouse(x, y, 0, 0, true);
        wait(5000 + random(2000));
      end;
    end;
    if (GetColor(153, 431) = 0) and (GetColor(211, 427) = 0) or
      (GetColor(153, 430) = 0) and (GetColor(211, 426) = 0) then begin
      result := true;
      break;
    end;
  until GetSystemTime - t > 5 * 60 * 1000;
  FreeDTM(ringsDTM);
  if result then begin
    MakeCompass('s');
    SendArrowSilentWait(2, 1000 + random(300));
    Mouse(278, 58, 20, 20, true);
    wait(2000 + random(200));
    t := GetSystemTime;
    repeat
      x := (MSX1 + MSX2) div 2 + random(200) - 100;
      y := random(40) + 2;
      if FindColorSpiralTolerance(x, y, 8491891, MSX1, MSY1, MSX2, MSY2, 20) then begin
        mmouse(x, y, 0, 0);
        if IsUpText('Exit') or IsUpText('Talk') then begin
          mouse(x, y, 0, 0, false);
          if ChooseOption(x, y, 'Exit') then
            break;
        end;
      end;
    until GetSystemTime - t > 60 * 1000;
    if GetSystemTime - t > 60 * 1000 then
      result := false;
  end
    if not result then begin
      LogOut;
      exit;
    end;
  MakeCompass('N');
  SendArrowSilentWait(0, 1000 + random(300));
  wait(5000 + random(1000));
end;

Its the Pinball Random. I'm pretty sure its solved, but it doesn't work 100% of the time. SolvePinball; solves it in FindNormalRandoms I am pretty sure. Good effort though. :)

From: Cheesehunk
Its the Pinball Random. I'm pretty sure its solved, but it doesn't work 100% of the time. SolvePinball; solves it in FindNormalRandoms I am pretty sure. Good effort though. :)

      15: SaveToChatLog;
//      16: if SolvePinball then
//            Result := True;
      17: if SolveFrog then
              Result := True;

Apparently it got commented out in FindNormalRandoms.

From: WhiteShadow

Apparently it got commented out in FindNormalRandoms.

Because it isn't working 100% as I said. I forgot it got commented out.. :p I also didn't realize that someone posted the answer before me… Whoops!