on *:start:{ $iif(!$isfile(bnick.die),write bnick.die) | hmake bnick 100 | hload bnick bnick.die }
on *:join:#:{ if $hmatch(bnick,$nick) { if %bnick == on { if o isin $usermode || $me isop # { mode # +b $+($nick,!*@*) | kick # $nick Badnick(Changes your nickname and came back to channel) | return } }
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | echo -tm $+($chr(3),$color(notice)) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] *** UYARI! $nick badnicki # kanalına giriş yaptı! } } 
alias bnick { if !$istok(list add on off del alldel bscan,$1,32) { echo -a $+($chr(3),$color(notice))  *** Tanımsız parametre: $1 | return }
  if $regex($1,/(on|off)/i) { echo -a $+($chr(3),$color(notice))  *** Badnick koruması $iif($regml(1) == on,AÇIK,KAPALI) | set %bnick $regml(1) | return }
  if $regex($1-,/add\x20) { if $hmatch(bnick,$2) {  echo -a $+($chr(3),$color(notice))   *** $2 $+ :nicki badnick listesinde mevcut |  return }
    if !$2 { echo -a $+($chr(3),$color(notice))  *** Nick eklemeyi unuttun sanırım:) | return }   
    hadd -m bnick $2 |  hsave bnick bnick.die 
  echo -a $+($chr(3),$color(notice))   *** $2 $+ : nicki badnick listesine eklendi  }
  if $regex($1-,/del\x20) { if  $hget(bnick,0).item == 0 { echo -a $+($chr(3),$color(notice))  *** Oluşturulmuş badnick listesi bulunamadı. | return }
    if !$hmatch(bnick,$2) { echo -a $+($chr(3),$color(notice))   *** $2 $+ : nicki badnick listesinde bulunamadı | return } 
    if !$2 { echo -a $+($chr(3),$color(notice))  *** Silinecek nicki yazmayı unuttun sanırım:) | return }   
    hdel -w bnick $2 |  echo -a $+($chr(3),$color(notice))  *** $2 $+ : nicki badnick listesinden silindi 
  hsave bnick bnick.die  } 
  if $regex($1,/list/i) { if  $hget(bnick,0).item == 0 { echo -a $+($chr(3),$color(notice))  *** Oluşturulmuş badnick listesi bulunamadı. | return }
    var %^ = 1 | echo -a $+($chr(3),$color(notice))  *** Badnick kayıtları listeteleniyor,
    while ($hget(bnick, %^).item) { echo -a $+($chr(3),$color(notice))  *** %^ $+ ) $v1 | inc %^ }
  echo -a $+($chr(3),$color(notice))  *** Badnick kayıtları listelendi.  }
  if $regex($1,/alldel/i) {  if !$hget(bnick) { echo -a $+($chr(3),$color(notice))  *** Oluşturulmuş badnick listesi bulunamadı. | return }
  hfree bnick | echo -a $+($chr(3),$color(notice))  *** Badnick listesi sıfırlandı. }
  if $regex($1-,/bscan\x20) { who $iif($left($2,1) == $chr(35),$2,$+($chr(35),$2)) | %bscan = on }
}
raw *:*: { if $numeric == 352 && %bscan == on && $hmatch(bnick,$6) {  $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | echo -tm $+($chr(3),$color(notice)) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] *** $2 kanalındaki $6 Badnick listesinde bulunuyor }
if $numeric == 315 { %bscan = off } }

on *:join:#:{
  if (yara isin $nick || mariju isin $nick || anne isin $nick || ucr isin $nick || metres isin $nick || nakit isin $nick || rnt isin $nick || ucrt isin $nick || zeng isin $nick || orl isin $nick || pns isin $nick || esin isin $nick || orll isin $nick || jg isin $nick || para isin $nick || skrm isin $nick || jig isin $nick || sxo isin $nick ) {
    if (prens !isin $nick) { window -g2 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0,1 4 >>> $nick <<< 0Nick'ine 4dikkat ! $chan 0odasında.. }
  }
}