Selling your soul to the devil

[rickjames1234]

This is just a little quest i thought of, not sure if i'm going to use it atm...i was just wondering should i have used seperate events for each class? or maybe seperate npcs? just learning perl so there might be a few errors.

****thanks****

sub EVENT_SAY
{
if($text=~/hail/i)
{ quest::say("What are you tired of your current proffession? We'll i can [help] change that for you. All that I ask in return, is your soul."); }

{ 
if($text=~/help/i)
{ quest::say("Now tell me what class do you wish to become? [Warrior], [Cleric], [Paladin], [Ranger], [ShadowKnight], [Druid], [Monk], [Bard], [Rogue], [Shaman], [Necromancer], [Wizard], [Magician], [Enchanter], [Beastlord], or [Berserker]?"); }

{
if($text=~/Warrior/i)
{
quest::permaclass(1);
quest::rain(1);
quest::emote("Beams a smile at you!");
}


{
if($text=~/Cleric/i)
{
quest::permaclass(2);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}


{
if($text=~/Paladin/i)
{
quest::permaclass(3);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Ranger/i)
{
quest::permaclass(4);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Shadowknight/i)
{
quest::permaclass(5);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Druid/i)
{
quest::permaclass(6);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Monk/i)
{
quest::permaclass(7);
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Bard/i)
{
quest::permaclass(8);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Rouge/i)
{
quest::permaclass(9);
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Shaman/i)
{
quest::permaclass(10);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Necromancer/i)
{
quest::permaclass(11);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Wizard/i)
{
quest::permaclass(12);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Magician/i)
{
quest::permaclass(13);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Enchanter/i)
{
quest::permaclass(14);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Beastlord/i)
{
quest::permaclass(15);
quest::scribespells();
quest::rain(1);
quest::emote("Beams a smile at you!");
}

{
if($text=~/Berserker/i)
{
quest::permaclass(16);
quest::rain(1);
quest::emote("Beams a smile at you!");
}
}