alias _regch return #blackforce #bf
alias _regmuaf return nick nick nick nick
alias _spamrx {
  return $replacex($1-,a,[aA@4æàáâãäåÀÁÂÃÄÅÆ],b,[bBß],c,[cçÇ],ç,[cçÇ],Ç,[cçÇ],e,[eE3ÆèéêëÈÉÊË€£],g,[gğĞqk],ğ,[gğĞqk],Ğ,[gğĞqk],ı,[ıIiİ1I!ÏïîÍíÌìÎî],i,[ıIiİ1I!ÏïîÍíÌìÎî],İ,[ıIiİ1I!ÏïîÍíÌìÎî],k,[kqğĞg],m,[mw].?,l,[Iıl1],o,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],Ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],u,[uüÜÙÚÛÜ],ü,[uüÜÙÚÛÜ],Ü,[uüÜÙÚÛÜ],h,.?h.?,r,.?r.?,n,.?n.?,j,.?j.?,v,.?v.?,t,.?t.?,x,.?x.?,y,.?y.?,.??.,.?,d,.?d.?,f,.?f.?,z,.?z.?,$chr(32),$chr(95))
}
on *:text:*:*: {
  if $regex($strip($1),/^[!-.]reg(e|x|ex|)$/i) && $istok($_regch ,$chan,32) && !$istok($_regmuaf ,$nick,32) {
    if $nick !isop # { msg # 2 $nick  Bu komutu kullanmaya yetkili değilsin. | halt }
    if !$2 { msg # Lütfen spam kelimesini belirtiniz. | halt }
    msg # Atılan sorgu; $2- | Gelen spamfilter sorgusu; $_spamrx($2-)
  }
}