Some tcl help?

Acolyte · Post by **Acolyte** » Sun Dec 30, 2001 2:45 am

bind msgm - "*" privatemsg
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!

ppslim · Post by **ppslim** » Sun Dec 30, 2001 7:05 pm

Somthing like

Code: Select all

bind msgm - "*" privatemsg
proc 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"
  }
}

Acolyte · Post by **Acolyte** » Sun Dec 30, 2001 7:19 pm

Thanks for the help!

<font size=-1>[ This Message was edited by: Acolyte on 2001-12-30 16:21 ]</font>