Случайный болд и андерлайн.
Добавлено: 06 дек 2008 20:38Две следующие процедуры "ожирняют" и подчеркивают случайные буквы в тексте.
Частоту выпадания можно изменять в строке
Частоту выпадания можно изменять в строке
- Код: Выделить всё
if {[rand 2]==1} {
- Код: Выделить всё
# Делаем текст жирным.
bind pub - !rbld boldorize
proc boldorize {nick uhost hand chan text} {
foreach bukva [split $text ""] {
if {[rand 2]==1} {
set bukva "\002$bukva\002" }
lappend text2 $bukva
}
putserv "PRIVMSG $chan :[join $text2 ""]"
}
# Подчеркиваем текст.
bind pub - !rund underize
proc underize {nick uhost hand chan text} {
foreach bukva [split $text ""] {
if {[rand 2]==1} {
set bukva "\037$bukva\037" }
lappend text2 $bukva
}
putserv "PRIVMSG $chan :[join $text2 ""]"
}