[cubber]

This is a quest that I tagged on Galarono_McHalorsos in the bazaar on my server. I chose him because he had no quests assigned to him and he is in a central location. The quest gives him the ability to summon players certian items to make their lives a bit easier on a small server with a population of about 5 players.

This script will give the player the choice to obtain the following:

- 3 guide packs if the player says [bags].

- gm pants (bard speed), celestial sword (gate), gm boots (lev), earing of the Z (nice regen and stats), gm gloves (100% Rez) if the player says [special items]

- Your basic set of mage summoned pet gear if the player says [pet gear]

- An Adventurer's Stone if the player says [Adventurer's Stone]

- 10 vials of Armour Dye if a player says [Armour Dye]

- A joke about the epic if the player says [Epic]

- And finally a choice of levels to level the player up to with the max being 50.

#############
#Written By : Cubber
#Quest Name: Small Server Help
#Quest Zone: Bazaar
#Quest NPC: Galarono_McHalorsos
#################
sub EVENT_SAY
{
   if($text=~/Hail/i)
      {
         quest::say("Hello there $name,  Looking for some new toys are ya?  I just may have a some special equipment stashed away here somewhere,  are you [interested] ?");
      }
if ($text=~/interested/i)
			
			{
				quest::say("Tell me $race what are ya looking for? [Bags], [Special Items], [Pet Gear], an [Adventurer's Stone], some [Dye] for your armour, or your [Epic]?  I can also help you catch up to your friends by granting you some [Levels].");
			}
			
				if ($text=~/bags/i)
					{
						quest::say("Here are some bags to help carry all your loot!");
						quest::summonitem("17800");
						quest::summonitem("17800");
						quest::summonitem("17800");      	
					}
			
				if ($text=~/Special Items/i)
					{
						quest::say("Here are a few special items to help you along in your travels!");
						quest::summonitem("31951");
						quest::summonitem("31883");
						quest::summonitem("31881");
						quest::summonitem("31885");
						quest::summonitem("31954");
					}
			
				if ($text=~/Pet Gear/i)
					{
						quest::say("Here are some goodies for your pet!");
						quest::summonitem("46987");
						quest::summonitem("28595");
						quest::summonitem("28595");
						quest::summonitem("28596");
						quest::summonitem("28596");
						quest::summonitem("28598");
					}

				if ($text=~/Adventurer's Stone/i)
					{
						quest::say("Good luck on your adventures!");					
						quest::summonitem("41000");
					}

				if ($text=~/Dye/i)
					{
						quest::say("Don't go to crazy with this stuff now!");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
						quest::summonitem("32557");
					}

				if ($text=~/Epic/i)
					{
						quest::say("HaHa! I got ya $class ... You need to earn that one for yourself!");
					}
	
				if ($text=~/Levels/i)
					{
						quest::say("What level would you like me to grant you? [10], [20], [30], [40], or [50]?");
					}

				if ($text=~/10/i)
					{
						quest::say("There you are!  Don't forget to go train, and get your new spells or skills.");
						quest::level(10);
					}

				if ($text=~/20/i)
					{
						quest::say("There you are!  Don't forget to go train, and get your new spells or skills.");
						quest::level(20);
					}

				if ($text=~/30/i)
					{
						quest::say("There you are!  Don't forget to go train, and get your new spells or skills.");
						quest::level(30);
					}
	
				if ($text=~/40/i)
					{
						quest::say("There you are!  Don't forget to go train, and get your new spells or skills.");
						quest::level(40);
					}

				if ($text=~/50/i)
					{
						quest::say("There you are!  Don't forget to go train, and get your new spells or skills.");
						quest::level(50);
					}

}