egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-01-30T14:33:22-04:00 https://forum.eggheads.org/app.php/feed/topic/17552 2010-01-30T14:33:22-04:00 2010-01-30T14:33:22-04:00 https://forum.eggheads.org/viewtopic.php?p=91914#p91914 <![CDATA[!chanset (pub)]]> search function. Here's an old topic.

Statistics: Posted by Sir_Fz — Sat Jan 30, 2010 2:33 pm

]]> 2010-01-29T22:44:27-04:00 2010-01-29T22:44:27-04:00 https://forum.eggheads.org/viewtopic.php?p=91898#p91898 <![CDATA[!chanset (pub)]]>

Code: 

 proc chanset:pub {nick uhost hand chan text} {  set chanset [lindex [split $text] 0]  if {[regexp {^(\+|-)} "$chanset"]} {   set result [catch {channel set $chan $chanset} error]   if {$result == 1} {    puthelp "NOTICE $nick :error trying to set modes \{ $chanset \} on $chan: $error"    return 0   } else {    puthelp "NOTICE $nick :Successfully set modes \{ $chanset \} on $chan"    return 1   }  } else {   set option [join [lrange [split $text] 1 end]]   set result [catch {channel set $chan $chanset $option} error]    if {$result == 1} {     puthelp "NOTICE $nick :error trying to set modes \{ $chanset $option \} on $chan: $error"     return 0    } else {     puthelp "NOTICE $nick :Successfully set modes \{ $chanset $option \} on $chan"     return 1    }  } }
Its basic, dont have the time to work on it as a script. But am sure you or someone else can "modify" it to suit your taste :)

Statistics: Posted by TCL_no_TK — Fri Jan 29, 2010 10:44 pm

]]> 2010-01-29T18:01:43-04:00 2010-01-29T18:01:43-04:00 https://forum.eggheads.org/viewtopic.php?p=91895#p91895 <![CDATA[!chanset (pub)]]>
someone tcl script for public command !chanset ?

Thanks.

Statistics: Posted by Nor7on — Fri Jan 29, 2010 6:01 pm

]]>