Unnamed

procedure OnPlayerJoin(PlayerID : Integer);
var
  Msg : String;
begin
  if (IsPlayerAdmin(PlayerID)) Then
  begin
    Msg := '* Admin '+ GetPlayerNick(PlayerID) +' joined the server';
    SendTextToPlayer(PlayerID,'*** Hello '+ GetPlayerNick(PlayerID) +', you have been logged in with admin rights.');
  end
  Else
  begin
    Msg := '* '+ GetPlayerNick(PlayerID) +' joined the server';
    SendTextToPlayer(PlayerID,'*** Hello '+ GetPlayerNick(PlayerID) +', welcome to this server.');
  end;
  SendTextToAllExceptPlayer(PlayerID, Msg);
  IRCSay(Msg);
  Log(Msg);
end;