program ReflectionScript;
{$DEFINE SMART}
{$i SRL/SRL.scar}
{$i Reflection/Reflection.simba}



(*=========== Setup your players! ===========*)
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  with Players[0] do
  begin
    Name        := '';
    Pass        := '';
    Nick        := '';
    Member      := True;
    Active      := True;
  end;
end;
(*===========================================*)

procedure Setup;
begin
  Smart_Server := 35
  Smart_Signed := True;
  Smart_SuperDetail := False;

  SetupSRL;
  DeclarePlayers;
  Writeln('Ready');
end;

var
  Tile: TTile;


begin
  Setup;

  Tile := R_GetMyPos;
  R_GetObjectAt(Point(Tile.X, Tile.Y+1), OBJ_INTERACTABLE);
  R_GetObjectAt(Point(Tile.X, Tile.Y+2), OBJ_INTERACTABLE);
  R_GetObjectAt(Point(Tile.X, Tile.Y+3), OBJ_INTERACTABLE);
end.