starting gear quest needs help
 

this quest is not working i am having trouble with it, i have gone over it a few times and could use some input please.


subEVENT_SAY{

if($text=~"Hail/i")

{

quest::say("Hello $name I see you are a $class Of norrath Do you wish to recieve your gear to vanquish your foes??");

}

if($text=~"Yes/i")
{
if($class == 'Warrior')
{
quest::summonitem("13572");
}

if($class == 'Cleric')
{
quest::summonitem("13572");
}

if($class == 'Berzerker')
{
quest::summonitem("13572");
}

if($class == 'Paladin')
{
quest::summonitem("13572");
}

if($class == 'Shadowknight')
{
quest::summonitem("13572");
}

if($class == 'Druid')
{
quest::summonitem("13572");
}
if($class == 'Monk')
{
quest::summonitem("13572");
}
if($class == 'Bard')
{
quest::summonitem("13572");
}
if($class == 'Beastlord')
{
quest::summonitem("13572");
}
if($class == 'Ranger')
{
quest::summonitem("13572");
}

if($class == 'Magician')
{
quest::summonitem("13572");
}

if($class == 'Enchanter')

{
quest::summonitem("13572");
}

if($class == 'Wizard')
{
quest::summonitem("13572");
}

if($class == 'Shaman')
{
quest::summonitem("13572");
}
}

Should be:
if($text=~/Hail/i)

Equality operators for text are not the same as for numbers. Should be:
if($class eq 'Berzerker')

See here for additional information on Perl operators: http://www.unix.org.ua/orelly/perl/prog3/ch01_05.htm

Also, it looks like you are missing a closing brace at the end, needed to close the "sub EVENT_SAY" block.

ok will try it
 

thanks for the help i will give those things a shot and let you all know.

:)