PDA

View Full Version : help perl


kouhei
04-19-2006, 12:17 PM
I am trying to get this to work. This is how it works. hand over these 4 items the NPC will summon item for you. OR if you turn over 3 items of a certain item he will summon the item for you. Now Whats wrong with this picutre?




sub EVENT_ITEM
{

if ($itemcount{12147} == 1 && $itemcount{12148} == 1 && $itemcount{12149} == 1 && $itemcount{12147} == 1)

else

if ($itemcount{12145} == 3)

{
quest::say("Here you go then.");

quest::ding();

quest::summonitem("26644");
quest::exp("100");

}

}

Cripp
04-19-2006, 12:30 PM
sub EVENT_ITEM
{

if ($itemcount{12147} == 1 && $itemcount{12148} == 1 && $itemcount{12149} == 1 && $itemcount{12147} == 1 || itemcount{12145} == 3)

{
quest::say("Here you go then.");

quest::ding();

quest::summonitem("26644");
quest::exp("100");

}

}

try that

kouhei
04-19-2006, 01:11 PM
Thanks Cripp, I will try that when I get home. I will then post the quest for everyone to use. If works!! hehe lol

fathernitwit
04-19-2006, 03:25 PM
in perl, its "elsif" not "else if"