Title Giver!

[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");
}
}