Може ли някои да ми едитне този ТЦЛ:
bind mode - *-b* e:antil
proc e:antil {n u h c m w} {
if {[isbotnick $n]} {return}
if {![validuser $h]} {
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
putserv "KICK $c $n :Бановете са моя работа !"
}
}
Благодаря ви предварилтено !
Пълна версия: Edit TCL !
А аз се надявам поне да стане ясно какво точно трябва да му се edit-ва на TCL-а...
Незнам пич .. просто ТЦЛ-а не работи, не прави нищо след като някои махне бан, това е .. надявам се да сте ме разбрали !
CODE
bind mode - *-b* e:antil
proc e:antil {n u h c m w} {
if {[isbotnick $n]} {return}
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
putserv "KICK $c $n :Бановете са моя работа !"
}
proc e:antil {n u h c m w} {
if {[isbotnick $n]} {return}
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
putserv "KICK $c $n :Бановете са моя работа !"
}
Имай предвид, че така написан TCL-a ще рита дори owner-а на бота ако махне бан.
Мерси пич, само ако може еи това да го направиш без да банва човека които е махнал бана, а само кик да му слага:
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
QUOTE (Гост @ May 9 2008, 11:43 AM) 
Мерси пич, само ако може еи това да го направиш без да банва човека които е махнал бана, а само кик да му слага:
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
Просто махни този ред и няма да го банва.
QUOTE(Narf @ May 9 2008, 11:50 AM)
Просто махни този ред и няма да го банва.
Да, но така няма да връща стария ban, който user-а е махнал.
За да връща стария ban и само да kick user-а, този ред:
CODE
putserv "MODE $c +b-o+b $w $n *!*@[lindex [split $u "@"] 1]"
го промени на:
CODE
putserv "MODE $c +b $w"
А, мерси много int21h да си жив и здрав : )
Това е семпла версия на форума. За да видиш пълната версия, която има повече информация, по-добра подредба и снимки, натисни тук.