Title Giver!

[dreamseer]

I got it I got it never mind the old backslash n works a treat

        	$client->SetAATitle("Countess");
        	$client->SetTitleSuffix("\n (The Butcher of Blackburrow)");

come sout as
Countess playername
(The Butcher of Blackburrow)

I'm sorted thanks again.

I'm going to create a massive list of Titles Suffix and Last names that work together
then give them to players when they do stuff

off the top of my head:
on the death of certain mobs or npc's
paying an npc for random title

I might seed the random number on base stats.. playername the weak or wreched or ugly if their CHR is low..

I love playing with this stuff

[Capheus]

Back in June when I actually had time run a server, I made two scripts for players to make thier own tiltles and suffixes. I believe these still work.

###NPC Name: Curre

my $thetitle = 0;

sub EVENT_SAY {
	if ($text=~/Hail, Curre/){
  	$client->Message(14, "Hello $name. If you wish to have a title, target me and say your title aloud. If you wish to delete your current title then tell me to [clearitout] in all lowercase letters.");
}
	if ($text=~/clearitout/i){
	quest::popup("Title", "Do you wish to delete your current title?", 2, 1);
}
	if (($text ne "Hail, Curre") && ($text ne "clearitout"))  {
	$thetitle = $text;
	quest::popup("Title", "Do you wish to have the title:  $thetitle  ?", 1, 1);

}
}

sub EVENT_POPUPRESPONSE {

	if ($popupid == 1) {
	$client->SetAATitle("$thetitle");
	$client->Message(13, "You must zone for your new title to take effect");
}
	if ($popupid == 2) {
	$client->SetAATitle("");
	$client->Message(13, "You must zone for your title to clear");
}
}

###NPC Name: Kurre

my $thesuffix = 0;

sub EVENT_SAY {
	if ($text=~/Hail, Kurre/){
  	$client->Message(14, "Hello $name. If you wish to have a suffix, target me and say your suffix aloud. If you wish to delete your current suffix then tell me to [clearitout] in all lowercase letters.");
}
	if ($text=~/clearitout/i){
	quest::popup("Suffix", "Do you wish to delete your current suffix?", 2, 1);
}
	if (($text ne "Hail, Kurre") && ($text ne "clearitout"))  {
	$thesuffix = $text;
	quest::popup("Suffix", "Do you wish to have the suffix:  $thesuffix  ?", 1, 1);

}
}

sub EVENT_POPUPRESPONSE {

	if ($popupid == 1) {
	$client->SetTitleSuffix("$thesuffix");
	$client->Message(13, "You must zone for your new suffix to take effect");
}
	if ($popupid == 2) {
	$client->SetTitleSuffix("");
	$client->Message(13, "You must zone for your suffix to clear");
}
}