egghelp.org community :: View topic

[ egghelp.org home | forum home ]

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

FAQ

Memberlist

Usergroups

Profile

a little help

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

kitsaras
Voice

Joined: 02 Feb 2006
Posts: 29

Posted: Thu Feb 23, 2006 7:16 am Post subject: a little help

Code:

bind pub - !servers statsu
bind raw - 242 show:statsu

set statsuc 0

proc statsu {nick uhost hand chan arg} {
global statsu statsuc
if {$statsuc > 0} {
puthelp "privmsg $chan :Already in progress"
return 0
}
set servers {xtreme.ca.hellasirc.net speed.ca.hellasirc.net auth.eu.hellasirc.net hell.eu.hellasirc.net}
foreach server $servers {
incr statsuc
if {![info exists statsu([set chan [string tolower $chan]]:$statsuc)]} {
set statsu($chan:$statsuc) 0
putserv "stats u $server"
}
}
}

proc show:statsu {from kw arg} {
global statsu statsuc
foreach {c v} [array get statsu] {
puthelp "privmsg [lindex [split $c :] 0] :$from [join [lrange [split $arg] 1 end]]"
array unset statsu $c
incr statsuc -1
break
}
}

is it possible to put an intevral timer into ?
i.e set intevral_timer 60

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	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