Xenobitz
2014-04-04 13:33:54
Is this possible?
Also, is it possible to see the skill experience of other players while using reflection?
Also, is it possible to see the skill experience of other players while using reflection?
2014-04-04 13:33:54
2014-04-04 13:51:07
2014-04-04 14:23:02
From: Xenobitz
Is this possible?
Also, is it possible to see the skill experience of other players while using reflection?
2014-04-04 14:35:32
program R_GetPlayers_TEST;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Misc/SmartGraphics.Simba}
{$I SRL-OSR/SRL/reflection/Reflection.simba}
type
TPlayer = record
Name: String;
Level: Integer;
end;
TPlayerArray = Array of TPlayer;
function CreatePlayer(Name: String; Level: Integer): TPlayer;
begin
Result.Name := Name;
Result.Level := Level;
end;
function R_GetPlayers: TPlayerArray;
var
I, J, _Count, _Player, _Name, _Level: Integer;
begin
_Count := SmartGetFieldArraySize(SmartCurrentTarget, 0, 'client.gm', 0);
SetLength(Result, J);
for I := 0 to _Count - 1 do begin
_Player := SmartGetFieldArrayObject(SmartCurrentTarget, 0, 'client.gm', I);
if (_Player <= 0) then
Continue;
Inc(J);
SetLength(Result, J);
_Name := SmartGetFieldObject(SmartCurrentTarget, _Player, 'i');
_Level := SmartGetFieldInt(SmartCurrentTarget, _Player, 's') * 531991939;
Result[J - 1] := CreatePlayer(R_GetJavaString(_Name, 512), _Level);
SmartFreeObject(SmartCurrentTarget, _Name);
SmartFreeObject(SmartCurrentTarget, _Player);
end;
end;
begin
SetupSRL;
SetupReflection;
Writeln(R_GetPlayers);
end.2014-04-08 10:45:52