egghelp/eggheads community

Auto Voice To Those Who Are Register NICK.

2020-05-31T08:10:38-04:00

i noticed like for example on dalnet u can use multiple targets for whois command meaning u can compress multi nicks in in 1 whois command (not sure what max allowed is as raw 005 doesnt say on connect i tried like 20 nicks in 1 whois command and it seemed to execute fine tho)

like so: whois nick,nick,nick,nick,nick,nick,nick,nick,nick,nick,nick,nick,nick

wich might result in not gettin disconnected in the case of mass joins unlike having it execute 1 by 1

whois nick1
whois nick2
whois nick3
whois nick4
whois nick5
whois nick6
whois nick7
whois nick8

wich might get u disconnected since using a command excessively in the case of a mass join wich happens regularly on dalnet not to mention the daily netsplits wich has nicks mass rejoin again after servers link again

Statistics: Posted by simo — Sun May 31, 2020 8:10 am

Auto Voice To Those Who Are Register NICK.

2017-03-27T10:01:27-04:00

that seemed to fix it thx caesar

Statistics: Posted by simo — Mon Mar 27, 2017 10:01 am

Auto Voice To Those Who Are Register NICK.

2017-03-27T09:48:09-04:00

Oh boy.. coding habit made me open the if with an ( instead of an { like TCL wants. Locate:

Code:

if (![channel get $chan checkisauth] || ![onchan $nick $chan] || [isop $nick $chan] || [isvoice $nick $chan]} continue

and replace it with:

Code:

if {![channel get $chan checkisauth] || ![onchan $nick $chan] || [isop $nick $chan] || [isvoice $nick $chan]} continue

Statistics: Posted by caesar — Mon Mar 27, 2017 9:48 am

Auto Voice To Those Who Are Register NICK.

2017-03-27T09:06:41-04:00

now getting:

Tcl error [::RegVoice::isReg]: unbalanced open paren
in expression "(!1"

Statistics: Posted by simo — Mon Mar 27, 2017 9:06 am

Auto Voice To Those Who Are Register NICK.

2017-03-27T07:20:04-04:00

This is weird since the variable verifieduser should have fixed the problem... Anyway, we got two options:

1. replace this line:

Code:

set verifieduser "*has identified for*"

with:

Code:

variable verifieduser "*has identified for*"

and see if helps, if not, then...

2. hard-code the expected line into the code by replacing:

Code:

if {![string match $verifieduser $text]} return

with:

Code:

if {![string match "*has identified for*" $text]} return

and also drop the variable verifieduser line.

Statistics: Posted by caesar — Mon Mar 27, 2017 7:20 am

Auto Voice To Those Who Are Register NICK.

2017-03-27T06:48:59-04:00

now getting:

Tcl error [::RegVoice::isReg]: can't read "verifieduser": no such variable

Statistics: Posted by simo — Mon Mar 27, 2017 6:48 am

Auto Voice To Those Who Are Register NICK.

2017-03-27T06:30:14-04:00

Ah crap.. Since the public and private message had about the same messages joined them and forgot to change the channel variable. Replace:

Code:

proc doAction {mode chan dest} {if {![validchan $channel] || ![botonchan $channel]} {

with:

Code:

proc doAction {mode chan dest} {if {![validchan $chan] || ![botonchan $chan]} {

Statistics: Posted by caesar — Mon Mar 27, 2017 6:30 am

Auto Voice To Those Who Are Register NICK.

2017-03-27T03:28:20-04:00

i tested and got this error:

Code:

 namespace eval RegVoice {    set verifieduser "*has identified for*"    setudef flag checkisauth    bind join - * [namespace current]::joinCheck    bind raw - 307 [namespace current]::isReg    bind pub o|o !checkisreg [namespace current]::public    bind msg o|o checkisreg [namespace current]::message         bind time - * [namespace current]::cleanUp    proc cleanUp {minute hour day month year} {       global checkAuth       if {[info exists checkAuth]} {          foreach nick $checkAuth {             if {![onchan $nick]} {                set pos [lsearch -nocase $nick $checkAuth]                set checkAuth [lreplace $checkAuth $pos $pos]             }          }       }    }         proc joinCheck {nick uhost hand chan} {       global checkAuth       if {[isbotnick $nick]} return       if {![channel get $chan checkisauth] || [validuser $hand]} return       if {[info exists checkAuth]} {          if {[lsearch -nocase $nick $checkAuth] != -1} return       }       lappend checkAuth $nick       puthelp "WHOIS $nick"    }    proc isReg {from keyword text} {       global checkAuth       variable verifieduser       set nick [lindex [split $text] 1]       if {[info exists checkAuth]} {          set pos [lsearch -nocase $nick $checkAuth]          if {$pos != -1} {             set checkAuth [lreplace $checkAuth $pos $pos]          }       }       if {![string match $verifieduser $text]} return       if {[validuser [nick2hand $nick]]} return       foreach chan [channels] {          if {![channel get $chan checkisauth] || ![onchan $nick $chan] || [isop $nick $chan] || [isvoice $nick $chan]} continue          if {![botisop $chan]} continue          pushmode $chan +v $nick       }    }         proc public {nick uhost hand chan text} {       if {[scan $text {%s} mode] != 1} {         puthelp "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: !checkisreg on|off"         return       }       doAction $mode $chan $chan    }    proc message {nick uhost hand chan text} {       if {[scan $text {%s%s} mode channel] != 2} {          puthelp "PRIVMSG $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: checkisreg #channel on|off"          return       }       if {[string first # $channel] != 0} {          puthelp "PRIVMSG $nick :\037ERROR\037: Provided channel doesn't seem to correct. \037SYNTAX\037: checkisreg #channel on|off"          return       }       doAction $mode $channel $nick    }    proc doAction {mode chan dest} {       if {![validchan $channel] || ![botonchan $channel]} {          puthelp "PRIVMSG $dest ::\037ERROR\037: Channel $chan doesn't exist in my database or I'm not on it."          return       }       set status [channel get $chan checkisauth]       switch -- [string tolower $mode] {          "on" {             if {$status} {                puthelp "PRIVMSG $dest :\037ERROR\037: This setting is already enabled."             } else {                channel set $chan +checkisauth                puthelp "PRIVMSG $dest :Enabled Automatic Register Checking for $chan"             }          }          "off" {             if {!$status} {                puthelp "PRIVMSG $dest :\037ERROR\037: This setting is already disabled."             } else {                channel set $chan -checkisauth                puthelp "PRIVMSG $dest :Disabled Automatic Register Checking for $chan"             }          }          default {             if {![string first # $dest]} {                puthelp "PRIVMSG $dest :\037ERROR\037: $mode is not an accepted parameter. \037SYNTAX\037: !checkisreg on|off"             } else {                puthelp "PRIVMSG $dest :\037ERROR\037: $mode is not an accepted parameter. \037SYNTAX\037: checkisreg #channel on|off"             }          }       }    } }

Tcl error [::RegVoice::public]: can't read "channel": no such variable

Statistics: Posted by simo — Mon Mar 27, 2017 3:28 am

Auto Voice To Those Who Are Register NICK.

2017-03-26T22:31:21-04:00

simo,

Code:

 proc check:isreg {from keyword args} {    global verifieduser    if {![string match $verifieduser $args]} {return}    set nick [lindex [split $args] 1]    if {[validuser [nick2hand $nick]]} return    foreach chan [channels] {      if {![channel get $chan checkisauth] || ![onchan $nick $chan] || [isop $nick $chan] || [isvoice $nick $chan]} continue      pushmode $chan +v $nick    }     }

Statistics: Posted by SpiKe^^ — Sun Mar 26, 2017 10:31 pm

Auto Voice To Those Who Are Register NICK.

2017-03-26T23:08:18-04:00

Just some cut and paste slime left over in proc isReg.
Try this cleaned up some more...

Code:

 namespace eval RegVoice {     set verifieduser "*has identified for*"     setudef flag checkisauth     bind join - * [namespace current]::joinCheck     bind raw - 307 [namespace current]::isReg     bind pub o|o !checkisreg [namespace current]::public     bind msg o|o checkisreg [namespace current]::message          bind time - * [namespace current]::cleanUp     proc cleanUp {minute hour day month year} {        global checkAuth        if {[info exists checkAuth]} {           foreach nick $checkAuth {              if {![onchan $nick]} {                 set pos [lsearch -nocase $nick $checkAuth]                 set checkAuth [lreplace $checkAuth $pos $pos]              }           }        }     }          proc joinCheck {nick uhost hand chan} {        global checkAuth        if {[isbotnick $nick]} return        if {![channel get $chan checkisauth] || [validuser $hand]} return        if {[info exists checkAuth]} {           if {[lsearch -nocase $nick $checkAuth] != -1} return        }        lappend checkAuth $nick        puthelp "WHOIS $nick"     }     proc isReg {from keyword text} {        global checkAuth       variable verifieduser        set nick [lindex [split $text] 1]        if {[info exists checkAuth]} {           set pos [lsearch -nocase $nick $checkAuth]           if {$pos != -1} {              set checkAuth [lreplace $checkAuth $pos $pos]           }        }        if {![string match $verifieduser $text]} return        if {[validuser [nick2hand $nick]]} return        foreach chan [channels] {           if {![channel get $chan checkisauth] || ![onchan $nick $chan] || [isop $nick $chan] || [isvoice $nick $chan]} continue           if {![botisop $chan]} continue           pushmode $chan +v $nick        }     }          proc public {nick uhost hand chan text} {        if {[scan $text {%s} mode] != 1} {          puthelp "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: !checkisreg on|off"          return        }        doAction $mode $chan $chan     }     proc message {nick uhost hand chan text} {        if {[scan $text {%s%s} mode channel] != 2} {           puthelp "PRIVMSG $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: checkisreg #channel on|off"           return        }        if {[string first # $channel] != 0} {           puthelp "PRIVMSG $nick :\037ERROR\037: Provided channel doesn't seem to correct. \037SYNTAX\037: checkisreg #channel on|off"           return        }        doAction $mode $channel $nick     }     proc doAction {mode chan dest} {        if {![validchan $channel] || ![botonchan $channel]} {           puthelp "PRIVMSG $dest ::\037ERROR\037: Channel $chan doesn't exist in my database or I'm not on it."           return        }        set status [channel get $chan checkisauth]        switch -- [string tolower $mode] {           "on" {              if {$status} {                 puthelp "PRIVMSG $dest :\037ERROR\037: This setting is already enabled."              } else {                 channel set $chan +checkisauth                 puthelp "PRIVMSG $dest :Enabled Automatic Register Checking for $chan"              }           }           "off" {              if {!$status} {                 puthelp "PRIVMSG $dest :\037ERROR\037: This setting is already disabled."              } else {                 channel set $chan -checkisauth                 puthelp "PRIVMSG $dest :Disabled Automatic Register Checking for $chan"              }           }           default {              if {![string first # $dest]} {                 puthelp "PRIVMSG $dest :\037ERROR\037: $mode is not an accepted parameter. \037SYNTAX\037: !checkisreg on|off"              } else {                 puthelp "PRIVMSG $dest :\037ERROR\037: $mode is not an accepted parameter. \037SYNTAX\037: checkisreg #channel on|off"              }           }        }     }  }

EDIT: Also fixed a small global/variable issue in proc isReg.

Statistics: Posted by SpiKe^^ — Sun Mar 26, 2017 10:28 pm

Auto Voice To Those Who Are Register NICK.

2017-03-26T09:13:58-04:00

and also " identified for this nick "

yes because i tested with anope 2 services wich has that as output
for dalnet u can change that to:

"has identified for this nick"

Statistics: Posted by simo — Sun Mar 26, 2017 9:13 am

Auto Voice To Those Who Are Register NICK.

2017-03-26T08:59:48-04:00

and also " identified for this nick "

Statistics: Posted by Fahad — Sun Mar 26, 2017 8:59 am

Auto Voice To Those Who Are Register NICK.

2017-03-26T06:34:18-04:00

ceasar changed your code
and got this error:

Tcl error [::RegVoice::isReg]: can't read "verifieduser": no such variable

Statistics: Posted by simo — Sun Mar 26, 2017 6:34 am

Auto Voice To Those Who Are Register NICK.

2017-03-26T06:21:21-04:00

spike i changed it to:

wich seems to have helped of i done correct that is

proc check:isreg {from keyword args} {
global verifieduser
if {![string match $verifieduser $args]} {return}
set nick [lindex [split $args] 1]
if ([validuser [nick2hand $nick]]) return
foreach chan [channels] {
if {![channel get $chan checkisauth] || ![onchan $nick $chan] || [isop $nick $chan] || [isvoice $nick $chan]} {continue}
pushmode $chan +v $nick
}
}

Statistics: Posted by simo — Sun Mar 26, 2017 6:21 am

Auto Voice To Those Who Are Register NICK.

2017-03-26T06:01:21-04:00

caesar gettin this error:

Tcl error in file 'bot.conf': invalid command name "}"
while executing
"} "

and spike also gettin error:

Tcl error in file 'bot.conf':
invalid command name "}"
while executing
"} "

Statistics: Posted by simo — Sun Mar 26, 2017 6:01 am