Respond script - slow notice time ? help to speed it up

[SpeeDj]

I'm using mc_8's responder script and the issue I am having is that when it sends the response it does so slowly.

1 line
* pause
2 line
* pause
3 line
* pause ... etc. is there a way I can code, or change the code to fix this speed when it notices a user ? Please note I am by no means a TCL scripter. I could use any assistance possible with this as it would be nice to have it not pause. To see an example of this you can log on to irc.zirc.org #[OCG] and type !help.

Thanks for any and all help.

Code: Select all

## Script Info ##
# 	Origin : MC_8 
# 	Source DownLoad : http://www.egghelp.org/
# 	Edited : SpeeDj - speedj@overclockedgamerz.com
#	Description : 	Someone says a match word in the channel, will respond to it.
#				Script history is found at the bottom.
##

## Channel(s) do you want this to be active on? ##
##
set mc_re(chan) "#\[OCG\]"

## Wild Cards ##
#	add as many as you want, it goes 
# 	` set mc_resp( <wild card'd word(s)> ) { <if match, what to say in the channel as a response to the match> }
##
set mc_resp(*!help*) {
	"« 4\[OCG\] Help Menu : Here you will find help on our '!' system. »"
	"« 14| !help : The command to access this help menu."
	"« 14| !rules : Channel rules for our IRC Channel #\[OCG\]."
	"« 14| !servers : Lists all current \[OCG\] Game servers and appropriate passwords."
	"« 14| !voice : A listing of current \[OCG\] Voice servers and appropriate passwords."
	"« 14| !stats : Lists all current \[OCG\] Game server stats."
	"« 14| !practices : For a list of current \[OCG\] Clan Practices."
	"« 14| !staff : \[OCG\] Staff and contact information."
	"« 14| !info : #\[OCG\] General Information."
	"« |-- End \[OCG\] Help Menu - 4'How fast can you frag ?' - SpeeDj."
}

set mc_resp(*!rules*) {
	"« 4\[OCG\] Rules : Enjoy your visit, and please abide by these simple rules: "
	"« 14| (1) ABSOLUTELY NO FILE TRADING, lending, or spamming of any kind "
	"« 14| (2) Please no profanity. Swearkick is enabled "
	"« 14| (3) No flaming of users "
	"« 14| (4) No Co-Channeling in porn, hacker or warez channels. Violators will be kicked, and repeated instances will result in being banned. "
	"« 14| (5) Only ops may run eggdrops or multiple connections to this channel"
	"« |-- #\[OCG\] Rules subject to change and revision at any point in time - SpeeDj."
}

set mc_resp(*!server*) {
	"« 4\[OCG\] Server list : Updated Regularly! »"
	"« 14|-= UT2004 : 140.99.31.162:7777 Pass: ocgut2k4 (public)"
	"« 14|-= BF:DC : 69.13.23.120:14567 Pass: ocgbf1942 (public)"
	"« 14|-= HALO : 206.62.132.251:2302 Pass: ocghalo (public)"
	"« 14|-= BF:V : 69.13.23.119:15567 Pass: ocgbfv (public)"
	"« |-= Please adhere to the rules while in our Match server, Thanks! Any questions direct them to \[OCG\] Staff at the website."
}

set mc_resp(*!stat*) {
	"« 4\[OCG\] Server stats : Updated Regularly! »"
	"« 14|-= UT2004 | BF:DC | Halo | BF:V"
	"« 14|-= Stats coming soon!"
	"« |-= Any questions direct them to \[OCG\] Staff at the website."
}

set mc_resp(*!practice*) {
	"« 4\[OCG\] Practice Schedules :"
	"« 14|-= UT2004 Clan : 2100EST (Sun|Tue|Thu)"
	"« 14|-= BF:DC Clan : 2000EST (Sun|Mon|Wed)"
	"« 14|-= HALO Clan : 2000EST (Tue) 2100EST (Thu) 1300EST (Sat)"
	"« 14|-= BF:V Clan : 2100EST (Sun) 2200EST (Tue|Thu)"
	"« 14|-= * Additional practice sessions TBA!"
	"« |-= #\[OCG\] Practice schedules subject to change and revision at any point in time - SpeeDj."
}

set mc_resp(*!staff*) {
	"« 4\[OCG\] Staff : Includes the following: "
	"« 14|-= SpeeDj ----------- speedj@overclockedgamerz.com "
	"« 14|-= Cyklopz ---------- cyklopz@overclockedgamerz.com "
	"« 14|-= red_hot_machine -- rhm@overclockedgamerz.com "
	"« |-= End \[OCG\] Staff List - 4'How fast can you frag ?' - SpeeDj."
}

set mc_resp(*!voice*) {
	"« 4\[OCG\] TeamSpeak server list : Updated Regularly! »"
	"« 14|-= \[OCG\]24Man TS -- www.netboundaries.com:8773 Pass: None (public)"
	"« |-= Please be respectful of one another while chatting, 
Thanks! Any questions direct them to \[OCG\] Staff at the website."
}

### ^^^ valid veriables are %nick %uhost %hand %chan ^^^ ###

## STOP Editing, coding starts here ##
##

set mc_re(chan) [string tolower $mc_re(chan)]
bind pubm - * mc:resp
proc mc:resp {nick uhost hand chan args} {
 global mc_resp mc_re ; set args [string tolower [lindex $args 0]]
 if {[lsearch -exact $mc_re(chan) [string tolower $chan]] == "-1"} {return 0}
 foreach search [string tolower [array names mc_resp]] {
  if {[string match $search $args]} {
   if {[string match *\n* $mc_resp($search)]} {
    foreach post [mc:resp:rep $mc_resp($search) $nick $uhost $hand $chan] {
     puthelp "NOTICE $nick :$post"
    } ; break

   } {
    puthelp "NOTICE $nick :[mc:resp:rep $mc_resp($search) $nick $uhost $hand $chan]"
   }
  }
 }
}

proc mc:resp:rep {data nick uhost hand chan} {
 global botnick
 regsub -all -- %nick $data $nick data ; regsub -all -- %uhost $data $uhost data
 regsub -all -- %botnick $data $botnick data
 regsub -all -- %hand $data $hand data ; regsub -all -- %chan $data $chan data
 regsub -all -- %b $data  data ; regsub -all -- %r $data  data
 regsub -all -- %u $data  data ; regsub -all -- %c $data  data
 return $data
}

J

[metroid]

change

Code: Select all

puthelp "NOTICE $nick :[mc:resp:rep $mc_resp($search) $nick $uhost $hand $chan]"

to

Code: Select all

putquick "NOTICE $nick :[mc:resp:rep $mc_resp($search) $nick $uhost $hand $chan]"

[SpeeDj]

Seems quicker, I will check it from home when I'm not IRC'ing on a VNC ^.^

J

[awyeah]

Alternatively,

putquick with '-next' will be more faster.

Code: Select all

putquick "NOTICE $nick :[mc:resp:rep $mc_resp($search) $nick $uhost $hand $chan]" -next

[user]

nm