!spamekle - !blockekle tcl.

[Root]

!Spamekle - !Blockekle Tcl​

KULLANIM KOMUTLARI

!spamekle kelime

!spamsil kelime

!blockekle kelime

!blocksil kelime


spamekle.tcl

bind pub - !spamadd spam:msg
proc spam:msg {n u h c a} {
    global botnick admin_chan
      set spam_msg [join [split $a .] .?]
    set yspam_msg [join [split $spam_msg " "] .]
    set vspam [stripcodes bcru $yspam_msg]
    set spam [spam:tmz $vspam]
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_yasaklanmıştır2(4SBC2) ^$spam$"
        putquick "PRIVMSG $c ^$spam$ 15-14-1> 4spamfiltera eklendi"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamekle $a 14komutunu kullanmaya çalıştı!"   
    }
}

bind pub - !spamekle spam:ek
proc spam:ek {n u h c a} {
    global botnick admin_chan
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_yasaklanmıştır2(4SBC2) $a"
        putquick "PRIVMSG $c $a  15-14-1> 4spamfiltera eklendi"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamadd $a 14komutunu kullanmaya çalıştı!"   
    }
}

bind pub - !spamdel spamsil:msg
proc spamsil:msg {n u h c a} {
    global botnick admin_chan
    set spam_msg [join [split $a .] .?]
    set yspam_msg [join [split $spam_msg " "] .]
    set vspam [stripcodes bcru $yspam_msg]
    set spam [spam:tmz $vspam]
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER del cpNna gzline - - ^$spam$"
        putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamsil $a 14komutunu kullanmaya çalıştı!"
    }
}

bind pub - !spamsil spam:sil
proc spam:sil {n u h c a} {
    global botnick admin_chan
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER del cpNna gzline - - $a"
        putquick "PRIVMSG $c $a  15-14-1> 4spamfilterdan çıkarıldı"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamdel $a 14komutunu kullanmaya çalıştı!"
    }
}

proc spam:tmz {i} {
  regsub -all -- \\\\ $i \\\\\\\\ i
  regsub -all -- \\\[ $i \\\\\[ i
  regsub -all -- \\\] $i \\\\\] i
  regsub -all -- \\\} $i \\\\\} i
  regsub -all -- \\\{ $i \\\\\{ i
  regsub -all -- \\\" $i \\\\\" i
  regsub -all -- \\\* $i \\\* i
  regsub -all -- \\\$ $i \\\\\$ i
  regsub -all -- \\\| $i \\\\\| i
  regsub -all -- \\\^ $i \\\\\^ i
  regsub -all -- \\\( $i \\\\\( i
  regsub -all -- \\\) $i \\\\\) i
  regsub -all -- \\\+ $i \\\\\+ i
  regsub -all -- \\\- $i \\\\\- i
  regsub -all -- \\\/ $i \\\\\/ i
  regsub -all -- \\\, $i \\\\\, i
  regsub -all -- \\\' $i \\\\\' i
  regsub -all -- \\\´ $i \\\\\´ i
  regsub -all -- \\\~ $i \\\\\~ i
  return $i
}

blockekle.tcl

bind pub - !blockadd spam:msg
proc spam:msg {n u h c a} {
    global botnick admin_chan
      set spam_msg [join [split $a .] .?]
    set yspam_msg [join [split $spam_msg " "] .]
    set vspam [stripcodes bcru $yspam_msg]
    set spam [spam:tmz $vspam]
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER add cpnNPquda block 30h 2(4Yasak!2) ^$spam$"
        putquick "PRIVMSG $c ^$spam$ 15-14-1> 4spamfiltera eklendi"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamekle $a 14komutunu kullanmaya çalıştı!"   
    }
}

bind pub - !blockekle spam:ek
proc spam:ek {n u h c a} {
    global botnick admin_chan
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER add cpnNPquda block 30h 2(4Yasak!2) $a"
        putquick "PRIVMSG $c $a  15-14-1> 4spamfiltera eklendi"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamadd $a 14komutunu kullanmaya çalıştı!"   
    }
}

bind pub - !blockdel spamsil:msg
proc spamsil:msg {n u h c a} {
    global botnick admin_chan
    set spam_msg [join [split $a .] .?]
    set yspam_msg [join [split $spam_msg " "] .]
    set vspam [stripcodes bcru $yspam_msg]
    set spam [spam:tmz $vspam]
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER del cpnNPquda block - - ^$spam$"
        putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamsil $a 14komutunu kullanmaya çalıştı!"
    }
}

bind pub - !blocksil spam:sil
proc spam:sil {n u h c a} {
    global botnick admin_chan
    if {[onchan $n #log]==1} {
        putquick "SPAMFILTER del cpnNPquda block - - $a"
        putquick "PRIVMSG $c $a  15-14-1> 4spamfilterdan çıkarıldı"
    }
    if {[onchan $n $admin_chan]==0} {
        putserv "PRIVMSG $admin_chan 5$n 2!spamdel $a 14komutunu kullanmaya çalıştı!"
    }
}

proc spam:tmz {i} {
  regsub -all -- \\\\ $i \\\\\\\\ i
  regsub -all -- \\\[ $i \\\\\[ i
  regsub -all -- \\\] $i \\\\\] i
  regsub -all -- \\\} $i \\\\\} i
  regsub -all -- \\\{ $i \\\\\{ i
  regsub -all -- \\\" $i \\\\\" i
  regsub -all -- \\\* $i \\\* i
  regsub -all -- \\\$ $i \\\\\$ i
  regsub -all -- \\\| $i \\\\\| i
  regsub -all -- \\\^ $i \\\\\^ i
  regsub -all -- \\\( $i \\\\\( i
  regsub -all -- \\\) $i \\\\\) i
  regsub -all -- \\\+ $i \\\\\+ i
  regsub -all -- \\\- $i \\\\\- i
  regsub -all -- \\\/ $i \\\\\/ i
  regsub -all -- \\\, $i \\\\\, i
  regsub -all -- \\\' $i \\\\\' i
  regsub -all -- \\\´ $i \\\\\´ i
  regsub -all -- \\\~ $i \\\\\~ i
  return $i
}