egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-12-30T19:19:00-04:00 https://forum.eggheads.org/app.php/feed/topic/731 2001-12-30T19:19:00-04:00 2001-12-30T19:19:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3283#p3283 <![CDATA[Some tcl help?]]>
<font size=-1>[ This Message was edited by: Acolyte on 2001-12-30 16:21 ]</font>

Statistics: Posted by Guest — Sun Dec 30, 2001 7:19 pm

]]> 2001-12-30T19:05:00-04:00 2001-12-30T19:05:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3281#p3281 <![CDATA[Some tcl help?]]>

Code: 

bind msgm - "*" privatemsgproc privatemsg {nick uhost hand arg} {  global prchan  set line [string trim $arg]  set a 0  foreach b [binds msg] {    if {[string tolower [lindex $b 2]] == [string tolower [lindex [split $arg] 0]]} {      set a 1      break    }  }  if {$a} {    msg $prchan "$nick said: $line"  }}

Statistics: Posted by ppslim — Sun Dec 30, 2001 7:05 pm

]]> 2001-12-30T02:45:00-04:00 2001-12-30T02:45:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3271#p3271 <![CDATA[Some tcl help?]]> proc privatemsg {nick uhost hand arg} {
global prchan
set line [string trim $arg]
msg $prchan "$nick said: $line"
return 0
}

Works great... but doesnt work well for hidding certain things I would like to hide... i.e if someone msg the bot ident/pass it shows it... any simply way to fix this? Thx!

Statistics: Posted by Guest — Sun Dec 30, 2001 2:45 am

]]>