A perl problem.. need a little guidance :)

[Sarepean]

I believe that line should be under the sub EVENT_ITEM{} rather than EVENT_SAY{}.

Try this:


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");
}
}

sub EVENT_ITEM{
if($platinum eq 200 )
{
quest::selfcast (3);
}
}
# end of file