egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-07-21T10:13:59-04:00 https://forum.eggheads.org/app.php/feed/topic/17875 2010-07-21T10:13:59-04:00 2010-07-21T10:13:59-04:00 https://forum.eggheads.org/viewtopic.php?p=93611#p93611 <![CDATA[Forward.tcl]]>
Like
* I wrote $nick: 'Message Here'

?

Statistics: Posted by Huko — Wed Jul 21, 2010 10:13 am

]]> 2010-07-21T09:03:56-04:00 2010-07-21T09:03:56-04:00 https://forum.eggheads.org/viewtopic.php?p=93610#p93610 <![CDATA[Forward.tcl]]>

Code: 

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

Code: 

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

Statistics: Posted by username — Wed Jul 21, 2010 9:03 am

]]> 2010-07-21T08:28:17-04:00 2010-07-21T08:28:17-04:00 https://forum.eggheads.org/viewtopic.php?p=93609#p93609 <![CDATA[Forward.tcl]]> <Nickname@hostname> Message Here
& forward any messages sent by the bot aswell. help please.

Code: 

#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 chanset line [string trim $arg]if {$nick == "SeenServ"} {puthelp "privmsg $chan :SeenServ returned: $line"return 0}puthelp "PRIVMSG $chan :$nick wrote me: '$line'"}return 0putlog "Forward loaded"

Statistics: Posted by Huko — Wed Jul 21, 2010 8:28 am

]]>