Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::need work

Quests::need work This is where quests that are outdated or still need work

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 03-24-2008, 11:35 PM
Haven21
Fire Beetle
 
Join Date: Mar 2008
Posts: 6
Default Quest::Warrior Epic: Make it Augmentable

Hello everyone, I figured I'd give quest writing a shot so decided to try an easy quest first to try and get the hang of it so I apologize if this isn't very well written but it does what it needs to do.

Code:
#Quest Name: Warrior Epic: Make it Augmentable
#Author: Haven21
#NPC's Involved: Gartrog Smitehammer
#Zone: East Freeport
#Items Involved: 10908, 17859, 66175, 66176, 66177


sub EVENT_SAY {

  if($text =~ /Hail/i) {
  	quest::say("You have heard of the strange stones being recovered from ancient dungeons? It is true. Powerful stones of unknown origins have been discovered as of late in the newly discovered dungeons. I see you wield a warrior's most prized honor. Congratulations on your acquiring such a fine weapon. It holds great power. I worry however if you were to try to augment your new weapon with one of these new stones. I have done some research and it seems the Red Scabbard used to combine and uncombined your weapon, could potentially harm any augmentation you might add. However with the help of Wenden here, we have been able to successfully forge all three versions of your weapon! The scabbard no longer works with them, but we have achieved some nice results by adding various augmentations to them. We could perhaps craft you a new set of weapons if you are [interested].");
  					   }

  if($text=~/Interested/i) {
    quest::emote("pulls out a shining smithy's hammer.");
    quest::say("Hand me your Red Scabbard and your Jagged Blade of War. I will supply the rest of the metal since you helped out Kargek with the note from his brother and the gift you gave to him.");
    					   }
			   }  

sub EVENT_ITEM {
  
  if(plugin::check_handin(\%itemcount, 17859 => 1, 10908 => 1)){
	quest::emote("begins to furiously work the metal. Sparks fly and a faint magical aura seems to surround the immediate area.");
	quest::say("Ah, a fine job! Your new weapons, $name! Good luck on your travels and if you find any of the augmentation stones, you can now use them to make these fine weapons ever finer!");
	quest::summonitem("66175");
	quest::summonitem("66176");
	quest::summonitem("66177");
	}

  else {

   quest::say("These are not the items I asked for.");
   plugin::return_items(\%itemcount);
   return 1;

  }
}
Reply With Quote
 


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 12:52 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