procedure OnPlayerSpeak(ID: byte; Text: String);
var
  TopThree: string;
begin
  if Text = '!top3' then begin
      TopThree := '';
    TopThree :=   GetURL('http://stats.climbing-soldiers.net/scriptpage.php?map='+HTTPEncode(CurrentMap));
      TopThree := StrReplace(TopThree,'<br>',', ');
      TopThree := StrReplace(TopThree,Chr(1),' with ');
      WriteConsole(0, 'Top players: ' + TopThree, $001DE2CA);
  end;
end;