egghelp.org community :: View topic - Anti-Idle by slennox mod request

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Anti-Idle by slennox mod request

egghelp.org community Forum Index -> Script Requests

View previous topic :: View next topic

Author

Message

iNFERNiS
Voice

Joined: 21 Aug 2007
Posts: 13

Posted: Fri Jun 05, 2009 10:50 am Post subject: Anti-Idle by slennox mod request

Hiya,

I'd like to have it work for multiple channels.
Also a partyline trigger to set it off manually.

thx in advance Smile

Code:

# aidle.tcl v1.1 (28 March 1999) by slennox <slenny@xxxxx.com.au>
# Latest versions can be found at www.ozemail.com.au/~slenny/eggdrop/
#
# Basic anti-idle script, sends random msg's to the specified channel at
# random time intervals.
#
# v1.0 - Initial release
# v1.1 - Stremlined startup timer check, added +1 to utimer

# Channel to send anti-idle messages to
set ai_chan "#channel"

# Maximum time interval between messages (in minutes)
set ai_time 240

# Messages to send
set ai_msgs {
"blabla"
"Hi"

}

# Don't edit anything below unless you know what you're doing

proc ai_start {} {
global ai_time
if {[string match *ai_sendmsg* [timers]]} {return 0}
timer [expr [rand $ai_time] + 1] ai_sendmsg
}

proc ai_sendmsg {} {
global botnick ai_chan ai_msgs ai_time
if {[validchan $ai_chan] && [onchan $botnick $ai_chan]} {
puthelp "PRIVMSG $ai_chan :[lindex $ai_msgs [rand [llength $ai_msgs]]]"
}
timer [expr [rand $ai_time] + 1] ai_sendmsg
}

set ai_chan [string tolower $ai_chan]

ai_start

putlog "Loaded aidle.tcl v1.1 by slennox"

Display posts from previous:

	egghelp.org community Forum Index -> Script Requests	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum