[scrubtasticx]

well either way it works and now ive finished it so here is a customizable epic quest for anyone who wants it finished code:

sub EVENT_SAY
{
my $weapon = quest::saylink ("weapon");

	if ($text =~/Hail/i && !defined $qglobals{"Epic"}) 
	{
	quest::say("Hello $name, Along my journies i have aquired knowledge on how to create a [$weapon] with power like none seen before.");
	}
	
	if ($text =~/weapon/i)
	{
	quest::say("In order for me to make you this special weapon i need a few items. The first item I need is a greatsword from Acryila Caverns.");
	}
	
	elsif ($qglobals{"Epic"} == 1) 
		{
		quest::say("The next item you need is an eye from a evil unicorn in Lesser Faydark.");
	    }
		
	elsif ($qglobals{"Epic"} == 2)
		{
		quest::say("The next item i need is a Polished Shard from Droga.");
	    }
		
		elsif ($qglobals{"Epic"} == 3)
		{
		quest::say("The next item i need is a Sphere of Sandstorm from Bastion of Thunder.");
	    }
		
		elsif ($qglobals{"Epic"} == 4)
		{
		quest::say("The next item I need is dryad parts from Jagged Pine Forest.");
	    }
		
		elsif ($qglobals{"Epic"} == 5)
		{
		quest::say("The next item i need is werewolf talon from Castle Mistmoore.");
	    }
		
		elsif ($qglobals{"Epic"} == 6)
		{
		quest::say("The next item i need is a snowball from permafrost.");
	    }
		
		elsif ($qglobals{"Epic"} == 7)
		{
		quest::say("This last part will not be so easy. I need Kallis' Head.");
	    }
		
		elsif (($class eq "Wizard") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(16576);
		}
		
		elsif (($class eq "Ranger") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(62649);
		}
		
		elsif (($class eq "Bard") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(77640);
		}
		
		elsif (($class eq "Beastlord") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(57054);
		}
		
		elsif (($class eq "Berserker") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(18609);
		}
		
		elsif (($class eq "Cleric") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(20076);
		}
		
		elsif (($class eq "Druid") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(62880);
		}
		
		elsif (($class eq "Enchanter") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(52962);
		}
		
		elsif (($class eq "Magician") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(19839);
		}
		
		elsif (($class eq "Monk") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(67742);
		}
		
		elsif (($class eq "Necromancer") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(64067);
		}
		
		elsif (($class eq "Paladin") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(48147);
		}
		
		elsif (($class eq "Rogue") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(39941);
		}
		
		elsif (($class eq "Shadowknight") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(48136);
		}
		
		elsif (($class eq "Shaman") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(57405);
		}
		
		elsif (($class eq "Warrior") && ($qglobals{"Epic"} == 8))
		{
		quest::say("Congrats on your Epic! Use it well.");
		quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
		$client->summonitem(60332);
		}
		
	else
	{
	quest::say("You have already completed this quest.");
	}
}

sub EVENT_ITEM 

{
	if ($item1== 51261 && !defined $qglobals{"Epic"})
	{
    quest::say("This is just what i was looking for! The next item you need is an eye from a evil unicorn in Lesser Faydark.");
	quest::setglobal("Epic", 1, 1, "F");
	}
 
	elsif ($item1== 1815 && ($qglobals {"Epic"} == 1))
	{
	quest::say("Wow you are making incredible time getting me these items. The next item i need is a Polished Shard from Droga.");
	quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
    }
	
	elsif ($item1== 81116 && ($qglobals {"Epic"} == 2))
	{
	quest::say("You are getting closer to greatness. The next item i need is a Sphere of Sandstorm from Bastion of Thunder.");
	quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
    }
	
	elsif ($item1== 9429 && ($qglobals {"Epic"} == 3))
	{
	quest::say("Incdredible! The weapon is almost complete. The next item I need is dryad parts from Jagged Pine Forest.");
	quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
    }
	
	elsif ($item1== 8107 && ($qglobals {"Epic"} == 4))
	{
	quest::say("You are half way there. The next item i need is werewolf talon from Castle Mistmoore.");
	quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
    }
	
	elsif ($item1== 13746 && ($qglobals {"Epic"} == 5))
	{
	quest::say("The weapon is starting to glow. The next item i need is a snowball from permafrost.");
	quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
    }
	
	elsif ($item1== 19034 && ($qglobals {"Epic"} == 6))
	{
	quest::say("Just one more peice to go. This last part will not be so easy. I need Kallis' Head.");
	quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
    }
	
	elsif ($item1== 31420 && ($qglobals {"Epic"} == 7))
	{
	quest::say("That is everything. Give me a few seconds to get your weapon made.");
	quest::setglobal("Epic", ($qglobals{"Epic"} +1), 1, "F");
	}
	
else
	{
	quest::say("I cannot use that at this time. Please give me the items in the correct order as I have instructed.");
	}
}