egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-01-28T21:39:58-04:00 https://forum.eggheads.org/app.php/feed/topic/11276 2006-01-28T21:39:58-04:00 2006-01-28T21:39:58-04:00 https://forum.eggheads.org/viewtopic.php?p=59881#p59881 <![CDATA[help with ban]]>

Code: 

set target_uhost [getchanhost $nick]set banmask *!*[lindex [split [maskhost $target_uhost] "!"] 1]

Statistics: Posted by Alchera — Sat Jan 28, 2006 9:39 pm

]]> 2006-01-28T21:07:09-04:00 2006-01-28T21:07:09-04:00 https://forum.eggheads.org/viewtopic.php?p=59877#p59877 <![CDATA[help with ban]]>

Code: 

(01:54) Join: tripke (triplelion@d54C1F0D0.access.telenet.be) has join(01:54) <@reef> !kb tripke(01:54) * Doogie sets mode: +b *!*triplelio@d54C1F0D0.access.telenet.be(01:54) Kick: tripke was kicked by Doogie (banned) on #chan(01:54) Join: tripke (triplelion@d54C1F0D0.access.telenet.be) has join
As you can see the bot doesn't set the correct ban (missing n after triplelio)
This is the proc I'm working with :

Code: 

proc kickban {nik uhost hand chn txt} {global botnickset nick [lindex $txt 0]set reas [lrange $txt 1 end]set target [getchanhost $nick $chn]set banmask "*!*[string trimleft [string range $target [string first "!" $target] end] ?^~-_+?]"if {[string tolower $nick] != [string tolower $botnick]} {if {![string length [string trim $reas]]} {   set reas "banned by \[${hand}/\002${nik}\002] - Geen reden opgegeven..."} else {   set reas "banned by \[${hand}/\002${nik}\002] - $reas"}   putserv "mode $chn +b $banmask"putserv "kick $chn $nick $reas"}}
If someone could take a look please :$


GRTZ

Statistics: Posted by dusk — Sat Jan 28, 2006 9:07 pm

]]>