egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-12-26T13:53:18-04:00 https://forum.eggheads.org/app.php/feed/topic/3318 2002-12-26T13:53:18-04:00 2002-12-26T13:53:18-04:00 https://forum.eggheads.org/viewtopic.php?p=14603#p14603 <![CDATA[need help with kick/ban script]]> Statistics: Posted by Guest — Thu Dec 26, 2002 1:53 pm

]]> 2002-12-26T13:26:40-04:00 2002-12-26T13:26:40-04:00 https://forum.eggheads.org/viewtopic.php?p=14602#p14602 <![CDATA[need help with kick/ban script]]>
!kb username some extra info here
it bans the user and kicks them. But somehow, I get this "bug":
<Bart>!kb barttest I'm testing around
[18:06] * Botje sets mode: +b *!*@*
[18:06] * barttest was kicked by Botje (I'm testing around)
[18:06] * Botje sets mode: -b *!*@*
This is my code:
bind pub ol !kb userban
proc userban {nick host handle channel arg} {
global botnick
if {[llength $arg] < 1} {
return 0
}
set vict [lindex $arg 0]
set reas [lrange $arg 1 end]
if {$reas == "" } {
set reas "requested"
}
if {$vict == $botnick} {
return 0
}
if {[isop $nick $channel]} {
set ban "*!*[string trimleft [getchanhost [lindex $arg 0] $channel] ~]"
putserv "MODE $channel +b $ban"
putkick $channel $vict $reas
} else {
if {([ishalfop $nick $channel] && [isop $vict $channel]) } {
putserv "PRIVMSG $channel :$nick, you can't kick someone who is an op on $channel"
} else {
set ban "*!*[string trimleft [getchanhost [lindex $arg 0] $channel] ~]"
putserv "MODE $channel +b $ban"
putkick $channel $vict $reas
}
}
}
I hope someone can help me, I'm already trying to figure it out for two weeks, now I'm desperate :D

Statistics: Posted by Guest — Thu Dec 26, 2002 1:26 pm

]]>