Help with a script

Post by **Sir_Fz** » Sun Jul 20, 2003 9:41 am

I want the bot to ban the host of the user who parts with reason : #name of the channel>
like for example:

. . Parts Nick(~xcavz@xxx.xxx.xxx.x) from #channel : (#channel)
. . Chanmode : Bot sets mode +b *!*@xxx.xxx.xxx.x

but i want it to only do that ban if the user joins and parts within 7 seconds.
like this:

[01:00]. . joins nick(~xcavz@xxx.xxx.xxx.x) #channel
[01:00] . . parts nick(~xcavz@xxx.xxx.xxx.x) from #channel : (#channel)
[01:00] . . Chanmode : Bot sets mode +b *!*@xxx.xxx.xxx.x

but if the user stays in the channel for more than 7secs before parting with reason #<channel's name> then the bot doesn't ban.

Post by **user** » Sun Jul 20, 2003 11:45 am

use a part bind and getchanjoin. (doc/tcl-commands.doc for details)

Post by **Sir_Fz** » Sun Jul 20, 2003 12:29 pm

kay, but would the getchanjoin read within a particular interval of time ?

Post by **user** » Sun Jul 20, 2003 12:53 pm

Sir_Fz wrote:kay, but would the getchanjoin read within a particular interval of time ?

What do you mean? If you'd read tcl-commands.doc you'd know what getchanjoin does...just compare the time returned with the current time minus 7 seconds and you know if you should ban or not.

Post by **Sir_Fz** » Sun Jul 20, 2003 5:39 pm

getchanjoin <nickname> <channel>
Returns: timestamp (unixtime format) of when the specified nickname
joined the channel
Module: irc

how do I use it ? and explain more to me how the time is measured plz.

Post by **user** » Sun Jul 20, 2003 7:49 pm

Sir_Fz wrote:
getchanjoin <nickname> <channel>
Returns: timestamp (unixtime format) of when the specified nickname
joined the channel
Module: irc
how do I use it ? and explain more to me how the time is measured plz.

Use getchanjoin in the proc triggered by the part bind to find out when the person parting joined... if that time >= (current time - 7) ban the user.

'unixtime' is the number of seconds since 00:00:00 01/01/1970

Post by **Sir_Fz** » Mon Jul 21, 2003 2:14 am

what it would be like ??
if {[getchanjoin * $chan] >= -7} {.... ??

Post by **user** » Mon Jul 21, 2003 10:03 am

Sir_Fz wrote:what it would be like ??
if {[getchanjoin * $chan] >= -7} {.... ??

No. Not unless your current time is 23:59:53 12/31/1969 and the nick of your parter is '*'.

Fetch the current time in seconds since 1970 using 'clock seconds' or 'unixtime'.

Here's some code to get you started:

Code: Select all

bind part - "#test *" partchk
proc partchk {n u h c a} {
	# was the part reason == the channel name?
	if {[string eq -nocase $c $a]} {
		# did this luser stay for less than 7 seconds?
		if {[getchanjoin $n $c]>=[expr {[clock seconds]-7}]} {
			# yup...ban *!*@[lindex [split $u @] end] or whatever
		}
	}
}

Post by **Sir_Fz** » Mon Jul 21, 2003 3:49 pm

[snip]
# did this luser stay for more than 7 seconds?
if {[getchanjoin $n $c]>=[expr {[clock seconds]-7}]}
[snip]

this will kick the user if he stays for mor than 7secs or it wil ban the uhost if he parts after he join in these 7secs ?

also if i do bind part - "*!~*@*" <proc-name> then it will check only for users with ~ in their ident ?

Papillon · Post by **Papillon** » Tue Jul 22, 2003 3:53 am

yes.
yes... although the right syntax would be bind part - "* *~*@*" <procname>

Post by **user** » Tue Jul 22, 2003 5:49 am

Sir_Fz wrote:
[snip]... for more than 7 ...[/snip]
this will kick the user if he stays for mor than 7secs or it wil ban the uhost if he parts after he join in these 7secs ?

Sorry about adding misleading comments

(I meant "for LESS than 7 seconds").

Post by **Sir_Fz** » Tue Jul 22, 2003 7:01 am

okay, thanx

Post by **Sir_Fz** » Tue Jul 22, 2003 3:31 pm

using:

Code: Select all

bind part - "* *~*@*" partchk

proc partchk {nick uhost hand chan rsn} {
if {[string eq -nocase $chan $rsn} {
 if {[getchanjoin $nick $chan] >= [expr {[clock seconds]-4}]} {
  set ban "*!~*@[lindex [split $uhost @] end]"
  newban $ban $::botnick "spammer." 0
  }
 }
}

didn't work, any reasons why ?
Note: the user joined and parted with reason "$chan" within 2 or 3 seconds.

Post by **Sir_Fz** » Wed Jul 23, 2003 4:52 am

anybody ? why didn't it work ?

Post by **user** » Wed Jul 23, 2003 5:02 am

If you'd read your error messages you'd know. (missing close bracket in the string eq-line.)