Poor Man's Tradeskill Trophy Quests

[Gaflack]

I could not find any information on the Tradeskill Trophy Quest line that was started in W. Freeport. My friends and I love Trade-skilling so I started creating a poor man's version of the old Trophy Quest line.

Here is the Baking quest, other tradeskill posting will follow.

Gaf

###############################################
# NPC: I create my Quest NPC's in various places in PoK
# Zone: POK
# Quest: Baking Tradeskill Quests
###############################################

sub EVENT_SAY {
my $Beginner = quest::saylink("Beginner");
my $Apprentice = quest::saylink("Apprentice");
my $Freshman = quest::saylink("Freshman");
my $Journeyman = quest::saylink("Journeyman");
my $Expert = quest::saylink("Expert");
my $Master = quest::saylink("Master");

if ($text =~/hail/i)
{
quest::say ("Hello, $name. Are you ready to test your Baking Skills? If you are ready please tell me which skill level you are interested in working on[$Beginner] [$Apprentice] [$Freshman] [$Journeyman] [$Expert] [$Master] [$Grand].");
}
if($text=~/Beginner/i) {
quest::say("Bring me a Rat Sandwich, Batwing Crunchie, Grilled Tuna Meat and Hearty Meat Sauce");
}
if($text=~/Apprentice/i) {
quest::say("Bring me your old Beginner Baking Trophy and a Candied Spider, White Chocolate and Sea Green Cookies");
}
if($text=~/Freshman/i) {
quest::say("Bring me your old Apprentice Baking Trophy and a Filleted Bear, Sea Urchin Stew and Grilled Crab Appetizers");
}
if($text=~/Journeyman/i) {
quest::say("Bring me your old Freshman Baking Trophy and a Pasta with Cheese, Beer-battered Hynid Jerky and Grilled Cragbeast Pie");
}
if($text=~/Expert/i) {
quest::say("Bring me your old Journeyman Baking Trophy and a Tae Ew Soup, Griffon Stir Fry and Crab Sausage");
}
if($text=~/Master/i) {
quest::say("Bring me your old Expert Baking Trophy and a Blood Raven Stew, Hero Sandwich and Misty Thicket Picnic");
}
}

sub EVENT_ITEM {
if(plugin::check_handin(\%itemcount, 13478 => 1, 13462 => 1, 58382 => 1, 8176 => 1)) { #Beginner Baking item turn-in
quest::say("Very good!");
quest::summonitem(95008); #Beginner Trophy
}
elsif(plugin::check_handin(\%itemcount, 95008 => 1, 13497 => 1, 16560 => 1, 19172 => 1)) { #Apprentice Baking item turn-in
quest::say("Very Very good!");
quest::summonitem(95009); #Apprentice Trophy
}
elsif(plugin::check_handin(\%itemcount, 95009 => 1, 9744 => 1, 65495 => 1, 58299 => 1)) { #Freshman Baking item turn-in
quest::say("Ecellent!");
quest::summonitem(95010); #Freshman Tropy
}
elsif(plugin::check_handin(\%itemcount, 95010 => 1, 8178 => 1, 58565 => 1, 58489 => 1)) { #Journeyman Baking item turn-in
quest::say("Happy Days!");
quest::summonitem(95011); #Journeyman Trophy
}
elsif(plugin::check_handin(\%itemcount, 95011 => 1, 27807 => 1, 8191 => 1, 45565 => 1)) { #Expert Baking item turn-in
quest::say("Wonderfull!");
quest::summonitem(95012); #Expert Trophy
}
elsif(plugin::check_handin(\%itemcount, 95012 => 1, 29749 => 1, 29762 => 1, 9662 => 1)) { #Master Baking item turn-in
quest::say("Perfect!");
quest::summonitem(95013); #Master Trophy
}

else {
#Return items if incorrect
plugin::return_items(\%itemcount);
}
}
#END of FILE