Spamfilter Regex olusturma

alias _spamregex { return $replacex($1-,a,[aA@4æàáâãäåÀÁÂÃÄÅÆ],b,[bBß],c,[cçÇ],ç,[cçÇ],Ç,[cçÇ],e,[eE3ÆèéêëÈÉÊË€£],g,[ggGqk],g,[ggGqk],G,[ggGqk],i,[iIiI1I!ÏïîÍíÌìÎî],i,[iIiI1I!ÏïîÍíÌìÎî],I,[iIiI1I!ÏïîÍíÌìÎî],k,[kqgGg],m,[mw],l,[Iil1],o,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],Ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],u,[uüÜÙÚÛÜ],ü,[uüÜÙÚÛÜ],Ü,[uüÜÙÚÛÜ])}on *:text:*:#güvenlik: { if $1 == !regex { if $istok(dieforyou daemon smileby,$nick,32) { if !$2 { msg # Hatalı Kullanım !regex kelime }       .msg #güvenlik $_spamregex($regsubex($2-,/(.)/gSi,\t.?))      .msg #güvenlik ornek    .Spamfilter add u block - 4Security  (?-i)^(.+! $+ $_spamrx($regsubex($2-,/(.)/gSi,\t.?)) $+ @.+:.+)$       .msg #güvenlik ornek  spamfilter del cpNna block - $+(,$me) $+ _Tarafindan_eklendi $_spamrx($regsubex($2-,/(.)/gSi,\t.?))    }    else { msg # Bu komutu kullanacak yetkiye sahip değilsiniz }  }}on *:text:*:#güvenlik: { if $1 == !regex { if $istok(dieforyou smileby,$nick,32) { if !$2 { msg # Hatalı Kullanım !regex kelime }       .msg #güvenlik $_spamregex($regsubex($2-,/(.)/gSi,\t.?))      .msg #güvenlik ornek     spamfilter add cpNna block - $+(,$me) $+ _Tarafindan_eklendi. $_spamrx($regsubex($2-,/(.)/gSi,\t.?))      .msg #güvenlik ornek  spamfilter del cpNna block - $+(,$me) $+ _Tarafindan_eklendi $_spamrx($regsubex($2-,/(.)/gSi,\t.?))    }    else { msg # Bu komutu kullanacak yetkiye sahip değilsiniz }  } }