MQEmulator.net • -

Elder_Gelok.pl - Quest File

General Info

Quest File

#Elder_Gelok.pl
#Elder Gelok's Supplies
# items: 10028, 10037, 22503, 15981, 28164, 28165, 28162, 28163

#This sub give a 20% chance of recieving a random gem.  Percentage is a guess and easily changed.
#I did this because he doesn't always give out a gem.  Hope it's cool.
sub DoRandomGem {
	my $a;
	$a = int(rand(100)); 
	#Change the 20 in the if to change the % chance.
	if ($a <= 20) {
		quest::summonitem(quest::ChooseRandom(10028, 10037, 22503, 15981));#Random gem: Peridot, Diamond, Blue Diamond, Raw Diamond
	}
	else {
		#Do nothing
	}
}

sub EVENT_SAY {
  if($text=~/Hail/i) {
    quest::say("Hello there! Welcome in. . . Welcome in. . . Just watch yourself when making your way past my most trusted assistant, Drogguk. While he may have superior strength, his coordination is most inferior. He's dropped many a gear on my toes, but I know he means well. In fact, I was intending to send him on a [" . quest::saylink("serious mission") . "], though I would rather he not go.");
  }
  if($text=~/serious mission/i) {
    quest::say("You see, this windmill is more than it seems. It's quite a splendid device! It produces energy by converting the wind that rotates the blades into a power that supercharges the windmill's transcentrifugal axles. In simple terms, what it does is creates a portal into the [" . quest::saylink("Plane of Innovation") . "]. What a wonderful place that is! A virtual dream-land for any gnome!");
  }
  if($text=~/plane of innovation/i) {
    quest::say("Oh, it is such an amazing place! I ultimately desire to travel there to learn of advanced mechanics. Alas, this windmill requires constant upkeep due the constant surge of power that it propels. The gears are constantly getting sandy and the axles lose their grease almost daily. I'm often in need of [" . quest::saylink("new parts") . "] and that's where Drogguk's assistance would currently be handy, but I simply cannot sacrifice his current duties at this time. Pity, pity.");
  }
  if($text=~/new parts/i) {
    quest::say("Well, Drogguk used to travel through the portal to acquire items for me from the salvage yard. The last time he went through in search of parts he came back [" . quest::saylink("badly wounded") . "] and that's saying quite a lot! I was quite alarmed, but the elders nursed him to health with amazing haste. I simply cannot imagine placing him in such jeopardy again. He was lucky to return at all by the look of him then!");
  }
  if($text=~/badly wounded/i) {
    quest::say("Aye, you can still see some of the scars about his body. He stumbled out of the portal that day, bloody and spouting on about shiny men trying to tear him apart. He said they were speaking of research the whole time. Frightful stuff, really. Well, you look adventurous enough. Why don't you go collect some supplies for me? I fear that Drogguk would not be able to manage another trip to collect the [" . quest::saylink("supplies") . "] I require to maintain this place.");
  }
  if($text=~/supplies/i) {
    quest::say("Size 12 sprockets are always greatly needed. Any Silicorrosive Grease you find would be a huge help as well. You can never have too much Silicorrosive grease laying around. Also, tri-platinum foil and mini-gyro shields would be good for something or another. Micro-ceramic sleeves are a nice find as well. Got all that? Now, reach around up there in the area of the transcentrifugal axle that isn't working. You'll either be badly wounded or transported to the Plane of Innovation. Take care!");
  }
}
  
  
sub EVENT_ITEM {
  if((plugin::check_handin(\%itemcount, 28164 => 1)) ||  (plugin::check_handin(\%itemcount, 28165 => 1)) || (plugin::check_handin(\%itemcount, 28162 => 1)) || (plugin::check_handin(\%itemcount, 28163 => 1))){#Mini-gyro Shields, Silicorrosive Grease, Size 12 Sprockets, Tri-platinum Foil
  	quest::emote("examines the object for a moment and then says, 'This is great! The windmill should function for weeks to come due to your hard work. Feel free to bring me any others that you find. A stockpile of parts never hurt anyone!'");
    &DoRandomGem();
    quest::exp(3000000); #7% AA using a 1.0 zone_exp_multiplier
  }
  plugin::return_items(\%itemcount);
}#END of FILE Zone:potranquility  ID:203035 -- Elder_Gelok

Source: 17 Jan 2022
Quest Source: 28 May 2022