Форум о ботах Eggdrop/Windrop

[team]

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

######################################################
# Описание: Кикает за cлово "Мда".
######################################################

setudef flag mda

bind pubm - "*мда*" pub:mda
bind pubm - "*Мда*" pub:mda
bind pubm - "*МДа*" pub:mda
bind pubm - "*МДА*" pub:mda

set mda1 {
"кик-причина"
}

proc pub:mda {nick uhost hand chan text} {
if {![channel get $chan mda]} {return}
global mda1
set mda11 [lindex $mda1 [rand [llength $mda1]]]
putkick $chan $nick "$mda11"
return
}
 

Кикает,норамально,вот помогите,что дописать нужно,для того,чтобы он 1 раз кикал а на 2 раз банил с другой причиной на 15 минут?

[Vertigo]

Возьми за основу скрипт antinp.tcl например. Мне не охота помогать в таком е??-скрипте...