PDA

View Full Version : Information NPC


Figback65
09-16-2013, 10:22 PM
Finally able to start contributing.
Simple NPC script based around providing players with information that I build on, on my server. Easily manipulated to suit ur needs.


sub EVENT_SAY {
my $Tier1 = quest::saylink("Those Dragon Scum");
my $Tier2 = quest::saylink("The Interior Defense");
my $Tier3 = quest::saylink("The Dragons of Old");
my $Tier4 = quest::saylink("The Temple");
my $Tier5 = quest::saylink("The End");

my $Ind = plugin::PWIndent();
my $Tur = plugin::PWColor("Turquoise");
my $Ora = plugin::PWColor("Orange");
my $Red = plugin::PWColor("Red");
my $grn = plugin::PWColor("Forest Green");

my $Motto = plugin::PWAutoCenter("It is our time!");

my $TierOne = plugin::PWAutoCenter("Levels 10-30");
my $WW = plugin::PWAutoCenter("West Wastes");
my $Sev = plugin::PWAutoCenter("Severilous");
my $Tal = plugin::PWAutoCenter("Talendor");
my $Wuo = plugin::PWAutoCenter("Wuoshi");
my $SS = plugin::PWAutoCenter("Skyshrine");

my $TierTwo = plugin::PWAutoCenter("Levels 30-50");
my $Sont = plugin::PWAutoCenter("The Ring of Sontalak");
my $DN = plugin::PWAutoCenter("Dragon Necropolis");

my $TierThree = plugin::PWAutoCenter("Levels 50-60");
my $Nag = plugin::PWAutoCenter("Lord Nagafen");
my $Vox = plugin::PWAutoCenter("Lady Vox");
my $OS = plugin::PWAutoCenter("Old Sebilis");
my $VP = plugin::PWAutoCenter("Veeshan's Peak");

my $TierFour = plugin::PWAutoCenter("Level 60");
my $ToV = plugin::PWAutoCenter("Temple of Veeshan");

my $TierFive = plugin::PWAutoCenter("Level The End");
my $End = plugin::PWAutoCenter("The End");



if($text=~/hail/i) {
$client->Message(315, "Hey, YOU! Are you ready for glory? Take up arms and embark on the greatest journey. You can start with $Tier1. Then its time to attack $Tier2. After you weaken them we can head to $Tier3. If you survive all of that I will send you to the heart of the dragons, $Tier4. Then $Tier5");
quest::popup("God Raid Tiers", "$Tur $Motto <br>
$Ora $Ind We are your Gods, we have given you breath, magic, and death. Worship us and we shall repay you.
We need the help of all $race 's. We must cleanse these lands of the Dragons,
they have left them in dissaray.
<br>"
);
}

if($text=~/scum/i) {
quest::popup("Those Dragon Scum", "$Tur $TierOne <br>
$Ora $Ind These bottom feeders are the first on your list. Take these guys out and you shall be rewarded with great powers! This Tier is for levels
<br><br>
$Tur $WW
<br>
$Ora The Great Dragon Wastes. Home to many dragons. The new and the ancient. Be very wary traveller, for one wrong step will mean your demise
<br>
$Tur $Sev
<br>
$Ora Be afraid! You will flee when this dragon roars. We have scouts who have spotted him in the Karanas
<br>
$Tur $Tal
<br>
$Ora The powerful Talendor spawns dragons faster than fire. He is consuming Lavastorm and he must be stopped
<br>
$Tur $Wuo
<br>
$Ora Whispers of Wuoshi, all we get is whispers. Find this dragon in the forest. Slay Wuoshi.
<br>
$Tur $SS
<br>
$Ora $Ind Skyshrine, the Dragon city. Invade this city and stop them from teaching magic. Atop the highest tower you will find the leader, Yelinak. This place is also found within Western Wastes
<br>"
);
}


if($text=~/defense/i) {
quest::popup("The Interior Defense", "$Tur $TierTwo <br>
$Ora $TierTwoInfo
<br><br>
$Tur $Sont
<br>
$Ora Sontalak event
<br><br>
$Tur $DN
<br>
$Ora Dragon Necropolis
<br>"
);
}

if($text=~/dragons of old/i) {
quest::popup("Dragons of Old", "$Tur $TierThree <br>
$Ora info
<br>
$Tur $Nag
<br>
$Ora Lord Nagafen
<br>
$Tur $Vox
<br>
$Ora Lady Vox
<br>
$Tur $OS
<br>
$Ora The city of frogs ruled by Trakanon
<br>
$Tur $VP
<br>
$Ora Veeshan's Peak
<br>"
);
}

if($text=~/temple/i) {
quest::popup("The Temple", "$Tur $TierFour <br>
$Ora info
<br>
$Tur $ToV
<br>
$Ora The Great Temple of Veeshan
<br>"
);
}

if($text=~/end/i) {
quest::popup("The End", "$Tur $TierFive <br>
$Ora When time becomes a loop.
<br><br>
$Tur $End
<br>
$Ora The End
<br>"
);
}

}