.+ban and .kickban in a tcl script

[tucow]

Hello,

how could i use .+ban and .kickban in a tcl script?

I tried the following, but it doesn't work :/

Code: Select all

####### kban proc #######
proc kban {nickname hostname handle channel arguments} {
    global botnick
    if {[lindex [split $arguments] 0] == $botnick} { return 0 }
    kickban $botnick kickban [lindex [split $arguments] 0] [lrange [split $arguments] 1 end]
}

####### pban proc #######
proc pban {nickname hostname handle channel arguments} {
    global botnick
    if {[lindex [split $arguments] 0] == $botnick} { return 0 }
    +ban [lindex [split $arguments] 0] [lrange [split $arguments] 1 end]
}

What shall i do?

[Nara]

If I'm not mistaken, there's not an integrated ban command, so you have to putmode a +b hostmask and then a putkick on them.

As for +ban, if it's a channel ban, use newchanban. If it's a global ban, use newban.

~Nara

[krimson]

@tucow: as Nara pointed out, dcc commands are not the same with tcl commands accepted by eggdrop. you should read tcl-commands.doc in your ~/docs folder