function	script	ClearVariables	{
    if(@login_event != 1) goto L_Deprecated;

    if(#BankAccount >= 0) return;
    if (Zeny >= -#BankAccount) {
        Zeny = Zeny + #BankAccount;
        #BankAccount = 0;
    }

    // Partial fix
    #BankAccount = #BankAccount + Zeny;
    Zeny = 0;
    return;
}


function	script	ClearGlobalVars	{
    $@loop = 5;
    goto L_FluffyClear;

L_FluffyClear:
    if ($@loop == 12)
        goto L_IlliaClear;

    $Record_Fluffy_Name$[$@loop] = "";
    $Record_Fluffy_Date$[$@loop] = "";
    $Record_Fluffy_Kills[$@loop] = 0;

    $@loop = $@loop + 1;
    goto L_FluffyClear;


L_IlliaClear:
    $@loop = 0;
    goto L_IlliaLoop;

L_IlliaLoop:
    if ($Illia_Win_Records$[$@loop] == "")
        goto L_EventClear;

    $Illia_Win_Records$[$@loop] = "";

    $@loop = $@loop + 1;
    goto L_IlliaLoop;

L_EventClear:
    $@loop = 0;

    $CandyOpsComplete = 0;

    $Easter_2010_Npc_State1 = 0;
    $Easter_2010_Npc_State2 = 0;
    $Easter_2010_Egg_Loc_State1 = 0;
    $Easter_2010_Egg_Loc_State2 = 0;
    $Easter_2010_Egg_Loc_State3 = 0;
    $Easter_2010_Egg_Loc_State4 = 0;
    $Easter_2010_Egg_Loc_State5 = 0;

    $hween10 = 0;
    $hween10_tondel = 0;
    $hween10_mmallow = 0;
    $hween10_jelskul = 0;
    $hween10_canpump = 0;

    $Golbenez_Inn_Cost = 0;

    $hween16 = 0;
    $hween16_tondel = 0;
    $hween16_mmallow = 0;
    $hween16_jelskul = 0;
    $hween16_canpump = 0;

    $state = 0;
    return;
}

function	script	mapexit	{
    debugmes "TRYING TO MAPEXIT IS DEPRECATED";
    return;
}

function	script	npcaction	{
    debugmes "Deprecated unitaction (did you mean npcsit; or whatever?)";
    return;
}

function	script	gmlog	{
    logmes(getarg(0), LOGMES_ATCOMMAND);
    return;
}

function	script	getx	{
    getmapxy(.@m$, .@x, .@y, 0);
    return .@x;
}

function	script	gety	{
    getmapxy(.@m$, .@x, .@y, 0);
    return .@y;
}

function	script	getnpcx	{
    return .x;
}

function	script	getnpcy	{
    return .y;
}

function	script	title	{
    setnpcdialogtitle getarg(0);
    return;
}

function	script	camera	{
    if (getarg(0, "") != "")
        setcamnpc getarg(0);
    else
        restorecam;
    return;
}

function	script	mapmask	{
    setmapmask getmapname(), getarg(0);
    return;
}

function	script	getmask	{
    return getmapmask(getmapname());
}

// isin( map, x1, y1, {[x2, y2][radius]} )
function	script	isin	{
    if (getmapxy(.@mapName$, .@xpos, .@ypos, 0) != 0)
        return false;
    if (.@mapName$ != getarg(0))
        return false;

    if (getarg(4,-1) < 0) {
        // Radius Based
        if (.@xpos >= getarg(1)-getarg(3) && .@xpos <= getarg(1)+getarg(3) && .@ypos >= getarg(2)-getarg(3) && .@ypos <= getarg(2)+getarg(3))
            return true;
    } else {
        // Coordinate based
        if (.@xpos >= getarg(1) && .@xpos <= getarg(3) && .@ypos >= getarg(2) && .@ypos <= getarg(4))
            return true;
    }
    return false;
}

// isat( map, x, y )
function	script	isat	{
    return isin(getarg(0), getarg(1), getarg(2), 0);
}

function	script	mesn	{
    if (getargcount() > 0) {
        .@s$ = "[" + getarg(0) + "]";
    } else {
        .@s$ = "[" + strnpcinfo(1) + "]";
    }
    mes .@s$;
    return;
}

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

// areatimer("<map>", <x1>, <y1>, <x2>, <y2>, <tick>, "<npc>::<event>")
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++) {
        addtimer(getarg(5), getarg(6), .@players[.@i]);
    }
    return .@i;
}