It's my first time, I need help making one or getting the codes what i need.
Simba Code:
program Falcon;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Active := true;
end;
end;
procedure Falcon;
var
x, y : Integer;
begin
writeln('Looking for Spotted Kebbits');
If FindColorTolerance(x, y, 3954283, 0, 0, 376, 523, 15) Then
writeln('Catching Spotted Kebbits ');
Mouse(x, y, 0, 0, True);
clickmouse2(mouse_Right);
wait(300);
end;
begin
SetupSRL();
SetupP07Include;
ActivateClient;
Wait(1000);
If (Not P07_LoggedIn) Then
begin
P07_LogInPlayer;
end;
repeat
until (Not P07_LoggedIn)
end.
begin
ClearDebug;
Falcon;
end.
The mouse doesn't move to the spotted Kebbits.