Kod

; buraya komut kullanılacak kanalı yazıyoruz.
alias _knl return #testmsl
on *:TEXT:.*:#:{
  if ($chan == $_knl) && ($regex($1-, /^\.lamerekle\s+(\S+)$/i)) {
    if ($nick isop $chan) {
      var %nick = $regml(1)
      if ($read(lamerlist.txt, w, %nick)) {
        msg $chan 4 %nick 2 zaten lamer listesinde.
      }
      else {
        write lamerlist.txt %nick
        msg $chan 4 %nick 2 lamer listesine eklendi.
      }
    }
    else {
      msg $chan 10 Bu komutu kullanmak için aop yetkisine sahip olmalısınız.
    }
  }
  elseif ($regex($1-, /^\.lamersil\s+(\S+)$/i)) && ($chan == $_knl) {
    if ($nick isop $chan) {
      var %nick = $regml(1)
      if ($read(lamerlist.txt, w, %nick)) {
        write -dl $+ $readn lamerlist.txt
        msg $chan 4 %nick 2 lamer listesinden silindi.
      }
      else {
        msg $chan 4 %nick 10 lamer listesinde bulunamadı.
      }
    }
    else {
      msg $chan 10 Bu komutu kullanmak için aop yetkisine sahip olmalısınız.
    }
  }
  elseif ($regex($1-, /^\.kara\s+list$/i)) && ($chan == $_knl) {
    if ($nick isop $chan) {
      msg $_knl 4 Kara listeye bakılıyor...
      if ($lines(lamerlist.txt) > 0) {
        var %list = $read(lamerlist.txt, 1)
        var %i = 1
        while (%list != $null) {
          msg $_knl 4 * 2 %list
          inc %i
          var %list = $read(lamerlist.txt, %i)
        }
      }
      else {
        msg $chan 10 Kara liste boş.
      }
    }
    else {
      msg $chan 10 Bu komutu kullanmak için aop yetkisine sahip olmalısınız.
    }
  }
}
on *:JOIN:#:{
  if ($read(lamerlist.txt, w, $nick)) {
    mode # +b ~q: $+ $nick
  }
}
on *:NICK:{
  if ($read(lamerlist.txt, w, $nick)) {
    var %i = 1
    while ($comchan($newnick, %i)) {
      var %channel = $comchan($newnick, %i)
      mode %channel +b ~q: $+ $newnick
      inc %i
    }
    write lamerlist.txt $newnick 
    msg $_knl 4 $newnick 2 olarak kara listeye eklendi ve tüm kanallarda susturuldu.
  }
}