egghelp/eggheads community

ident ban instead of hostban if irccloud user

2018-06-12T10:53:11-04:00

tested and seems to work fine

nice work SpiKe^^

Statistics: Posted by simo — Tue Jun 12, 2018 10:53 am

irccloud_kb.tcl v0.1

2018-06-11T20:22:29-04:00

Great. An error we can fix

Found a cut n paste error in three of my expressions.

Please check this next version.

..

Code:

## >> irccloud_kb.tcl v0.1 << ##################  Use the default kick reason:  Requested  ################# !kb ted          :kick & ban ted  (this script doesn't remove this ban)# !kb ted 20       :kick & ban ted  (remove ban in 20 minutes)# !kb ted 20m      :kick & ban ted  (remove ban in 20 minutes)# !kb ted 90s      :kick & ban ted  (remove ban in 90 seconds)# !kb ted 4h       :kick & ban ted  (remove ban in 4 hours)# !kb ted 1d       :kick & ban ted  (remove ban in 24 hours)################  Use a custom kick reason  ################# !kb ted Damn spammer   :kick & ban ted  (kick reason:  Damn spammer)# !kb ted 20 stop that   :kick with reason: stop that (ban for 20 minutes)################  Do just a kick, or just a ban  ################# !k ted                :kick ted with default reason:  Requested# !k ted Damn spammer   :kick ted with reason:  Damn spammer# !b ted                :ban ted  (this script doesn't remove this ban)# !b ted 1h             :ban ted  (remove this ban in 1 hour)bind pub o|o !kb pubm:kickbanbind pub o|o !k pubm:kickbind pub o|o !b pubm:banproc pubm:kick {nick host hand chan text} {  pubm:kickban $nick $host $hand $chan $text k Kick}proc pubm:ban {nick host hand chan text} {  pubm:kickban $nick $host $hand $chan $text b Ban}proc pubm:kickban {nick host hand chan text {do kb} {say "Kick and Ban"} } {  set text [split [string trim $text]]  if {![llength $text]} {    puthelp "NOTICE $nick :Must provide a target nick to $say."    return 0  }  set text [lassign $text whom]  if {[isbotnick $whom] || ![botisop $chan] || [matchattr [nick2hand $whom $chan] mn]} {    return 0  }  if {[set chost [getchanhost $whom $chan]] eq ""} {     puthelp "NOTICE $nick :$whom is not on $chan"     return 0  }  append say " $whom"  if {[string match *b $do]} {    if {[string match "*.irccloud.com" $chost]} {      set mask *![lindex [split $chost @] 0]@*    } else {  set mask [maskhost "$whom!$chost" 2]  }    append say " ($mask"    if {[llength $text]} {      set rest [lassign $text exp]      if {[regexp {^([1-9][0-9]{0,3})([smhd]?)$} $exp - num dur]} {        if {$dur eq ""} {  set dur m  }        set tcall [list timed:unban $mask $chan $nick $num $dur]        if {$dur eq "d"} {  timer [expr {$num * 1440}] $tcall        } elseif {$dur eq "h"} {  timer [expr {$num * 60}] $tcall        } elseif {$dur eq "s"} {  utimer $num $tcall        } else {  utimer [expr {$num * 60}] $tcall  }        append say " for $num$dur"        set text $rest      }    }    append say ")"  }  if {[string match k* $do]} {  set reason "Requested"    if {[llength $text]} {  set reason [join $text]  }    append say " --> With Reason: $reason"  }  putquick "NOTICE $nick :$say"  if {[string match *b $do]} {  putserv "MODE $chan +b $mask"  }  if {[string match k* $do]} {  putserv "KICK $chan $whom :$reason"  }}proc timed:unban {mask chan nick num dur} {  if {[botisop $chan] && [ischanban $mask $chan]} {    putserv "MODE $chan -b $mask"  }}putlog "irccloud_kb.tcl v0.1 Loaded."

Statistics: Posted by SpiKe^^ — Mon Jun 11, 2018 8:22 pm

Hello

2018-06-11T15:12:21-04:00

now i check it the problem , can't use non-numeric string as operand of "*"
only timed doesnt work, without timed ban works fine

Statistics: Posted by Stefano1990 — Mon Jun 11, 2018 3:12 pm

ident ban instead of hostban if irccloud user

2018-06-11T00:10:51-04:00

Early testing shows this script working here. :)

I'll look more tomorrow.

Statistics: Posted by SpiKe^^ — Mon Jun 11, 2018 12:10 am

ident ban instead of hostban if irccloud user

2018-06-10T18:45:37-04:00

i think it is working cozz we have the same command on bot channel when quit out the channel bot is not work
nothing from this command is now work dont get make no one action and is not show me any notice what and why is not work any of all commands on script
example i make
!kb Test2 out
!k test2 out
!b test2

no one of this work and egddrop dont react to the comand of the script
and dont show me notice what is not work or what is wrong

can eggdrrop give the command to the Channel Bot to give ban on irccloud ident and normal user without irccloud to hostmask like normaly on ip

here ur script is not recognise the command of eggdrop script u make only the channel bot

[18:53:07] !k Test2
[18:53:11] !kb Test2
[18:53:15] !b Test2
[18:53:26] <~aL> !k test2 5
[18:53:27] * Test2 was kicked from #TEST by TEST (5)

[19:51:14] <~aL> !kb test2 20
[19:51:15] * Test2 was kicked from #TEST by TEST (20)
[19:51:15] * TEST sets mode: +b *!*@test-339B913C.irccloud.com

this is the first script with !kb2 is work

[18:54:08] <@aL> !kb2 Test2 Out
[18:54:09] * Rocky sets mode: +b *!uid290495@*
[18:54:09] >> BAN for nick Test2 <<
[18:54:10] * Test2 was kicked from #TEST by Rocky (Out)

Rocky is the eggdrop name
TEST channel name

Statistics: Posted by Stefano1990 — Sun Jun 10, 2018 6:45 pm

ident ban instead of hostban if irccloud user

2018-06-10T17:34:27-04:00

You said the script worked fine then "is not work anymore why ?"

Please explain what it is doing that it should not be doing.
Also explain what it isn't doing that it should be doing.

Paste all errors that the script may have generated.

Statistics: Posted by SpiKe^^ — Sun Jun 10, 2018 5:34 pm

Hello

2018-06-10T12:35:45-04:00

Spike^^^ the last script for eggdrop u make it !kb !k !b nick is not work anymore why ?

and the first with !kb2 is work perfectly can u see the last script why is not work like !kb2 nick

maybe need to be the $whom = $whom3 and the $mask = $mask3 ?
thx in advance

Statistics: Posted by Stefano1990 — Sun Jun 10, 2018 12:35 pm

Hello

2018-06-07T15:07:49-04:00

Spike^^ yes my friend is work great and thx again for ur help ur amazing

Statistics: Posted by Stefano1990 — Thu Jun 07, 2018 3:07 pm

ident ban instead of hostban if irccloud user

2018-06-07T09:33:53-04:00

Yes i understand , but the script needs to be tested as it stands now.

This forum thread is about a kick/ban script.
Please check all of the included functions.

Working with the ircd as an oper is a different script and forum thread.

Statistics: Posted by SpiKe^^ — Thu Jun 07, 2018 9:33 am

ident ban instead of hostban if irccloud user

2018-06-07T09:30:32-04:00

Yes i understand , but i need like kb ban u make it and for gline with command example !g ted 1h Adversiting can u do it pls thx again

Statistics: Posted by Stefano1990 — Thu Jun 07, 2018 9:30 am

ident ban instead of hostban if irccloud user

2018-06-07T09:31:42-04:00

Stefano1990

This is a kick/ban script.

Please check all of the included functions.

Statistics: Posted by SpiKe^^ — Thu Jun 07, 2018 9:27 am

Hello

2018-06-07T08:37:23-04:00

can u write on this script and for the gline command !g nick 1h or 1d and gline goes to irccloud ident to quit user without infecting other user with same ip irccloud and other regular user with regular ip take gline on their real ip :
example: user with ircloud take a gline on *!ident@* and regular user on *@IP
ty in advance for ur help

Statistics: Posted by Stefano1990 — Thu Jun 07, 2018 8:37 am

ident ban instead of hostban if irccloud user

2018-06-06T17:55:32-04:00

Can u do it to make this script eggdrrop to ban only with command !b nick 5
to put the time of ban 5 10 30m 1h 2h

Try this..

Code:

################  Use the default kick reason:  Requested  ################# !kb ted          :kick & ban ted  (this script doesn't remove this ban)# !kb ted 20       :kick & ban ted  (remove ban in 20 minutes)# !kb ted 20m      :kick & ban ted  (remove ban in 20 minutes)# !kb ted 90s      :kick & ban ted  (remove ban in 90 seconds)# !kb ted 4h       :kick & ban ted  (remove ban in 4 hours)# !kb ted 1d       :kick & ban ted  (remove ban in 24 hours)################  Use a custom kick reason  ################# !kb ted Damn spammer   :kick & ban ted  (kick reason:  Damn spammer)# !kb ted 20 stop that   :kick with reason: stop that (ban for 20 minutes)################  Do just a kick, or just a ban  ################# !k ted                :kick ted with default reason:  Requested# !k ted Damn spammer   :kick ted with reason:  Damn spammer# !b ted                :ban ted  (this script doesn't remove this ban)# !b ted 1h             :ban ted  (remove this ban in 1 hour)bind pub o|o !kb pubm:kickbanbind pub o|o !k pubm:kickbind pub o|o !b pubm:banproc pubm:kick {nick host hand chan text} {  pubm:kickban $nick $host $hand $chan $text k Kick}proc pubm:ban {nick host hand chan text} {  pubm:kickban $nick $host $hand $chan $text b Ban}proc pubm:kickban {nick host hand chan text {do kb} {say "Kick and Ban"} } {  set text [split [string trim $text]]  if {![llength $text]} {    puthelp "NOTICE $nick :Must provide a target nick to $say."    return 0  }  set text [lassign $text whom]  if {[isbotnick $whom] || ![botisop $chan] || [matchattr [nick2hand $whom $chan] mn]} {    return 0  }  if {[set chost [getchanhost $whom $chan]] eq ""} {     puthelp "NOTICE $nick :$whom is not on $chan"     return 0  }  append say " $whom"  if {[string match *b $do]} {    if {[string match "*.irccloud.com" $chost]} {      set mask *![lindex [split $chost @] 0]@*    } else {  set mask [maskhost "$whom!$chost" 2]  }    append say " ($mask"    if {[llength $text]} {      set rest [lassign $text exp]      if {[regexp {^([1-9][0-9]{0,3})([smhd]?)$} $exp - num dur]} {        if {$dur eq ""} {  set dur m  }        set tcall [list timed:unban $mask $chan $nick $num $dur]        if {$dur eq "d"} {  timer [expr {$dur * 1440}] $tcall        } elseif {$dur eq "h"} {  timer [expr {$dur * 60}] $tcall        } elseif {$dur eq "s"} {  utimer $num $tcall        } else {  utimer [expr {$dur * 60}] $tcall  }        append say " for $num$dur"        set text $rest      }    }    append say ")"  }  if {[string match k* $do]} {  set reason "Requested"    if {[llength $text]} {  set reason [join $text]  }    append say " --> With Reason: $reason"  }  putquick "NOTICE $nick :$say"  if {[string match *b $do]} {  putserv "MODE $chan +b $mask"  }  if {[string match k* $do]} {  putserv "KICK $chan $whom :$reason"  }}proc timed:unban {mask chan nick num dur} {  if {[botisop $chan] && [ischanban $mask $chan]} {    putserv "MODE $chan -b $mask"  }}

Statistics: Posted by SpiKe^^ — Wed Jun 06, 2018 5:55 pm

ident ban instead of hostban if irccloud user

2018-06-05T07:00:06-04:00

And for ban with time command !b nick 5 on min
and for gline !g nick Out ....... user quit from server
can u write the code pls , thx in advance

Statistics: Posted by Stefano1990 — Tue Jun 05, 2018 7:00 am

Hello

2018-06-04T18:05:44-04:00

Can u do it to make this script eggdrrop to ban only with command !b nick 5
to put the time of ban 5 10 30m 1h 2h

and how to make to give gline on ident of irccloud like u make it for kb and to quit user from server with command channel !g nick Out

Statistics: Posted by Stefano1990 — Mon Jun 04, 2018 6:05 pm