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

[tvrsh]

Две следующие процедуры "ожирняют" и подчеркивают случайные буквы в тексте.
Частоту выпадания можно изменять в строке

Код: Выделить всё

if {[rand 2]==1} {

увеличивая 2 для уменьшения вероятности.

Код: Выделить всё

# Делаем текст жирным.
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 ""]"
}