################################## ### TimeRehash.tcl ### ### Version 1.0 ### ### By Wcc ### ### wcc@techmonkeys.org ### ### http://www.dawgtcl.com:81/ ### ### EFnet #|DAWG|Tcl ### ################################## ############################################################################ ### Copyright © 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ### ############################################################################ ################################################################# ## This script automatically rehashes the bot every X minutes. ## ################################################################# ########################################################## ## Just load the script, edit the settings, and rehash. ## ########################################################## #################################################### # Set the number of minutes between rehashes here. # #################################################### set timerehash_setting(timer) "60" #################### # Code begins here # #################### if {![string match 1.6.* $version]} { putlog "\002TIMEREHASH:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." } if {[info tclversion] < 8.2} { putlog "\002TIMEREHASH:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." } if {$timerehash_setting(timer) > 0 && [lsearch -glob [timers] "* timerehash_rehash *"] == -1} { timer $timerehash_setting(timer) timerehash_rehash } proc timerehash_rehash {} { global timerehash_setting rehash rehash if {[lsearch -glob [timers] "* timerehash_rehash *"] == -1} { timer $timerehash_setting(timer) timerehash_rehash } } putlog "\002TIMEREHASH:\002 TimeRehash.tcl Version 1.0 by Wcc is loaded."
autorehash.tcl
Автор tvrsh, 19 июл 2008 13:57
В этой теме нет ответов
#1
Отправлено 19 июля 2008 - 13:57
http://ircnet.su/
#egghelp @ IrcNet.Ru
#egghelp @ IrcNet.Ru
Количество пользователей, читающих эту тему: 2
0 пользователей, 1 гостей, 0 анонимных
-
Facebook (1)