# putfast_vs_putserv.tcl - installs putfast function instead of putserv
# and puthelp to enable fast eggdrop queue
# for eggdrop http://www.eggheads.org
# version:1.0 by
# CoolCold <coolcold at coolcold.org>
# #rea@irc.coolcold.org:6667
#
# __ __ __ _ _
# \ \ / /| \ | | | |
# \ \/ / | \ | | ____ _| |_
# \ / | |\ \| | / _ \|_ _|
# / \ | | \ | | /_\/ | |
# / /\ \ | | \ | | \__ | |__
# /__/ \__\|_| \_| \____/ \___/
#
# http://xnet.net.ru irc://xnet.net.ru
#
#
#
# :::[ T h e R u s s i a n E g g d r o p R e s o u r c e ]:::
# ____ __
# / __/___ _ ___ _ ___/ /____ ___ ___ ___ ____ ___ _ ____ __ __
# / _/ / _ `// _ `// _ // __// _ \ / _ \ / _ \ / __// _ `/ / __// // /
# /___/ \_, / \_, / \_,_//_/ \___// .__/ __ \___//_/ \_, / __ /_/ \___/
# /___/ /___/ /_/ /_/ /___/ /_/
#
#
#
# Created with FAR ( http://www.farmanager.com )
# and colorer ( http://colorer.sf.net )
#
# $Id: putfast_vs_putserv.tcl v 1.0 17.07.2004 1.51AM CoolCold Exp $
#
# Requirements:
# eggdrop (windrop) 1.6.x (others should work too )
# tcl 8.3.x and 8.4.x ( others not tested )
# Install:
# add string
# source scripts/putfast_vs_putserv.tcl
# to your eggdrop.conf just after loadmodule server
# or after all scripts loaded and rehash your bot
#######################################################
# #
# Attention! Using this script may be dangerouse for #
# your eggdrop bot if it doesn't have some kind #
# of server-side flood exempt! #
# #
# Good luck! #
# #
#######################################################
#let's try to use other than putserv function...xe xe
putlog "creating putfast"
proc putfast {text} {
#thanks to Takeda <takeda at eggheads.w.pl> for pointing to putdccraw
#normally strings shouldn't end with \n,so appending \n is ok
append text "\n"
putdccraw 0 [string length $text] $text
}
putlog "renaming putserv..."
if {[info commands "putserv_original"]=="putserv_original"} {
#we already renamed putserv to putserv_original,let's swap it back
putlog "putserv_original found,swaping..."
rename putserv ""
rename putserv_original putserv
}
rename putserv putserv_original
putlog "setting our own putserv..."
proc putserv { text {mode ""}} {
putfast $text
}
putlog "new putserv function set"
putlog "renaming puthelp..."
if {[info commands "puthelp_original"]=="puthelp_original"} {
#we already renamed puthelp to puthelp_original,let's swap it back
putlog "puthelp_original found,swaping..."
rename puthelp ""
rename puthelp_original puthelp
}
rename puthelp puthelp_original
putlog "setting our own puthelp..."
proc puthelp { text {mode ""}} {
putfast $text
}
putlog "new puthelp function set"
putlog "TCL LOADED: putfast vs putserv by CoolCold"