[pawn]strprt(str[], key[], bool:ignorecase=false) {
new count, poz = strfind(str, key, ignorecase);
while(poz != -1) count++, poz = strfind(str, key, ignorecase, poz+strlen(key));
return count;
}
email(str[]) return (strprt(str, \".\") >= 1 && strprt(str, \"@\") == 1);[/pawn]