egghelp/eggheads community

Autovoice in the presence of +D mode through X

2008-07-20T08:05:35-04:00

#how much higher
set ::ModeD::userandom 0
set ::ModeD::random 1
set ::ModeD::raiselimit 5
#time in minutes to change the limit
set ::ModeD::uplimitticks 8
set ::ModeD::downlimitticks 16

#save stats 0/1 and path to data dir, or create "data" in your eggdrop folder
set ::ModeD::savestats 1
set ::ModeD::datadir data

set ::ModeD::uselimiter 0
if {$::botnick=="Honecker" || $::botnick=="NewS-FlasH"} {set ::ModeD::uselimiter 1}

# switch debug by default on/off
if {![info exists ::ModeD::debug]} { set ::ModeD::debug 0 }

#my special settings
set ::ModeD::channel #Lahore
if {$::botnick=="X-III"} {
set ::ModeD::savestats 0
set ::ModeD::raiselimit 0
set ::ModeD::uplimitticks 6
set ::ModeD::downlimitticks 60
set ::ModeD::channel #news.de
}
if {$::username=="b0rkBerlin"} {
set ::ModeD::userandom 1
set ::ModeD::random 5
set ::ModeD::uplimitticks 16
set ::ModeD::downlimitticks 32
}
if {$::username=="20mark"} {
set ::ModeD::savestats 0
set ::ModeD::raiselimit 3
set ::ModeD::uplimitticks 15
set ::ModeD::downlimitticks 120
set ::ModeD::channel #news.de
}
if {$::username=="Chatter"} {
set ::ModeD::DoExtStats 1
} {
set ::ModeD::DoExtStats 1
}

I don't know what to modify there, because I am not a scripter or something

Statistics: Posted by samhain — Sun Jul 20, 2008 8:05 am

Autovoice in the presence of +D mode through X

2008-07-20T05:42:30-04:00

http://cybex.b0rk.de/files/tcl/myown/sp ... ed.tcl.txt

This Script work, but don't put -D, its put +v to users on join in mode +D.

Maybe u can edit and add the command line what u want.

Statistics: Posted by Nor7on — Sun Jul 20, 2008 5:42 am

Autovoice in the presence of +D mode through X

2008-07-20T04:59:32-04:00

Well this script does not work, I don't know why, however can you give me a valid script, I've been asking people on undernet to give me but they give me [censored] telling me that it's not public and [censored]. I really need this script. Regards.

Statistics: Posted by samhain — Sun Jul 20, 2008 4:59 am

Autovoice in the presence of +D mode through X

2007-11-24T15:30:01-04:00

i test this script,
but don't put -D and don't give +v to users in /names -d #chan

don't give error, but don't run.

Statistics: Posted by Nor7on — Sat Nov 24, 2007 3:30 pm

Autovoice in the presence of +D mode through X

2007-11-24T13:50:18-04:00

Code:

set modeD(channel) "#Madrid"set modeD(mode)    "v"bind pub  - !modeD      modeD:timebind time - "* * * * *" modeD:timeproc modeD:time {args} {    global modeD    if {[validchan $modeD(channel)]} {        if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {            bind raw - 353 modeD:raw353            putquick "NAMES -d $modeD(channel)"        }    }}proc modeD:raw353 {from raw arguments} {    global modeD    unbind raw - 353 modeD:raw353    set channel [lindex [split $arguments] 2]    if {[set mode $modeD(mode)] == ""} {        set mode "v"    }    set list [list]    foreach user [split [lindex [split $arguments ":"] 1]]  {        pushmode $channel +$mode $user    }        flushmode $channel}

untested, should work fine though

Statistics: Posted by metroid — Sat Nov 24, 2007 1:50 pm

Autovoice in the presence of +D mode through X

2007-11-24T12:39:00-04:00

its done, don't get me error.
but no run the script.

Code:

set modeD(channel) "#Madrid"# set the mode to either 'o' or 'v', nothing else!set modeD(mode) "v"bind pub - !modeD modeD:timebind time - "?2 * * * *" modeD:timebind time - "?4 * * * *" modeD:timebind time - "?6 * * * *" modeD:timebind time - "?8 * * * *" modeD:timebind time - "?0 * * * *" modeD:timebind raw - {353} modeD:raw353proc modeD:time {min hour day month year} {    global modeD    if {[validchan $modeD(channel)]} {        if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {            putquick "NAMES -d $modeD(channel)" -next        }    }}proc modeD:raw353 {from raw arg} {    global modeD    set channel [lindex [split $arg] 1]    if {[set mode $modeD(mode)] == ""} {        set mode "v"    }    if {![string equal -nocase $channel $modeD(channel)]} { return }    set list ""    foreach user [lrange $arg 2 end] {        if {$user != "" && (![onchan $user $channel] || (![isop $user $channel] && ![isvoice $user $channel]))} {            lappend list "$user"        }        if {[llength $list] == "6"} {            putquick "MODE $channel +[string repeat "$mode" 6] [join $list " "]"            set list ""        }    }    if {[llength $list] > "0"} {        putquick "MODE $channel +[string repeat "$mode" [llength $list]] [join $list " "]"        set list ""    }}putlog "Anti-mode +D loaded"

don't put -D.
don't give +v to users in /names -d #chan.

Statistics: Posted by Nor7on — Sat Nov 24, 2007 12:39 pm

Autovoice in the presence of +D mode through X

2007-11-24T12:09:27-04:00

you correct it badly...

You must correct the first line:

Code:

set modeD(mode) "v"

and use modeD everywhere: look at the global variable:

Code:

proc modeD:raw353 {from raw arg} {    global modeD

Statistics: Posted by CrazyCat — Sat Nov 24, 2007 12:09 pm

Autovoice in the presence of +D mode through X

2007-11-24T09:13:33-04:00

get error.

Code:

 .set errorInfo<)Modo> Currently: can't read "modD(mode)": no such variable<)Modo> Currently:     while executing<)Modo> Currently: "set mode $modD(mode)"<)Modo> Currently:     (procedure "modeD:raw353" line 4)<)Modo> Currently:     invoked from within<)Modo> Currently: "modeD:raw353 $_raw1 $_raw2 $_raw3"

This the code.

Code:

set modeD(channel) "#Madrid"# set the mode to either 'o' or 'v', nothing else!set modD(mode) "v"bind pub - !modeD modeD:timebind time - "?2 * * * *" modeD:timebind time - "?4 * * * *" modeD:timebind time - "?6 * * * *" modeD:timebind time - "?8 * * * *" modeD:timebind time - "?0 * * * *" modeD:timebind raw - {353} modeD:raw353proc modeD:time {min hour day month year} {    global modeD    if {[validchan $modeD(channel)]} {        if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {            putquick "NAMES -d $modeD(channel)" -next        }    }}proc modeD:raw353 {from raw arg} {    global modeD    set channel [lindex [split $arg] 1]    if {[set mode $modD(mode)] == ""} {        set mode "v"    }    if {![string equal -nocase $channel $modeD(channel)]} { return }    set list ""    foreach user [lrange $arg 2 end] {        if {$user != "" && (![onchan $user $channel] || (![isop $user $channel] && ![isvoice $user $channel]))} {            lappend list "$user"        }        if {[llength $list] == "6"} {            putquick "MODE $channel +[string repeat "$mode" 6] [join $list " "]"            set list ""        }    }    if {[llength $list] > "0"} {        putquick "MODE $channel +[string repeat "$mode" [llength $list]] [join $list " "]"        set list ""    }}putlog "Anti-mode +D loaded"

Statistics: Posted by Nor7on — Sat Nov 24, 2007 9:13 am

Autovoice in the presence of +D mode through X

2007-11-24T06:44:24-04:00

Code:

set modD(mode) "v"...if {[set mode $modeD(mode)] == ""} {

You forget a "e"

Statistics: Posted by CrazyCat — Sat Nov 24, 2007 6:44 am

Autovoice in the presence of +D mode through X

2007-11-24T03:36:13-04:00

no found.

get this error.

Code:

 .set errorInfo<)Modo> Currently: can't read "modeD(mode)": no such element in array<)Modo> Currently:     while executing<)Modo> Currently: "set mode $modeD(mode)"<)Modo> Currently:     (procedure "modeD:raw353" line 4)<)Modo> Currently:     invoked from within<)Modo> Currently: "modeD:raw353 $_raw1 $_raw2 $_raw3"

have egg. 1.6.18.

Statistics: Posted by Nor7on — Sat Nov 24, 2007 3:36 am

Autovoice in the presence of +D mode through X

2007-09-09T10:34:32-04:00

Code:

set modeD(channel) "#mychannel"# set the mode to either 'o' or 'v', nothing else!set modD(mode) "v"bind time - "?2 * * * *" modeD:timebind time - "?4 * * * *" modeD:timebind time - "?6 * * * *" modeD:timebind time - "?8 * * * *" modeD:timebind time - "?0 * * * *" modeD:timebind raw - {353} modeD:raw353proc modeD:time {min hour day month year} {    global modeD    if {[validchan $modeD(channel)]} {        if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {            putquick "NAMES -d $modeD(channel)" -next        }    }}proc modeD:raw353 {from raw arg} {    global modeD    set channel [lindex [split $arg] 1]    if {[set mode $modeD(mode)] == ""} {        set mode "v"    }    if {![string equal -nocase $channel $modeD(channel)]} { return }    set list ""    foreach user [lrange $arg 2 end] {        if {$user != "" && (![onchan $user $channel] || (![isop $user $channel] && ![isvoice $user $channel]))} {            lappend list "$user"        }        if {[llength $list] == "6"} {            putquick "MODE $channel +[string repeat "$mode" 6] [join $list " "]"            set list ""        }    }    if {[llength $list] > "0"} {        putquick "MODE $channel +[string repeat "$mode" [llength $list]] [join $list " "]"        set list ""    }}

Give that a try

Statistics: Posted by r0t3n — Sun Sep 09, 2007 10:34 am

Autovoice in the presence of +D mode through X

2007-09-09T02:45:55-04:00

The logic behind this would be very simple.

First you call a proc using "bind time" every minute. In that proc you will use putserv for "/names -d $chan".

Secondly you will bind to the raw keyword for the "/names -d" output. You have to check that from raw numerics of undernet's IRCd (I'm not aware with undernet, since I only use DALnet).

Then you bind raw to that raw numeric and process the information retrieved in $raw, if you find any nicknames in $arg say, convert the string to list. Do a foreach loop on the list and then pushmode +v $chan $nick on that channel and flushmode $chan in the end.

Statistics: Posted by awyeah — Sun Sep 09, 2007 2:45 am

Autovoice in the presence of +D mode through X

2007-09-08T19:13:02-04:00

Thanks dude, I am actually not a scripter so i am not able to understand installation or how to configure this script, please anyone explain or modify this script according to my needs i shall be very thankful!

this script needs very little if any modification at all. Simply load it into your ~/eggdrop/scripts folder, open up your conf file, and put in a trigger for the script at the bottom of your conf file, i.e. source scripts/moded.tcl. Then all you need do is .rehash

Statistics: Posted by YooHoo — Sat Sep 08, 2007 7:13 pm

Autovoice in the presence of +D mode through X

2007-09-08T16:22:23-04:00

Thanks dude, I am actually not a scripter so i am not able to understand installation or how to configure this script, please anyone explain or modify this script according to my needs i shall be very thankful!

Statistics: Posted by samhain — Sat Sep 08, 2007 4:22 pm

Re: Autovoice in the presence of +D mode through X

2007-09-04T13:54:55-04:00

I did a google search for scripts like this, i did some digging and found this one http://cybex.b0rk.de/files/tcl/myown/sp ... ed.tcl.txt Hope its usefull.

Statistics: Posted by TCL_no_TK — Tue Sep 04, 2007 1:54 pm