egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-03-30T12:02:13-04:00 https://forum.eggheads.org/app.php/feed/topic/17665 2010-03-30T12:02:13-04:00 2010-03-30T12:02:13-04:00 https://forum.eggheads.org/viewtopic.php?p=92647#p92647 <![CDATA[Ban from a Internal Channel]]>
thank you very much!!

Statistics: Posted by delaa — Tue Mar 30, 2010 12:02 pm

]]> 2010-03-30T11:39:17-04:00 2010-03-30T11:39:17-04:00 https://forum.eggheads.org/viewtopic.php?p=92646#p92646 <![CDATA[Ban from a Internal Channel]]> try to copy it again please

or download it from here
http://temp.tomekk.org/kickhim-0.1.tcl

Statistics: Posted by tomekk — Tue Mar 30, 2010 11:39 am

]]> 2010-03-30T11:19:19-04:00 2010-03-30T11:19:19-04:00 https://forum.eggheads.org/viewtopic.php?p=92643#p92643 <![CDATA[Ban from a Internal Channel]]>
the eggdropt drop this error

Code: 

[ 17:12:00 ]  11[08 BOT 11]12 [17:12] Tcl error [pub:kb]: bad index "o": must be integer?[+-]integer? or end?[+-]integer?[ 17:12:07 ]  11[08 BOT 11]12 [17:12] Tcl error [pub:kb]: bad index "o": must be integer?[+-]integer? or end?[+-]integer?
And the command !kbu dosent works in the Intern channel.

Statistics: Posted by delaa — Tue Mar 30, 2010 11:19 am

]]> 2010-03-27T10:34:03-04:00 2010-03-27T10:34:03-04:00 https://forum.eggheads.org/viewtopic.php?p=92619#p92619 <![CDATA[Ban from a Internal Channel]]>

Code: 

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# channel with usersset command_channel "#xx"# channel with !kbu commandset users_channel "#yy"# host mask type# 1)  *!*@*.domain.com# 2)  *!*@some.domain.com# 3)  *nick*!*@some.domain.com# 4)  *!*ident*@some.domain.comset host_mask 1#########################################################bind pub -|- !kbu kbu_procproc kbu_proc { nick uhost hand chan arg } {global command_channel users_channelif {$chan == $command_channel} {set user_nick [lindex [split $arg] 0]if {$user_nick != ""} {if {![isbotnick $user_nick]} {if {[botonchan $users_channel]} {if {[onchan $user_nick $users_channel]} {putquick "MODE $users_channel +b [banmask [getchanhost $user_nick $users_channel] $user_nick]"putkick $users_channel $user_nick}}}}}}proc banmask { host nick } {global host_maskswitch -- $host_mask {1 {set mask "*!*@[lindex [split [maskhost $host] "@"] 1]"}2 {set mask "*!*@[lindex [split $host @] 1]"}3 {set mask "*$nick*!*@[lindex [split $host "@"] 1]"}4 {set mask "*!*[lindex [split $host "@"] 0]*@[lindex [split $host "@"] 1]"}}return $mask}putlog "kickhim.tcl ver 0.1 by tomekk loaded"
type proper channels and try it,

Statistics: Posted by tomekk — Sat Mar 27, 2010 10:34 am

]]> 2010-03-23T08:59:31-04:00 2010-03-23T08:59:31-04:00 https://forum.eggheads.org/viewtopic.php?p=92578#p92578 <![CDATA[Ban from a Internal Channel]]>
i looking for a Ban script how Allows any user from chan #yy to kickbans user in chan #xx

The users in the Internal Chanel have only +v.

There somebody can help me?

Statistics: Posted by delaa — Tue Mar 23, 2010 8:59 am

]]>