IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

PHP- Kodu:
   #intikam.tcl IUC Aralık 2025

 
namespace eval antislap {

 

    variable author         "IUC> (c)"

    variable version        "1.0.1"

    variable date           "1 Aralık 2025"

 

    set time_up [clock clicks -milliseconds]

    set ::antislap::check(delay) 20

    variable chflag antislap

    setudef flag $chflag

 

    bind ctcp - "ACTION" ::antislap::actn

 

    proc actn {nick uhost hand chan key text} {

        variable texts; variable chflag

        if {![channel get $chan $chflag]} {return}

        set nick [split $nick]

        if {[info exists ::antislap::check(lasttime,$uhost)] && [expr $::antislap::check(lasttime,$uhost) + $::antislap::check(delay)] > [clock seconds] && ![matchattr $hand n]} {return}

        if {[string match "*$::botnick*" $text]} {

            set ::antislap::check(lasttime,$uhost) [clock seconds]

            putserv "PRIVMSG $chan :\001ACTION [regsub -- %nick% [lindex $::antislap::texts [rand [llength $::antislap::texts]]] $nick]\001"

        }

    }

 

    variable texts {

        "slaps %nick%'in suratına Geri tokat'ı!"

        "slaps %nick% Tokat atma lan bana!!"

    }

 

    set time_down [clock clicks -milliseconds]

    putlog "İntikam v$version \[$date\] by $author [expr ($time_down-$time_up)/1000.0] yüklendi."