First Quest. Please be gentle.

[Charmy]

#name needs to be $name. don't think #name registers in the perl system as a variable, # is used to comment out sections. and although it is inside quotes, i think when this is run you will see

'Greetin's t'ye #name! Isn't the area 'round 'ere so nice an' quiet?
Such a departure from me old days; slaving o'er the forge t'create masterpieces! T'be 'onest, at times I do miss the old forge, but after I created me finest breastplate, it seemed as if nothing else I made could ever live up t'it. So I left me home to'wander the land an' see what I could learn o'the world. I 'ave learned quite a bit from the elders 'ere an' the skilled craftspeople in New Tanaan. I 'ave even devised a type o'emblem that will impart the magic o'tranquility into the user t'create planar armors from pieces o'energy found in the planes.

instead of seeing

'Greetin's t'ye Joe! Isn't the area 'round 'ere so nice an' quiet?
Such a departure from me old days; slaving o'er the forge t'create masterpieces! T'be 'onest, at times I do miss the old forge, but after I created me finest breastplate, it seemed as if nothing else I made could ever live up t'it. So I left me home to'wander the land an' see what I could learn o'the world. I 'ave learned quite a bit from the elders 'ere an' the skilled craftspeople in New Tanaan. I 'ave even devised a type o'emblem that will impart the magic o'tranquility into the user t'create planar armors from pieces o'energy found in the planes

sub EVENT_ITEM{ 
if($platinum == 500){ 
quest::summonitem("17184"); 
if($class == BARD){ 
quest::summonitem("16268"); } 
if($class == WARRIOR) 
quest::summonitem("16267"); } 
if($class == PALADIN) 
quest::summonitem("16269"); } 
if($class == SHADOWKNIGHT) 
quest::summonitem("16270"); } 
if($class == CLERIC) 
quest::summonitem("16271"); }

changing the classes as said above.

if($class eq "Cleric")
 {
   quest::summonitem(16271,0);
  }

don't need quotes when summoning items just need (ItemID,Charges) charges can also be number of items if they stack.

also $platinum is not defined you need to define it at the begging of your sub EVENT_ITEM. e.g.

sub EVENT_ITEM
{
$myplatnium = $platinum
<events>
}

just the same you could replace all the $platinum with $myplatinum =P.
so lets re write the EVENT_ITEM sub.

sub EVENT_ITEM
{
 $myplatinum = $platinum;
 if($platinum == 500)
  {
   if($class eq "Bard")
    {
      quest::summonitem(17184,0);
     }
   elsif($class eq "Warrior")
     {
       quest::summonitem(16268,0);
      }
    elsif($class eq "Paladin")
      {
        quest::summonitem(16296,0);
       }
      }
     }

Just continue on with the elsif($class eq "Class") etc....


if i missed anything sorry i am tired. good luck with the script.