[Angelox]

try using elsif , that way it will stop at the first one it finds agreeable. I think a string of "ifs" prompts perl to look at all the options.
so if you gave 500 plat (500 plat being the most), this will satisfy all the if's.

if
 if
  if
   if
    if

are all "nested" under the first if

if
elsif
elsif
elsif

are "standalone" "ifs

You can also use level checks (why would a level 50 character need a level 20 spell)?

sub EVENT_ITEM{
  if (($platinum>=15)&&($ulevel=> 46)){
    $npc->SetAppearance(0);
    quest::selfcast(2570);
    quest::say("Casting KEI, Good hunting!");
  }elsif(($platinum>=5)&&($ulevel<= 45)){
    $npc->SetAppearance(0);
    $npc->CastSpell(174,$userid);
    quest::say("Casting Clarity, Good hunting!");
  }else{
    quest::say("Thank you for your donation $name, it wasn't enough though ...");
 }
}

The latter is my mana caster in PoK