Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Submissions

Quests::Submissions This is where you submit your quests for review

Reply
 
Thread Tools Display Modes
  #1  
Old 10-10-2005, 02:46 AM
rickjames1234
Fire Beetle
 
Join Date: May 2005
Posts: 4
Default Daedet_Losaren.pl -- Holy Armor Buff

#############
#Quest Name:Holy Armor Buff
#Author:
#NPCs Involvedaedit_Losaren
#Items Involved:10 gp
#################
sub EVENT_SAY {
if ($text=~/hail/i){
quest::say("I will cast a holy buff on you for a donation to the mother of 10gp."); }
}

sub EVENT_ITEM {
if ($gold == 10){
quest::say("Thanks You for Your Donation!");
quest::selfcast(11);
quest::faction(43,25); }
}

#END of FILE Zone:qeynos ID:1586 -- Daedit_Losaren


* i don't have live atm and i could not find the right text, but the rest sould be fine, i think...if anyone knows what the correct text is let me know


thanks.

Last edited by rickjames1234; 10-12-2005 at 10:21 AM.. Reason: modify
Reply With Quote
  #2  
Old 08-26-2014, 04:02 PM
noudess
Discordant
 
Join Date: Sep 2012
Location: Upstate NY
Posts: 274
Default

This is closer.

I changed the spell reward in this one, but the old one posted here doesnt cast the spell and is missing his other quests.

Code:
sub EVENT_SAY
	{
    if ($text=~/Hail/i)
        {
        quest::say("Welcome, Karacleri. I am Deadet Losaren, faithful priest of Karana. You appear to be in search of [guidance] or perhaps you are merely a [visitor to the temple of thunder] wishing the blessing of [holy armor]?");
        }
	elsif ($text=~/visitor/)
		{
        quest::say("Then feel free to look around and speak with the priests and paladins of Thunder.  May you find ways to serve the [Rainkeeper].");
		}
	elsif ($text=~/Rainkeeper/)
		{
        quest::say("Karana, the Rainkeeper, is the provider of the storms. If it were not for the storms of Karana, life would not flourish. All should pay tribute to the Rainkeeper.");
		}
	elsif ($text=~/holy armor/)
		{
        quest::say("Holy Armor? I offer the blessing of Holy Armor to members in good standing of the Knights of Thunder. I must charge ten gold for the service. These [components] are expensive these days! If you were willing to get me some, I could perhaps gift you with something much [better]!");
		}
    elsif ($faction > 5)
        {
        quest::say("While I admite your interest, you need to do more work for the Knights before we can entrust this to you.");
        }
	elsif ($text=~/better/)
		{
        quest::say("I have been playing around a bit with priestly magic.  I can share the secrets I have learned if you bring me those [components].");
		}
	elsif ($text=~/guidance/)
		{
        quest::say("So it is guidance you seek. You will begin on the bottom rung. There is much more to our temple than the bashing of foes. We will need you to [collect donations].");
		}
	elsif ($text=~/donations/)
		{
        quest::say("Then you are a new acolyte. Take this Chest of Faith into Qeynos and Qeynos Hills. Find me six residents willing to donate to the Temple of Thunder.  Combine these donations within the Chest of Faith and return it to me. Do so and I shall reward you with the spell 'Ward Undead.' Now go and spread the Word of Karana.");
		quest::summonitem(17925);
		}
	elsif ($text=~/components/)
		{
        quest::say("Components are required for my daily tribute to the Rainkeeper. It is he whose power flows from my body. I require a faithful acolyte to [gather the required items].");
		}
	elsif ($text=~/gather the required items/)
		{
        quest::say("Very noble of you. Take this chest. I will require it to be filled with flame beetle eyes. Four normal beetles and four [Kerra Isle beetles].  Combine these items within the chest and return it to me. I shall reward you with the protection of Holy Armor.");
		quest::summonitem(17934);
		}
	elsif ($text=~/Kerra Isle beetles/)
		{
        quest::say("Kerra Isle beetles are normally found in the vicinity of the Kerra catpeople. They can be found in Kerra Ridge, but a closer and perhaps safer location would be on the island between Antonica and Odus. The outcast catpeople of that island are far less dangerous.");
		}
	}

sub EVENT_ITEM 
	{
	if ($gold == 10) 
		{
		quest::say("This should help you remain safe.");
		$npc->CastSpell(11,$userid);
		}

	if (plugin::check_handin(\%itemcount, 13395 => 1))
		{
		# text made up
		quest::say("You did it!  Thank you, the Knights of Thunder can use these.  Take this and study it.  It should help you server the order.");
		quest::exp(500);
		quest::faction(183, 10);
		quest::faction(21, -10);
		quest::faction(257, 7);
		quest::faction(135, 7);
		quest::summonitem(26962);
		}
	}
Reply With Quote
  #3  
Old 08-26-2014, 04:44 PM
Kingly_Krab
Administrator
 
Join Date: May 2013
Location: United States
Posts: 1,589
Default

With your script you aren't using /i on your string comparisons, meaning you must say "Rainkeeper" and can't say "RaINKeeper", "rainkeeper", or any other variation. Here's my version of this quest:
Code:
sub EVENT_SAY {
    if ($faction <= 5) {
        if ($text=~/Hail/i) {
            plugin::Whisper("Welcome, Karacleri. I am Deadet Losaren, faithful priest of Karana. You appear to be in search of " . quest::saylink("guidance", 1) . " or perhaps you are merely a " . quest::saylink("visitor to the temple of thunder", 1) . " wishing the blessing of " . quest::saylink("holy armor", 1) . "?");
        }
        elsif ($text=~/Visitor To The Temple Of Thunder/i) {
            plugin::Whisper("Then feel free to look around and speak with the priests and paladins of Thunder. May you find ways to serve the " . quest::saylink("Rainkeeper", 1) . ".");
        }
        elsif ($text=~/Rainkeeper/i) {
            plugin::Whisper("Karana, the Rainkeeper, is the provider of the storms. If it were not for the storms of Karana, life would not flourish. All should pay tribute to the Rainkeeper.");
        }
        elsif ($text=~/Holy Armor/i) {
            plugin::Whisper("Holy Armor? I offer the blessing of Holy Armor to members in good standing of the Knights of Thunder. I must charge ten gold for the service. These " . quest::saylink("components", 1) . " are expensive these days! If you were willing to get me some, I could perhaps gift you with something much " . quest::saylink("better", 1) . "!");
        }
        elsif ($text=~/Better/i) {
            plugin::Whisper("I have been playing around a bit with priestly magic. I can share the secrets I have learned if you bring me those " . quest::saylink("components", 1) . ".");
        }
        elsif ($text=~/Guidance/i) {
            plugin::Whisper("So it is guidance you seek. You will begin on the bottom rung. There is much more to our temple than the bashing of foes. We will need you to " . quest::saylink("collect donations", 1) . ".");
        }
        elsif ($text=~/Donations/i) {
            plugin::Whisper("Then you are a new acolyte. Take this Chest of Faith into Qeynos and Qeynos Hills. Find me six residents willing to donate to the Temple of Thunder.  Combine these donations within the Chest of Faith and return it to me. Do so and I shall reward you with the spell 'Ward Undead.' Now go and spread the Word of Karana.");
            quest::summonitem(17925);
        }
        elsif ($text=~/Components/i) {
            plugin::Whisper("Components are required for my daily tribute to the Rainkeeper. It is he whose power flows from my body. I require a faithful acolyte to " . quest::saylink("gather the required items", 1) . ".");
        }
        elsif ($text=~/Gather The Required Items/i) {
            plugin::Whisper("Very noble of you. Take this chest. I will require it to be filled with flame beetle eyes. Four normal beetles and four " . quest::saylink("Kerra Isle beetles", 1) . ".  Combine these items within the chest and return it to me. I shall reward you with the protection of Holy Armor.");
            quest::summonitem(17934);
        }
        elsif ($text=~/Kerra Isle Beetles/i) {
            plugin::Whisper("Kerra Isle beetles are normally found in the vicinity of the Kerra catpeople. They can be found in Kerra Ridge, but a closer and perhaps safer location would be on the island between Antonica and Odus. The outcast catpeople of that island are far less dangerous.");
        }
    }
    elsif ($faction > 5) {
        plugin::Whisper("While I admire your interest, you need to do more work for the Knights before we can entrust this to you.");
    }
}

sub EVENT_ITEM  {
    my %factions = (183 => 10,
    21 => -10,
    257 => 7,
    135 => 7);
    if ($gold == 10) {
        plugin::Whisper("This should help you remain safe.");
        $npc->SpellFinished(11, $client);
    }

    if (plugin::check_handin(\%itemcount, 13395 => 1)) {
        plugin::Whisper("You did it! Thank you, the Knights of Thunder can use these. Take this and study it. It should help you serve the order.");
        quest::exp(500);
        foreach $key (keys %factions) {
            quest::faction($key, $factions{$key});
        }
        quest::summonitem(26962);
    }
}

Last edited by Kingly_Krab; 08-27-2014 at 03:52 AM..
Reply With Quote
  #4  
Old 08-26-2014, 05:51 PM
joligario's Avatar
joligario
Developer
 
Join Date: Mar 2003
Posts: 1,490
Default

You've got an error in your hash Krab. Besides, no point in using 7 lines when you can use 4.
Reply With Quote
  #5  
Old 08-27-2014, 03:52 AM
Kingly_Krab
Administrator
 
Join Date: May 2013
Location: United States
Posts: 1,589
Default

Sorry, fixed the issue with the ; on the end.
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 11:54 AM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3