SRL Archive - S.M.A.R.T. Questions and Answers.

Hi again
So i run this

Program ReflectionBasic;
{$DEFINE SMART}
{$i srl\srl.scar}
{$i reflection\reflection.simba}

Const
{---SMART Setup Constants---}
  WORLD = 32;
  MEMBERS = false;
  SIGNED = true;
{---------------------------}

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] Do
  Begin
    Name := 'kill joymate';
    Pass := 'steelpanther';
    Nick := 'joy';
    Active := True;
    Pin := '';
  End;
End;

Procedure DoNPC;
Var NPCs:TNPCArray;
     I,II  :Integer;
Begin
  Repeat
    NPCs := SortNPCs(GetNPCs);
    Writeln('--NPCs--');
    For I:=0 to high(GetNPCs) Do
    Begin
      Writeln('[' + ToStr(I) + ']Name: ' + NPCs[I].Name + '(' + ToStr(NPCs[I].Tile.X) + ', ' + ToStr(NPCs[I].Tile.Y) + ') ID: ' + ToStr(NPCs[I].ID) + ' - Index:' + ToStr(NPCs[I].Index));
      Writeln('  Orientation: ' + ToStr(NPCs[I].Orientation) + ' - Level: ' + ToStr(NPCs[I].Level) + ' - Animation:' + ToStr(NPCs[I].Animation) + + ' - HPRatio:' + ToStr(NPCs[I].HPRatio));
      Writeln('  Moving:' + ToStr(NPCs[I].Moving) + ' - InFight:' + ToStr(NPCs[I].Fighting) + ' - Interacting:' + ToStr(NPCs[I].Interacting) + ' - Height:' + ToStr(NPCs[I].Height));
      Writeln('  Actions:');
      For II:=0 To High(NPCs[I].Actions) Do
        Writeln('    ' + NPCs[I].Actions[II]);
    End;
    Wait(3000);

    ClearDebug;
  Until(False);
End;

Procedure WhereAmI;
Var loc:TTile;
Begin
  loc := GetMyPos; // Get your global position
  writeln (inttostr(loc.x) + '/'+ inttostr(loc.y)); // Output it
End;

Begin
  Smart_Members := MEMBERS;
  Smart_Server := WORLD;
  Smart_Signed := SIGNED;
  SetupSRL;
  SetUpReflectionEx(true); // Yeah baby!
  DeclarePlayers;
  LoginPlayer;
    Repeat
      If IsFKeyDown(1) Then
        DoNPC;
      If IsFKeyDown(2) Then
        WhereAmI;
    Until(false);

End.         

and i get

Succesfully updated your Reflection!
Compiled succesfully in 1029 ms.
%INCLUDEPATH%\SRL/logs/SRL log 15-10-10 0.txt
Cont [True] File [C:\Simba\Includes\SRL/logs/SRL log 15-10-10 0.txt]
SRL Compiled in 5569 msec
SMART Initialized.
Loaded: Server 32, Members: False, Signed: True, Super Detail: False.
The following DTMs were not freed: [SRL - Lamp bitmap]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap]
File[C:\Simba\Includes\SRL/logs/SRL log 15-10-10 0.txt] has not been freed in the script, freeing it now.

Thanks and sorry for all my nooby questions