egghelp/eggheads community

Help with invite script

2016-07-10T05:53:45-04:00

Will get back to this tomorrow at work when will have some time to test things out.

caesar have you had time to review the code?

I was thinking...
It could be a variable value when the Bot will perform the first invite and then compare it to not invite him again.

Statistics: Posted by juanamores — Sun Jul 10, 2016 5:53 am

Help with invite script

2016-06-12T11:25:32-04:00

I was thinking about the same "solution" (or better called workaround to circumvent the problem) you mentioned but if another script is setting some modes at the same time, well not at the same time cos elements in queue are executed one after the other, then "workaround" will notice the modes it set and consider those a mistake thus remove them thus will cause a problem.

Anyway, i was actually thinking about storing the invites into an array (that would saved on a flat file and loaded when needed) rather than on the internal invites list that is causing some unwanted behavior.

Will get back to this tomorrow at work when will have some time to test things out.

Statistics: Posted by caesar — Sun Jun 12, 2016 11:25 am

Help with invite script

2016-06-11T14:39:38-04:00

Yeah, I was getting weird results on test bot (was setting some channel modes when it shouldn't) so this is why i dropped the testing completely.

To be honest I would rather make my own "invite list" and store them in a flat file (meaning text file) than rely on the internal invite list that apparently is bugged, or at least I don't understand why the bot is setting some channel modes that match the letters in the hostmask.

The guest list is created by the BoT in a txt (text plain).
But I use commands to add and to remove nicks from that list.

The problem that Bot puts modes, depending on the letters of nicks is NOT problem of your code.

I think the problem is that the network is not ready or configurated for the eggdrops bots operations.

It was very difficult to explain the subject of the modes, when the newchanvite command is used.

In the opportunities I shared these problems here, no one understood.

Then, with the help I received from other users of this forum I solved the problem of modes, eliminating those that the bot added, at the time to add a new user to the guest list.

The code I have build to eliminate modes added by my BoT, works very well.

If there is any way to put this code in your own code, I think we've solved an important part of the problem.

Statistics: Posted by juanamores — Sat Jun 11, 2016 2:39 pm

Help with invite script

2016-06-10T00:51:57-04:00

Yeah, I was getting weird results on test bot (was setting some channel modes when it shouldn't) so this is why i dropped the testing completely.

To be honest I would rather make my own "invite list" and store them in a flat file (meaning text file) than rely on the internal invite list that apparently is bugged, or at least I don't understand why the bot is setting some channel modes that match the letters in the hostmask.

Statistics: Posted by caesar — Fri Jun 10, 2016 12:51 am

Help with invite script

2016-06-09T16:32:47-04:00

Thanks again caesar.
I have not tried the new code because I 'm struggling with another problem that already shared here and final here.

By using the command newchaninvite the bot change channel modes depending on the letters of nick (see post above to understand this problem).

I solved the problem at that time, keeping the initial channel modes in a variable, and then, compare them with the changes made by the BoT, for then remove it.

Code:

proc pub:addinvite {nick uhost hand chan text} {  if {$text == ""} { putmsg $chan "Please enter \002nick\002 to add."; return 0 }set t [lindex [split $text] 0]    set modos [getchanmode $chan]    set modes1 [split "$modos" {}]set ti "$t[join !*@*]"if {![isinvite $ti $chan]} {newchaninvite $chan $ti invite 0 stickyutimer 5 [list rest_of_commands $modes1 $chan $t]proc rest_of_commands {modes1 chan t} {set modes2 [getchanmode $chan]set largo [string length $modes2]set x 0while  {$x < $largo} {set x [expr {$x + 1}]if {[string index $modes2 $x] in $modes1 == 0} {set modchange [string index $modes2 $x]pushmode $chan "-[join $modchange]"unset modchange}}}    putmsg $chan "$t has been added to the autoinvite database $chan"    } else { putmsg $chan "$t is already in the autoinvite database $chan" } }

What I could not get it to mount this part of the code in the code proposed by caesar.

This part would have to go before each newchaninvite command:

Code:

set modos [getchanmode $chan]set modes1 [split "$modos" {}]

And this, after newchaninvite command:

Code:

utimer 5 [list rest_of_commands $modes1 $chan $t]proc rest_of_commands {modes1 chan t} {     set modes2 [getchanmode $chan]     set largo [string length $modes2]     set x 0     while  {$x < $largo} {     set x [expr {$x + 1}]      if {[string index $modes2 $x] in $modes1 == 0} {          set modchange [string index $modes2 $x]          pushmode $chan "-[join $modchange]"          unset modchange       }}}

Statistics: Posted by juanamores — Thu Jun 09, 2016 4:32 pm

Help with invite script

2016-06-09T07:08:24-04:00

Ah. I see where I screwed up. Give this a try:

Code:

namespace eval myInvites {bind join - * [namespace current]::checkInvitebind cron - {?0*} [namespace current]::resetInvites# define the channel where you want people to be invited tovariable inviteTo "#channel"# define the number of max invites a user will receivevariable maxInvites 3# define the amount of time in seconds after a user can get a new set of invitesvariable resetTime 1800proc checkInvite {nick uhost hand chan} {if {[isbotnick $nick] || ![botisop $chan]} returnvariable inviteToif {[string equal $chan $inviteTo] || [onchan $nick $inviteTo]} returnvariable maxInvitesset now [unixtime]set mask "$nick!$uhost"if {[isInvite $mask $inviteTo]} {foreach ele [invitelist $inviteTo] {lassign $ele hostmask comment expiration added active creatorif {![string match -nocase $mask $hostmask]} continueif {[scan $comment {%d%d} n e] !=2} {set comment [list 0 [expr $now + $resetTime]]} else {set comment [list [incr n] $e]}killchaninvite $inviteTo $hostmasknewchaninvite $inviteTo $hostmask $creator $comment $expirationlassign $comment n eif {$n <= $maxInvites} {putserv "INVITE $nick $inviteTo"}}}checkExpired}proc resetInvites {min hour day month weekday} {checkExpired}proc checkExpired args {variable resetTimevariable inviteToset now [unixtime]foreach ele [invitelist $inviteTo] {lassign $ele hostmask comment expiration added active creatorif {[scan $comment {%d%d} n e] !=2} {set comment [list 0 [expr $now + $resetTime]]if {[killchaninvite $inviteTo $hostmask]} {newchaninvite $inviteTo $hostmask $creator $comment $expiration}}lassign $comment n eif {$e > $now} continueif {[killchaninvite $inviteTo $hostmask]} {newchaninvite $inviteTo $hostmask $creator [list 0 [expr $now + $resetTime]] $expiration}}}proc isInvite {mask chan} {set match 0foreach ele [invitelist $chan] {lassign $ele hostmask comment expiration added active creatorif {![string match -nocase $mask $hostmask]} continueincr matchbreak}return $match}}

Statistics: Posted by caesar — Thu Jun 09, 2016 7:08 am

Help with invite script

2016-06-09T04:28:14-04:00

Yes, At this time all nicks are at zero

Code:

Tcl: {JeanPaul!*@* {0 1465443209} 0 1465441408 0 invite} {marianella!*@* {0 1465443305} 0 1465441505 0 invite} {Sandra_45!*@* {0 1465443305} 0 1465441505 0 invite}.............

Statistics: Posted by juanamores — Thu Jun 09, 2016 4:28 am

Help with invite script

2016-06-09T00:59:42-04:00

I meant that the invites will be like:

.tcl invitelist #something
Tcl: {cez!~foo@blah.com {1 1465297023} 1465296876 1465296936 0 Invite}

The {1 1465297023} is the comment and 1 is the number of invites I got and the 1465297023 is the timestamp the invites number will be reset so I can get another set of 3 invites.

Do a .tcl invitelist #channel and show me just one output to see if things are working or not.

I did some limited testing and was giving just 3 invites, but to be honest I haven't tested the part where the comment in the invite didn't match that syntax.

Statistics: Posted by caesar — Thu Jun 09, 2016 12:59 am

Help with invite script

2016-06-08T21:02:51-04:00

The thing is it will change all the comments of invites to "X Y" where X is number of invites sent and Y is the timestamp when the X is reset back to 0.

I did not understand this part of the comments.
Do I have to add a comment when I make the invite list ?

I tried the code without change and continues to invite the same nick +3 times if the nick joins more than 3 channels where the BoT is.

Statistics: Posted by juanamores — Wed Jun 08, 2016 9:02 pm

Help with invite script

2016-06-07T06:58:19-04:00

Alright. I've returned with a piece of code that will use the internal invite list.

Code:

namespace eval myInvites {bind join - * [namespace current]::checkInvitebind cron - {?0*} [namespace current]::resetInvites# define the channel where you want people to be invited tovariable inviteTo "#something"# define the number of max invites a user will receivevariable maxInvites 3# define the amount of time in seconds after a user can get a new set of invitesvariable resetTime 1800proc checkInvite {nick uhost hand chan} {if {[isbotnick $nick] || ![botisop $chan]} returnvariable inviteToif {[string equal $chan $inviteTo] || [onchan $nick $inviteTo]} returnvariable maxInvitesset now [unixtime]foreach ele [invitelist $inviteTo] {lassign $ele hostmask comment expiration added active creatorif {![string equal "$nick!$uhost" $hostmask]} continueif {[scan $comment {%d%d} n e] !=2} {set comment [list 0 [expr $now + $resetTime]]} else {set comment [list [incr n] $e]}killchaninvite $inviteTo $hostmasknewchaninvite $inviteTo $hostmask $creator $comment $expirationlassign $comment n eif {$n <= $maxInvites} {puthelp "INVITE $nick $inviteTo"}}checkExpired}proc resetInvites {min hour day month weekday} {checkExpired}proc checkExpired args {variable resetTimevariable inviteToset now [unixtime]foreach ele [invitelist $inviteTo] {lassign $ele hostmask comment expiration added active creatorif {[scan $comment {%d%d} n e] !=2} {set comment [list 0 [expr $now + $resetTime]]if {[killchaninvite $inviteTo $hostmask]} {newchaninvite $inviteTo $hostmask $creator $comment $expiration}}lassign $comment n eif {$e > $now} continueif {[killchaninvite $inviteTo $hostmask]} {newchaninvite $inviteTo $hostmask $creator [list 0 [expr $now + $resetTime]] $expiration}}}}

The thing is it will change all the comments of invites to "X Y" where X is number of invites sent and Y is the timestamp when the X is reset back to 0.

I did some limited testing so you will have to test it better.

Statistics: Posted by caesar — Tue Jun 07, 2016 6:58 am

Help with invite script

2016-06-07T01:02:00-04:00

Ah crap. With this the bot invites everyone that joins one of the channels he is OP on.

I tried with internal list of invites and on Undernet where i tested things it was setting +r mode and some other weird behavior. Will change the code to use the internal list and leave you to test it.

Statistics: Posted by caesar — Tue Jun 07, 2016 1:02 am

Help with invite script

2016-06-06T15:29:46-04:00

Thank you very much caesar for the code.
I still have not analyzed it, but just triggered it began to invite a lot of nicks he does NOT have invite status in my channel.
Like I said , I just need to invite the nicks that have added in to the invite list with newchaninvite $mychan $nickinv invite 0 sticky.

Statistics: Posted by juanamores — Mon Jun 06, 2016 3:29 pm

Help with invite script

2016-06-06T09:56:27-04:00

Code:

namespace eval myInvites {# define the channel where you want people to be invited tovariable inviteTo "#something"# define the number of max invites a user will receivevariable maxInvites 3# define the amount of time in seconds after a user can get a new set of invitesvariable resetTime 1800# don't edit past this linebind join - * [namespace current]::checkInvitebind cron - {?0*} [namespace current]::resetInvitesproc checkInvite {nick uhost hand chan} {if {[isbotnick $nick] || ![botisop $chan]} returnvariable inviteToif {[string equal $chan $inviteTo] || [onchan $nick $inviteTo]} returnglobal invitesvariable maxInvitesset match 0if {(![isInvite "$nick!$uhost"])} {incr matchlappend invites [list "$nick!$uhost" [unixtime] 1]} else {set x 0foreach {m c i} [join $invites] {if {![string equal "$nick!$uhost" $m]} continueif {$i < $maxInvites} {killInvite $mset invites [lreplace $invites $x $x [list $m $c [incr i]]]incr match}}}if {$match} {puthelp "INVITE $nick $inviteTo"}}proc isInvite {mask} {global invitesset match 0if {[info exists invites]} {foreach {m c i} [join $invites] {putlog "m: $m | c: $c | i: $i"if {[string equal $m $mask]} {incr matchbreak}}}return $match}proc killInvite {mask} {global invitesif {![info exists invites]} returnset x -1foreach {m c i} [join $invites] {incr xif {[string equal $m $mask]} {incr matchbreak}}if {$match} {set invites [lreplace invites $x $x]}}proc resetInvites {min hour day month weekday} {global invitesvariable resetTimeif {[info exists invites]} {set now [unixtime]foreach {m c i} [join $invites] {putlog "time: [expr $now - $c]"if {[expr $now - $c] < $resetTime} continueputlog "remove: $m"killInvite $m}}}}

I did some limited testing and I think it's doing what you asked for.

Statistics: Posted by caesar — Mon Jun 06, 2016 9:56 am

Help with invite script

2016-06-06T04:36:43-04:00

With this code I get the BoT invite all users who are on the guest list my channel.

Each time a guest user joins one of the channels where you will find the BoT it will invite them to my channel.

The problem occurs when the user joins many channels where the BoT is, because then gets 1 invite per channel, inviting him many times.
How I can limit the BoT invites at a maximum of 3 times per user?

Code:

bind join - * join:chkinviteproc join:chkinvite {nick uhost hand chan} {   set x 1    foreach ic [channels] {  if {[onchan $nick $ic]} {continue}if {([matchinvite $nick!$uhost $ic]) && ($nick != $::botnick) && [botisop $ic]} {     putserv "INVITE $nick $ic" } else {continue   }incr x}}

Moderator edit: Modified title to be relevant to the content

Statistics: Posted by juanamores — Mon Jun 06, 2016 4:36 am