modif tcl

[Ulrik]

Hi!
how to change it tcl for use all channel and authorized m|m has op / deop

thx all help and sorry for my English..

Code: Select all

#put here the channel that the bot must protect 
set prochan "#loldelol"

bind mode - *-o* deop
 proc deop {nick uhost hand chan args} {
  global botnick home servicename prochan
  set dnick [lindex $args 1]
  if {$chan == $prochan} {
  if {$dnick == $botnick} {
  putserv "NOTICE $nick :your deop of the bot has been logged !!" 
  putchan $home "$nick deoped me on $chan" }
  if {$nick == $botnick} {
  putchan $chan "i'm sorry i have to do this ..." } else {
  putserv "MODE $chan -o $nick"
  putserv "MODE $chan +o $dnick" }
  } else {
  return 1 }
 return 1
}

bind mode - *+o* op
 proc op {nick uhost hand chan args} {
  global botnick home servicename prochan
  set dnick [lindex $args 1] 
  if {$chan == $prochan} {
  if {$dnick == $botnick} {
  putchan $chan "wel i can't say no ... tnx dude !" 
  return 1 }
  if {$nick == $botnick} {
  putchan $chan "now say tnx !!!" } else { 
  putserv "MODE $chan -o $dnick" }
  } else {
  return 1 }
 return 1 
}"

[De Kus]

not sure what you mean about the m|m thing, but for the channel thing you need to remeve the '$chan == $prochan' condition. in case you want masters to be not logged/punished replace '$chan == $prochan' with '![matchattr $hand m|m $chan]'.

PS: post code in

Code: Select all

 tags, otherwise whitespaces are beeing collapsed by the web browser that destroys code formating.

PPS: the code is ugly anyway, you shouldn't learn from such :D.

[Alchera]

bind <type> <flags> <keyword/mask> [proc-name]

flags are the flags the user must have to trigger the event (if applicable).

Example:

Code: Select all

bind mode m|m +o op
bind mode m|m -o op

For further assistance on flags, via the Command Console:

Code: Select all

.help whois