NPC unable to enter EVENT_TIMER

[Ignorance]

I am having trouble getting a spawned mob to enter into the EVENT_TIMER subroutine. The mob executes EVENT_SPAWN and sets timers to appropriate values, but does not ever enter into EVENT_TIMER. I would be grateful if someone could look over the code and give some advice.

################################################## ##################################################
# Document Notes...
# Author: Ignorance (thecerealkillers@gmail.com)
# Created: 2011 08 01 Last Modified: 2011 08 08
# Related Files: Template_RemoteController, Template_LocalController, Template_Herald,
# Template_Translocator
# General File Relationships
# RemoteController <-Global Variables-> LocalController
# . . --> Herald, Translocator
# Loop Loop . .
# X X
# Translocator Description
# Periodically announces when and where the in-zone translocatation will happen.
# Executes translocation.
# Despawns after translocation.
# Despawns on errors.
################################################## ##################################################
@LocationNamesList = ( "Freeport Arena" );
@LocationX1List = ( -293 );
@LocationX2List = ( -155 );
@LocationY1List = ( -377 );
@LocationY2List = ( -267 );
@LocationZ1List = ( -39 );
@LocationZ2List = ( -24 );
sub EVENT_SPAWN
{
$timerNumber = 0;
if( !defined $qglobals{FightClubfreportwLocationsInZone} )
{
# Set locations in zone
quest::setglobal( "FightClubfreportwLocationsInZone", 1, 7, "F" );
}
if( defined $qglobals{FightClubFreeportPeriod} && defined $qglobals{FightClubTranslocateDuration} && defined $qglobals{FightClubTranslocatorAdPeriod} && defined $qglobals{FightClubfreportwLocationsInZone} )
{
# Randomize the in zone location chosen
quest::setglobal( "FightClubfreportwActiveLocation", (int( rand( $qglobals{FightClubfreportwLocationsInZone} )) + 1), 7, "F" );
# Set Advertizement Timers
while( $timerNumber < $qglobals{FightClubFreeportPeriod})
{
quest::settimer( $timerNumber, $timerNumber );
$timerNumber = $timerNumber + $qglobals{FightClubTranslocatorAdPeriod};
}
# Set Translocate Timer
quest::settimer( $qglobals{FightClubFreeportPeriod}, $qglobals{FightClubFreeportPeriod} );
# Set Translocation Close / Depop Timer
quest::settimer( ($qglobals{FightClubFreeportPeriod} + $qglobals{FightClubTranslocateDuration}), ($qglobals{FightClubFreeportPeriod} + $qglobals{FightClubTranslocateDuration}) );
}
else
{
# Global Variables Undefined, Bad Execution
quest::depop();
}
}

sub EVENT_TIMER
{
if( defined $qglobals{FightClubFreeportPeriod} && defined $qglobals{FightClubFreeportTranslocateDuration} && defined $qglobals{FightClubTranslocatorAdPeriod} && defined $qglobals{FightClubfreportwActiveLocation} )
{
$locationNumber = $qglobals{FightClubfreportwActiveLocation};
if( $timer == $qglobals{FightClubFreeportPeriod} )
{
quest::shout("Executing ".$LocationNamesList[$locationNumber]." teleport.");
# Execute Translocation
quest::set_proximity($LocationX1List[$locationNumber], $LocationX2List[$locationNumber], $LocationY1List[$locationNumber], $LocationY2List[$locationNumber], $LocationZ1List[$locationNumber], $LocationZ2List[$locationNumber]);
}
else
{
# Prevents double advertizing upon translocate execution
if( $timer % $qglobals{FightClubTranslocatorAdPeriod} )
{
# Advertize Location
quest::shout("The ".$LocationNamesList[$locationNumber]." teleport executes in ".( $qglobals{FightClubFreeportPeriod} - $timer )." seconds.");
}
}
if( $timer == ($qglobals{FightClubFreeportPeriod} + $qglobals{FightClubTranslocateDuration}) )
{
# Success, Despawn Mob
quest::shout( $LocationNamesList[$locationNumber]." teleport executed.");
quest::depop();
}
}
else
{
# Global Variables Undefined, Bad Execution
quest::depop();
}
}

sub EVENT_ENTER
{
quest::movepc( 96, 4366.94, -12256.9, -265 );
}

[Congdar]

i'm wondering if you are setting the timer correctly. I've seen them typically as quest::settimer("depop",10); and quest::stoptimer("depop"); and i'm not quite sure what you're doing here. do you have your npc qglobals enabled in the database?
one thing i've done to help me with debugging these scripts is to put quest:say("setting timer"); type of things everywhere and repop the npc and see what they say. Then you'll know how far your script is getting. Also, in your log files you will see perl errors in files with the name similar to eqemu_quest_zone_0222.log

void QuestManager::settimer(const char *timer_name, int seconds)

[Ignorance]

Yes, the mob is permitted to use qglobals.
I actually do the same as you when debugging; I just posted my non-debug file to keep things cleaner.

Pertaining to settimer...
All settimer ids represent time passed.
Despawning, advertising time passed, and determining when to translocate, $timer controls, and is used in, them all.

I do recognize that settimer wants a char for the id, and, in trying to determine if that was the problem, added "quest::settimer( 0, 0 );", which works in my other scripts, to the beginning of EVENT_SPAWN, which I know executes; still nothing happened.
I'll see about enforcing a conversion to const char and report back with the results.

[Ignorance]

It turns out that the const char requirement of settimer() was causing the issue.
quest::settimer( $timerID, $timerID ); # Does not work
quest::settimer( "$timerID", $timerID ); # Works