namespace eval nefart {}
setudef flag nefart
set nefart(page) http://pda.nefart.ru/random/
set nefart(auto) 0
set nefart(channel) #egghelp
set nefart(version) "1.1"
set nefart(author) "tvrsh @ IrcNet.ru"
package require http
bind pub - !nefart ::nefart::nefart
bind pub - !nef ::nefart::nefart
bind pub - !нефарт ::nefart::nefart
bind pub - !неф ::nefart::nefart
if {$nefart(auto) > "0"} {
utimer $nefart(auto) ::nefart::auto
}
proc ::nefart::auto {} {
global nefart botnick
::nefart::nefart $botnick $botnick $botnick $nefart(channel) $botnick
utimer $nefart(auto) ::nefart::auto
}
proc ::nefart::nefart {nick uhost hand chan text} {
global nefart lastbind
if {![channel get $chan nefart]} {
return 0
}
::http::config -useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"
set nefart_tok [::http::geturl $nefart(page) -timeout 15000]
set data [::http::data $nefart_tok]
::http::cleanup $nefart_tok
set asplitr [lindex {¤ • # * + °} [rand 6]]
regsub -all -- {\n|\t} $data " " data
regsub -all -- { / } $data "|" data
set data [encoding convertfrom utf-8 $data]
set nefartt ""; set info ""; set nomer ""; set vnature ""
set vinovat ""; set date ""; set author ""; set razdel ""
regexp {