This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Help for those learning Tcl or writing their own scripts.
pektek
Halfop
Posts: 55 Joined: Sat Jul 01, 2023 4:51 pm
Post
by pektek » Sat Jul 01, 2023 4:54 pm
how to show server exit messages to channel with eggdrop ?
Please Could you help ?
CrazyCat
Revered One
Posts: 1305 Joined: Sun Jan 13, 2002 8:00 pm
Location: France
Contact:
Post
by CrazyCat » Sat Jul 01, 2023 6:00 pm
You need to have your eggdrop ircop andhave a script which binds notices, with a filter (in the procedure) on "*Client exiting*" or whatever is relevant as quit string in your ircd
pektek
Halfop
Posts: 55 Joined: Sat Jul 01, 2023 4:51 pm
Post
by pektek » Sat Jul 01, 2023 6:24 pm
Showing the login message to the channel with onjoin.tcl. but I couldn't show the exit message.
pektek
Halfop
Posts: 55 Joined: Sat Jul 01, 2023 4:51 pm
Post
by pektek » Sat Jul 01, 2023 7:00 pm
It shows as an input message. but how can we set it as output message
what is your opinion?
Code: Select all
##########################################################
# Onjoin.tcl 0.1 by Banned@abv.bg by Banned #
# #
##########################################################
set onjoin_msg {
{
"Welcome Pyrex Hosting $nick"
}
}
set onjoin_chans "#test"
bind join - * join_onjoin
putlog "Onjoin.tcl 0.1 by Banned loaded"
proc join_onjoin {nick uhost hand chan} {
global onjoin_msg onjoin_chans botnick
if {(([lsearch -exact [string tolower $onjoin_chans] [string tolower $chan]] != -1) || ($onjoin_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
set onjoin_temp [lindex $onjoin_msg [rand [llength $onjoin_msg]]]
foreach msgline $onjoin_temp {
puthelp "NOTICE $nick :[subst $msgline]"
putserv "MODE $chan +v $nick"
}
}
}