EQEmulator Forums - Bored, made a quest for ya to lookie at!

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Archive::Quests (https://www.eqemulator.org/forums/forumdisplay.php?f=624)

- - Bored, made a quest for ya to lookie at! (https://www.eqemulator.org/forums/showthread.php?t=14159)

Bored, made a quest for ya to lookie at!

Code:

#Quest by Virus, http://www.eqclassic.com/



sub EVENT_SAY

{

if ($text=~/Hail, Elementalist/i){ quest::say("Are you ready to earn your elementalist badge? Would you like to know your [task] ?");

}

if ($text=~/task/i) { quest::say("Your task is to fight me, once you beat me, you must take one of the cards out of my pocket and hand it to me once I am reborn. Do you accept this challange?");

}

if ($text=~/no/i) { quest::say("What?? Well too bad, because here it comes!");

quest::attack($userid);

}

if ($text=~/yes/i) { quest::say("Get ready to fight!");

quest::attack($userid);

}



sub EVENT_ITEM 

{ 

 if($item1==200){quest::say(""); 

 quest::summonitem(201);

}

}

If you can, I would like to know any errors I have made or just what you think.

This would be better imo . Saves waiting for the respawn time.

Code:

#Quest by Virus, http://www.eqclassic.com/





sub EVENT_SAY

{

if ($text=~/Hail/i){ 

quest::say("Greetings $name. Are you ready to earn your elementalist badge? Would you like to know your [task]?");}

if ($text=~/task/i) { 

quest::say("Your task is to fight me. Once you have almost won, I shall send you to the Nexus where you may collect a card. Visit me when you are ready to recieve your badge. Are you ready to fight, $name?");}

if ($text=~/no/i) { quest::say("What?? Well too bad, because here it comes!");

quest::attack($name);

quest::setnexthpevent(5);}

{

if ($text=~/yes/i) { quest::say("Get ready to fight!");

quest::attack($name);

quest::setnexthpevent(5);}

}



sub EVENT_HP

{

  if ($hpevent == 5){

   quest::say("Stop fighting $name. You have won.");

   quest::spawnitem{200};

   quest::movegrp(nexus,0,0,0);

   quest::movepc(nexus,0,0,0);

   quest::castspell($mobid,13);

  } 

}



sub EVENT_ITEM

{

 if($itemcount{200}==1){quest::say("Congratulations $name. You have earned this.");

 quest::spawnnitem(201);

}

I didn't check you syntax much, but that ^ would be better, as 1) you wouldn't need to wait for the respawn time, and 2) it's slightly more flexible.