// if using this code with the default script,
// place it in events.ops

procedure OnLogin(ServerID: Integer; Nickname: String);
var
  ServerName: String;
begin
  // get the name of the server
  ServerName := GetServerName(ServerID);
  
  // pos finds substrings in strings - this can be used
  // to check for strings like "undernet" in a server
  // name if you normally use round-robin servers.
  if Pos('openface', ServerName) <> 0 then
    Join(ServerID, '#One,#Two', '')
  else if GetServerName(ServerID) = 'irc.stanford.edu' then
    Join(ServerID, '#Bersirc', '');
end;