aleck ia ia dacilea
Code:
bind join - * clone:check
setudef flag anticlone
proc clone:check {nick uhost hand chan} {
if {![channel get $chan anticlone]} {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 "Ai grija s-ar putea sa ai scriptul infectat. Intra pentru #dmsetup, #nohack sau #vh pentru a verifica!" 15m sticky
}
}
putlog "anticlone tcl loaded"
PS: data viitoare uita-te atent k am postat eu un cod la un script asemanator kre nu merea si pe care mi l-a reparat lsn
A da si vezi k in randul asta:
Code:
timer 10[list unset punished($nick,$uhost)]
trebuie pus spatiu intre 10 si [