EQEmulator Forums - Perl Quest Script Help

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)

- - Perl Quest Script Help (https://www.eqemulator.org/forums/showthread.php?t=26148)

Perl Quest Script Help

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

Code:

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

Are you checking for typos , etc, with something like Engine Site Perl Editor?

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...

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.

I just remembered something ; replace the '=' with 'eq' as in

Code:

If($class eq 'Druid')

Quote:

Originally Posted by Angelox (Post 155676)

I just remembered something ; replace the '=' with 'eq' as in

Code:

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 ".

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!).

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