program Default;
{$DEFINE SMART}
{$i srl\srl.scar}
{$i Reflection\Reflection.simba}

const
{---SMART Setup Constants---}
  WORLD = 35;
  MEMBERS = false;
  SIGNED = true;
  SUPERDETAIL = false;
{---------------------------}
  hook_static_GrandExchange = 'tp.d';
  hook_GrandExchange = 'ln';
  hook_grandexchange_getStatus = 'ln.h';//.B
  hook_grandexchange_getID = 'ln.f';//.I
  hook_grandexchange_getPrice = 'ln.e';//.I
  hook_grandexchange_getTotal = 'ln.d';//.I
  hook_grandexchange_getTransferred = 'ln.i';//.I
  hook_grandexchange_getSpent = 'ln.b';//.I

var
  i, GEArr: Integer;
begin
  Smart_Members := MEMBERS;
  Smart_Server := WORLD;
  Smart_Signed := SIGNED;

  SetupReflection;
  for i := 0 to 5 do
  begin
    GEArr := SmartGetFieldArrayObject(0, hook_static_GrandExchange, i);
    if (GEArr > 0) then
    try
      writeln(SmartGetFieldInt(GEArr, hook_grandexchange_getID));
      writeln(SmartGetFieldInt(GEArr, hook_grandexchange_getPrice));
      writeln(SmartGetFieldInt(GEArr, hook_grandexchange_getTotal));
      writeln(SmartGetFieldInt(GEArr, hook_grandexchange_getTransferred));
      writeln(SmartGetFieldInt(GEArr, hook_grandexchange_getSpent));
      writeln(SmartGetFieldBoolean(GEArr, hook_grandexchange_getStatus));
    finally
      SmartFreeObject(GEArr);
    end;
  end;
end.