is it posiable someone help me with SAMODE?

[Valentin]

I`m use this script fot ircop bot to get @ in every chan. Is it posiable to make it to get + in #opers. In every chan will get @, exempt #opers. In #opers has to be with +

Code: Select all

bind join - * join:opbot
proc join:opbot { nick host hand chan } {
 
    if {$nick eq $::botnick} {
       putserv "SAMODE $chan +o $::botnick"
    }
 
}

[caesar]

Code: Select all

bind join - * join:opbot

proc join:opbot { nick host hand chan } {
	if {![isbotnick $nick]} return
	set mode [expr {[string equal -nocase $chan "#opers"] ? "+o" : "++"}]
	putserv "SAMODE $chan $mode $::botnick"
}

Replace the second '+' in '++' with whatever mode gives the bot the + flag cos honestly I don't know.

[CrazyCat]

The "+" is a voice, so +v.

And you like complex code ?

Code: Select all

bind join - * join:opbot

proc join:opbot { nick host hand chan } {
   if {![isbotnick $nick]} return
   set mode "+o"
   if {[string tolower $chan] eq "#opers"} { set mode "+v" }
   putserv "SAMODE $chan $mode $::botnick"
}

[caesar]

You scared of the expr line?

It's basically if condition do this else do something else just wrapped up nicely.

[CrazyCat]

I'm not scared of it, but Valentin won't understand your code if you don't explain it.

I think that one of the first goals of this forum is to teach TCL to others, but I'm peharps wrong

[caesar]

You are right, in this case here's a more traditional approach:

Code: Select all

bind join - * join:opbot

proc join:opbot { nick host hand chan } {
	if {![isbotnick $nick]} return
	if {[string equal -nocase $chan "#opers"]} {
		set mode "+v"
	} else {
		set mode "+o"
	}
	putserv "SAMODE $chan $mode $::botnick"
}