Froglok pelt upgrade quest

[realityincarnate]

This is the script for the froglok trader in the Rathe mountains who upgrades low/medium quality pelts. He only speaks to or performs the trade for frogloks.

Dar_Forager_Lumun.pl - zone: rathemtn

#############
#Quest Name: Upgraded Pelts
#Author: RealityIncarnate
#NPCs Involved: Dar Forager Lumun
#Items Involved: Low/medium/high quality wolf/bear/cat pelts
#################

sub EVENT_SAY {
 if($race=~/Froglok/) {
  if($text=~/Hail/i) {
   quest::say("Nice to meet you, $name! Please have a look at my wares, I have taken great pains to brings only the best that the mountains have to offer. Or perhaps you are here to make an [exchange]?");
  }
  
  if($text=~/exchange/i) {
   quest::say("I am always in need of more skins, so I will swap three identical unruined pelts for one of my higher quality versions.");
  }
 }
}

sub EVENT_ITEM {
 if($race=~/Froglok/) {
  if(plugin::check_handin(\%itemcount, 12084 => 3)) {
   quest::say("Hmm. . . That seems like a fair trade. Let me see what I've got in my satchel. No. Wait, yes! I do have a fine specimen here that I think you'll agree is of superior quality.");
   quest::exp(150);
   quest::summonitem(12085);
  }

  elsif(plugin::check_handin(\%itemcount, 12085 => 3)) {
   quest::say("Hmm. . . That seems like a fair trade. Let me see what I've got in my satchel. No. Wait, yes! I do have a fine specimen here that I think you'll agree is of superior quality.");
   quest::exp(150);
   quest::summonitem(12086);
  }

  elsif(plugin::check_handin(\%itemcount, 13753 => 3)) {
   quest::say("Hmm. . . That seems like a fair trade. Let me see what I've got in my satchel. No. Wait, yes! I do have a fine specimen here that I think you'll agree is of superior quality.");
   quest::exp(150);
   quest::summonitem(13754);
  }

  elsif(plugin::check_handin(\%itemcount, 13754 => 3)) {
   quest::say("Hmm. . . That seems like a fair trade. Let me see what I've got in my satchel. No. Wait, yes! I do have a fine specimen here that I think you'll agree is of superior quality.");
   quest::exp(150);
   quest::summonitem(13755);
  }

  elsif(plugin::check_handin(\%itemcount, 13750 => 3)) {
   quest::say("Hmm. . . That seems like a fair trade. Let me see what I've got in my satchel. No. Wait, yes! I do have a fine specimen here that I think you'll agree is of superior quality.");
   quest::exp(150);
   quest::summonitem(13751);
  }

  elsif(plugin::check_handin(\%itemcount, 13751 => 3)) {
   quest::say("Hmm. . . That seems like a fair trade. Let me see what I've got in my satchel. No. Wait, yes! I do have a fine specimen here that I think you'll agree is of superior quality.");
   quest::exp(150);
   quest::summonitem(13752);
  }

  else {
    quest::say("I don't need that, friend.");
    plugin::return_items(\%itemcount);
  }
 }
 
 else {
  quest::say("Hmm... There is something about $race\s I don't exactly trust...");
  plugin::return_items(\%itemcount);
 }
}

#END OF FILE zone:rathemtn

[cavedude]

Submitted, thank you!