The reason why it isn't even giving you errors or reacting with the game is because in your main loop you are supposed to put
as the first line.
So you want something like this
Simba Code:
begin
SetupSRL;//Setups up srl.scar(the file you defined at the top)
ActivateClient;//Another key line. Sets the targeted window on top if you aren't using SMART
Repeat
FindFrog;
Until(True);//Might want to set it to true to prevent a loop that will attempt to fight you to quit. Basically means it will loop it until it finds the frog.
end.
Give that a try and see if you get any motion.
As the the 'Result' issue. When ever you use a function: Boolean; it has to return a result. So that being said you can try.
Simba Code:
Function FindFrog:Boolean;
Var
x, y: Integer;
Begin
If FindObjCustom(x, y, ['Take', 'Swamp', 'toad'], [1991226, 1991226], 5) Then
WriteLn('Found frog');
Result := True;
If not FindObjCustom(x, y, ['Take', 'Swamp', 'toad'], [1991226, 1991226], 5) Then
WriteLn('No frogs here.');
Result := false;
end;
I might be 100% wrong or 100% right. The second part might not be proper or right but it is something to go on until someone else chimes in. Good luck.