Faren - Ton Firepride - Garuc Arehn - Suuspa Clanim

[BWStripes]

Into the catacombs for this one:

File: qcat/Garuc_Anehm.pl - WILL OVERWRITE PEQ Quest

#############
#Quest Name: Murder of Hurrietta
#Author: ?? (Update by BWStripes)
#NPC's Involved: 1
#Items involved: 6
#############
###NPC 1
#Name: Garuc_Anehm
#Race 1 (Human), Texture of 3, Size 0, gender of 0
#Location XYZ: -655.0, 357.0, -35.0 in Qeynos Catacombs
#Level: 61
#Type: SK GM
##
#Reward Item: 1-5
#Name: Random Patchwork armor
#ID: 2104, 2106, 2108, 2111, 2112
###
# Item 6
# Name: Rat Shaped Ring
# ID: 13301
# Quest Item
#############
###Item
#Name: Hurrieta's Bloody Dress
#ID: 13134
###

sub EVENT_SAY {
  if($text=~/Hail/i){
    quest::say("Welcome to the Shrine of Bertoxxulous! You appear to be [new to the shrine]. I do not remember seeing you around.");
  }
  if($text=~/i am new to the shrine./i){
    quest::say("New blood to spread Bertoxxulous' disease? We presently need the help of a [young shadowknight]. There are certain deeds which must be carried out.");
  }
  if($text=~/i am a young shadowknight./i){
    quest::say("Then let your supreme task be the extermination of the Priests of Life. Know that they threaten the will of our Lord Bertoxxulous. For every fallen paladin and cleric of the Temple of Life. you shall rise within our ranks.  So... do you [loathe paladins]?");
  }
  if($text=~/i loathe paladins./i){
    quest::say("As do we all. The paladins of Qeynos come from either the Hall of Thunder or the Temple of Life. We have put a bounty upon their heads. Destroy these knights and return either the Order of Thunder or the prayer beads of these inferior men. There has even been a report from [Commander Kane].");
  }
  if($text=~/commander kane?/i){
    quest::say("Kane Bayle is the Commander of the Qeynos Guard. He has found it advantageous to befriend the Bloodsabers. We share a [common goal]. He assists us in many ways. He has some new information to reveal.  Go and tell him you are a Bloodsaber. Do not speak with him while he is on duty!!");
  }
  if($text=~/common goal?/i){
    quest::say("Kane Bayle and the leaders of this shrine all wish to overthrow the rule of Antonius Bayle. He, for power, and we for the glory of Bertoxxulous. From this city, our diseased lord shall appear and tread across the land spitting death from his mouth and deforming the land. His glory shall be eternal!");
  }
}

sub EVENT_ITEM {
  if($itemcount{13134} == 1){
    my $garuc_reward = quest::ChooseRandom(2104, 2106, 2108, 2111, 2112, 13301);#Updated to issue random patchwork armor, or a rat-shaped ring
    my $garuc_randomSP = int(rand(20));
    my $garuc_randomCP = int(rand(20));
    quest::say("Excellent work. You have done us a favour as well; meddlesome Ironprides. Take this reward."); #Text improvised
    quest::summonitem("$garuc_reward");
    quest::givecash("$garuc_randomCP","$garuc_randomSP","0","0");# Random from 20cp20sp
    quest::faction("135","-2"); #Guards of Qeynos
    quest::faction("257","-2"); #Priests of Life
    quest::faction("183","-2"); #Knights of Thunder
    quest::faction("21","3"); #Bloodsabers
    quest::exp("500");
  } else {
    #do all other handins first with plugin, then let it do disciplines
    plugin::try_tome_handins(\%itemcount, $class, 'Shadowknight');
    plugin::return_items(\%itemcount);
  }
}
#END of FILE Zone:qcat  ID:45070 -- Garuc_Anehm

[BWStripes]

Finally playing off the temple of life

File: qeynos2/Suuspa_Clanim.pl - WILL OVERWRITE PEQ Quest

#############
#Quest Name: Hunt the Bloodsabers
#Author: ?? (Update by BWStripes)
#NPC's Involved: 1
#Items involved: 1
#############
###NPC 1
#Name: Suuspa_Clanim
#Race 1 (Human), Texture of 3, Size 6, gender of 1
#Location XYZ: -629.0, -180.0, -11.0 in North Qeynos
#Level: 61
#Type: Paladin GM
##
#Reward: Cash
#############
###Item
#Name: Rat shaped ring
#ID: 13301
###
sub EVENT_SAY {
  if($text=~/Hail/i){
    quest::say("Welcome to the Temple of Life, $name.  It is here that you may pay tribute to the Prime Healer. Does not your heart beat with the sound of life? It is He who makes it so. Do not let the hand of Bertoxxulous and his [new disease] lay upon your soul or, like so many, you shall meet your fate at the end of my sword!");
  }
  if($text=~/new disease/i){
  quest::say("The new disease I speak of is called the Bloodsabers. They are the loyal followers of Bertoxxulous and as such have been condemned by our temple. Do you wish to [join the fight]?");
  }
  if($text=~/join the fight/i){
  quest::say("Then seek out those who worship the Plaguebringer. End their threat!! Each member has upon them the mark of the Bloodsabers, a rat-shaped ring. I shall reward all those who return such rings to me.");
  }
  if($text=~/Brother Trintle attacked Brother Estle/i){
    quest::say("Impossible!! What madness do you speak of!!? If he did he must have had a reason. Maybe Trintle had been tainted by the words of Bertoxxulous..?"
  }
}

sub EVENT_ITEM {
  if($itemcount{13301} == 1){
    my $suuspa_randomSP = int(rand(20));
    my $suuspa_randomCP = int(rand(20));
    quest::say("Ah, one less of the Plaguebringer's followers to poison these lands."); #Text improvised
    quest::givecash("$suuspa_randomCP","$suuspa_randomSP","0","0");# Random from 20cp20sp
    quest::faction("9","3"); #Antonius Bayle
    quest::faction("135","3"); #Guards of Qeynos
    quest::faction("257","3"); #Priests of Life
    quest::faction("183","3"); #Knights of Thunder
    quest::faction("21","-2"); #Bloodsabers
    quest::exp("1000");
  }
  if($itemcount{13908} == 1}{
    quest::say("This is not good. Hmph. It appears they are shattered. For the first time one of our members has been swayed. I reward you for your deed. Also, if you have found anything upon Trintle, let me know.");
    quest::givecash("$suuspa_randomCP","$suuspa_randomSP","0","0");# Random from 20cp20sp
    quest::faction("9","3"); #Antonius Bayle
    quest::faction("135","3"); #Guards of Qeynos
    quest::faction("257","3"); #Priests of Life
    quest::faction("183","3"); #Knights of Thunder
    quest::faction("21","-2"); #Bloodsabers
    quest::exp("1000");
  } else {
  #do all other handins first with plugin, then let it do disciplines
  plugin::try_tome_handins(\%itemcount, $class, 'Paladin');
  plugin::return_items(\%itemcount);
}
#END of FILE Zone:qeynos2  ID:2048 -- Suuspa_Clanim

[Angelox]

This one may not be working , I get error from it;
Suuspa_Clanim.pl

[BWStripes]

Oops, I'd pasted up v0.9 which was missing brackets, sorry.

#############
#Quest Name: Hunt the Bloodsabers
#Author: ?? (Update by BWStripes)
#NPC's Involved: 1
#Items involved: 1
#############
###NPC 1
#Name: Suuspa_Clanim
#Race 1 (Human), Texture of 3, Size 6, gender of 1
#Location XYZ: -629.0, -180.0, -11.0 in North Qeynos
#Level: 61
#Type: Paladin GM
##
#Reward: Cash
#############
###Item
#Name: Rat shaped ring
#ID: 13301
###
sub EVENT_SAY {
  if($text=~/Hail/i){
    quest::say("Welcome to the Temple of Life, $name.  It is here that you may pay tribute to the Prime Healer. Does not your heart beat with the sound of life? It is He who makes it so. Do not let the hand of Bertoxxulous and his [new disease] lay upon your soul or, like so many, you shall meet your fate at the end of my sword!");
  }
  if($text=~/new disease/i){
  quest::say("The new disease I speak of is called the Bloodsabers. They are the loyal followers of Bertoxxulous and as such have been condemned by our temple. Do you wish to [join the fight]?");
  }
  if($text=~/join the fight/i){
  quest::say("Then seek out those who worship the Plaguebringer. End their threat!! Each member has upon them the mark of the Bloodsabers, a rat-shaped ring. I shall reward all those who return such rings to me.");
  }
  if($text=~/Brother Trintle attacked Brother Estle/i){
    quest::say("Impossible!! What madness do you speak of!!? If he did he must have had a reason. Maybe Trintle had been tainted by the words of Bertoxxulous..?"
  }
}

sub EVENT_ITEM {
  if($itemcount{13301} == 1){
    my $suuspa_randomSP = int(rand(20));
    my $suuspa_randomCP = int(rand(20));
    quest::say("Ah, one less of the Plaguebringer's followers to poison these lands."); #Text improvised
    quest::givecash("$suuspa_randomCP","$suuspa_randomSP","0","0");# Random from 20cp20sp
    quest::faction("9","3"); #Antonius Bayle
    quest::faction("135","3"); #Guards of Qeynos
    quest::faction("257","3"); #Priests of Life
    quest::faction("183","3"); #Knights of Thunder
    quest::faction("21","-2"); #Bloodsabers
    quest::exp("1000");
  }
  if($itemcount{13908} == 1){
    quest::say("This is not good. Hmph. It appears they are shattered. For the first time one of our members has been swayed. I reward you for your deed. Also, if you have found anything upon Trintle, let me know.");
    quest::givecash("$suuspa_randomCP","$suuspa_randomSP","0","0");# Random from 20cp20sp
    quest::faction("9","3"); #Antonius Bayle
    quest::faction("135","3"); #Guards of Qeynos
    quest::faction("257","3"); #Priests of Life
    quest::faction("183","3"); #Knights of Thunder
    quest::faction("21","-2"); #Bloodsabers
    quest::exp("1000");
  } else {
  #do all other handins first with plugin, then let it do disciplines
  plugin::try_tome_handins(\%itemcount, $class, 'Paladin');
  plugin::return_items(\%itemcount);
  }
}
#END of FILE Zone:qeynos2  ID:2048 -- Suuspa_Clanim

[Angelox]

Got it, thanks for your work!

[Angelox]

Still invallid - make sure you don't have the old PL cached somehow as the files are same size (your old and new one)

[BWStripes]

Ack, I'm such an idiot. I didn't account for the fact that sometimes the file locks when I do quick updates across the network. For some reason the file was an inbetween version and was not saved with the final version.

I've just tested this out, and the handins and dialog work properly now. Sorry about that :/

#############
#Quest Name: Hunt the Bloodsabers
#Author: ?? (Update by BWStripes)
#NPC's Involved: 1
#Items involved: 1
#############
###NPC 1
#Name: Suuspa_Clanim
#Race 1 (Human), Texture of 3, Size 6, gender of 1
#Location XYZ: -629.0, -180.0, -11.0 in North Qeynos
#Level: 61
#Type: Paladin GM
##
#Reward: Cash
#############
###Item
#Name: Rat shaped ring
#ID: 13301
###
###Item
#Name: Busted Prayer Beads
#ID: 13908
###
sub EVENT_SAY {
  if($text=~/Hail/i){
    quest::say("Welcome to the Temple of Life, $name.  It is here that you may pay tribute to the Prime Healer. Does not your heart beat with the sound of life? It is He who makes it so. Do not let the hand of Bertoxxulous and his [new disease] lay upon your soul or, like so many, you shall meet your fate at the end of my sword!");
  }
  if($text=~/new disease/i){
  quest::say("The new disease I speak of is called the Bloodsabers. They are the loyal followers of Bertoxxulous and as such have been condemned by our temple. Do you wish to [join the fight]?");
  }
  if($text=~/join the fight/i){
  quest::say("Then seek out those who worship the Plaguebringer. End their threat!! Each member has upon them the mark of the Bloodsabers, a rat-shaped ring. I shall reward all those who return such rings to me.");
  }
  if($text=~/Brother Trintle attacked Brother Estle/i){
    quest::say("Impossible!! What madness do you speak of!!? If he did he must have had a reason. Maybe Trintle had been tainted by the words of Bertoxxulous..?");
  }
}

sub EVENT_ITEM {
  if (plugin::check_handin(\%itemcount, 13301 => 1)) {
    my $suuspa_randomSP = int(rand(20));
    my $suuspa_randomCP = int(rand(20));
    quest::say("Ah, one less of the Plaguebringer's followers to poison these lands. Take this as a reward for your service."); #Text improvised
    quest::givecash("$suuspa_randomCP","$suuspa_randomSP","0","0"); # Random from 20cp20sp
    quest::faction("9","3"); #Antonius Bayle
    quest::faction("135","3"); #Guards of Qeynos
    quest::faction("257","3"); #Priests of Life
    quest::faction("183","3"); #Knights of Thunder
    quest::faction("21","-2"); #Bloodsabers
    quest::exp("1000");
  }
  if (plugin::check_handin(\%itemcount, 13908 => 1)) {
    my $suuspa_randomSP = int(rand(20));
    my $suuspa_randomCP = int(rand(20));
    quest::say("This is not good. Hmph. It appears they are shattered. For the first time one of our members has been swayed. I reward you for your deed. Also, if you have found anything upon Trintle, let me know.");
    quest::givecash("$suuspa_randomCP","$suuspa_randomSP","0","0"); # Random from 20cp20sp
    quest::faction("9","3"); #Antonius Bayle
    quest::faction("135","3"); #Guards of Qeynos
    quest::faction("257","3"); #Priests of Life
    quest::faction("183","3"); #Knights of Thunder
    quest::faction("21","-2"); #Bloodsabers
    quest::exp("1000");
  } else {
  #do all other handins first with plugin, then let it do disciplines
  plugin::try_tome_handins(\%itemcount, $class, 'Paladin');
  plugin::return_items(\%itemcount);
  }
}
#END of FILE Zone:qeynos2  ID:2048 -- Suuspa_Clanim