TrisPackage.Tris/check_horizon();

int check_horizon()
{
    int ii,kk,ff;
    for(ii=0; ii<MAPY-1; ii++)
    {
        ff=0;
        for(kk=1; kk<MAPX-2; kk++)
        {
            if(tris[ii,kk] != 0)
            {
                if(tris[ii,kk] == tris[ii,kk+1]) ff++;
                else break;
            }
        }
        if(ff==MAPX-3)
        {
            for(kk=1; kk<MAPX-1; kk++) delete_column(ii,kk);
            score++;
            return(SUCC);
        }
    }
    return(FAIL);
}