Perl quest problem

[moydock]

sub EVENT_ITEM
{
if(($itemcount{5018} == 1) &&
($itemcount{5019} == 1) &&
($itemcount{5020} == 1) &&
($itemcount{1179} == 1))
{quest::summonitem(5021); }

if($item1=="5018" &&
$item2=="5019" &&
$item3=="5020" &&
$item4=="1179")
{quest::summonitem(5022);}

if(($item1 == 501 &&
($item2 == 5019) &&
($item3 == 5020) &&
($item4 == 1179))
{quest::summonitem(5023); }

}

All three of these seem to work, thanks so much, I was losing my mind with combinations lol...

[moydock]

If I turn in item 5019 with 5020 in this situation I get my reward 5030, but I also get 5022 ,as I have satisfied that first condition as well. Is there any easy way to tell it ONLY to reward the first when a single 5019 is turned in with nothing else?

sub EVENT_ITEM
{
if(($itemcount{5019} == 1))
{quest::summonitem(5022); }

if(($itemcount{5019} == 1) &&
($itemcount{5020} == 1))
{quest::summonitem(5030); }

if(($itemcount{5018} == 1) &&
($itemcount{5019} == 1) &&
($itemcount{5020} == 1) &&
($itemcount{1179} == 1))
{quest::summonitem(5021); }

}

[jimbabwe]

This may work. can give it a try.

sub EVENT_ITEM
{

if(($itemcount{5018} == 1) &&
($itemcount{5019} == 1) &&
($itemcount{5020} == 1) &&
($itemcount{1179} == 1))
{quest::summonitem(5021); }
elsif(($itemcount{5019} == 1) &&
($itemcount{5020} == 1))
{quest::summonitem(5030); }
elsif(($itemcount{5019} == 1))
{quest::summonitem(5022); }

}

[moydock]

Ah yeah that works great. That is exactly what I tried but I did it in reverse order

Much appreciated.

[moydock]

I'm stuck with two quests, I've tried like 10 different things and can't seem to get multiple "if" conditions to work. Im a perl noob so pardon me if what I am doing makes little sense. Tried to copy the format we used above to get two if conditions to trigger a result...

1st:
sub EVENT_SAY{
if(($class == &&
($text=~/hail/i))
{quest::say("xxx"); }

elsif(($class != &&
($text=~/hail/i))
{quest::say("xxx");}

}


**** and this one

sub EVENT_ITEM{
if(($item1 == 5) &&
($ulevel < 4))
{
quest::say("xxx");
quest::summonitem(6);
quest::say("xxx");
}

if($item1 == 6)
{
quest::setallskill(0);
quest::permaclass(;
}
}

In the first one it triggers the second (elsif) condition regardless of my class. In the second it seems to be broken period, so I guess something is tripping it up in the format. Any have an idea?

[ylosh]

change the item id #'s to what you want to use and change the level check to whatever you wanted. all i saw was <

  sub EVENT_SAY {
    if ($text=~/hail/i) {
  	if ($class eq "Bard") {
  	  quest::say("you're a bard");
  	}
  	else {
  	  quest::say("you're not a bard");
  	}
    }
  }
  
  sub EVENT_ITEM {
    if ($itemcount{1001} == 1 && $ulevel < 4) { # 1 id #1001 item and level less than 4
  	quest::say("blah blah");
  	quest::summonitem(1002);
    }
    elsif ($itemcount{1002} == 1) { # 1 id #1002 item
  	quest::setallskill(0);
  	quest::permaclass(8);
    }
  }

[moydock]

Thank you very much