on *:join:#:if ($nick == $me) .set -u1 %otomsg ok! 
on *:text:*:?:if (%otomsg) .at $nick 
alias at { 
  var %u $comchan($1,0) 
  while (0 < %u) { 
    ban $comchan($1,%u) $1 2 
    kick $comchan($1,%u) $1 Özelime Otomesaj Yapmak Yasaktır!! 
( $+ $Chan $+ ) Yasaklı Kelime: ( $+ $replace($strip($2-),e,?,a,?,i,?,o,?,u,?,ı,?,ü,?,#,?,é,?,@,?,ß,?) $+ ) 
    dec %u 
  } 
}

on *:join:#:if $nick == $me { set -u1 %otomsg ok }
on *:text:*:?:if %otomsg { var %1 = 1,%2 = $comchan($nick,0) | while %1 <= %2 { ban -k $comchan($nick,%1) $nick 2 Otomesaj kullandığınız için atıldınız. Yasaklı kelime: $+(",$replace($strip($2-),e,?,a,?,i,?,o,?,u,?,ı,?,ü,?,#,?,é,?,@,?,ß,?),") | inc %1 } }