# 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"