Incearca ceva de genu dar mai trebuie sa lucrezi la el
Code:
bind join - * clone:check
setudef flag clonecheck
proc clone:check {nick uhost hand chan} {
if {![channel get $chan clonecheck]} {return}
if { [matchattr $hand f|f $chan]} {return}
global punished
puthelp "PRIVMSG $nick :-ATENTIE- Sunt un robot al canalului $chan si verific daca esti o persoana virusata si faci reclama pe privat!Nu raspunde la acest mesaj deoarece vei fi considerat virusat si vei primi ban! Multumesc. :-)"
set punished($nick,$uhost) "$chan"
timer 10[list unset punished($nick,$uhost)]
}
bind msgm - * pub:clone:execute
proc pub:clone:execute {nick uhost hand arg} {
global punished botnick
if {[info exists punished($nick,$uhost)] } {
set ban "*!*@[lindex [split $uhost @] 1]"
newchanban $punished($nick,$uhost) $ban $botnick "reason for ban" 15m sticky
}
}
putlog ".... tcl loaded"