EQEmulator Forums - Caster delay, I need help!

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

- Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)

- - Caster delay, I need help! (https://www.eqemulator.org/forums/showthread.php?t=22248)

Caster delay, I need help!

Can someone post an example of how to make a delay before quest::selfcast with quest::settimer or something else?
I've been stuck with this all day and nothing works for me :(

I did a search through the PLs for settimer, which I am sure you looked through as well. Below is the Dark Elf Corruptor script, showing his spawning as setting a 600 second countdown to despawn. Once the 600 seconds expires, EVENT_TIMER pops and removes the timer and the NPC.

Code:

# dark elf corruptor shouts before attacking

#



sub EVENT_SPAWN {

  quest::shout("We come for you, fools. Your reign of weakness over the powers of the land comes to an end now!");

  quest::settimer("despawn",600);

}



sub EVENT_TIMER {

  quest::stoptimer("despawn");

  quest::depop();

}



sub EVENT_DEATH {

  quest::stoptimer("despawn");

}



# EOF zone: eastkarana ID: 15153 NPC: Dark_Elf_Corruptor

Can you set the settimer("castdelay",10) and then use the EVENT_TIMER to kill the timer, then cast the spell?

stoptimer("castdelay")
castspell($userid,spellid)

This is what I came up with.
The subroutine HEALING is the only way I got a pause.
For what ever reason nesting quest::selfcast(spellid); and castspell($userid,spellid); in the sub EVENT_TIMER or even in a sub EVENT_SIGNAL it doesn't cast the spell.

Code:

#Test for pausing a selfcast script.

#This can be added to any spawn in any zone.

#This script shows several way we should be able to pause the quest::selfcast();



sub EVENT_SAY {

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

   quest::say("Why hello there, $name!  I can heal you.");

   quest::settimer("healme",5);   #This is a five second pause then the event timer call.

  }

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

   quest::say("Why hello there, $name!  Stand still for a few seconds this won't hurt much.");

   quest::pause(30);              #This should be a 30 second pause (but there isn't) then a heal.

   quest::say("There sould be a pause then a heal.");      #This is just a statement to see if the script is running.

   quest::selfcast(6110);

  }

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

          $h = 0;

          HEALING();

  }

}



sub HEALING {                     #This works to get about a 10 second pause and it appears not to lag the server.

  while ($h <= 30000000) {

    #quest::say("$h");

          $h ++;

  }

quest::say("Direct sub call to heal.");                     #This is just a statement to see if the script is running.

quest::selfcast(6110);

}



sub EVENT_TIMER {                 #This is the event timer call but the selfcast won't work nested here for what ever reason.

        if ($timername == "healme") {

                quest::say("Timer call to heal.");                       #This is just a statement to see if the script is running.

                quest::stoptimer("healme");

                quest::selfcast(6110);

  }

}

try theeees :D

Code:

sub EVENT_SAY

{

        if ($text=~/Hail/i)

        {

                quest::say("Hail, $name");

        }

        if ($text=~/timeheal/i)

        {

                quest::settimer("theal1",15);

                quest::say("poop init heal");

        }

}



sub EVENT_TIMER

{

        if ($timer eq "theal1")

        {

                quest::stoptimer("theal1");

                $npc->CastSpell(6110,$client->CharacterID());

                quest::say("healing you weee");

        }

}

untested.. should work if not than just change the $client-> part probably....

I got that to work with a change. Thanks Cripp!

What does -> do or what is it?

Code:

sub EVENT_SAY

{

        if ($text=~/Hail/i)

        {

                quest::say("Hail, $name");

        }

        if ($text=~/timeheal/i)

        {

                quest::settimer("theal1",15);

                quest::say("poop init heal");

        }

}



sub EVENT_TIMER

{

        if ($timer eq "theal1")

        {

                quest::stoptimer("theal1");

                $npc->CastSpell(6110,$userid);

                quest::say("healing you weee");

        }

}

Thanks for the help you all, it's working fine for me now :)

Please remove this post. I was replying to another and didn't realize which tab I was in.