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

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

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 02-03-2012, 05:00 PM
druid64
Fire Beetle
 
Join Date: Dec 2011
Posts: 20
Default Welnik's Picks and Ore

Welnik's Picks and Ore - Lavastorm and Steamfont Mountains

http://everquest.allakhazam.com/db/q...tml?quest=3031

A friend asked about this quest for our server and someone had posted part of it in under questions or somethings. http://www.eqemulator.org/forums/showthread.php?t=31951

I used that partial code as a base. I fixed and updated it then wrote the 2nd half for the npc in Steamfont.

Note: Smith Numden might not be in classic steamfont so you may need to spawn him. I believe the quest was added during Dragons of Norrath when lavastorm was revamped. We use the newer steamfont from Secrets of Faydwer on our server so I had to create the folder in quests and put his file in there for it to work.

#Miner_Welnik.pl goes in /quests/lavastorm
Code:
#Welnik's Picks and Ore by druid64 02/02/2012 updated from original code by Swiftsong_Lorekeeper
#  #Miner_Welnik.pl goes in /quest/lavastorm/

sub EVENT_SAY {
	if($text=~/Hail/i) {
		quest::say("Oh excuse my rudeness $name, but I'm afraid I don't have much time for idle chatter, I must find those [picks]!");
	}
	if($text=~/picks/i) {
		quest::say("The mining picks! Bibol had me gathering up all the ones that were no longer usable to take to the smith and they are just gone. If I don't get them back in time, he will have my head! I've already wasted far too much [digging] time looking for them.");
	}
	if($text=~/digging/i) {
		quest::say("Dig dig dig, that's what we do. I don't know what is so all-important, but the boss has been in no mood for tricks this time around. I must [find] those picks and dig another six feet!");
	}
	if($text=~/find/i) {
		quest::say("Yes find them, I must! Oh...Oh what are you doing? Do you think you could [help]? Can you find them for me?");
	}
	if($text=~/help/i) {
		quest::say("There are four that I am still missing. How does this sound, I will stay here and dig to keep them off my back, and you find the picks and take them to the smith? His name is Numden, has a little shop in Steamfont. I am sure that I could find a way to reward you");
	}
	if($text=~/extra/i) {
		quest::say("I am a bit of a jeweler on the side. I find it relaxing after working in the mines all day, and it comes in handy when I find the spare gem laying around. There is a special kind of fiery ore that can be found in these mountains. Bring me four pieces of it, and I shall make you a ring. How does that sound?");
	}
}

sub EVENT_ITEM { 
	if (plugin::check_handin(\%itemcount, 54435 => 1)){ #bundle of shiny new picks x 1
		quest::say("Oh, these are perfect! Please accept this as a reward. Actually, since you have done so much for me, I might be able to give you something [extra]");
		quest::ding();
		quest::summonitem(71705);
		quest::exp(1000);
	}
	if (plugin::check_handin(\%itemcount, 7882 => 4)) { #fiery ore x 4
		quest::say("That's the stuff. Three for me, one for you! Here is your ring $name. Thank you again for your help!");
		quest::ding();
		quest::summonitem(71706);
		quest::exp(1000);
	} 
	plugin::returnUnusedItems();
}

sub EVENT_SPAWN {
	my $x;
	my $y;
	my $z;
	my $h;

	$x = $npc->GetX();
	$y = $npc->GetY();
	$z = $npc->GetZ();
	$h = $npc->GetHeading();

	quest::set_proximity( $x-40,$x+40,$y-40,$y+40,$z-40,$z+40);
} 

sub EVENT_ENTER {
	quest::say("Oh dear, oh dear. Where have they gone? My boss is going to kill me! ");
}
#Smith_Numden.pl This file goes in /quests/steamfont/ or /quests/steamfontmts/ depending on your server
Code:
#Welnik's Picks and Ore by druid64 02/02/2012 
# #Smith_Numden.pl for Welnik's Picks and Ore Quest. This files goes in /quests/steamfont/ or /quests/steamfontmts/ depending on your server

sub EVENT_ITEM { 
	if (plugin::check_handin(\%itemcount, 54431 => 1, 54434 => 1, 54432 => 1, 54433 => 1)) { # Chipped Cracked, Rusted and Wobbly Pick 
		quest::say("These picks are in sad shape, that they are. This would take longer than it is worth. I just forged some new ones, just take those and get out!");
		quest::ding();
		quest::summonitem(54435);
		quest::exp(1000);
	} 
	plugin::returnUnusedItems();
}
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 06:51 PM.


 

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