 |
|
 |
|
MeBoy
Comandant
Joined: 15 Aug 2007
Posts: 13
|
|
 |
|
 |
|
 Posted: 15/08/2007 16:08 Post subject: DroneCheck.tcl |
 |
|
| Code: | proc clone:check {nick uhost hand chan} {
if {![channel get $chan dronecheck]} {return}
if { [matchattr $hand f|f $chan]} {return}
global punished
puthelp "PRIVMSG $nick :\00305-ATENTIE-\003 Sunt un bot oficial al canalului $chan si verific daca esti o persoana virusata si faci reclama pe privat! \002\00304Nu\002\003 raspunde la acest mesaj fiindcă vei fi considerat virusat si vei primi ban! "
set punished($nick,$uhost) "$chan"
timer 1 [list unset punished($nick,$uhost)]
}
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 "Pe acest canal nu pot sta ființele care fac reclama pe privat sau sunt virusate. Tocmai ai fost banat pentru 5 minute. Multumim pt intelegere" 5m sticky
}
} |
|
|
FAQ 
Log in to check your private messages 
