Function SolveFrogCave:Boolean;
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.
