hi

[Bader]

hi can i find some tcl,

i need the bot identify oper,

like /oper nickname passhere

to make the bot IRC Operator

[greenbear]

Code: Select all

bind dcc n operme operme
proc operme {h i a} {
 if ![llength $a] {
   putidx $i "Usage: .operme <pass>"
   return
 }
 set p [lindex [split $a] 0]
 putserv "oper $::$botnick $p"
 putidx $i "Done."
}

[caesar]

He said 'like /oper nickname passhere' so unless the oper user is the same as it's botnick will be useless, so I'd go for something like:

Code: Select all

bind dcc n operme operme 
proc operme {h i a} { 
  if {[llength $a] < 2} { 
    putidx $i "Usage: .operme <user> <pass>" 
    return
  }
  set u [lindex [set t [split $a]] 0] 
  set p [lindex $t 1] 
  putserv "oper $u $p" 
  putidx $i "Done." 
}

Tip: if {[llength $a]} { means if result is equal with 1 or bigger than 1 and if {![llength $a]} { means if result is equal with 0.

[greenbear]

yea i made the code with both user and pass first, then i figured he'd never want to oper up someone else from the bot, and changed it.

now he have code to do both, even better!

[Bader]

thaaanks