Spam/Nick/Kanal/Kelime/Version Takibi

alias echan return #kanal


on *:text:*:#:{
  if # == #spamfilter {
    if $regex($1-,\[PRIVMSG (.+)\: \'(.+)\'\]) { var %yazan $token($2,1,33), %yer $regml(1), %mesaj $regml(2)
      if $level(%yer) == kanal {
        msg $echan 13 [Spam]4 %yazan -13 %yer -> %mesaj
        return
      }
      if $level(%yazan) == nick {
        msg $echan 11 [Spam]4 %yazan -12 %yer -> %mesaj
        return
      }
      if $level(%mesaj) == nick {
        msg $echan 11 [Spam]4 %yazan -12 %yer -> %mesaj
        return
      }
      if $level(%yer) == nick {
        msg $echan 11 [Spam]4 %yazan -12 %yer -> %mesaj
        return
      }
    }
    if $regex($1-,/VERSION/Si) && $regex(v,$1-,/\] (.+)!.+\[NOTICE (.+)\: \'(.+)\'/i) { msg $echan 4Sorgulanan Nick: $regml(v,1) 4VERSION: $regml(v,3) }
  }
}

/auser kanal #kanal veya #*
/auser nick nick
/auser nick *kelime*

on *:input:#kanal:{
  if $regex($1,/[!.]ekle$) {
    if !$2 { msg # eksik komut. | return }
    if $level($2) == nick { msg # $2 zaten ekli. | return }
    msg # $2 Icin Yansitma Eklendi.
    auser nick $2
  }
  if $regex($1,/[!.]sil$) {
    if !$2 { msg # eksik komut. | return }
    if $level($2) !== nick { msg # $2 zaten yok. | return }
    msg # $2 Icin Yansitma Silindi.
    ruser nick $2
  }
  if $regex($1,/[!.]list$) {
    if !$ulist(*,nick,1) { msg # liste bos. | return }
    var %x 1
    while $ulist(*,nick,%x) {
      msg # %x - $v1
      inc %x
    }
    msg # -
  }
}