pls help !! eggy send ban via X

[lordwilli]

hi
i need tcl for eggy for kick/ban but the eggy send the bans via X (undernet) with duration level reason.
example:
i will write on main .kb nick/IP/host and eggy send the ban via x
greetings lordwilli

[Alchera]

Use the resources of the TCL Archive and you'll find plenty of scripts to suit your needs.

[lordwilli]

Use the resources of the TCL Archive and you'll find plenty of scripts to suit your needs.

yes alchera i know the tcl archive but what i need i cannot find. i know are too many k/ban tcl but noone sendthe bans to x

[metroid]

What syntax is used to ban through X?

/msg X ban #chan ?

[metroid]

Well i made this small code.
It works like this.

.kb nick - Will do this: /msg X ban #channel <nick>
.kb host - Will do this: /msg X ban #channel *!*@<host>

So you use .kb nickname or .kb <host>

Use host like this or it wont work: .kb moo.com so DO NOT USE .kb *!*@moo.com

Code: Select all

bind pub m|m .kb pub:kban

proc pub:kban {nick host hand chan text} {
set victim [lindex $text 0]
if {$victim == ""} {
putquick "NOTICE $nick :Usage: .kb <nick|host>"; return
} else {
if {![onchan $victim $chan]} {
set victim *!*@[lindex $text 0]
}
putquick "PRIVMSG X :ban $chan $victim"
}
}

Its something simple so don't expect too much of it

I don't know if X also has something for a reason but if it does use this:

Code: Select all

bind pub m|m .kb pub:kban

proc pub:kban {nick host hand chan text} {
set victim [lindex $text 0]
if {$victim == ""} {
putquick "NOTICE $nick :Usage: .kb <nick|host>"; return
} else {
if {![onchan $victim $chan]} {
set victim *!*@[lindex $text 0]
}
set reason [lrange $text 1 end]
if {$reason == ""} {
set reason "No reason given"
}
putquick "PRIVMSG X :ban $chan $victim $reason"
}
}

[lordwilli]

Well i made this small code.
It works like this.

.kb nick - Will do this: /msg X ban #channel <nick>
.kb host - Will do this: /msg X ban #channel *!*@<host>

So you use .kb nickname or .kb <host>

Use host like this or it wont work: .kb moo.com so DO NOT USE .kb *!*@moo.com

Code: Select all

bind pub m|m .kb pub:kban

proc pub:kban {nick host hand chan text} {
set victim [lindex $text 0]
if {$victim == ""} {
putquick "NOTICE $nick :Usage: .kb <nick|host>"; return
} else {
if {![onchan $victim $chan]} {
set victim *!*@[lindex $text 0]
}
putquick "PRIVMSG X :ban $chan $victim"
}
}

Its something simple so don't expect too much of it

I don't know if X also has something for a reason but if it does use this:

Code: Select all

bind pub m|m .kb pub:kban

proc pub:kban {nick host hand chan text} {
set victim [lindex $text 0]
if {$victim == ""} {
putquick "NOTICE $nick :Usage: .kb <nick|host>"; return
} else {
if {![onchan $victim $chan]} {
set victim *!*@[lindex $text 0]
}
set reason [lrange $text 1 end]
if {$reason == ""} {
set reason "No reason given"
}
putquick "PRIVMSG X :ban $chan $victim $reason"
}
}

thx thx Metroid for your answer
first iam nor so good with tcl
can you explain what i must doing with this code?
i must write a new tcl and then instal in scripts?
and the x ban msg is /msg x ban #channelname nick or *!*@host duration level reason
duration is max 336 hours level is the bot access added in accesslist and reason
now
if i type .kb nick
whit wich access the bot send the ban to x?
default ban level is 75 if not give ban level or the bot send the ban to x with his access level added into accesslist?

greetings lordwilli

[metroid]

I dont use undernet and i don't know how X works.