// Evol Script
// Authors: Gumi, Jesusalva

// areatimer("<map>", <x1>, <y1>, <x2>, <y2>, <tick>, "<npc>::<event>", dead=False)
function	script	areatimer	{
    .@c = getunits(BL_PC, .@players, false, getarg(0), getarg(1), getarg(2), getarg(3), getarg(4));
    for (.@i = 0; .@i < .@c; .@i++) {
        if (!getarg(7, false)) {
            if (ispcdead(strcharinfo(0, "", .@players[.@i]))) {
                continue;
            }
        }
        addtimer(getarg(5), getarg(6), .@players[.@i]);
    }
    return .@i;
}

// areadeltimer("<map>", <x1>, <y1>, <x2>, <y2>, "<npc>::<event>")
function	script	areadeltimer	{
    .@c = getunits(BL_PC, .@players, false, getarg(0), getarg(1), getarg(2), getarg(3), getarg(4));
    for (.@i = 0; .@i < .@c; .@i++) {
        deltimer(getarg(5), .@players[.@i]);
    }
    return .@i;
}

// areatimer2("<map>", <x1>, <y1>, <x2>, <y2>, <tick>, "<npc>::<event>", dead=False)
function	script	areatimer2	{
    .@c = getunits(BL_PC, .@players, false, getarg(0), getarg(1), getarg(2), getarg(3), getarg(4));
    for (.@i = 0; .@i < .@c; .@i++) {
        deltimer(getarg(6), .@players[.@i]);
        if (!getarg(7, false)) {
            if (ispcdead(strcharinfo(0, "", .@players[.@i]))) {
                continue;
            }
        }
        addtimer(getarg(5), getarg(6), .@players[.@i]);
    }
    return .@i;
}

// addtimer2(<tick>, "<npc>::<event>", dead=False)
function	script	addtimer2	{
    deltimer(getarg(1));
    if (!getarg(2, false)) {
        if (ispcdead()) return;
    }
    addtimer(getarg(0), getarg(1));
    return;
}


// maptimer("<map>", <tick>, "<npc>::<event>", dead=False)
function	script	maptimer	{
    .@c = getunits(BL_PC, .@players, false, getarg(0));
    for (.@i = 0; .@i < .@c; .@i++) {
        if (!getarg(3, false)) {
            if (ispcdead(strcharinfo(0, "", .@players[.@i]))) {
                continue;
            }
        }
        addtimer(getarg(1), getarg(2), .@players[.@i]);
    }
    return .@i;
}

// Same as maptimer() but deletes any previously running timer
// maptimer2("<map>", <tick>, "<npc>::<event>", dead=False)
function	script	maptimer2	{
    .@c = getunits(BL_PC, .@players, false, getarg(0));
    for (.@i = 0; .@i < .@c; .@i++) {
        deltimer(getarg(2), .@players[.@i]);
        if (!getarg(3, false)) {
            if (ispcdead(strcharinfo(0, "", .@players[.@i]))) {
                continue;
            }
        }
        addtimer(getarg(1), getarg(2), .@players[.@i]);
    }
    return .@i;
}

// mapdeltimer("<map>", "<npc>::<event>")
function	script	mapdeltimer	{
    .@c = getunits(BL_PC, .@players, false, getarg(0));
    for (.@i = 0; .@i < .@c; .@i++) {
        deltimer(getarg(1), .@players[.@i]);
    }
    return .@i;
}

// partytimer("<map>", <tick>, "<npc>::<event>", partyid, dead=False)
function	script	partytimer	{
    .@c = getunits(BL_PC, .@players, false, getarg(0));
    for (.@i = 0; .@i < .@c; .@i++) {
        if (!getarg(4, false)) {
            if (ispcdead(strcharinfo(0, "", .@players[.@i]))) {
                continue;
            }
        }
        if (getcharid(1, strcharinfo(0,"",.@players[.@i]) ) == getarg(3))
            addtimer(getarg(1), getarg(2), .@players[.@i]);
    }
    return .@i;
}