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

[sotonin]

yep...

it would be very simple too. Read around there are plenty of posted code snippets for giving out items in quests.

I am not sure about a few things you are doing. For instance i have never checked versus race class etc. but i hear EQ is the proper way to do it instead of =

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($race eq 'Dark Elf') {
		if($class eq 'Shadowknight'){ 
			quest::summonitem("19595") 
			quest::summonitem("19595")
			quest::summonitem("19597") 
			quest::summonitem("19592") 
			quest::summonitem("19593") 
			quest::summonitem("19594") 
			quest::summonitem("19596") 
			quest::summonitem("19598");
		}
	}
}

Also... i know the very first summonitem you have isnt going to work. dont know proper format i assume u are trying to summon 2 of them.. best way would probably to just take the ,2 off it and make 2 summonitems for it.