Need a script to say certain things to channel

Friischling · Post by **Friischling** » Tue Jan 27, 2004 9:13 am

Hello there

I need a script which makes the bot say a certain linie whenever a person gets OP in a certain channel.
But only when the OP is given by Q/L og the bot itself

Furthermore it shall Greet certain users when they join the channel. The greeting have to be in the channel - not as a notice

I have tried with +greet, but it doesn't seem to work

Thx in advantage

soul · Post by **soul** » Thu Jan 29, 2004 3:56 pm

set chan "#change_the_channel_here"

bind mode - * onop
proc onop {nick uhost hand chan +o victim} {
if { $nick == "Q" || $nick == "L" } {
putserv "privmsg $chan :$victim : text here!"
}
}
putlog "anything_you_want.tcl"

the script above will message the channel if Q or L op any nick in channel
###

for greeting certain users : .chanset #channel +greet
and check your conf for +greet

enjoy,

Friischling · Post by **Friischling** » Thu Jan 29, 2004 5:12 pm

Thx alot

Unfortunately the message appears everytime a user joins and they get +v or +o
It was ment to be +o only. Is there any way to make it do this ?

I have never scripted in TCL - which makes me a newbie

Post by **caesar** » Thu Jan 29, 2004 6:12 pm

Try with:

Code: Select all

bind mode - "* +o" onop

also, replace the:

Code: Select all

if { $nick == "Q" || $nick == "L" } {

with:

Code: Select all

if {[string toupper $nick] == "Q" || [string toupper $nick] == "L"} {

soul · Post by **soul** » Thu Jan 29, 2004 7:03 pm

i've always appreciated scripters