TCL needed help

WeiJie · Post by **WeiJie** » Sat Sep 25, 2004 11:30 am

I'm a noob in TCL scripting... Hope someone else out there would be able to help out in my "tcl"... This TCL must be able to detect netsplit and set +m to the channel (#abc) and after 30secs, bot must set -m to the channel...

Code: Select all

bind raw - *QUIT

if {([string match "*.*.galaxynet.org" [lindex $reason 0]]) && ([string match "*.*.galaxynet.org" [lindex $reason 1]]) && ([llength $reason] == 2]) && ([lindex $reason 2] == "")} { 
putquick "MODE #abc +m" -next
putserv "PRIVMSG #abc :Netsplit Detected, Channel Will Set To Moderate For 30 Seconds"
timer 30 "putquick \"MODE #abc -m\"" 
}

greenbear · Post by **greenbear** » Sat Sep 25, 2004 1:51 pm

You might want to use bind splt and bind rejn to detect netsplit/rejoins.
See doc/tcl-commands.doc in your eggdrop dir for details.

YooHoo · Post by **YooHoo** » Sat Sep 25, 2004 2:22 pm

WeiJie wrote:
Code: Select all
bind raw - *QUIT

This is not correct. To bind to a signoff/quit message, you should use the bind SIGN...
(10) SIGN (stackable)
bind sign <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel> <reason>

Description: triggered by a signoff, or possibly by someone who got
netsplit and never returned. The signoff message is the last
argument to the proc. Wildcards can be used in the mask, which is
matched against '#channel nick!user@host'.
Module: irc

awyeah · Post by **awyeah** » Sun Sep 26, 2004 8:21 am

Something like this, but not tested.

Code: Select all

bind sign - * netsplit:lock

proc netsplit:lock {nick uhost hand chan text {reason ""}} {
 global botnick netsplit_lock
  set checkmode [string trim [lindex [split [getchanmode $chan]] 0] "+"]
  if {(![info exists netsplit_lock]) && ([lsearch -exact $checkmode "m"] == -1) && ([string match "*.*.galaxynet.org" [lindex $reason 0]]) && ([string match "*.*.galaxynet.org" [lindex $reason 1]]) && ([llength $reason] == 2]) && ([lindex $reason 2] == "")} {
 putquick "MODE $chan +m" -next; set netsplit_lock 1
 putquick "NOTICE $chan :Netsplit detected, channel set to +m for 10 secs. ;)" -next
 utimer 10 [list putquick "MODE $chan -m" -next]
 utimer 15 [list unset netsplit_lock]
 }
 return 0
}

For more security you can check if control codes are not present in the message, or if any upper-case character is not present and string range or lrange and match the reason.

WeiJie · Post by **WeiJie** » Sun Sep 26, 2004 9:52 am

YooHoo wrote:
WeiJie wrote:
Code: Select all
bind raw - *QUIT
This is not correct. To bind to a signoff/quit message, you should use the bind SIGN...
(10) SIGN (stackable)
bind sign <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel> <reason>

Description: triggered by a signoff, or possibly by someone who got
netsplit and never returned. The signoff message is the last
argument to the proc. Wildcards can be used in the mask, which is
matched against '#channel nick!user@host'.
Module: irc

Oh okie... Thanks

WeiJie · Post by **WeiJie** » Sun Sep 26, 2004 9:53 am

awyeah wrote:Something like this, but not tested.

Code: Select all

bind sign - * netsplit:lock

proc netsplit:lock {nick uhost hand chan text {reason ""}} {
 global botnick netsplit_lock
  set checkmode [string trim [lindex [split [getchanmode $chan]] 0] "+"]
  if {(![info exists netsplit_lock]) && ([lsearch -exact $checkmode "m"] == -1) && ([string match "*.*.galaxynet.org" [lindex $reason 0]]) && ([string match "*.*.galaxynet.org" [lindex $reason 1]]) && ([llength $reason] == 2]) && ([lindex $reason 2] == "")} {
 putquick "MODE $chan +m" -next; set netsplit_lock 1
 putquick "NOTICE $chan :Netsplit detected, channel set to +m for 10 secs. ;)" -next
 utimer 10 [list putquick "MODE $chan -m" -next]
 utimer 15 [list unset netsplit_lock]
 }
 return 0
}

For more security you can check if control codes are not present in the message, or if any upper-case character is not present and string range or lrange and match the reason.

Hmm, but how do i add in those channel that I want the bot to work on?
Does...

Code: Select all

 utimer 10 [list putquick "MODE #abc -m" -next]

works?

awyeah · Post by **awyeah** » Sun Sep 26, 2004 10:12 am

For those working channels you need to an another lsearch -exact to check if the channel the script is triggered on the channel which is in the working channel list.

Yes utimer with list should work.
Your channel is not #abc, its $chan.

Replace all #abc in your script by $chan.

WeiJie · Post by **WeiJie** » Sun Sep 26, 2004 10:17 am

Oh, mmm...
So the codes that u post previously works on every channels that the bot is in?

WeiJie · Post by **WeiJie** » Sun Sep 26, 2004 10:58 am

Oh ya, does this works?

Code: Select all

bind sign - * netsplit:lock
bind pub n|m !ns ns_switch

proc netsplit:lock {nick uhost hand chan text {reason ""}} { 
 global botnick netsplit_lock 
  set checkmode [string trim [lindex [split [getchanmode $chan]] 0] "+"] 
  if {(![info exists netsplit_lock]) && ([lsearch -exact $checkmode "m"] == -1) && ([string match "*.*.galaxynet.org" [lindex $reason 0]]) && ([string match "*.*.galaxynet.org" [lindex $reason 1]]) && ([llength $reason] == 2]) && ([lindex $reason 2] == "")} { 
 putquick "MODE $chan +m" -next; set netsplit_lock 1 
 putquick "NOTICE $chan :Netsplit detected, channel set to +m for 10 secs. ;)" -next 
 utimer 10 [list putquick "MODE $chan -m" -next] 
 utimer 15 [list unset netsplit_lock] 
 } 
 return 0 
} 

proc ns_switch {nick uhost hand chan text} {
 global ns
        switch [lindex $text 0] {
                on {    channel set $chan +ns
                        putserv "PRIVMSG $chan :Netsplit Detectors ACTIVATED"
                }
                off {
                        channel set $chan -ns
                        putserv "PRIVMSG $chan :Netsplit Detectors DEACTIVATED"
                }
                "" {
                        if {[lsearch -exact [channel info $chan] +ns] > -1} {
                                putserv "PRIVMSG $chan :Netsplit Detectors ACTIVATED"
                        } else {putserv "PRIVMSG $chan :Netsplit Detectors DEACTIVATED"
                        }
                }

                default { putserv "NOTICE $nick :Commands \: on|off - or nothing for status" }
        }
}

awyeah · Post by **awyeah** » Sun Sep 26, 2004 8:26 pm

WeiJie wrote:Oh, mmm...
So the codes that u post previously works on every channels that the bot is in?

Yes.

Code: Select all

bind pub n|m !ns ns_switch

No this will not work, because the script will try to match a netsplit message, not a public trigger bind. Only if your trigger message has the same text as a netsplit message and nothing else. Moreover {reason ""} would be replaced simply by reason or text if you like.

You would need to add something like this:

Code: Select all

set netsplitchans "#chan1 #chan2 #chan3"

proc bla:bla {nick .....................} {
 global netsplitchans
 if {([lsearch -exact [split [string tolower $netsplitchans]] [string tolower $chan]] == -1)} { return 0 }
 ...............................
 ........................
 ....................
 }
}

WeiJie · Post by **WeiJie** » Mon Sep 27, 2004 3:21 am

Code: Select all

set netsplitchans "#chan1 #chan2 #chan3" 

proc netsplit:lock {nick uhost hand chan text} { 
 global netsplitchans 
 if {([lsearch -exact [split [string tolower $netsplitchans]] [string tolower $chan]] == -1)} { return 0 } 
 ............................... 
 ........................ 
 .................... 
 } 
}

Mmm... What does the last 3 lines of dots needed for...?

Code: Select all

bind sign - "$netsplitchans *" splitchannel:sign

set netsplitchans "#chan1 #chan2 #chan3" 

proc splitchannel:sign {nick uhost hand chan text} { 
 global netsplitchans 
 if {([lsearch -exact [split [string tolower $netsplitchans]] [string tolower $chan]] == -1)} { return 0 } 
 ............................... 
 ........................ 
 .................... 
 } 
}

awyeah · Post by **awyeah** » Mon Sep 27, 2004 3:36 am

Meaning add the rest of ur script in it.

WeiJie · Post by **WeiJie** » Mon Sep 27, 2004 3:58 am

Oh ok, but I've tested this:

Code: Select all

bind sign - * netsplit:lock 

proc netsplit:lock {nick uhost hand chan text {reason ""}} { 
 global botnick netsplit_lock 
  set checkmode [string trim [lindex [split [getchanmode $chan]] 0] "+"] 
  if {(![info exists netsplit_lock]) && ([lsearch -exact $checkmode "m"] == -1) && ([string match "*.*.galaxynet.org" [lindex $reason 0]]) && ([string match "*.*.galaxynet.org" [lindex $reason 1]]) && ([llength $reason] == 2]) && ([lindex $reason 2] == "")} { 
 putquick "MODE $chan +m" -next; set netsplit_lock 1 
 putquick "NOTICE $chan :Netsplit detected, channel set to +m for 10 secs. ;)" -next 
 utimer 10 [list putquick "MODE $chan -m" -next] 
 utimer 15 [list unset netsplit_lock] 
 } 
 return 0 
}

It got a error back...

Tcl error [netsplit:lock]: syntax error in expression "(![info exists netsplit_lock]) && ([lsearch -exact $checkmod"

awyeah · Post by **awyeah** » Mon Sep 27, 2004 4:18 am

Hmm try this:

Code: Select all

bind sign - * netsplit:lock

proc netsplit:lock {nick uhost hand chan text {reason ""}} {
 global botnick netsplit_lock
  set chan [string tolower $chan]
  set checkmode [string trim [lindex [split [getchanmode $chan]] 0] "+"]
  if {(![info exists netsplit_lock($chan)]) && ([lsearch -exact $checkmode "m"] == -1) && ([string match "*.*.galaxynet.org" [lindex $reason 0]]) && ([string match "*.*.galaxynet.org" [lindex $reason 1]]) && ([llength $reason] == 2]) && ([lindex $reason 2] == "")} {
 putquick "MODE $chan +m" -next; set netsplit_lock($chan) 1
 putquick "NOTICE $chan :Netsplit detected, channel set to +m for 10 secs. ;)" -next
 utimer 10 [list putquick "MODE $chan -m" -next]
 utimer 15 [list unset netsplit_lock($chan)]
 }
 return 0
}

WeiJie · Post by **WeiJie** » Mon Sep 27, 2004 5:16 am

Mmm... I still got this error after I edited the TCL...

Tcl error [netsplit:lock]: syntax error in expression "(![info exists netsplit_lock($chan)]) && ([lsearch -exact $c"

egghelp/eggheads community

TCL needed help

TCL needed help

Re: TCL needed help

Re: TCL needed help