Very simple script

[Kemikals]

I have no clue how to write this i know it's a very simple script though.

All i need it to do is if i type a command like !release (text here) it will make the eggdrop take whatever text after !release and display it in another channel of my choosing.

[tomekk]

Code: Select all

# !release cmd channels
set bcast_cmd_chans {#channel1 #channel2}

# target channel
set bcast_chan "#channel"

#############################################
bind pub -|- !release do_bcast

proc do_bcast { nick uhost hand chan arg } {
	global bcast_chan bcast_cmd_chans

	if {[lsearch $bcast_cmd_chans $chan] == -1} {
		return
	}

	if {[botonchan $bcast_chan]} {
		putserv "PRIVMSG $bcast_chan :$arg"
	}
}

putlog "release.tcl loaded"

test it

[Kemikals]

you my sir are my hero works like a charm!!!

[Kemikals]

thanks

[tomekk]

try:

Code: Select all

namespace eval newp {
   variable bcast_cmd_chans
   variable bcast_chan

	# !new cmd channels 
	set bcast_cmd_chans {#chan #chan2} 

	# target channel 
	set bcast_chan "#chan" 

	############################################# 
	bind pub -|- !new [namespace current]::do_bcast 

	proc ::newp::do_bcast { nick uhost hand chan arg } { 
		variable bcast_cmd_chans
                                variable bcast_chan 

		if {[lsearch $bcast_cmd_chans $chan] == -1} { 
			return 
		} 

		if {[botonchan $bcast_chan]} { 
			putserv "PRIVMSG $bcast_chan :$arg" 
		} 
	} 

	putlog "release.tcl loaded"
}

2nd:

Code: Select all

namespace eval upp {
   variable bcast_cmd_chans
   variable bcast_chan

	# !up cmd channels 
	set bcast_cmd_chans {#chan #chan2} 

	# target channel 
	set bcast_chan "#chan" 

	############################################# 
	bind pub -|- !up [namespace current]::do_bcast 

	proc ::upp::do_bcast { nick uhost hand chan arg } { 
		variable bcast_cmd_chans
                                variable bcast_chan 

		if {[lsearch $bcast_cmd_chans $chan] == -1} { 
			return 
		} 

		if {[botonchan $bcast_chan]} { 
			putserv "PRIVMSG $bcast_chan :$arg" 
		} 
	} 

	putlog "release.tcl loaded"
}

anyway, this should be all in one script
and btw. don't tell me that script is for some warez?

[Kemikals]

Thanks and no