Stealth Client Forum

Code: Select all

program Palilka;


type
 TPlayerInfo = record
  ID : Cardinal;
  Point : TPoint;
  Time : TDateTime;
 end;
 
var
 Players : Array of TPlayerInfo;
 
procedure AddPlayer(Player : TPlayerInfo);
begin
 SetLength(Players, Length(Players)+1);
 with Players[High(Players)] do
  begin
   Id := Player.Id;
   Point := Player.Point;
   Time := Player.Time;
  end;
end;

procedure GetPlayerInfo(Id : Cardinal);
var
 fPlayerInfo : TPlayerInfo; 
 i : Integer;
begin
 for i := 0 to Length(Players)-1 do
  if Id = Players[i].Id then
   begin
    //AddToSystemJournal('Already is in list');
	exit;
   end;
 fPlayerInfo.Id := Id;
 fPlayerInfo.Point.X := GetX(ID);
 fPlayerInfo.Point.Y := GetY(ID);
 fPlayerInfo.Time := Now;
 AddPlayer(fPlayerInfo);
 AddToSystemJournal('Added to list' + '$' + IntToHex(Id, 8) + ' ' + DateTimeToStr(Now));
 AddToSystemJournal(GetName(Id) + ' showed in: ' + IntToStr(fPlayerInfo.Point.X) + ' : ' + IntToStr(fPlayerInfo.Point.Y));   
end;

begin
 SetEventProc(evDrawObject, 'GetPlayerInfo');
 while True do wait(100);
end.