Forward.tcl

[Huko]

I would like this script to be in the format of
<Nickname@hostname> Message Here
& forward any messages sent by the bot aswell. help please.

Code: Select all

#This is tcl to forwaring msgs on private to channel. It's simple and so funny :>
#skript za printirane na msg-tata na privat v izbran kanal :> da se posmeem 
#
#                              r0gUe gad@c4.com
#
#blagodarnosti na Himika :> Thanks himik :P   

bind msgm - "*" proc:laina
#seting the channel to forward | Setvame si kanala za forward na replikite i ... da se posmeem 
set chan "#EPL-Staff"
proc proc:laina {nick uhost hand arg} {
global chan
set line [string trim $arg]
if {$nick == "SeenServ"} {
		puthelp "privmsg $chan :SeenServ returned: $line"
		return 0
		}



puthelp "PRIVMSG $chan :$nick wrote me: '$line'"
}
return 0
putlog "Forward loaded"

[username]

Change

Code: Select all

puthelp "PRIVMSG $chan :$nick wrote me: '$line'"

to

Code: Select all

puthelp "PRIVMSG $chan :$nick@$uhost wrote me: '$line'"

[Huko]

Thanks, how about forwarding to the room any messages that the bot itself writes to others?

Like
* I wrote $nick: 'Message Here'

?