Go Back   EQEmulator Home > EQEmulator Forums > Archives > Archive::Development > Archive::Quests

Archive::Quests Archive area for Quests's posts that were moved here after an inactivity period of 90 days.

Reply
 
Thread Tools Display Modes
  #1  
Old 06-06-2004, 04:47 PM
Virus11
Discordant
 
Join Date: May 2004
Posts: 311
Default 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.
__________________

Reply With Quote
  #2  
Old 06-07-2004, 03:47 AM
Dave987
Discordant
 
Join Date: Jun 2003
Location: England
Posts: 267
Default

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.
__________________
;o)
Reply With Quote
Reply


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 05:47 PM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3