View Single Post
  #1  
Old 02-12-2012, 11:56 PM
Durge
Sarnak
 
Join Date: Jan 2010
Location: USA
Posts: 51
Default Luclin Gear Script

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

Code:
##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);
	}
}
__________________
Reply With Quote