[mwmdragon]

sub EVENT_SAY  
{  
  if ($text=~ /Hail/i)
  {
  quest::text ("Hail $name, of the $race race, you come to me because you have lost your soul.. ");  
  if($ulevel <= 15 )
  	     {
   	     quest::text ("you are but a novice, $name, I shall not charge you for this");
   	     quest::summonitem ( 17355);
  	     quest::text ( "place this into your inventory.. tell me yes when you have done");
  	     }
  }
  elsif($ulevel >= 16)
  {
  		quest::text ( "you are a seasoned adventurer, $name, 200pp shall be my price");
  		quest::summonitem(17355);
  		quest::text ("place this into your inventory.. say yes when ready");
  }

  if ($text=~ /yes/i && $ulevel <= 15)
   {
   quest::selfcast (3);
   }

   if ($text=~ /yes/i && $ulevel >= 16)
      {
      quest::text ( "and the little matter of 200pp, if you please");
      if($platinum eq 200 )
      		   {
   		   quest::selfcast (3);
   		   }
       }
}
# end of file