View Single Post
  #1  
Old 09-12-2008, 11:08 AM
Irreverent
The Solo Server
 
Join Date: May 2007
Posts: 416
Default 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
__________________
OP of Irreverent Server (The Solo Server)
Our Forums
Reply With Quote