EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)
-   -   help perl (https://www.eqemulator.org/forums/showthread.php?t=20359)

kouhei 04-19-2006 12:17 PM

help perl
 
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

Code:

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
 
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"


All times are GMT -4. The time now is 02:12 PM.

Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.