SRL Archive - SRL Archives

Function SolveFrogCave:Boolean;

YoHoJo

2006-11-04 03:47:00

Well the frog cave solver never seems to work with me and idk if it works with anyone else.
So i made this one. I know my codeing is very simple but i tested it a few times and it worked quite well. Maybey it can be used as a backup or something if the normal frog cave solver takes too long.
Something like

MakeTime(FrogCaveOne)
If TimeFromMakr(FrogCaveOne)>60000 then
Begin
 FrogCave2;
end;

If you would like an explanation of how this works just ask.

{.include SRL/SRL.scar}
Function FrogCave2:Boolean;
var DTMCave,Frogtime:integer;
begin
DTMCAVE:= DTMFromString('78DA639CC8C4C050C88002CA8BE2184480342' +
       '310FF0702C610A09A00881C2B923A981A1060AC00AAD124A0660D' +
       '116AAA816AF250D504F454A3AA590254538D5F0D00CC1A0DBF');
  If FindDTM(DTMCAVE,x,y,MMX1,MMY1,MMX2,MMY2) then
  Begin
    Writeln('******** FOUND FROG RANDOM ********');
    PerfectNorth;
  end;
  X:=645
  Y:=46
  If FindColorSpiralTolerance(x,y,8096848,MMX1,MMY1,MMX2,MMY2,30)then
  Begin
    MouseFindFlag(x+3,y+10,5,5);
    Flag;
  end;
  MarkTime(FrogTime)
  Repeat
  If FindObj(x,y,'Talk',1614792,10) then
    Mouse(x,y,0,0,false)
    PopUp('Talk')
    TalkToRand;
  Until(TimeFromMark(FrogTime)>20000) or (NoGameTab=False)
  If NoGameTab Then
    Result:=False;
  If (NoGameTab=False) then
    Result:=True;
end;

begin
setupsrl
ActivateClient
SolveFrog2
end.

lardmaster

2006-11-04 11:15:23

cool, recently one of my guys got in a cave, and he didnt solve it.

Sumilion

2006-11-04 11:29:32

I made one myself aswell, it's in the Test Corner forum … Yet no-one wants to add it to srl :(

Here it is : http://www.villu-reborn.com/showthread.php?t=3585

lardmaster

2006-11-04 12:27:22

that would be cool, three different ways to solve the frog! if only it was like that for other randoms :( like box!!!!

Sumilion

2006-11-04 12:52:09

Well, mine nearly works the same however mine works in any angle of the minimap ;)

lardmaster

2006-11-04 13:06:25

ooooh… burn! lol

YoHoJo

2006-11-04 14:20:09

pfft i dont care
PerfectNorth pl0x!
lard are you gona test this on your guy stuck in the cave?