RQ: TCL

За всичко свързано с mIRC
Post Reply
User avatar
lukas
Нов
Нов
Posts: 126
Joined: Mon Oct 15, 2007 9:45 pm
Contact:

RQ: TCL

Post by lukas » Wed Jul 16, 2008 5:10 pm

абе трябва ми 1 tcl който:
при слагане на бан *!*@*
da go maha ot CS ( ako ima )
да сетва noops
clear $chan all


п.с.
търсил съм къде ли не такъв тцл... мислех сам да си напиша ,но
незнам как се описва бан в tcl... ако някой знае... и това ще е от помощ


Благодаря предварително
Нито ден пропилян , секи ден пиян!!

Replace

Post by Replace » Thu Jul 17, 2008 3:09 pm

Code: Select all

# created by Yxaaaaaaa ( http://www.egghelp-bg.com )
# antiglobban.tcl
# tozi tcl predpazva kanala ot slagane na globalen ban ot tipa *@*

namespace eval eantiglobban {
    # informaciq za tcl-a
    variable version "antiglobban.tcl"
    # informaciq za avtora 
    variable author "Yxaaaaaaa ( http://www.egghelp-bg.com/ )"
    
    # ako ne razbirash nedei pipa nadolu :)
    bind mode - *+b* [namespace current]::e:lookban
    proc e:lookban {n u h c m w} {
        if {$n == "CS" && ([string match "\*@\*" $w] || [string match "??\*@\*" $w])} {
            putserv "PRIVMSG CS :listbans $c"
            putserv "PRIVMSG CS :delban $c $w"
        }
    }
    bind notc - *\[mod:* [namespace current]::e:whoban
    bind notc - *channel*ban*list:* [namespace current]::e:chan
    proc e:chan {n u h t d} {
        variable echanak
        set echanak [lindex $t 1]
    }
    proc e:whoban {n u h t d} {
        variable echanak
        if {$n != "CS"} return
        if {[lindex $t 0] == "\*!\*@\*"} {
            set victim [string map [list "]" ""] [lindex $t 4]]
            putserv "PRIVMSG CS :addban $echanak $victim 150 Zabraneni sa globalni banove!"
            putserv "PRIVMSG CS :clearallops $echanak"
            newban "*!*@[lindex [split [getchanhost $victim] "@"] 1]" $::botnick "Zabraneni sa globalni banove!" 10
        }
    }
    putlog "$version by $author loaded"
}

User avatar
lukas
Нов
Нов
Posts: 126
Joined: Mon Oct 15, 2007 9:45 pm
Contact:

Post by lukas » Fri Jul 18, 2008 10:21 am

мерси много , малко дописах да сетва noops ON
+ 1 :)
Нито ден пропилян , секи ден пиян!!

User avatar
lukas
Нов
Нов
Posts: 126
Joined: Mon Oct 15, 2007 9:45 pm
Contact:

Post by lukas » Fri Jul 18, 2008 12:38 pm

има малкък проблеми... "не разпознава" бановете
при всеки Ак прави описаното в тцл-а...
Нито ден пропилян , секи ден пиян!!

d3v1ous
Нов
Нов
Posts: 50
Joined: Tue Dec 02, 2008 1:19 pm

RE:

Post by d3v1ous » Wed Dec 03, 2008 10:01 am

Нормално, нали се сещаш че * *@* и *!*@* значат едно и също.

User avatar
lukas
Нов
Нов
Posts: 126
Joined: Mon Oct 15, 2007 9:45 pm
Contact:

Post by lukas » Wed Dec 03, 2008 11:46 pm

малко не беше нужно да спамиш но се 1
Нито ден пропилян , секи ден пиян!!

Post Reply