[Splose]

You could shorten this up a lot but I wrote it a long time ago.. not sure if it sends to all players off the top of my head but you can change the gmsay to make what you're talking about happen. The added part at the bottom sets your common tongue/sense heading to max.

sub EVENT_CONNECT {
	quest::gmsay("$name has connected.", 18, 1);
	quest::gmsay(" Account Name: " . $client->AccountName() . " - Status: $status", 18, 1);
	if($uguild_id > 0) {
		my $guildname = quest::getguildnamebyid($uguild_id);
		quest::gmsay("(Character Profile: Level $ulevel $race $class) <$guildname>)", 18, 1);
		quest::gmsay("Zone: $zonesn", 18, 1);
	}
	else {
		quest::gmsay("(Character Profile: Level $ulevel $race $class) <No Guild>", 18, 1);
		quest::gmsay("Zone: $zonesn", 18, 1);
		
	}
	if($client->GetLanguageSkill(0) != 100) {
		$client->SetLanguageSkill(0, 100);
	}
	if($client->GetSkill(40) != 400) {
		$client->SetSkill(40, 400);
	}
}