nerio
Сообщений: 4
Оценки: 0
Присоединился: 2004-07-15 00:35:44
|
Я использую Xchat, он поддерживает TCL.
Я решил написать флудер на TCL, может кому пригодится.
Обзовите файл flood.tcl и
отправте плагин в C:\dосиmеnts and Settings\YOUR_USER_NAME\Application Data\X-Chat 2 и он будет грузится вместе с Xchat-ом. Запускается командой /flood
Вот текст:
# ———————————————–
proc color { {arg {}} } {
return "\003$arg"
}
print "*******************************************"
print "Flood Sсгiрt from Nerio-lab."
print "Use /flood <Your message> <count> to flood. "
print "*******************************************"
alias flood {
print "*******************************************"
print "Flood Sсгiрt from Nerio-lab."
print "Use /flood <Your message> <count> to flood. "
print "*******************************************"
set x 0
set msg [lindex $_rest 0 ]
set coun 0
set coun [lindex $_rest 1 ]
if { $msg == "" } {set msg " Use /flood <Your message> <count> to flood. " }
if { $coun == "" } { set coun 5 }
while {$x<$coun} {
puts [/say "\037\002$x $msg 4 $x. "]<BR> incr x<BR> <BR> }<BR> }<BR>#————————————————————————
|
Флудер для Xchat на TCL . - 
