Perl Quest Script Help

[Irreverent]

OK, I'm trying to do this quest for spell turn ins...its not working...any help?


sub EVENT_ITEM {
if((plugin::check_handin(\%itemcount, 11622 => 1)) ||
(plugin::check_handin(\%itemcount, 94071 => 1)) ||
(plugin::check_handin(\%itemcount, 11602 => 1))
)
{
quest::emote("Congratulations! You will now get one of your lvl 66 spells!");
If($class = 'Druid')
{quest::summonitem(quest::ChooseRandom(77084,77085 ,77087,77088,77852));}
if($class = 'Bard')
{quest::summonitem(quest::ChooseRandom(77111,77112 ,77113));}
if($class = 'Beastlord')
{quest::summonitem(quest::ChooseRandom(77255,77256 ));}
if($class = 'Cleric')
{quest::summonitem(quest::ChooseRandom(77001,77002 ,77003,77004,77005,77275,77843));}
if($class = 'Enchanter')
{quest::summonitem(quest::ChooseRandom(77233,77234 ,77235,77238,77272));}
if($class = 'Magician')
{quest::summonitem(quest::ChooseRandom(77202,77203 ,77208,77209,77210));}
if($class = 'Necromancer')
{quest::summonitem(quest::ChooseRandom(77157,77158 ,77159,77846));}
if($class = 'Ranger')
{quest::summonitem(quest::ChooseRandom(77047,77048 ,77049));}
if($class = 'Shadowknight')
{quest::summonitem(quest::ChooseRandom(77065,77066 ,77067,77849));}
if($class = 'Shaman')
{quest::summonitem(quest::ChooseRandom(77129,77130 ,77131,77132,77133));}
if($class = 'Paladin')
{quest::summonitem(quest::ChooseRandom(77028,77029 ,77031));}
if($class = 'Wizard')
{quest::summonitem(quest::ChooseRandom(77178,77179 ,77180,77182));}
}
else
{
quest::say("I don't need this or your class hasn't been implemented yet so check the forums.");
plugin::return_items(\%itemcount);
return 1;
}
}#Done

[Angelox]

Are you checking for typos , etc, with something like Engine Site Perl Editor (http://enginsite.com/Perl.htm)?

[Irreverent]

Hah, nope...I'm an old mainframe programmer...so do the compile and go...but will check that out!

I was thinking perhaps I wasn't using the $class correctly or something...

[Angelox]

Always start with the easy stuff first (like typos), I've wasted days on stupid stuff because I didn't, and thought it was OK.
I'm not saying it is, but I just like to narrow things down.

[Angelox]

I just remembered something ; replace the '=' with 'eq' as in If($class eq 'Druid')

[Andrew80k]

I just remembered something ; replace the '=' with 'eq' as in If($class eq 'Druid')
If is capitalized. So make that lower cased. To do what Angelox said, you should use " instead of '. While it will probably work with the single quote, it is much more efficient to use the ".

[Angelox]

I don't hardly look at the script they're having problems with, until I know they checked for typos, which is usually the case.
That's why you hardly ever see me stung up with a problem and posting for a solution. I look for the dumbest of mistakes first, which usually if not always, thats what it is.
My scripts get all screwy and don't work too :)
My favorite mistake is when I copy/paste a script (to save time), then get hidden characters that break the script; always happens when I forget to check for it, always takes me a day or two to figure it out again (I really saved a lot of time!).

[Irreverent]

Well, the combination of all reccomendations fixed the problem! Thank you very much!