Guide to the Perl Quest system *updated 16/02/2004*

mrea · #1 10-04-2004, 07:57 AM

I've got a server running (5.9DR2 Perl Enabled) for my friends and I. Would it be at all possible (although a lot of coding) for me to set up an NPC that if you hail him he gives you the correct set of newb armor just to make things simple, rather than all the quests on Live.

*EDIT* Haven't waited for a response haha, but also, could you have something like the following work

Code:

sub EVENT_SAY
{
 if($text=~/Hail/i){
 quest::say("Greetings $name. Would you like me to craft some [armor] for you?");}
 if($text=~/Armor/i){
 quest::say("Gimme a second here and I'll grab something I've had lying around.");}
}
 if($class=Shadowknight) &amp;&amp; ($race=Dark Elf){
 quest::summonitem("19595,2")
 quest::summonitem("19597")
 quest::summonitem("19592")
 quest::summonitem("19593")
 quest::summonitem("19594")
 quest::summonitem("19596")
 quest::summonitem("19598");}

Meaning that if they were a Dark Elf Shadowknight they would have the full set of newbie armor summoned to them.