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.

i have a question eggdrop

Help for those learning Tcl or writing their own scripts.
Post Reply
p
pektek
Voice
Posts: 16
Joined: Sat Jul 01, 2023 4:51 pm

i have a question eggdrop

Post by pektek »

how to show server exit messages to channel with eggdrop ?
Please Could you help ?
User avatar
CrazyCat
Revered One
Posts: 1216
Joined: Sun Jan 13, 2002 8:00 pm
Location: France
Contact:

Post by CrazyCat »

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
p
pektek
Voice
Posts: 16
Joined: Sat Jul 01, 2023 4:51 pm

Thank you for your answer but

Post by pektek »

Showing the login message to the channel with onjoin.tcl. but I couldn't show the exit message.
p
pektek
Voice
Posts: 16
Joined: Sat Jul 01, 2023 4:51 pm

Post by pektek »

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"
  }
 }
}

Post Reply