egghelp/eggheads community

Timed Message

2004-12-24T02:13:39-04:00

I don't patch other people's scripts; here I write scriptlets only, hoping that the person in need for scripting help will take it from there and tailor it for their specific needs; I expect anyone asking here for help to have at least some minimal knowledge of Tcl and eggdrop scripting

what I wrote is a proc which overrides eggdrop's default +chan command, does whatever you want it to do on channel add, and then falls back to default +chan behaviour (that is, proceeds with actual adding of the channel to bot's channels)

Statistics: Posted by demond — Fri Dec 24, 2004 2:13 am

Timed Message

2004-12-24T01:52:09-04:00

Code:

bind dcc n|- +chan fooproc foo {h i t} {  # do stuff - initialize say on join, timer, etc.  *dcc:+chan $h $i $t}

I don't understand. Combined with WPnL's TCL?

Statistics: Posted by Stealthx — Fri Dec 24, 2004 1:52 am

Timed Message

2004-12-24T01:42:39-04:00

Code:

bind dcc n|- +chan fooproc foo {h i t} {  # do stuff - initialize say on join, timer, etc.  *dcc:+chan $h $i $t}

Statistics: Posted by demond — Fri Dec 24, 2004 1:42 am

Timed Message

2004-12-24T01:14:41-04:00

Hi, I have searched the database for the suitable script that I need... What I need is a TCL that send SAME messages to every channel the bot is in or joined and the timer will be 60mins. The bot will activate such function once I do a .+chan # and I don't have to do a public command such as "!quote on", it will be AUTO activated. I know there's alot of such script such as quote scripts and so on but I don't need so many quotes, and I don't need those number etc.

(#1) test test test

All I need was...

test test test

-

I've see the TCL by WPnL, SendMsg.TCL but how do I make it activated once the bot joined?

Code:

####################################################################### SendMsg 1.0 - Send Messages to channels specified every X minutes  ##                                                                    ## Created by WPnL                                                    ## Report bugs to wpnl@lycos.co.uk                                    ## This script is freeware.                                           ## Feel free to edit it.                                              ########################################################################## SETTINGS #### Channels where the msg is sent to.# If you want to use several channels put a space between themset channels "#chan1 #chan2"# How often do you want the msg to be displayed (in minutes)set minutes 15# Set your msgs here# \002 bold# \003 colour (ex: \0030,12 textcolor=0 white; backgroundcolor=12 blue)# \022 reverse# \037 underline# Write several lines for several msgsset msgs {"\002Line1""\037Line2"}### YOU ARE DONE NOW. YOU DON'T NEED TO EDIT ANYTHING ELSE FROM HERE ###if {![info exists sendtext_running]} { timer $minutes sendtext set sendtext_running 1}   proc sendtext {} { global channels minutes msgs foreach channel $channels {  foreach msg $msgs {   putserv "PRIVMSG $channel :$msg"   } } timer $minutes sendtext return 1  }putlog "SendMsg 1.0 by WPnL Loaded"

Statistics: Posted by Stealthx — Fri Dec 24, 2004 1:14 am