TrisPackage.Tris/check_horizon();

/*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); 
        }
    }
    //NOT FOUND,Then FAIL!!
    //NOT FOUND,Then FAIL!!
    return(FAIL);