Public Channel Join Command Script for eggdrop!

[awyeah]

Hello,

I have made a PUBLIC CHANNEL JOIN COMMAND
for eggdrops like as the .+chan #channel command
in DCC and also a channel remover command in
PUBLIC CHANNEL MSG as the .-chan #channel command
in DCC.

I don't know why they aren't working.
I've found many scripts on www.tclscript.com
which have these and I tried almost all and they
don't work. I dont know why!

I just want to type .+chan #anychann on my chan
and want my bot to add that channel in the chan bot
list bot.chan and join that channel and do the same for
.-chan to remove the channel from the bot.chan file
and the list.

I can't get it to work unfortunately.
Some one was saying you need to unbind the .+chan
join DCC command first then bind it? or what.

Even suppose I can change the trigger, it doesnt really
need to bind on .+chan, it can be !addchan or !chanadd
and !delchan or !chandel. But I've tried almost likely every
possible combination and they still don't seem to work.

Please help me, kthx.

[Ofloo]

could u post what u made ? or tryed .. (script)

simple example

Code: Select all

bind pub n !join join:pub

proc join:pub {nick host hand chan arg} {
  channel add [lindex $arg 0]
  putserv "PRIVMSG $chan :Bot is joining \(\002[lindex $arg 0]\002\)."
}

check ur help dir and read the docu look for channel add channel del channel..

[K]

Very simple

Code: Select all

bind pub m .+chan pub:+chan
bind pub m .-chan pub:-chan

#part
proc pub:-chan {nick uhost hand chan args} {
        set args [cleanarg $args]
        if {[llength $args]<1} {
                notice $nick "Usage: .-chan <#channel>"
                return 0
        }
        channel remove $args
}

#join
proc pub:+chan {nick uhost hand chan args} {
        set args [cleanarg $args]
        if {[llength $args]<1} {
                notice $nick "Usage: .+chan <#channel>"
                return 0
        }
        channel add $args {+greet -bitch -autoop -bitch -stopnethack}
}

[user]

wtf is 'cleanarg'? Try reading the manual page for 'proc' and pay extra close attention to the part about 'args'.

[strikelight]

Not to mention there is no "notice" command provided by eggdrop by default.

[]Kami[]

I think he wanted to make

Code: Select all

set args [split [cleanarg $args]]

But he did wrong

[awyeah]

Thanks for your help everyone.
I appreciate it.

I'll try to use the ones you people have given in your replies and try to work them out.

[awyeah]

By the way I found a proc of cleanarg some where on the web for eggdrops.

This is would be it, I suppose guys??

proc cleanarg {arg} {
set response ""
for {set i 0} {$i < [string length $arg]} {incr i} {
set char [string index $arg $i]
if {($char != "\12") && ($char != "\15")} {
append response $char
}
}
return $response
}

But why do we need to use this complicated process??

OR

This line below cannot do the same work, in a less complicated way?

channel add [lindex $arg 0]

[user]

changing the variable name (args) would make it even easier. Read about 'args' here: http://tcl.tk/man/tcl8.5/TclCmd/proc.htm

[awyeah]

Thanks I got, the script with the proc cleanarg working in
good and fine condition.

The channel add, remove both are working fine, I can execute
them in private query with the bot which is easier when DCC sucks
as well as on public channels.

Althought I had to put it in the first file of my tcls in the first
line, in between it was causing troubles, maybe clashing with
the others or I don't know what.

Thanks again, everyone!