Tasks 1 to 11 in the PEQ database are samples that I did when the system was first implemented.
This is the Perl script that offered the first 6 tasks (V'Lynn Renloe in PoK):
Code:
#V'Lynn Renloe.pl
sub EVENT_SAY {
if(quest::istaskactivityactive(1,0)) {
quest::say("Activity 1 of Children of the Fay is in progress");
}
if($text=~/Hail/i) {
quest::say("Before you stands a being draped in more than the battle-weary armor adorning him. In a glance you are able to discern that he carries with him years of hard combat -- proudly worn scars earned from life-threatening wounds sporadically decorate his body. As you approach, his eyes seize down upon you, narrowing their stony gaze. All at once you feel as if your inner most secrets have been torn open for all to see. 'A new face to the Plane of Knowledge? Come to search for some lost secret of a forgotten god? Or perhaps you've come for the answer to an ancient riddle that plagues you? Hah, no! You're not one who is content merely spending their mortal life with their nose buried in scholarly ramblings. No, your heart seeks the path of a true adventurer and I just may know [something] about that.");
}
if($text=~/something/i) {
quest::say("Many lifetimes ago I was not the tired old man you see before you. No, I was in fact often called to prepare troops to defend the light. The last time I sent brave warriors off to fight was for the Battle of Kithicor. Though many were ready for that contest, very few returned. Near the end, as we were just about to seize victory, a curse was unleashed upon the forest as the Plane of Hate poured forth and smothered the area. Friend, foe, animal. . .it didn't matter. All had their souls torn from their body to satisfy the hunger of the Hate Lord.' He sighs deeply and seems to catch himself from wandering too far down the path of painful memories, 'But it seems fate has called upon me once more to set the righteous upon the path. Know that though age has proven to be the one enemy I could not best, I shall [aid] you as much as I can.");
}
if($text=~/aid/i) {
quest::say("Aye, aid you I shall for though your arm be strong, your mind sharp, and your heart made of iron, you are ill equipped to face the many dangers that lie in wait. Normally your city's Guildmaster would furnish you properly but during these times, resources are scarce and you are not likely to be afforded a wooden shoe much less implements fitting your needs. Yet fate has indeed brought us together for during my travels I have come to the aid of many, including your very own Guildmaster. Prove yourself worthy by passing the [trials] I lay before you and I will convince your Guildmaster to properly equip you. If you have a [group], however, there are even larger challenges I have for you.");
}
if($text=~/trials/i) {
quest::say("Yes each trial is designed to test your abilities to their maximum. As you improve, I will have more trials available to you. After successfully completing a trial, I will give you a note that you may pass along to your Guildmaster for your reward.");
@tasklist =(1,2,3,4,5,6);
$tasksoffered = "";
foreach $task(@tasklist) {
if(!quest::istaskactive($task)) {
if($tasksoffered eq "") {
$tasksoffered = $tasksoffered . $task;
}
else {
$tasksoffered = $tasksoffered . "," . $task;
}
}
}
if($tasksoffered ne "") {
quest::say("I am offering you tasks $tasksoffered");
quest::taskselector(eval($tasksoffered));
}
}
}
sub EVENT_TASKACCEPTED {
quest::say("You accepted task $task_id");
if($task_id eq "1") {
quest::summonitem(36078);
}
}
When you say the word 'trials', it should bring up a task selector offering tasks 1 through 6 (if you have already accepted any of those 6 previously, they won't appear in the selector).
If you accept Example Task 1, then it will summon an 'Elven Bottle Of Wine' which you need to complete the first activity. This task is actually a copy of 'Children Of The Fay' from live, I just changed the name for Copyright reasons
