egghelp/eggheads community

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-25T16:50:01-04:00

your welcome and for pub command i would use :

Code:

bind pub -|- !kick pub:kickproc pub:kick {nick host hand chan text} {  global botnick     if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr [nick2hand $nick] o|o $chan]} { return 0 }if {![botisop $chan]} { puthelp "NOTICE $nick :I'm not oped on $chan." ; return 0 }   set reason [join [lrange [split $text "!"] 1 end] "!"]set text  [lindex [split $text "!"] 0]if {$reason eq ""} { set reason "Reason: You Are Not welcome. Requested by: $nick -[count:kicks]-"  }foreach user $text {if {![onchan $user $chan]} {putserv "NOTICE $nick $user is not on channel $chan"} elseif {![isop $user $chan] && ![ishalfop $user $chan] && ![matchattr [nick2hand $user] fnmo|fnmo $chan]} {  putkick $chan  $user $reason }}}

Statistics: Posted by simo — Thu Jun 25, 2020 4:50 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-25T16:38:20-04:00

Thanks Simo that was a complete script including pub nd msg commands...

Thats wahy i posted Both... You Change Lots Of things in It but It works Now Thanks ....

Statistics: Posted by illusionist — Thu Jun 25, 2020 4:38 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-25T17:08:25-04:00

this lets chanops chanhalfops and those with access to bot set the command as well if for some reason thats the next thing u seek it to do

Code:

bind msg - !kick msg_kick proc  msg_kick {nick uhost hand rest} {   global botnick   set chan [lindex $rest 0] if {![botisop $chan]} { puthelp "NOTICE $nick :I'm not oped on $chan." ; return 0 } if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr [nick2hand $nick] o|o $chan]} {     if {$chan == "#" || $chan == ""} {putquick "NOTICE $nick :Command: /msg $botnick !kick \[channel\] \[nick(s)\] \[!reason\]" ; return 0}   if {[lrange $rest 1 end] == ""} {putquick "NOTICE $nick :Command: /msg $botnick !kick \[channel\] \[nick(s)\] \[!reason\]" ; return 0}     set rest [lrange $rest 1 end]     set reason [join [lrange [split $rest "!"] 1 end] "!"]     set rest  [lindex [split $rest "!"] 0]   if {$reason eq ""} { "Reason: You Are Not welcome. Requested by: $nick -[count:kicks]-" }      foreach user $rest {         if {![onchan $user $chan]} {            putserv "NOTICE $nick $user is not on channel $chan"         } elseif {![isop $user $chan] && ![ishalfop $user $chan] && ![matchattr [nick2hand $user] fnmo|fnmo $chan]} {  putkick $chan  $user $reason }      }}}

Statistics: Posted by simo — Thu Jun 25, 2020 2:41 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-25T09:04:30-04:00

what i failed to understand is since u asked for kick via private message to bot why u use pub wich is used on channel the code i previously posted uses just that private message as u requested

few examples in pm of ur eggbot:

!kick #somechannel nick1 nick2 nick3 nick4 nick35 nick6 !custom reason here

!kick #somechannel nick1 nick2 nick3 nick4 nick35 nick6

!kick #somechannel nick !custom reason here

!kick #somechannel nick

Statistics: Posted by simo — Thu Jun 25, 2020 9:04 am

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-25T14:43:26-04:00

i forgot u use !reason i usually use .reason

Code:

bind msg o !kick msg_kick proc  msg_kick {nick uhost hand rest} {   global botnick   set chan [lindex $rest 0]    if {$chan == "#" || $chan == ""} {putquick "NOTICE $nick :Command: /msg $botnick !kick \[channel\] \[nick(s)\] \[!reason\]" ; return 0}   if {[lrange $rest 1 end] == ""} {putquick "NOTICE $nick :Command: /msg $botnick !kick \[channel\] \[nick(s)\] \[!reason\]" ; return 0}        set rest [lrange $rest 1 end]         set reason [join [lrange [split $rest "!"] 1 end] "!"]   set rest  [lindex [split $rest "!"] 0]   if {$reason eq ""} { set reason Requested }      foreach user $rest {         if {![onchan $user $chan]} {            putserv "NOTICE $nick $user is not on channel $chan"         } elseif {![isop $user $chan] && ![ishalfop $user $chan] && ![matchattr [nick2hand $user] fnmo|fnmo $chan]} {  putkick $chan  $user $reason }      }}

Statistics: Posted by simo — Wed Jun 24, 2020 6:23 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-24T17:59:10-04:00

that works in pm i tested it and it works flawlessly for the msg bot part

Statistics: Posted by simo — Wed Jun 24, 2020 5:59 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-24T16:29:04-04:00

i test this above script ... Bot did nothing... Just show the !reason msg is not on channel... No kick no error in partyline

Statistics: Posted by illusionist — Wed Jun 24, 2020 4:29 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-24T15:34:16-04:00

this seems to work for me you can add in the kick counter and such

Code:

bind msg o !kick msg_kick proc  msg_kick {nick uhost hand rest} {   global botnick   set chan [lindex $rest 0]     if {$chan == "#" || $chan == ""} {putquick "NOTICE $nick :Command: /msg $botnick !kick \[channel\] \[nick(s)\] \[!reason\]" ; return 0}   if {[lrange $rest 1 end] == ""} {putquick "NOTICE $nick :Command: /msg $botnick !kick \[channel\] \[nick(s)\] \[!reason\]" ; return 0}        set rest [lrange $rest 1 end]         set reason [join [lrange [split $rest "."] 1 end] "."]set rest  [lindex [split $rest "."] 0]if {$reason eq ""} { set reason Requested }foreach user $rest {if {![onchan $user $chan]} {putserv "NOTICE $nick $user is not on channel $chan"} elseif {![isvoice $user $chan] && ![isop $user $chan] && ![ishalfop $user $chan] && ![matchattr [nick2hand $user] fnmo|fnmo $chan]} {  putkick $chan  $user $reason }}}

Statistics: Posted by simo — Wed Jun 24, 2020 3:34 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-24T02:37:14-04:00

Caeser Sir Any Change in above mentioned code ??

Statistics: Posted by illusionist — Wed Jun 24, 2020 2:37 am

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-24T02:33:37-04:00

i test this code ... It works but if type !kick somenick and the unfortunately somenick is not on #channel ... Code CounT it as a kick.. and increase the counter ... And in next kick it jumps like

(@eggdrop) ~kick somenick !this is counter test No 1
** Somenick has been kicked by eggdrop (Reason: this is counter test No 1 Requested by: eggdrop -631-)
(@eggdrop) ~kick SomeNick2 !This is test counter test No2 with no nick
-eggdrop- SomeNick2 is not on channel: #test.
(@eggdrop) ~kick somenick !this is counter test No 3
** Somenick has been kicked by eggdrop (Reason: this is counter test No 3 Requested by: eggdrop -633-)

Thanks ...!!

Statistics: Posted by illusionist — Wed Jun 24, 2020 2:33 am

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-24T01:46:55-04:00

Don't use append (a+)
Use w or w+

I guess you missed the "truncate it if it exists" part.

Anyway, did some testing and looks like with "r+" works as expected.

Code:

% proc count:kicks args {set fh [open "~/test.txt" "r+"]set count [expr [read -nonewline $fh] + 1]seek $fh 0puts $fh $countclose $fhreturn $count}% count:kicks11% count:kicks12% count:kicks13% count:kicks14

Statistics: Posted by caesar — Wed Jun 24, 2020 1:46 am

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2021-09-01T23:08:44-04:00

Thanks for help

Statistics: Posted by illusionist — Tue Jun 23, 2020 6:05 pm

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-23T10:40:30-04:00

I tested without using a proc and it works.
In the proc, it fails (using a+, r+ or w+)

Code:

% set fh [open "~/axacount.txt" "a+"]file7% seek $fh 0% set count [expr [read -nonewline $fh] + 1] 1% seek $fh 0% puts $fh $count% seek $fh 0% set count [expr [read -nonewline $fh] + 1]2

Statistics: Posted by CrazyCat — Tue Jun 23, 2020 10:40 am

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-23T10:16:34-04:00

Don't use append (a+)

Use w or w+

Statistics: Posted by SpiKe^^ — Tue Jun 23, 2020 10:16 am

[SOLVED] Kick Counter HeLp for Kick Via PVT Msg

2020-06-23T10:13:08-04:00

I tried to compress stuff as well, but for some reason it doesn't seem to be working:

Code:

% proc count:kicks args {   set file "/home/cezar/test.txt"   set fh [open $file "a+"]   seek $fh 0   set count [expr [read -nonewline $fh] + 1]   seek $fh 0   puts $fh $count   return $count}% count:kicks1% count:kicks1% count:kicks1% puts $tcl_version8.6

I'm on Ubuntu and my version is:

Code:

cezar@Delta:~$ apt list tclListing... Donetcl/bionic,now 8.6.0+9 amd64 [installed]

Is the code that you posted working for you?

Statistics: Posted by caesar — Tue Jun 23, 2020 10:13 am