+R Script

[mcdarby]

Hi, I was thinking of putting +R in channel and having a TCL Script for when the BotServ bot goes offline or disappears from channel (when services is down temporary) that eggdrop removes +R from the channel modes and when the BotServ bot comes back, resets +R in channel. The +R forces people to register and identify with NickServ to be able to join the channel and the reason for needing this script that removes +R when services is down is because +R with services down prevents people from joining the channel. I would also like to find this script as being channel pacific as the bot is in several channels and don't want it placing +R in all those channels, especially channels not registered with ChanServ. If there is a script that can work like this, please let me know.

Sincerely,

Erik

[user]

How does the bot leave the channel(s)?

[stammer]

try to bind 'splt' and 'part' to trigger a procedure for setting that mode for example:

Code: Select all

bind part - *      pub:spart
bind splt - *      pub:ssplit

hope this helps

[Sir_Fz]

try to bind 'splt' and 'part' to trigger a procedure for setting that mode for example:

Code: Select all

bind part - *      pub:spart
bind splt - *      pub:ssplit

hope this helps

ok, where are the procs ? pub:spart and pub:ssplit.
your code means nothing unless u modify the procs.

[MD87]

ok, where are the procs ? pub:spart and pub:ssplit.
your code means nothing unless u modify the procs.

Some people may learn better if they're not spoon-fed

Anyway, I'd use something like this:

Code: Select all

# Name of the botservice
set botservicenick "X"

bind splt -|- * checkR:gone
bind sign -|- * checkR:gone

proc checkR:gone { nick uhost handle channel args } {
  if { $nick == $::botservicenick } {
    pushmode $channel -R
  }
}

bind join -|- * checkR:back
bind rejn -|- * checkR:back

proc checkR:back { nick uhost handle channel } {
  if { $nick == $::botservicenick } {
    pushmode $channel +R
  }
}

[Sir_Fz]

Well that's better
and I don't know how to create that proc

but does this code work when Botserv quits for a reason (Lag or something) ? cuz I think it only works in case of a nwtwork split.

[user]

For static nicks/hostmasks it's much better to do the "filtering" on bind level, so include the nick and/or hostmask in the bind and drop the check inside the proc.

Sir_Fz: The sign bind takes care of other quits

If you've set "wait-split" very low, the splt bind's not needed because sign (quit) is triggered $wait-split seconds later.
If the service bot never parts the channel, get rid of the part bind

Code: Select all

# change this to match the service bot
set serviceBot nick!ident@host

bind splt - "% $serviceBot" mode-R
bind sign - "% $serviceBot" mode-R
bind part - "% $serviceBot" mode-R
bind join - "% $serviceBot" mode+R

# use '.chanset #chan +R' to enable on a channel
setudef flag R

proc mode-R {n u h c {a ""}} {
	if {[channel get $c R]&&[string match *R* [lindex [split [getchanmode $c]] 0]]} {
		pushmode $c -R
	}
}
proc mode+R {n u h c} {
	if {[channel get $c R]&&![string match *R* [lindex [split [getchanmode $c]] 0]]} {
		pushmode $c +R
	}
}

[egghead]

[snip]
proc mode+R {n u h c} {
if {[channel get $c R]&&![string match *R* [lindex [split [getchanmode $c]] 0]]} {
pushmode $c +R
}
}
[/code]

Throw in a "!" somewhere

[user]

Throw in a "!" somewhere

Where?

[egghead]

Throw in a "!" somewhere

Where?

nvm ... too much wine on an evening :\

Got confused with the channel mode "+R", the setting on the bot "+R" and the naming of the proc.

[user]

Actually, I'm getting a bit confused of your use of the user defined flag "R"... :\

I'm sorry I couldn't find a different (short) name for it...do you have any suggestions?

EDIT: I ditn't fake that quote. He changed his post ;P

[egghead]

I'm sorry I couldn't find a different (short) name for it...do you have any suggestions?

+/-restricted
+/-needregister
+/-userneedregister
+/-userneedregisterbeforejoin
+/needsomesleep

[egghead]

Actually, I'm getting a bit confused of your use of the user defined flag "R"... :\

I'm sorry I couldn't find a different (short) name for it...do you have any suggestions?

EDIT: I ditn't fake that quote. He changed his post ;P

hehe... true. unfortunately slennox disabled the option to "delete" postings, where one could read reactions on postings that were already purged.

[mcdarby]

For static nicks/hostmasks it's much better to do the "filtering" on bind level, so include the nick and/or hostmask in the bind and drop the check inside the proc.

Sir_Fz: The sign bind takes care of other quits

If you've set "wait-split" very low, the splt bind's not needed because sign (quit) is triggered $wait-split seconds later.
If the service bot never parts the channel, get rid of the part bind

Code: Select all

# change this to match the service bot
set serviceBot nick!ident@host

bind splt - "% $serviceBot" mode-R
bind sign - "% $serviceBot" mode-R
bind part - "% $serviceBot" mode-R
bind join - "% $serviceBot" mode+R

# use '.chanset #chan +R' to enable on a channel
setudef flag R

proc mode-R {n u h c {a ""}} {
	if {[channel get $c R]&&[string match *R* [lindex [split [getchanmode $c]] 0]]} {
		pushmode $c -R
	}
}
proc mode+R {n u h c} {
	if {[channel get $c R]&&![string match *R* [lindex [split [getchanmode $c]] 0]]} {
		pushmode $c +R
	}
}

Okay, a test of that script returned the following errors.

.chanset #ForestHaven +R
Successfully set modes { +R } on #Channel.
[21:08] #ErikMouse# chanset #Channel +R
[21:09] Tcl error [mode-R]: unknown channel command: should be one of: add, set, info, remove
[21:10] @#Channel (+ctn) : [m/5 o/3 v/2 n/0 b/55 e/- I/-]
[21:10] Tcl error [mode+R]: unknown channel command: should be one of: add, set, info, remove

--
McDarby

[user]

[21:09] Tcl error [mode-R]: unknown channel command: should be one of: add, set, info, remove

That's because you're running an old version of eggdrop.

replace

Code: Select all

[channel get $c R]

with

Code: Select all

[lsearch [channel info $c] +R]>-1