Simba Code:
program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
 {$i SRL\SRL\Misc\Stats.simba}
{$DEFINE SMART}
{$i srl/srl.scar}
{$i sps/sps.simba}
var  x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :=' ';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
End;
program new;
VarPts: TPointArray;
begin
  smart_server := 1;
    smart_members := false;
      smart_signed := true;
        smart_superDetail := false;
          ClearDebug;SetupSRL;
          SPS_Setup(RUNESCAPE_SURFACE,['0_2']);
          pts := [Point(4710, 3764), Point(4809, 3735), Point(4724, 3703), Point(4578, 3704), Point(4523, 3696), Point(4380, 3700), Point(4206, 3715), Point(4160, 3705)];
          SPS_Continue := true;
          end.
Procedure ChopTree;
Var
x,y: Integer;
Begin;
Repeat
If FindObj(x,y,'hop',1785912, 35)Then
Begin
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('willow')or InvFull
Wait(3000)
Repeat
Wait(3000+random(250));
Until not IsUpText('willow')or InvFull
  end;
Until(False);
End;
Var
x,y,I:Integer;


Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
If(FindColorTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
  End;
 end;
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
  End;

begin;
  Smart_Server := 1;
  Smart_Members := False;
  Smart_Signed := false;
  Smart_SuperDetail := False;
  ClearDebug;
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  ChopTree;
  Start;
end.


[Error] C:\Simba\Includes\SRL/SRL/core/simba.simba(12:3): Duplicate identifier 'TDTMPointDef' at line 11
Compiling failed.