Frist_Furton.pl

[cavedude]

This was requested on the boards.

#############
#Quest Name: Cleric Spells (Good Version)
#Author: cavedude
#NPCs Involved: Frist Furtun
#Items Involved: Spell: Death Pact, Spell: Reckoning, Spell: Upheaval, Spell: 
#Yaulp IV, Spell: Heroic Bond, Spell: Sunskin, Spell: Unswerving Hammer of 
#Faith, Spell: Word of Vigor 
#Zone: Firiona Vie
#Databse: PEQ-Velious/Cavedude
#################

sub EVENT_SAY{
  if ($text=~/Hail/i){
   quest::say("Hail to thee, adventurer! I have been sent to this new
land by the Clerics of Tunare in search of the new arcane magiks said to
exist beyond this outpost. I myself once searched the nearby Outlands, but
to go any further would lead to my certain death. Lately, the dangers have
proven to be too much for adventurers and ones like myself. Have you also
ventured to this land in search of these [new magiks?]");
  }
  if ($text=~/new magiks/i){
  quest::say("Ahh, wonderful! The more souls who search for these
scrolls, the sooner I'll be able to return home and share this knowledge.
The magiks are in the form of scrolls held by the strongest creatures of
the Outlands. You will probably have the best luck searching in the darkest
depths of the dungeons beyond this outpost. You might want to talk to the
residents of this outpost for locations of these dreadful places.
If you should happen to [have] any [duplicate scrolls], please come speak
to me. I might be interested in working out a trade for a scroll you do not yet 
have.");
  }
  if ($text=~/I have duplicate scrolls/i){
  quest::say("Great! The scrolls I am interested in are those of Death Pact,
Upheaval, Yaulp IV, and Reckoning. If you bring me any one of these scrolls,
I'll let you reach into my bag and pull out one of the four very rare scrolls
that have come into my possession."); }
  }

sub EVENT_ITEM(){
  if ($itemcount{19203} && $itemcount{19205} && $itemcount{19209} && $itemcount{19212} == 1){
  quest::say("Here is the scroll that I promised. We have both gained
much knowledge today. I hope to do business with you again soon. Farewell!");
  my @items = (19210,19224,19420,19206);        
  quest::summonitem("$items[int(rand($#items+1))]");
  quest::exp(1000);  }
}
#END of FILE Zone:firiona ID:84177 -- Frist_Furtun