Bad Chan Tcl

[GoRaPiD]

am luat acest tcl ca sa banezi canale desemnate de mine :

 if {[info exists bcqueue]} {unset bcqueue} 
set bchan(chans) ""
proc bmaskhost {uhost} {
set uhost [lindex [split $uhost !] [expr [llength [split $uhost !]] -1]]
set temp [string range [lindex [split $uhost @] 0] [expr [string length [lindex [split $uhost @] 0]] - 8] e]
return "*!*$temp@[lindex [split [maskhost *!*@[lindex [split $uhost @] 1]] @] 1]"
}
 
proc bchan_read {} {
global bchan
set fd [open scripts/badchan.conf r]
while {![eof $fd]} {
set inp [gets $fd]
if {[string trim $inp " "] == ""} {continue}
set ban [lrange $inp 1 e]
set chan [string tolower [lindex $inp 0]]
if {[lsearch $bchan(chans) $chan] == -1} {lappend bchan(chans) $chan}
lappend bchan($chan) $ban
}
close $fd
putlog "badchan.conf loaded."
}
putlog "Bass's badchan.tcl 1.0 loaded"
if {[file exists scripts/badchan.conf]} {bchan_read} {putlog "badchan.conf not found!"}
 
proc bc_flood_init {} {
global bc_flood bc_flood_num bc_flood_time bc_flood_array
if {![string match *:* $bc_flood]} {putlog bchan: var bc_flood not set correctly. ; return 1}
set bc_flood_num [lindex [split $bc_flood :] 0]
set bc_flood_time [lindex [split $bc_flood :] 1]
set i [expr $bc_flood_num - 1]
while {$i >= 0} {
set bc_flood_array($i) 0
incr i -1
}
} ; bc_flood_init
 
proc bc_flood {nick uhost} {
global bc_flood_num bc_flood_time bc_flood_array
if {$bc_flood_num == 0} {return 0}
set i [expr $bc_flood_num - 1]
while {$i >= 1} {
set bc_flood_array($i) $bc_flood_array([expr $i - 1])
incr i -1
}
set bc_flood_array(0) [unixtime]
if {[expr [unixtime] - $bc_flood_array([expr $bc_flood_num - 1])] <= $bc_flood_time} {
putlog "bchan: Flood detected from $nick."
#newignore [join [maskhost *!*[string trimleft $uhost ~]]] bchan flood 2
return 1
} {return 0}
}
 
 
bind join -|- * bchan_join
 
proc bchan_join {nick uhost hand chan} {
global bchan bcqueue bcnicks botnick
if {[matchattr [nick2hand $nick $chan] bmnof|mnof $chan]} {return 0}
set host [string tolower [lindex [split $uhost @] 1]]
set chan [string tolower $chan]
set nick [string tolower $nick]
if {[lsearch $bchan(chans) $chan] == -1 && ([lsearch $bchan(chans) global] == -1 || [lsearch $bchan(exempt) $chan] > -1)} {return 0}
if {[string tolower $botnick] == [string tolower $nick]} {return 0}
if {![botisop $chan]} {return 0}
if {$bchan(protect-hosts) != ""} {
foreach i $bchan(protect-hosts) {
if {[string match [string tolower $i] $host]} {return 0}
}
}
if {[info exists bcqueue($host)]} {return 0}
set bcqueue($host) 1 
if {[bc_flood $nick $uhost]} {return 0}
set bcnicks($nick) $chan
putserv "whois $nick" 
set i 0 
set temp ""
while {$i < [string length $nick]} {
if {[string index $nick $i] == "\\"} {append temp "\\\\"} elseif {
[string index $nick $i] == "\["} {append temp "\\\["} elseif {
[string index $nick $i] == "\]"} {append temp "\\\]"} elseif {
[string index $nick $i] == "\{"} {append temp "\\\{"} elseif {
[string index $nick $i] == "\}"} {append temp "\\\}"} {
append temp [string index $nick $i]}
incr i
} ; set nick $temp
timer $bchan(rescan) "unset bcqueue($host) ; unset bcnicks($nick)"
}
 
bind raw - 319 bc_whois
proc bc_whois {from key args} {
global bchan bcqueue bcnicks
# putlog "319: $args"
set args [join $args]
set nick [string tolower [lindex $args 1]]
if {[info exists bcnicks($nick)]} {set chan $bcnicks($nick)} {return 0}
set chans [string tolower [lrange $args 2 e]]
if {[lsearch $bchan(exempt) $chan] == -1 && $bchan(global) != ""} {set bans $bchan(global)} {set bans ""}
if {[lsearch $bchan(chans) $chan] > -1} {set bans "$bans $bchan($chan)"}
foreach tok $chans {
set tok [string trimleft $tok ":@+"]
foreach ban $bans {
if {[string match [lindex $ban 0] $tok]} {
putlog "badchan: match! $nick k/b'd from $chan because [lrange $ban 1 e]"
putlog "args: $args, ban: $ban"
if {[onchan $nick $chan]} {newchanban $chan [bmaskhost [getchanhost $nick $chan]] badchan "[lrange $ban 1 e]" 10}
return 0
}
}
}
return 0
}
bind pub n|- !gbclist bc_glist
proc bc_glist {1 2 3 4 5} {bc_list $1 $2 $3 global $5}
bind pub o|o !bclist bc_list
proc bc_list {nick uhost hand chan args} {
global bchan
set chan [string tolower $chan]
if {[lsearch $bchan(chans) $chan] == -1} {puthelp "notice $nick :No badchans are registered for $chan." ; return 1}
set i 1
puthelp "notice $nick :BadChans for $chan..."
foreach ban $bchan($chan) {
puthelp "notice $nick :$i) $ban"
incr i
}
}
bind pub n|- !gabc bc_gadd
proc bc_gadd {1 2 3 4 5} {bc_add $1 $2 $3 global $5}
bind pub o|o !abc bc_add
proc bc_add {nick uhost hand chan args} {
global bchan
set chan [string tolower $chan]
if {![string match *\\\** [lindex $args 0]]} {puthelp "notice $nick :syntax is: !abc <chanmask> \[reason\]" ; return 1}
set args [string trimright "[string tolower [lindex $args 0]] [lrange $args 1 e]" " "]
if {[lsearch $bchan(chans) $chan]} {lappend bchan(chans) $chan}
lappend bchan($chan) $args
puthelp "notice $nick :[lindex $args 0] was added to $chan's badchan list."
bchan_save
return 1
}
bind pub n|- !grbc bc_grem
proc bc_grem {1 2 3 4 5} {bc_rem $1 $2 $3 global $5}
bind pub o|o !rbc bc_rem
proc bc_rem {nick uhost hand chan args} {
global bchan
set chan [string tolower $chan]
set args [string tolower [lindex [join $args] 0]]
if {[lsearch $bchan(chans) $chan] == -1} {puthelp "notice $nick :No badchans are registered for $chan." ; return 1}
if {![string match *\\\** $args]} {puthelp "notice $nick :syntax is: !rbc <chanmask>" ; return 1}
set i 0
set temp ""
foreach ban $bchan($chan) {
if {[string compare $args [lindex $ban 0]] == 0} {incr i} {lappend temp $ban}
}
if {$i > 0} {
if {$temp != ""} {set bchan($chan) $temp} {
unset bchan($chan)
set temp [lsearch $bchan(chans) $chan]
if {$temp == -1} {putlog "bchan: I'm confused." ; return 1}
set bchan(chans) [lreplace $bchan(chans) $temp $temp]
}
puthelp "notice $nick :$args was removed from $chan's badchan list."
bchan_save
} {puthelp "notice $nick :$args was not found in $chan's badchan list."}
return 1
}
proc bchan_save {} {
global bchan
set fd [open scripts/badchan.conf w]
foreach chan $bchan(chans) {
foreach ban $bchan($chan) {
puts $fd "$chan $ban"
}
}
close $fd
}

dar el baneaza in genul *!*ident@*.host.domain ceea ce ar putea actiona ca un fel de take daca ar bana *!*a@*.undernet.org

As dori sa stiu daca se poate schimba tipul de banmask in *!*user@host.domain , *!*@host.domain

Pls Help

[UniversaliA]

simplu, adaugi un singur rand in proc bmaskhost

 
proc bmaskhost {uhost} { 
 
if {[string match -nocase *@*.users.undernet.org $uhost]} {return "*!*[join [regexp -inline -- {@[^@].+} $uhost]]"}
 
set uhost [lindex [split $uhost !] [expr [llength [split $uhost !]] -1]]
set temp [string range [lindex [split $uhost @] 0] [expr [string length [lindex [split $uhost @] 0]] - 8] e]
return "*!*$temp@[lindex [split [maskhost *!*@[lindex [split $uhost @] 1]] @] 1]"
}

corijare SPECIAL pentru *@*.users.undernet.org

[GoRaPiD]

 proc badword {nick uhost hand chan rest} {
putlog "$nick $uhost $hand $chan $rest"
  global botnick ban-time Ban bword
    if {([ matchattr $hand f ])} {
      	putserv "PRIVMSG $chan :\001ACTION OVER Hears \002$nick\002 And SmiLes  L:-) \001"
        return 1
	} elseif {([matchattr $hand G])} {
          chattr $nick +dk
	  setuser $nick COMMENT "Perm banned for 4 bad word offenses"
          putserv "PRIVMSG $chan :$nick You Are Not Welcomed Here Anymore..."
	  putserv "KICK $chan $nick :$Ban \[Perm\]"	
        return 1
	} elseif {([matchattr $hand E])} {
	  chattr $nick +G-E
	  putserv "PRIVMSG $chan :$nick You Have Had Your Chances, Now You Are Out of Here. Strike! two  Your --------=>>> Out."
          set banlamer [maskhost [getchanhost $nick $chan]]
          newban $banlamer Badword $Ban 120 none
          setuser $nick COMMENT "3 Bad Word Offenses"
          return 1
	} elseif {([matchattr $hand Y])} {
	  chattr $nick +E-Y
	  putserv "PRIVMSG $chan :Has taken action on $nick for the 2nd Offense"
	  set banlamer [maskhost [getchanhost $nick $chan]]
          newban $banlamer Badword $Ban 10 none
          setuser $nick COMMENT "2 Bad Word Offenses"
          return 1
	} 
          adduser $nick [maskhost [getchanhost $nick $chan]]
          putserv "PRIVMSG $chan :\001ACTION Detected A Banned Word by $nick\001"
          putserv "PRIVMSG $nick :\001ACTION Hey, $nick, Profanity IS BAD,I Will Not allow Such A Thing In This Channel!!!\001"
          putserv "PRIVMSG $chan :\001ACTION Bad Language Is Not Fun, $nick Should never have said that...\001"
          putserv "KICK $chan $nick :Get The out of here with that kind of talk"
          putserv "NOTICE $nick :Please DON'T use that language in $chan"
          putserv "NOTICE $nick :\001ACTION Is Frowning At $nick This is your \[1st Warning\]\001"
          putserv "NOTICE $nick :If You Continue, You Will Be Banned The Second Time For 1 hour"
          chattr $nick +Y
          setuser $nick PASS $bword 
          setuser $nick COMMENT "1st Offense Badword"
          return 0
	 }
putlog " \[Word|KiCk\]  v3.0 By \002TheGhost\002 is Loaded"

[Kurupt]

set userhost [getchanhost $tnick $chan] 
set banmask "*!*@[lindex [split $userhost @] 1]"

te descurci tu

[GoRaPiD]

Originally Posted by Kurupt

set userhost [getchanhost $tnick $chan] 
set banmask "*!*@[lindex [split $userhost @] 1]"

te descurci tu

Vreau sa iti spun ca ti-ai gasit omu

[UniversaliA]

aplicam metoda lui Kurupt care e foarte simpla si eficace & luam exemplu de la primul script:

1. adaugam un nou proc

proc bmaskhost {uhost} { return '*!*@[lindex [split $uhost @] 1]'}

2. schimbam in script proc maskhost cu bmaskhost (adaugam doar litera b la cuvintul maskhost )

[GoRaPiD]

Originally Posted by aqwzsx

aplicam metoda lui Kurupt care e foarte simpla si eficace & luam exemplu de la primul script:

1. adaugam un nou proc

proc bmaskhost {uhost} { return '*!*@[lindex [split $uhost @] 1]'}

2. schimbam in script proc maskhost cu bmaskhost (adaugam doar litera b la cuvintul maskhost )

[12:35:11] * RapidRO sets mode: +b *!*@81-196-68-153.constanta.cablelink.ro

Ms a mers o singura problem care am rezolvato.
La

proc bmaskhost {uhost} { return '*!*@[lindex [split $uhost @] 1]'}

'*!*@[lindex [split $uhost @] 1]' aici fara cele 2 ghilimele de la inceput si sfarsit :P

P.S. l-am editat

[UniversaliA]

reformuleaza, nu inteleg nimica

[v00d00]

baietzi am nevoie de ajutor in scriptul lui MC_8 mc.ban_channel.tcl... vreau sa fac excempt pe *!*@*.users.undernet.org, ca sa nu-i scaneze pe ei... adica la join sa nu-i scaneze pe cei cu mask-a *!*@*.users.undernet.org... ca si cum face exempt la OP/VOICE asa sa faca exempt si la *!*@*.users.undernet.org...
scriptul e aici... http://mc.purehype.net/index.tcl?download=Ban+Channel
P.S. si daca vetzi avea timp sa-mi lamuritzi cum sa mai adaug asa tip de exempt pentru alte mask-uri... de exemplu as vrea sa fac exempt la acest script pentru totzi userii cu mask-a: 1) *!*@*.accent.net, 2) *!*@*.nokia.net si altele...

Va multzumesc.
Best Regards, v00d00

[Kurupt]

uita-te la exempt din dcc!

.+exempt <hostmask> [channel] [%<XdXhXm>] [comment]