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

[tvrsh]

Название: nefart.tcl
Версия: 1.1
Автор: tvrsh
Описание: Скрипт постит в канал истории с сайта http://www.nefart.ru
Поддержка Suzi: Да
Пример работы:

<tvrsh> !nefart
<@bionic> Нефарт №: 11880, Добавлен: 13.08.2009 - 21:33, Добавил: ZloiZaochnik, Раздел: Разное, В натуре не фарт!: 767, Сам виноват!: 540.
<@bionic> Сегодня взломали мой почтовый ящик, как следствие, пропала немалая сумма на яндекс деньгах (около 1к) и почти все пароли. Вот такой не фарт!(
<@bionic> ###

Дополнительная информация:
Работает как по команде так и по таймеру. Время между автовыводами задается в nefart(auto). Если равно 0 то автовывод отключен.
Ссылка на скрипт: nefart.tcl

[wr`]

доброго времени суток.поставил этот скрипт,но почему то не работает,выдает ошибку
Tcl error [pub_nefart]: can't read "q": no such variable

[tvrsh]

Вот, попробуй эту версию.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

namespace eval nefart {}
setudef flag nopubnefart
set nefart(channel) #erotic
set nefart(page) http://nefart.ru/random/
set nefart(version) "1.0"
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

proc ::nefart::nefart {nick uhost hand chan text} {
    global nefart lastbind
    set agent "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::config -useragent $agent]
    set nefart_tok [::http::geturl $nefart(page) -timeout 30000]  
    set data [::http::data $nefart_tok]
    ::http::cleanup $nefart_tok

    set nefart(channel) $chan
    set asplitr [lindex {¤ • # * + °} [rand 6]]

    regsub -all -nocase -- {^.*?<div class="postpad">} $data "" data
    regsub -all -nocase -- {^.*?<div class="postpad">} $data "" data
    regsub -all -nocase -- {<div style="float:left.*?$} $data "" data
    regsub -all -- {\n} $data "" data

    set data [string map {"                     " "" "&quot;" "'"} $data]

    set data [encoding convertfrom utf-8 $data]
    set data [encoding convertto cp1251 $data]

    regexp {^(.*?)<div class="postinfo">} $data "" nefart_
    regexp {<div>(.*?)$} $data "" _nefart
    regexp {<a href=".*?">#(\d+)</a>} $_nefart "" q
    regexp {</a><span>(.*?)</span><span>} $_nefart "" w
    regexp {</span><span>(.*?)</span>} $_nefart "" e
    regexp {<span><a href=".*?" class="cat">(.*?)</a></span>} $_nefart "" r
    regexp {javascript&#058; vote\(.*?\((\d+)\)</span>} $_nefart "" t
    regexp {javascript&#058; voteb\(.*?\((\d+)\)</span>} $_nefart "" y

    set color [lindex {\00307 \00304 \00315 \00310} [rand 4]]  

    ::nefart::largetext $nefart(channel) "\00314Нефарт №: \00303$q\00314, Добавлен: \00303$w\00314, Добавил: \00303$e\00314, Раздел: \00303$r\00314, В натуре не фарт!: \00303$t\00314, Сам виноват!: \00303$y\00314. " $color
    ::nefart::largetext $nefart(channel) $nefart_ $color
    putserv "PRIVMSG $nefart(channel) :\00301$asplitr$asplitr$asplitr"
}

proc ::nefart::largetext {target text color {lineLen 400} {delims {.,-!}}} {
     global bor
     regsub -all {\{} $text "" text
     regsub -all {\}} $text "" text
     if {[string length $text] <= $lineLen} {
         putserv "PRIVMSG $target :$color $text "
         return 0
     }
  set _text [split $text $delims]
  set x 0; set i 0
  while {$x < $lineLen} {
    if {$i >= [llength $_text]} { return }
    set wordlen [string length [lindex $_text $i]];
      if {$x + $wordlen > $lineLen} { break }
      incr x $wordlen
      incr x; incr i
      }
putserv "PRIVMSG $target :$color [string range $text 0 [expr $x - 1]] "
::nefart::largetext $target [string trimleft [string range $text $x end]] $color $lineLen $delims
}

putlog "nefart.ru.tcl v$nefart(version) by $nefart(author) loaded."

[wr`]

поставил,выбивает эту ошибку

Tcl error in file 'eggdrop.conf':
wrong # args: should be "set varName ?newValue?"
while executing
"set nefart(page) <!-- m --><a class="postlink" href="http://nefart.ru/random/">http://nefart.ru/random/</a><!-- m -->"
(file "scripts/nefart.tcl" line 4)
invoked from within
"source scripts/nefart.tcl"
(file "eggdrop.conf" line 121)

[tvrsh]

set nefart(page) <!-- m --><a class="postlink" href="http://nefart.ru/random/">http://nefart.ru/random/</a><!-- m -->

Такого в скрипте точно нет. Видимо, ты как-то не так копируешь или твой браузер что-то делает с этой ссылкой. Должно быть

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

set nefart(page) http://nefart.ru/random/

[wr`]

прошу прощения,да первый раз скопировал плохо,сейчас скопировал хорошо выдает
Tcl error [::nefart::nefart]: can't read "t": no such variable

[tvrsh]

Не знаю, что у тебя не так. У меня все нормально работает.

<tvrsh> !nefart
<@bionic> Нефарт №: 4151, Добавлен: 07.06.2009 - 09:48, Добавил: Антиошка, Раздел: Любовь, В натуре не фарт!: 1697, Сам виноват!: 50.
<@bionic> Вчера с мужем после длительной ссоры было примирение - цветы, шампанское, красивые слова, секс.. В самый разгар которого он немого промахивается.. и у меня жуткая боль, обморок, кровища везде.. Оказалось, разошелся послеродовой шов... Вот такой не фарт..
<@bionic> ***

[wr`]

как я понимаю у меня грешит на эту строку
regexp {javascript: vote\(.*?\((\d+)\)</span>} $_nefart "" t

[Vertigo]

Чтобы не ругалось переменными, их надо объявлять (ц) я
перед регекспом допиши set t ""
и после регекспа if {$t == ""} {putserv "PRIVMSG $chan :я не смог получить данные"; return}

[wr`]

а можно примером в скрипте?

[wr`]

это сделал,но нефарт то все равно не появляется

[tvrsh]

Ты все правильно скопировал? У меня все нормально срабатывает. Не знаю в чем у тебя дело.

[wr`]

все правильно скопировал,проверил несколько раз,может у меня что нибудь не хватает для этого скрипта!?

[wr`]

убрал это в скрипте , В натуре не фарт!: \00303$t\00314, Сам виноват!: \00303$y\00314,начал выводить нефарты

[tvrsh]

Если ты действительно объявлял переменную t, то должно было работать и с этим. Во "в натуре не фарт" была бы пустота. Строку

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

if {$t == ""} {putserv "PRIVMSG $chan :я не смог получить данные"; return}

можно и не писать. Из-за нее прерывается процедура если переменная t не была получены из регэкспа

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

regexp {javascript&#058; vote\(.*?\((\d+)\)</span>} $_nefart "" t

[wr`]

эта переменная как я понимаю получена,а вот где она с цветом \00303$t\00314, Сам виноват! почему то у меня не прочитывает

[wr`]

Доброго времени суток,не могли бы вы возобновить полноценную работу скрипта,как было с самого начала,чтоб бот выводил нефарты и по команде,и рандомно сам по таймеру!Заранее благодарен

[tvrsh]

Обновил скрипт, смотри первый пост.

[wr`]

спасибо все отлично работает

[Jake]

не подскажите как поставить антифлуд в этот скрипт ?