egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2016-12-27T06:22:55-04:00 https://forum.eggheads.org/app.php/feed/topic/20171 2016-12-27T06:22:55-04:00 2016-12-27T06:22:55-04:00 https://forum.eggheads.org/viewtopic.php?p=105656#p105656 <![CDATA[public ban command]]>
If you need to, you can check out some of my releases. There is a public ban script, an ignore script and many other's.
there is a error on line 45 of your ban script
see github
wow.. Thanks, bero93. I hadn't even noticed, everything I added to github has been edited for github, the code I use all binds back to the same trigger so I appreciate you letting me know so I can fix the code. Github needs a bug push notification or something.

Statistics: Posted by Get_A_Fix — Tue Dec 27, 2016 6:22 am

]]> 2016-12-26T19:02:24-04:00 2016-12-26T19:02:24-04:00 https://forum.eggheads.org/viewtopic.php?p=105654#p105654 <![CDATA[public ban command]]>
If you need to, you can check out some of my releases. There is a public ban script, an ignore script and many other's.
there is a error on line 45 of your ban script
see github

Statistics: Posted by bero93 — Mon Dec 26, 2016 7:02 pm

]]> 2016-06-28T09:44:58-04:00 2016-06-28T09:44:58-04:00 https://forum.eggheads.org/viewtopic.php?p=105221#p105221 <![CDATA[public ban command]]> Statistics: Posted by simo — Tue Jun 28, 2016 9:44 am

]]> 2016-06-27T19:56:37-04:00 2016-06-27T19:56:37-04:00 https://forum.eggheads.org/viewtopic.php?p=105219#p105219 <![CDATA[public ban command]]> releases. There is a public ban script, an ignore script and many other's.

Statistics: Posted by Get_A_Fix — Mon Jun 27, 2016 7:56 pm

]]> 2016-06-11T15:25:48-04:00 2016-06-11T15:25:48-04:00 https://forum.eggheads.org/viewtopic.php?p=105154#p105154 <![CDATA[Re: public ban command]]>
greetingz , i was searching for public ban command script couldnt really find any most only ban nick and not host , i was wondering if someone would have one already made
This code is created to add ignores to hosts (masks ) of nicks (NOT BAN).
If you replace the newignore comnand by BAN command , it can be useful.

Code: 

#Sintax: !ignore [nick | mask] <time in min> <reason>proc pub:cmdignore {nick uhost handle chan text} { if {$text == ""} {return 0}  if {[regexp -nocase -- {^[-_./\\]+?([a-z0-9]+)[-_./\\]+$} [lindex [split $text] 0] a b]} { set target *$b*!*@*  } else {  set target [join [lindex [split $text] 0]]   }  set b $targetset largo [string length $text]  set time [join [lindex [split $text] 1]]  set reason [join [lrange [split $text] 2 [expr { "$largo" - 1}]]]  if {![string match "*\[0-9\]*" $time]} {set it 15} else { set it "$time"}  set host [lindex [split [getchanhost $target $chan] @] 1] set idents [lindex [split [getchanhost $target $chan] @] 0]  if {$reason == ""} {set ir "Solicitado por $nick en [join [ctime [unixtime]]]."} else { set ir "$reason Puesto por $nick en [join [ctime [unixtime]]]."}  if {![string match *!*@* $target] && ![onchan $target]} {putserv "PRIVMSG $chan :$target NO se encuentra en el canal!."return 0  }  if {[onchan $target]} {set im "*!*@[join [lrange [split $host .] 0 end] .]"} else {set im "$target"}  if {[onchan $target]} {set ident1 "*![join $idents]@*" }   if {"$idents" == "ircap"} {set ident1 "*![join $idents]@[join $host]"}  newignore $im $handle "$ir" $itnewignore $ident1 $handle "$ir" $it  if {("$it" == 0) && ($reason != "")} { putmsg $chan "$nick, se ha puesto en ignore a $im $b $ident1 por siempre, $reason."; return 1 }  if {("$it" == 0) && ($reason == "")} { putmsg $chan "$nick, se ha puesto en ignore a $im $b $ident1 por siempre."; return 1 }if {("$it" == 1) && ($reason != "")} { putmsg $chan "$nick, se ha puesto en ignore a $im $b $ident1 por $it minuto, $reason."; return 1}if {("$it" == 1) && ($reason == "")} { putmsg $chan "$nick, se ha puesto en ignore a $im $b $ident1 por $it minuto."; return 1}if {("$it" != 0) && ($reason == "")} { putmsg $chan "$nick, se ha puesto en ignore a $im $b $ident1 por $it minutos, $reason."; return 1} else { putmsg $chan "$nick, se ha puesto en ignore a $im $b $ident1 por $it minutos; $reason."return 1}}
Example with this nick and host: God!genius@I.am.a.god
nick: God
ident: genius
host:I.am.a.god

<God>Hello I came to bother jejeje!
<@operator> !ignore God por molestar
<@MyBoT> operator, se ha puesto en ignore a *!*@I.am.a.god *!genius@I.am.a.god por 15 minutos; molestar.
"por molestar" ( to bother) is a reason to ignore
or just put the nick without reason:
<@operator> !ignore God


Ignoring is put these two forms simultaneously.
*!*@host
*!ident@host

I think if you change:
newignore $im $handle "$ir" $it
newignore $ident1 $handle "$ir" $it
like this:

Code: 

putserv "mode #chan +b $im $handle $ir $it"putserv "mode #chan +b $ident1 $handle $ir $it"
The messages are in Spanish , I had not time to translate to English.
With the help of google translator you can see or ask me if you do not understand.
I excepted the idents "ircap" because they are used by many users in my IRC network.
if {"$idents" == "ircap"} {set ident1 "*![join $idents]@[join $host]"}
The default time is 15 minutes
if {![string match "*\[0-9\]*" $time]} {set it 15} else { set it "$time"}

I have not tested, but I think you can serve, at least you have an idea of ​​how to take the host or mask for the bans .

Statistics: Posted by juanamores — Sat Jun 11, 2016 3:25 pm

]]> 2016-06-11T10:44:20-04:00 2016-06-11T10:44:20-04:00 https://forum.eggheads.org/viewtopic.php?p=105147#p105147 <![CDATA[public ban command]]> Statistics: Posted by simo — Sat Jun 11, 2016 10:44 am

]]>