copy.tcl

[PrE]

anyone willing to code me script, its very simple.

Lets say i say

!copy Nick11

it will start copying what he said and re-send it to Nick11 through NOTICE

so everything he says in that chan is relayed to him through notice.

[Johannes13]

Code: Select all

namespace eval ::copycat {
	variable copytarget {}
	bind pub - !copy [namespace current]::copytarget
	bind pubm - * [namespace current]::copycat

	proc copytarget {n u h c a} {
		variable copytarget $a
	}

	proc copycat {n u h c a} {
		variable copytarget
		if {$n eq $copytarget} {
			putnotc $n $a
		}
	}
}

[PrE]

thanks it works only on me, like if do it on my name, so like its only limited to my name can you make it so it works with any name? other then that its perfect.

[Johannes13]

You don't see the the copy, because the bot send it out through a NOTICE (as requested) to that user directly.

[PrE]

oh yes it works, it was just because my nick-tab complete was adding a space at the end of the name, but is it possible to add stop copying?

[Johannes13]

Just do !copy and it will stop