| View previous topic :: View next topic |
| Author |
Message |
lated
Voice
Joined: 04 Aug 2009
Posts: 1
|
 Posted: Wed Jan 01, 2020 9:58 pm Post subject: mc.main.tcl |
 |
|
| Does anyone have a copy of MC_8's mc.main.tcl? |
|
| Back to top |
|
 |
grumpy
Voice
Joined: 10 Jan 2014
Posts: 9
Location: Europe/London
|
| Posted: Thu Apr 23, 2020 8:48 am Post subject: RE: mc.main.tcl |
|
|
Is this from MC responde or public commands?  |
|
| Back to top |
|
|
ComputerTech
Master
Joined: 22 Feb 2020
Posts: 393
|
| Posted: Thu Apr 23, 2020 8:57 am Post subject: |
|
|
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: |
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"}]."
}
}
} |
_________________
ComputerTech |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
