SRL Archive - SRL Bugs

Abyss Random


bgxsaer

2009-04-23 01:56:08

Failed to solve Abyss Random SRL #32 Revision.
Tried 3 times and kept getting wrong one.

***** STR: FOUND RANDOM: 'Abyssal Teleport' *****
Abyss_FindOdd returned True odd appendage is 1 type -1
Found the lever, clicking!
SolveAbyss: Failed finding right answer. Retrying Attempt 1.
Abyss_FindOdd returned False odd appendage is -1 type -1
Found the lever, clicking!
SolveAbyss: Failed finding right answer. Retrying Attempt 2.
Abyss_FindOdd returned False odd appendage is -1 type -1
Found the lever, clicking!
SolveAbyss: Failed finding right answer. Retrying Attempt 3.

Awkwardsaw

2009-04-23 02:10:22

all the abysse solver does is guess ;)

{*******************************************************************************
procedure Abyss_Guess;
By: Nava2
Description: Uses SpiralMouse to guess a random lever, the point being to
refresh the combination to one that may be solvable.
*******************************************************************************}

procedure Abyss_Guess;
var
x, y: Integer;
begin
MakeCompass('n');
Wait(200);
if SpiralMouse(x, y, MSX1, MSY1, MSX2, MSY2, 'ppend', 30, 8) then
begin
Mouse(x, y, 0, 0, False);
Wait(RandomRange(100, 150));
Abyss_Guessed := ChooseOption('pperat');
end else
begin
Writeln('Could not find a guess.');
LogOut;
end;
end;

that could be why it keeps failing

Nava2

2009-04-23 03:31:19

From: akwardsaw
all the abysse solver does is guess ;)

{*******************************************************************************
procedure Abyss_Guess;
By: Nava2
Description: Uses SpiralMouse to guess a random lever, the point being to
refresh the combination to one that may be solvable.
*******************************************************************************}

procedure Abyss_Guess;
var
x, y: Integer;
begin
MakeCompass('n');
Wait(200);
if SpiralMouse(x, y, MSX1, MSY1, MSX2, MSY2, 'ppend', 30, 8) then
begin
Mouse(x, y, 0, 0, False);
Wait(RandomRange(100, 150));
Abyss_Guessed := ChooseOption('pperat');
end else
begin
Writeln('Could not find a guess.');
LogOut;
end;
end;

that could be why it keeps failing


No, it attempts to logically deduce which is the odd one out. But, for the life of me, I cannot figure out why it won't find the ones that look close to the walls.

It defaults to guess if it can't find it. You were unlucky with your combinations, my friend.