My perl script so far. What should I do next? Sorry I am a beginner at coding in PERL. My language is SAS which we don't use.
ENT_SAY {
my $sl1 = quest::saylink("Good", 1, "Join, The Order of Heaven");
my $sl2 = quest::saylink("Evil", 1, "Join, The Legion of the Infernal");
my $sl3 = quest::saylink("Undead", 1, "Join, The Unliving");
my $sl4 = quest::saylink("Dragon", 1, "Join, The Order of the Dragon");
my $sl5 = quest::saylink("Good2", 1, "I accept, I will give my life in service to Heaven and the Innocent!");
my $sl6 = quest::saylink("Evil2", 1, "I accept, I will pursue carnage, chaos and vengence and be a force of pure violence!");
my $sl7 = quest::saylink("Undead2", 1, "I accept, I will become death and visit it upon all. I will bless those I meet with death or undeath if they be lucky!");
my $sl8 = quest::saylink("Dragon2", 1, "I accept, I will follow the dragon blood in my veins and aide the great lords in once again ruling the world!");
my $sl9 = quest::saylink("Decline", 1, "I decline!");
my $NPCName = $npc->GetCleanName();
if ($uguild_id < 1) {
if($text=~/Hail/i) {
$client->Message(14,"$NPCName says 'Welcome. Please join an order that matches your soul. Remember once a choice is made it can not be changed! Choose wisely!'");
$client->Message(11,"::: $sl1");
$client->Message(11,"::: $sl2");
$client->Message(11,"::: $sl3");
$client->Message(11,"::: $sl4");
} elsif ($text=~/Good/i) {
$client->Message(14,"$NPCName says 'The Order of Heaven strives to meet Evil head on and lay it low in order to protect those who are innocent. Do you wish to join our Order of Heaven Sent Knights?'");
$client->Message(11,"::: $sl5");
$client->Message(11,"::: $sl9");
} elsif ($text=~/Good2/i) {
quest::setguild(30,0);
$client->Message(14,"$NPCName says 'I welcome the newest Heavensent Knight, $name!'");
} elsif ($text=~/Evil/i) {
$client->Message(14,"$NPCName says 'The Legion of the Infernal wishes to lay waste to all that is good and holy. Do you wish to join the Legion of the Infernal?'");
$client->Message(11,"::: $sl6");
$client->Message(11,"::: $sl9");
} elsif ($text=~/Evil2/i) {
quest::setguild(31,0);
$client->Message(14,"$NPCName says 'All fear the newest Infernal Deathbringer, $name!'");
} elsif ($text=~/Undead/i) {
$client->Message(14,"$NPCName says 'The Unliving will bring death and undeath rebirth to the world. Do you wish to be part of the rebirth of undeath?'");
$client->Message(11,"::: $sl7");
$client->Message(11,"::: $sl9");
} elsif ($text=~/Undead2/i) {
quest::setguild(32,0);
$client->Message(14,"$NPCName says 'The living tremble in terror at your might, $name!'");
} elsif ($text=~/Dragon/i) {
$client->Message(14,"$NPCName says 'The Dragons shall rule the world again! Do you wish to join their ranks of soldiers!'");
$client->Message(11,"::: $sl8");
$client->Message(11,"::: $sl9");
} elsif ($text=~/Dragon2/i) {
quest::setguild(33,0);
$client->Message(14,"$NPCName says 'A powerful change overcomes you, rise as a dragonborn!, $name!'");
}
}
|