mc.main.tcl

[lated]

Does anyone have a copy of MC_8's mc.main.tcl?

[grumpy]

Is this from MC responde or public commands?

[ComputerTech]

if it's public commands use BlackTools.tcl

if you want a specific script from blacktools just ask



EDIT

caesar threw this script together not sure if this is what you want but give it a try

Code: Select all

namespace eval ChanSet { 

   bind pub n|n .chanset [namespace current]::chanset 
    
   proc chanset {nick uhost hand chan text} { 
      if {[scan $text {%s%s} mode value] < 1} { 
         puthelp "NOTICE $nick :Error, usage: $::lastbind +/-<channel mode> \[value\]" 
         return 
      } 
      if {![string last - $mode]} { 
         set what [string map {- ""} $mode] 
      } else { 
         set what [string map {+ ""} $mode] 
      } 
      if {[catch {channel get $chan $what} err]} { 
         puthelp "NOTICE $nick :Error, \002$what\002 is an unkown channel setting." 
         return 
      } 
      if {[info exists value]} { 
         channel set $chan $mode $value 
         puthelp "NOTICE $nick :Channel mode $what has been set to $value" 
      } else { 
         channel set $chan $mode 
         puthelp "NOTICE $nick :Channel mode $what has been set to [expr {[string first + $mode] > -1 ? "enabled" : "disabled"}]." 
      } 
   } 
}