Smilies replacement - MED LIMIT!

Hejsa Experter!

Jeg har lavet følgende kode til at replace smilies på min tagwall - problemet er bare at nogle idi*ter ikke kan styrer sig med dem! Har jeg en mulighed for at begrænse antallet af smilies den skal konvatere i $text strengen til f.eks. 3 smilies?

Jeg har flg. kode:
---------------------------------------------------

<?

$smil_sti = "./img";

if ($handle = opendir($smil_sti))
{

    while (false !== ($file = readdir($handle)))
    {

        if ($file != "." && $file != "..")
        {

            if (!isset($smil_arr))
            {
                $smil_arr = array($file);
            }

            else
            {
                array_push($smil_arr, $file);
            }
        }
    }

    closedir($handle);
}

$smil_count = count($smil_arr);

$code_arr = array("-I", "*br&aelig;k*", ";)", ":I", "you got mail", "rend mig", "8D", ";-P", "*danser*", "B)", "FOAD", "*kv&aelig;k*", "pacman", "*idiot*", ":o)", "*elsker dig*", "*love you*", "LUFFE", "*nasty*", "}:)", ":(", ":O", "gab", "*t&aelig;sk*", ":)", " /\\", "SmokeDaBuddah", "*sut*", ":D", ":P", "[:]", "[?]", "*WordUp*", "*jul*");
$code_count = count($code_arr);

for ($i=0;$i<$code_count;$i++)
{
        $text = str_replace($code_arr[$i], "<img src=img/$smil_arr[$i]>", $text);
}
?>

På forhånd tak!