BuffBot

Angelox · #5 07-17-2007, 08:19 PM

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.

Code:

if
 if
  if
   if
    if

are all "nested" under the first if

Code:

if
elsif
elsif
elsif

are "standalone" "ifs

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

Code:

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