![]() |
|
|
#1 (permalink) |
|
Member
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 38 ![]() |
am codul urmator
Code:
bind join * - join:badident
proc join:badident {nick host hand chan} {
global botnick badidents badidentchans badidentexempt badidbantime
if {(([lsearch -exact [string tolower $badidentchans] [string tolower $chan]] != -1) || ($badidentchans == "*")) && ($nick != $botnick)} {
foreach badident [string tolower $badidents] {
set badidentban1 "*!*$badident*@*"
set badidentban2 "*!*@[lindex [split $host @] 1]"
set userident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
if {[string match *$badident* [string tolower $userident]]} {
if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {
putquick "MODE $chan -o+bb $nick $badidentban1 $badidentban2"
putquick "KICK $chan $nick :Bad User Ident Kick - Unacceptable *User Ident* detected. Please change your 'IDENT' to a suitable one and then rejoin back."
timer $badidbantime "pushmode $chan -b $badidentban2"
return 0
}
}
}
}
}
da ban pe badident dar cum il fac sa de ban si pe bad nick adica daca intra unu cu nicku specificat in lista ?
|
|
|
|
|
|
#2 (permalink) |
|
Administrator
aka aqwzsx |
Inainte de a scrie modifacarea, te avertizez ca ai un script neoptimizat la maxim, lipsit de o logica algoritimica elementara & care consuma resruse in van, in plus unele lucruri sunt chiar socant de alogice. Mai tarziu daca am timp, o sa dau tie o alternativa acestui script, pentru moment am adaugat doar 4 randuri necesare ca sa fie deie ban si dupa nick (am inteles ca asta iti doresti).
Code:
if {[string match *$badident* [string tolower $userident]]} {
if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {
putquick "MODE $chan -o+bb $nick $badidentban1 $badidentban2"
putquick "KICK $chan $nick :Bad User Ident Kick - Unacceptable *User Ident* detected. Please change your 'IDENT' to a suitable one and then rejoin back."
timer $badidbantime "pushmode $chan -b $badidentban2"
return 0
}
}
Code:
if {[string match *$badident* [string tolower $userident]]} {
if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {
putquick "MODE $chan -o+bb $nick $badidentban1 $badidentban2"
putquick "KICK $chan $nick :Bad User Ident Kick - Unacceptable *User Ident* detected. Please change your 'IDENT' to a suitable one and then rejoin back."
timer $badidbantime "pushmode $chan -b $badidentban2"
return 0
} elseif {
[string match -nocase *$badident* $nick] && [botisop $chan] && ![matchattr $hand $badidentexempt $chan]} {
set reason "Bad User Nick BAN - Unacceptable *User Nick detected. Please change your 'NICK' to a suitable one and then rejoin back."
newchanban $chan ${nick}!*@* $username $reason $badidbantime
newchanban $chan *!*@[lindex [split $host @] 1] $username $reason $badidbantime
return
}
}
|
|
|
|
![]() |
| Bookmarks |
| Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| *HELP* - .ban <nick/*!*@host> [XdXhXm] [reason] | edu | Tcl scripting | 3 | 03-09-2006 13:04 |
| mirc scripting, nick script for mirc | Wolfie | Tcl scripting | 1 | 04-08-2006 19:12 |
| Kick/Ban in care apare handle/nick | Kurupt | Tcl scripting | 7 | 18-06-2004 09:29 |