| View previous topic :: View next topic |
| Author |
Message |
demetrius_reis
Halfop
Joined: 10 Aug 2010
Posts: 42
|
 Posted: Sun Sep 11, 2011 9:16 pm Post subject: ctcpversion error to ban |
 |
|
The script below is the function of checking in without pre channel input, what version you are using is different and if he will ban.
But he is not banning, what is the error? Someone please help! 
| Code: |
# Current DCC Commands:
# .bvcheck <nick|channel>
#
### Settings ###
## Punir as pessoas que têm uma das seguintes palavras na resposta ctcp version.
set bv_versions {"HJF2XCAR3D"}
## canal.
set bv_chans "#age_2_ops"
## [0/1] Banir de todos os canais, ou apenas $bv_chans?
set bv_onlynvchans 1
## Motivo do ban ?
set bv_reason "Bem vindo ao Zone.AgeMania !!!"
## [0/1] GLine the user?
set bv_gline 0
## tempo em minutos do ban?
set bv_bantime 1
## Quais users podem usar o comando nvcheck ?
set bv_chkflag "nm"
## Não pedir ctcp versão para: Owner, Masters, Bots e OPs (flags globais)##
set bv_globflags "m n o b"
## Não pedir ctcp versão para: Owner, Masters, OPs (flags para canais)##
set bv_chanflags "m n o"
###### DONT`T FLIPPIN` EDIT ANYTHING BELOW HERE ######
### Misc Things ###
set bv_ver "0.69"
### Bindings ###
bind join - * join:bv_askver
bind ctcr - VERSION ctcr:bv_ctcp
bind notc - * notc:bv_notice
bind dcc $bv_chkflag nvcheck dcc:nvcheck
### Main Procs ###
proc join:bv_askver {nick uhost hand chan} {
global botnick bv_chans bv_globflags bv_chanflags
if {[string tolower $nick] != [string tolower $botnick]} {
foreach globflag $bv_globflags { if {[matchattr $hand $globflag]} { return 1 } }
foreach chanflag $bv_chanflags { if {[matchattr $hand |$chanflag $chan]} { return 1 } }
if {($bv_chans == "") || ([lsearch -exact [split [string tolower $bv_chans]] [string tolower $chan]] != -1)} {
putserv "PRIVMSG $nick :\001VERSION\001"
}
}
}
proc ctcr:bv_ctcp {nick uhost hand dest key arg} {
global botnick bv_versions bv_globflags bv_chanflags
if {[string tolower $nick] != [string tolower $botnick]} {
foreach version $bv_versions {
if {[string match "*[string tolower $version]*" [string tolower $arg]]} {
bv_punish $nick $uhost
}
}
}
}
proc dcc:nvcheck {hand idx arg} {
set target [lindex [split $arg] 0]
putcmdlog "#$hand# nvcheck $arg"
if {$target == ""} {
putidx $idx "Usage: .nvcheck <nick|channel>"
} else {
putidx $idx "Asking ctcp-version from $target..."
putserv "PRIVMSG $target :\001VERSION\001"
}
}
### Other Procs ###
proc bv_punish {nick uhost} {
global botnick bv_chans bv_onlynvchans bv_reason bv_gline bv_bantime
set hostmask "*[string range $uhost [string first "@" $uhost] end]"
set dowhat ""
if {[string tolower $nick] != [string tolower $botnick]} {
foreach chan [channels] {
if {($bv_onlynvchans) && ([lsearch -exact [split [string tolower $bv_chans]] [string tolower $chan]] == -1)} { continue }
if {($bv_gline) && ([botisop $chan]) && ([onchan $nick $chan])} {
if {![string match "*GLINING*" $dowhat]} { lappend dowhat "glining" }
# putserv "KICK $nick $bv_reason"
}
}
if {$dowhat != ""} {
set dowhat "-- [join $dowhat " & "]"
}
putlog "BADVERSION: $nick ($uhost) is using lame IRC-client/script $dowhat"
}
}
|
|
|
| Back to top |
|
 |
nml375
Revered One
Joined: 04 Aug 2006
Posts: 2857
|
| Posted: Mon Sep 12, 2011 5:43 am Post subject: |
|
|
Didn't look too deep into it, but the first thing that strikes me; the actual kick command has been commented out..
| Code: | ...
if {![string match "*GLINING*" $dowhat]} { lappend dowhat "glining" }
# putserv "KICK $nick $bv_reason"
... |
_________________
NML_375, idling at #eggdrop@IrcNET |
|
| Back to top |
|
|
demetrius_reis
Halfop
Joined: 10 Aug 2010
Posts: 42
|
| Posted: Mon Sep 12, 2011 11:47 pm Post subject: |
|
|
corrigido !!
tks |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
