Guild Treasure Spawn

//================================================
// Treasure Spawning Function
//================================================
function    script    F_GldTreas    {
    if(getarg(10) !=  1) {
        setcastledata getarg(0),4,0;
        setcastledata getarg(0),5,0;

        // Why on earth are we killing old treasure chest spawns?
        //killmonster getarg(0),"Treasure_"+getarg(1)+"::OnDied";

        // Don't spawn treasures if Castle is empty, or Eco is greater than 100
        if(GetCastleData(getarg(0),2) > 100 || GetCastleData(getarg(0),1) == 0) return;

        // Only spawn one treasure chest for notice castles.
        if (compare(getarg(0),"nguild"))
            set getarg(2),1;
        else
            set getarg(2),GetCastleData(getarg(0),2)/5+4;

        if (getarg(2) <= 0) return;

        //sets the counter variable = to the box number amount
        set getarg(3), getarg(2);
    }
    for (set .@i,1; .@i <= getarg(3); set .@i,.@i+1) {
        // set treasure box ID
        set getarg(4), getarg(5)+((getarg(3)+1) & 1);
        areamonster getarg(0),getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied";
    }
    return;
}

set getarg(4), getarg(5)+((getarg(3)+1) & 1);