Luclin Gear Script

[Durge]

Uhhh, not sure what the jigg is on this tune.


##Luclin Gear-Testing
##Created by Durge

sub EVENT_SAY
{
my $Leather = quest::saylink("Leather armor",1);
my $LeatherMisc = quest::saylink("Leather Misc Gear",1);
my $Chain = quest::saylink("Chain armor",1);
my $ChainMisc = quest::saylink("Chain Misc Gear",1);
my $Plate = quest::saylink("Plate armor",1);
my $PlateMisc = quest::saylink("Plate Misc Gear",1);
my $Cloth = quest::saylink("Cloth armor",1);
my $ClothMisc = quest::saylink("Cloth Misc Gear",1);

if($text=~/hail/i)
{
quest::say("Debug Test");
$client->Message(315, "$NPCNAME whispers to you, 'Gear-Testing: [$Leather] and [$LeatherMisc], [$Chain] and [$ChainMisc], [$Plate] and [$PlateMisc], or [$Cloth] and [$ClothMisc].'");
}

if($text=~/Leather armor/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(32374);
quest::summonitem(31516);
quest::summonitem(32189);
quest::summonitem(35484);
quest::summonitem(31724);
quest::summonitem(35485);
quest::summonitem(31958);
quest::summonitem(32554);
}
if($text=~/Leather Misc Gear/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(33522);
quest::summonitem(33676);
quest::summonitem(31940);
quest::summonitem(35196);
quest::summonitem(30854);
quest::summonitem(35013);
quest::summonitem(32451);
quest::summonitem(31043);
quest::summonitem(32661);
}
if($text=~/Chain armor/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(31958);
quest::summonitem(31472);
quest::summonitem(32505);
quest::summonitem(31722);
quest::summonitem(30588);
quest::summonitem(32504);
}
if($text=~/Chain Misc Gear/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(31940);
quest::summonitem(32661);
quest::summonitem(32451);
quest::summonitem(31729);
quest::summonitem(35013);
quest::summonitem(32057);
quest::summonitem(35196);
quest::summonitem(31325);
quest::summonitem(33522);
}
if($text=~/Plate armor/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(32554);
quest::summonitem(31958);
quest::summonitem(33045);
quest::summonitem(32489);
quest::summonitem(32491);
quest::summonitem(32493);
quest::summonitem(31908);
quest::summonitem(31947);
}
if($text=~/Plate Misc Gear/i);
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(33522);
quest::summonitem(32475);
quest::summonitem(31940);
quest::summonitem(31325);
quest::summonitem(31993);
quest::summonitem(32057);
quest::summonitem(35013);
quest::summonitem(32451);
quest::summonitem(32661);
}
if($text=~/Cloth armor/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(32888);
quest::summonitem(32955);
quest::summonitem(31969);
quest::summonitem(32948);
quest::summonitem(31747);
quest::summonitem(32554);
}
if($text=~/Cloth Misc Gear/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Here you go.'");
quest::summonitem(31940);
quest::summonitem(35196);
quest::summonitem(31729);
quest::summonitem(31012);
quest::summonitem(48616);
}
}

[Vexyl]

The problem is on line 82

if($text=~/Plate Misc Gear/i);


There is a semicolon at the end of the line which would give a syntax error.

[lerxst2112]

perl -c <scriptname> would have also pointed this out.

[Durge]

Ah ty completely missed that