Faren - Ton Firepride - Garuc Arehn - Suuspa Clanim

BWStripes · #1 07-21-2007, 05:45 AM

Finally playing off the temple of life

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

Code:

#############
#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 · #2 07-21-2007, 12:13 PM

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

BWStripes · #3 07-23-2007, 07:16 AM

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

Code:

#############
#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 · #4 07-23-2007, 11:24 AM

Got it, thanks for your work!

Angelox · #5 07-23-2007, 11:38 AM

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 · #6 07-23-2007, 11:54 PM

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 :/

Code:

#############
#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

Teppen · #7 07-24-2007, 09:48 AM

Negative faction hits after turning into Garuc are alittle low. I remember doing this quest long ago, and as it is random rewards you dont always get the ring and have to repeat, and i know you already have random rewards setup so thats cool, but if this is put on PEQ I would up the positive and negative faction hits to atleast +5/-5 or maybe even higher. On live after you did the turn in to Garuc with an agnostic character over 5 or 6 times merchants in qeynos wouldnt sell to you and the non corrupt guards of qeynos didnt like you much.

I always did the quest with a newbie created character since you could complete it at level one then put it into shared back and give to another character to avoid getting the nasty faction hits. I remember my paladin loved that newbie ring. However, I dont see merchants of qeynos on the faction hits, but I do see guards. dunno, but faction hits of +2/-1 are way too low if put on PEQ. If any devs weave this into PEQ, take this post into consideration if you want like live.