Simba Code:
program DustDevils;
//{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i srl/srl/misc/debug.simba}
const
Username = 'xxxxxx';
Password = 'xxxxxx';
TrainedSkill = 'Attack'; // Attack, Strength, Defence, Range
XPCounter = 2; // 1,2,3 (1st is usually total xp counter, so set trained level's counter to 2nd)
EatAt = 650;
Version = 1.0;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
with Players[0] do
begin
Name := UserName;
Pass := Password;
Active := True; //Blue Charms
end;
end;
procedure Attack;
var
cx,cy :Integer;
begin
//FindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
If FindObjCustom(cx,cy,['Attack Dust' , 'Dust' , 'Devil', 't d'], [5810887, 4818599, 4622238, 6006479], 10) Then
WriteLn('Founda a Dust Devil!');
End;
begin
SetupSRL;
DeclarePlayers;
//Repeat
Attack;
//Until (false);
end.
Problems:
I removed Define Smart, because you included already as a Include.
+ I commented out the Current Include SMART Line, so you can test this directly in browser.
Second thing is
Simba Code:
If FindObjCustom(cx,cy,['Attack Dust' , 'Dust' , 'Devil', 't d'], [5810887, 4818599, 4622238, 6006479], 10)
As you can see, now it is correctly, you were using Strings when it was asking Integers (Colors).
TStringArray = ['1', '2', '3', '4']
TIntegerArray = [1, 2, 3, 4]
Above are just an example how they should be declared.
Hit me up with questions, if any.
Keep it up mate! 
~Home