SRL Archive - OSR Help

Whats up with my script? smart isnt launching….

program MahMiner;

{$i SRL\SRL.simba}
{$i SPS/SPS.simba}
{$DEFINE SMART} // COMMENT IF YOU DONT WANT SMART


var
objo:Integer;

  procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'LOL'; //Your Runescape username here.
Players[0].Pass := 'HAHA GOT YOU'; //Your Runescape password here.
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.
end;
Procedure Proggy;
begin
writeln('*******************************');
writeln('Blackstab1337s Miner. Enjoy!!');
writeln('You have been running for: ' + TimeRunning);
writeln('You have Mined/chopped/fished/etc: ' + IntToStr(objo));
writeln('*******************************');
End;

function RockColour: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.08);

  if not (FindColorsTolerance(arP, 2569305, MSX1, MSY1, MSX2, MSY2, 9)) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    Result := arC[i];
    //Writeln('AutoColor = ' + IntToStr(arC[i]));
    Break;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    //Writeln('AutoColor failed in finding the color.');
end;

Procedure StatsGuise(wat:String);
begin
 Status(wat);
end;
Function Rock:boolean;
var
X,Y,PlusOne,Time:Integer;
begin
X := MSCX;
Y := MSCY;
PlusOne := InvCount +1;
if FindObjCustom(X, Y, ['Mine', 'Mine Iron'], [RockColour], 5) Then
Begin
StatsGuise('Found the Rock!');
Mouse(X,Y,5,5,true);
Flag;
MarkTime(Time);
Repeat

  wait(1000);
Until(InvCount = PlusOne) Or (TimeFromMark(Time) > 10000)
 if InvCount = PlusOne then
inc(objo);
End;
End;






begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
FindNormalRandoms;
Repeat
//ACA procedure and chop/mine/fish/mousepress/etc goes here.
RockColour;
Rock;
if(InvFull) then
begin
//Drop/bank and/or walking procedure goes here...
DropAll;
ClearDebug;
Proggy;
End;
Until(false)
end.

For ease of reading:
http://paste.villavu.com/show/BocoBlGXvPISFwwxRK45/

What does it say in the debug box

Place {$DEFINE SMART}
before
{$i SRL\SRL.simba}

From: riwu
Place {$DEFINE SMART}
before
{$i SRL\SRL.simba}

K Thanks mate