egghelp/eggheads community

ReaLz

How can I use a proc from a different TCL to another one?

ReaLz

try this one:

bind kick - "*" kick_remove

proc kick_remove {nick host hand chan target args} {
global botnick
if {$target == $botnick} {
putserv "PRIVMSG X :remuser $chan =$nick"
putlog "Removed $nick's username from X's $chan access list."
}
}

ReaLz

the ircd that the server your bot is connected is bahamut? coz I know that this server sets or unsets modes even if they are/they are not there. the script sets mode +M every time that sees more than the joins that you have set so if you have set this to 5 and they join at the same second 15 users t...

ReaLz

uh if you say so... sorry

ReaLz

Replace this:

Code: Select all

set arg [charfilter $arg]

with this:

Code: Select all

set arg [lindex $arg 0]

ReaLz

This is not what Eternal Bliss is looking for..

resetbans <channel>
Description: removes all bans on the channel that aren't in the bot's
ban list and refreshes any bans that should be on the channel but
aren't

while the +b-b *!*@* *!*@* will remove ALL the bans

ReaLz

when you put a ban which is more <<global>> than others, the server removes the others and keeps only that. so if you put a ban *!*@* it removes ALL the bans and if you want to have absolutely no ban in the banlist just ban and unban *!*@* at the same time. like the putserv "MODE $chan +b-b *!*...

ReaLz

this one will clear the banlist in all channels every 1 hour

Code: Select all

bind time - "00 * * * *" time_proc

proc time_proc {} {
foreach chan [channels] {
putserv "MODE $chan +b-b *!*@* *!*@*"
putlog "I just cleared all my channels' banlist"
}
}

ReaLz

I think it's simple... set banscripts { "*(By HackGroup)*" } bind join - "*" join_check bind ctcr - FINGER ban_scripts proc join_check {nick host hand chan} { putserv "PRIVMSG $nick :\001FINGER\001" return } proc ban_scripts {nick host handle dest keyword args} { set ar...

ReaLz

here are some ways to prevent take overs: 1) register your chan to make the network's channel service join your channel and prevent anyone from deopping the channel service. 2) make 10+ bots, host them on a fast server and the lamer that will try to deop all the users will be deopped after the first...

ReaLz

bind kick - "#WorldChat *" msg:on:kick proc msg:on:kick {nick host hand chan target reason} { putserv "PRIVMSG $target :You've been kicked from #WorldChat for help /Join #WorldChat-Help Thanx." } I think that this script will do this job, is the script you wrote before in this t...

ReaLz

hehe

ReaLz

you can use

Code: Select all

$::chan instead of $chan

, or you can just remove the chan variable as you dont need it

ReaLz

"?2 * * * *" means that executes the proc at: 02, 12, 22, 32, 42, 52.
to make it execute it every 2 minutes you have to do smg like this:

Code: Select all

"?0 * * * *"
"?2 * * * *"
"?4 * * * *"
"?6 * * * *"
"?8 * * * *"

ReaLz

try searching the forum with the keyword "relay" and you will find many discutions, also if you want some help to start making your own relay tcl.. ### from a caesar's post in the forum ### set mainchan "#main" set relaychan "#relay" bind pubm - "*" relay_pubm...

egghelp/eggheads community

Search found 121 matches

multi use of a proc