SRL Archive - Reflection Help

Is Reflection Down or Not working or something. I can get basic functinos like R_SetAngle to work, but i cannot get anything with TGroundItems to work properly…

Heres an example of what is not working:

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Reflection/Reflection.scar}


procedure DeclarePlayers;  
begin

  NumberOfPlayers(1);
  CurrentPlayer := 0;

  Players[0].Name := '';     
  Players[0].Pass := '';     
  Players[0].Nick := '';         
  Players[0].Active := True;        

end;


Procedure GGI;
var
i: integer;
Items: array of tgrounditem;
begin
     GetAllGroundItems(Items,0);
     for i:=0 to high(Items) do
     begin
          writeln(items[i].ID);
     end;
end;


begin
SmartSetupEx(123, false, True, False);
SetTargetDc(SmartGetDC);
SetUpSrl;
SetupReflection;
DeclarePlayers;
RSReady;
LoginPlayer;
GGI;
end.

Anything wrong there?

Change the second parameter in GetAllGroundItems from zero to something higher, say five or ten.

:duh:

I feel soo stupid….