Function SolveFrogCave:Boolean;

**YoHoJo** · 11-04-2006, 08:47 AM

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

SCAR Code:

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

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

SCAR Code:

{.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.