Quest to remove unwanted buffs.

[c0ncrete]

EVENT_TIMER doesn't export the $client object, so your conditional never passes.

you can try to dynamically name the timer in player.pl like this:

quest::settimer('checkbuffs|' . $client->GetName(), 10);

and then split up the $timer name into parts so you can get the client in EVENT_TIMER like this:

if ( $timer =~ /^checkbuffs|/ ) {
    my ($timer, $name) = split(/\|/, $timer);
    my $client = $entity_list->GetClientByName($name);
    # do whatever with $client here
}

EDIT:
changed delimiter to pipe (|) instead of underscore (_), as some character names may have underscores to indicate spaces.
also, i'm not sure if you're going to have access to the entity list in global_player.pl, so you might have to use it in each zone's player.pl instead.

EDIT AGAIN:
sheesh... i'm having all sorts of syntax issues this morning. i blame the cold weather...

[trevius]

If you want to remove specific buffs and not just all, you can probably use one of the following:

   BuffFadeByEffect(effectid, skipslot= -1)
   BuffFadeBySlot(slot, iRecalcBonuses= true)
   BuffFadeBySpellID(spell_id)

[c0ncrete]

oops... i was wrong about the $client object not being exposed to EVENT_TIMER in player.pl... that would only apply to npc scripts.

i've also found that quests\templates\global_player.pl runs in addition to quests\<zone>\player.pl (global_player events fire off first if there are duplications).

i was under the impression the global script only ran if the zone-specific script didn't exist.

hooray for learning.