1.kod
on !badnick:join:*:{
  if ($me isop $chan) || ($me ishop $chan) {
    if ($ulist($fulladdress,koruma,0) >= 1) { return }
    elseif !$istok(#help #mirchelp #operhelp #geveze #turkiye@ #globalops,$chan,32) {
      ban -u $+ %bsure $chan $nick $+ !*@*
      quote kick $chan $nick Badnick! maske; $ulist($address($nick,5),$ulevel,1)
    }
  }
}
on *:nick:{ 
  if !$ulist($+($newnick,!*@*),koruma,0) && $ulist($+($newnick,!*@*),badnick,0) {
    var %badnick = 1
    while %badnick <= $comchan($newnick,0) { 
      if $me isop $comchan($newnick,%badnick) || $me ishop $comchan($newnick,%badnick) {
        if !$istok(#help #mirchelp #operhelp #geveze #turkiye@ #globalops,$comchan($newnick,%badnick),32) {
          ban -u $+ %bsure $comchan($newnick,%badnick) $newnick $+ !*@* 
          quote kick $comchan($newnick,%badnick) $newnick Badnick! maske;
        }
      }
      inc %badnick
    }
  }
}

 
 /badtara {
  var %btara 1  
  while %btara <= $nick($1,0) { 
    if !$ulist($nick($1,%btara),koruma,0) && $ulist($nick($1,%btara),badnick,0) { 
      ban -u $+ %bsure $chan $nick($1,%btara) $+ !*@* 
      kick $chan $nick($1,%btara) Kötü nick(rumuz) lütfen değiştiriniz; "/nick yeninickiniz" komutunu kullanınız. NOT: " $+ $gettok($asctime($calc($ctime + %bsure)),4,32), $+ " itibariyle ban deaktif(iptal) olacaktır. Etkikendiği maske; BURASI
    }  
    inc %btara
  }
}

on *:join:*: {
  %clones = $ialchan($wildsite,#,0)  
  if *!*@*helper* iswm $fulladdress { halt }
  if *!*@*oper* iswm $fulladdress { halt }
  if *!*@*admin* iswm $fulladdress { halt }
  if ( %clones > 1 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones)  {
      %clone.nicks = %clone.nicks  $ial($wildsite,%count).nick
    inc %count  }
  .echo $chan 2*** 0,1 0,1[9,1Uyarı0,1/4,1CLONE0,1] : Toplam ( $+ %clones $+ ) adet clone. --> $remove(%clone.nicks,-->) (13CBAN1) }
  if (%change == $null) {
    haltdef
    halt  
  }
}

on !^*:text:*:#:{
  .set %n $nick($chan,$nick).pnick
  if $left(%n,1) == ~ {   echo $chan $timestamp $+(<,5~, $+ $nick $+ ,>)  $1- }
  elseif $left(%n,1) == & { echo $chan $timestamp $+(<,7&, $+ $nick $+ ,>)  $1-  }
  elseif $left(%n,1) == @ { echo $chan $timestamp $+(<,4@, $+ $nick $+ ,>)  $1-  }
  elseif $left(%n,1) == % { echo $chan $timestamp $+(<,13%, $+ $nick $+ ,>)  $1-  }
  elseif $left(%n,1) == + { echo $chan $timestamp $+(<,12+, $+ $nick $+ ,>)  $1- }
  else { echo $chan $timestamp $+(<,1 $+ $nick $+ ,>)  $1-  }
  haltdef
}

/allunban {
  if $left($1,1) == $chr(35) {
    var %u = $ibl($1,0)
    while (%u > 0) {
      inc %t
      var %ban = %ban $ibl($1,%u)
      if (%t == $modespl) {
        mode $1 - $+ $str(b,$modespl) %ban
        unset %t %ban
      }
      dec %u
    }
    mode $1 - $+ $str(b,$modespl) %ban
    unset %t
  }
  else {
    var %i 1
    while %i <= $comchan($1,0) {
      $iif($1 == $me,cs unban $comchan($1,%i),mode $comchan($1,%i) -b $1)
      inc %i
    }
  }
}