Player quest looping

[covou]

OK this is my first attempt at a player quest, and it isnt functionin as intended.

Whenever someone who has a $spelllevel != 150000 their spells script seems to loop. unscribing the spells. scribing them and displaying the message id...

Anyone hazard a guess as to why?

sub EVENT_ENTERZONE
{
my $spelllevel = $qglobals{spellspent};
if(!defined $qglobals{SpellRescribe})
{
if($class eq 'Enchanter' || $class eq 'Magician' || $class eq 'Shadowknight' || $class eq 'Wizard' || $class eq 'Necromancer' || $class eq 'Druid' || $class eq 'Shaman' || $class eq 'Cleric' || $class eq 'Paladin' || $class eq 'Ranger' || $class eq 'Beastlord' || $class eq 'Bard')
{
quest::unscribespells();
if($spelllevel == 0 && $ulevel =< 29)
{
quest::scribespells($ulevel);
}
if($spelllevel => 2200 && $spelllevel =< 2399)
{
quest::scribespells(30);
}
if($spelllevel => 2400 && $spelllevel =< 2599)
{
quest::scribespells(31);
}
if($spelllevel => 2600 && $spelllevel =< 2799)
{
quest::scribespells(32);
}
if($spelllevel => 2800 && $spelllevel =< 2999)
{
quest::scribespells(33);
}
if($spelllevel => 3000 && $spelllevel =< 3199)
{
quest::scribespells(34);
}
if($spelllevel => 3200 && $spelllevel =< 3399)
{
quest::scribespells(35);
}
if($spelllevel => 3400 && $spelllevel =< 3599)
{
quest::scribespells(36);
}
if($spelllevel => 3600 && $spelllevel =< 3799)
{
quest::scribespells(37);
}
if($spelllevel => 3800 && $spelllevel =< 3999)
{
quest::scribespells(38);
}
if($spelllevel => 4000 && $spelllevel =< 4199)
{
quest::scribespells(39);
}
if($spelllevel => 4200 && $spelllevel =< 4399)
{
quest::scribespells(40);
}
if($spelllevel => 4400 && $spelllevel =< 4599)
{
quest::scribespells(41);
}
if($spelllevel => 4600 && $spelllevel =< 4799)
{
quest::scribespells(42);
}
if($spelllevel => 4800 && $spelllevel =< 4999)
{
quest::scribespells(43);
}
if($spelllevel => 5000 && $spelllevel =< 5199)
{
quest::scribespells(44);
}
if($spelllevel => 5200 && $spelllevel =< 5399)
{
quest::scribespells(45);
}
if($spelllevel => 5400 && $spelllevel =< 5599)
{
quest::scribespells(46);
}
if($spelllevel => 5600 && $spelllevel =< 5799)
{
quest::scribespells(47);
}
if($spelllevel => 5800 && $spelllevel =< 5999)
{
quest::scribespells(48);
}
if($spelllevel => 6000 && $spelllevel =< 6199)
{
quest::scribespells(49);
}
if($spelllevel => 6200 && $spelllevel =< 6399)
{
quest::scribespells(50);
}
if($spelllevel => 6400 && $spelllevel =< 6599)
{
quest::scribespells(51);
}
if($spelllevel => 6600 && $spelllevel =< 6799)
{
quest::scribespells(52);
}
if($spelllevel => 6800 && $spelllevel =< 6999)
{
quest::scribespells(53);
}
if($spelllevel => 7000 && $spelllevel =< 7199)
{
quest::scribespells(54);
}
if($spelllevel => 7200 && $spelllevel =< 7399)
{
quest::scribespells(55);
}
if($spelllevel => 7400 && $spelllevel =< 7599)
{
quest::scribespells(56);
}
if($spelllevel => 7600 && $spelllevel =< 7799)
{
quest::scribespells(57);
}
if($spelllevel => 7800 && $spelllevel =< 7999)
{
quest::scribespells(58);
}
if($spelllevel => 8000 && $spelllevel =< 8299)
{
quest::scribespells(59);
}
if($spelllevel => 8400 && $spelllevel =< 8499)
{
quest::scribespells(60);
}
if($spelllevel => 8500 && $spelllevel =< 8999)
{
quest::scribespells(61);
}
if($spelllevel => 9000 && $spelllevel =< 9999)
{
quest::scribespells(62);
}
if($spelllevel => 10000 && $spelllevel =< 10999)
{
quest::scribespells(63);
}
if($spelllevel => 11000 && $spelllevel =< 11999)
{
quest::scribespells(64);
}
if($spelllevel => 12000 && $spelllevel =< 12999)
{
quest::scribespells(65);
}
if($spelllevel => 13000 && $spelllevel =< 14999)
{
quest::scribespells(66);
}
if($spelllevel => 15000 && $spelllevel =< 15999)
{
quest::scribespells(67);
}
if($spelllevel => 16000 && $spelllevel =< 17999)
{
quest::scribespells(68);
}
if($spelllevel => 18000 && $spelllevel =< 19999)
{
quest::scribespells(69);
}
if($spelllevel => 20000 && $spelllevel =< 21499)
{
quest::scribespells(70);
}
if($spelllevel => 21500 && $spelllevel =< 39999)
{
if($ulevel == 71)
{
quest::scribespells(71);
}
if($ulevel == 72)
{
quest::scribespells(72);
}
if($ulevel > 72)
{
quest::scribespells(73);
}
}
if($spelllevel => 40000 && $spelllevel =< 41999)
{
quest::scribespells(74);
}
if($spelllevel => 42000 && $spelllevel =< 43999)
{
quest::scribespells(75);
}
if($spelllevel => 44000 && $spelllevel =< 45999)
{
quest::scribespells(76);
}
if($spelllevel => 46000 && $spelllevel =< 49999)
{
quest::scribespells(77);
}
if($spelllevel => 50000 && $spelllevel =< 109999)
{
quest::scribespells(78);
}
if($spelllevel => 110000 && $spelllevel =< 114999)
{
quest::scribespells(79);
}
if($spelllevel => 115000 && $spelllevel =< 119999)
{
quest::scribespells(80);
}
if($spelllevel => 120000 && $spelllevel =< 124999)
{
quest::scribespells(81);
}
if($spelllevel => 125000 && $spelllevel =< 129999)
{
quest::scribespells(82);
}
if($spelllevel => 130000 && $spelllevel =< 134999)
{
quest::scribespells(83);
}
if($spelllevel => 135000 && $spelllevel =< 149999)
{
quest::scribespells(84);
}
if($spelllevel == 150000)
{
quest::scribespells(85);
}
$client->Message(15, "Your spells have been reset due to a new spell file implementation. Apologies.");
quest::setglobal("SpellRescribe",1,5,F);
}
}
}

[Andrew80k]

You have to be careful using "=>" in perl. That is typically used as a dereference operator on objects. You should use ">=" for greater than or equal to. "=<" is ok though. Give that a whirl.