Items and levels for a small server.

[cubber]

Think you can do one for spells?

Here you go. Updated to scribe spells at the current level of the player for 500 plat.

#############
#Written By : Cubber
#Quest Name: Items and Levels for a Small Server.
#Quest Zone: Bazaar
#Quest NPC: Galarono_McHalorsos
#################
sub EVENT_SAY
{
   	if($text=~/Hail/i)
      		{
         	quest::say("Hello there $name! I have in my possesion some very fine items, as well as a few useful abilities that I am offering to adventurers for a small donation.  Are you [interested] in what I have to offer?");
      		}
	
	elsif ($text=~/interested/i)
		
		{
			quest::say("Tell me $race what are ya looking for? [Bags], [Pet Gear], [Spells], some [Dye] for your armour, or some very [Special Items]?  I can also help you catch up to your friends by granting you some [Levels] or [AA Points].");
		}
			
				elsif ($text=~/dye/i)
					{
						quest::say("I will trade you a stack of armour dye for 25 platinum pieces.");
					}

				elsif ($text=~/bags/i)
					{
						quest::say("I will trade you a nice bag for 50 platinum pieces.");
					}
			
				elsif ($text=~/Pet Gear/i)
					{
						quest::say("I will trade you some nice gear for your pet for 100 platinum pieces.");
					}

				elsif ($text=~/Special Items/i)
					{
						quest::say("I will trade you a few very special items for 10000 platinum pieces.");
					}
			
								
				elsif ($text=~/AA Points/i)
					{
						quest::say("I will grant you 5 regular AA Points for 2500 platinum pieces.");
					}
					
	
				elsif ($text=~/Levels/i)
					{
						quest::say("I will grant you 1 level for 5000 platinum pieces.");
					}
				
				elsif ($text=~/Spells/i)
					{
						quest::say("I will grant you all of the spells up to your current level for 500 platinum pieces.");
					}
					
				
}

sub EVENT_ITEM

{

	if($platinum ==25)
		{
			quest::summonitem("32557","20");
		}

	elsif($platinum ==50)
		{
			quest::summonitem("17145");
		}

	elsif($platinum ==100)
		{
			quest::summonitem("46987");
			quest::summonitem("28595");
			quest::summonitem("28595");
			quest::summonitem("28596");
			quest::summonitem("28596");
			quest::summonitem("28598");
		}
	
	elsif($platinum ==10000)
		{
			quest::summonitem("31951");
			quest::summonitem("31883");
			quest::summonitem("31881");
			quest::summonitem("31885");
			quest::summonitem("31954");
		}

	elsif($platinum ==2500)
		{
			quest::ding();
			quest::emote("grants you 5 AA Points!");
			$client->AddAAPoints(5);
		}

	elsif($platinum ==5000)
		{
			quest::emote("grants you 1 level!");
			quest::level(quest::getlevel(0) +1);
		}
			
	elsif($platinum ==500)
		{
			quest::scribespells(quest::getlevel(0));
			quest::emote("points at your spellbook");
		}
}