Цитатник

Просьбы о написании новых скриптов или поиске уже существующих.

Модератор: Модераторы

Цитатник

Сообщение DarkMakc » 07 апр 2011 23:46

Нужен скрипт чтобы считывал цитаты с сайта http://nya.sh
DarkMakc
 
Сообщения: 2
Зарегистрирован: 07 апр 2011 23:36
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18+suzi

Re: Цитатник

Сообщение tvrsh » 08 апр 2011 22:06

TCL: [ Скачать ] [ Скрыть ]
namespace eval nyash {}
setudef flag nopubnyash
set nyash(pref) "!"
set nyash(commands) "nya"
set nyash(time) 10
set nyash(page) http://nya.sh/post/
set nyash(version) "1.0"
set nyash(author) "tvrsh @ IrcNet.ru"
package require http
foreach bind [split $nyash(commands) " "] {
        bind pub -|- $nyash(pref)$bind ::nyash::pub
        bind msg -|- $nyash(pref)$bind ::nyash::msg
}

proc ::nyash::msg {nick uhost hand arg} {
    ::nyash::nyash $nick $uhost $hand $nick $arg
}

proc ::nyash::pub {nick uhost hand chan arg} {
   if {[channel get $chan nopubnyash]} return
   ::nyash::nyash $nick $uhost $hand $chan $arg
}

proc ::nyash::nyash {nick uhost hand chan arg} {
        global nyash lastbind
        if {[info exists nyash(host,$uhost)]} {
                if {$chan == $nick} {
                        putquick "PRIVMSG $nick :\00303Пожалуйста подождите. Запрос не чаще одного раза в \00304$nyash(time) \00303секунд."
                        return 0
                } else {
                        putquick "NOTICE $nick :\00303Пожалуйста подождите. Запрос не чаще одного раза в \00304$nyash(time) \00303секунд."
                        return 0
                }
        }
       
       set agent "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"
        set nyash(host,$uhost) 1
        set nyash(timer,$uhost) [utimer $nyash(time) [list ::nyash::reset $uhost ] ]
        set nyash_tok [::http::config -useragent $agent]
        set post [rand 6117]
        set nyash_tok [::http::geturl $nyash(page)$post -timeout 30000]  
        set html [::http::data $nyash_tok]
        ::http::cleanup $nyash_tok

       set asplitr [lindex {¤ • # * + °} [rand 6]]
       set acolor [lindex {\00309 \00308 \00307 \00304 \00311 \00315 \00310} [rand 7]]

       set rgx "<div class=\\\"content\\\">(.*?)</div>"
       regsub -all -- {\n} $html "" html
           foreach line [split $html \n] {
               if {[regexp -nocase -- $rgx $line garb data]} {
               regsub -all -- {<br />} $data "|" data
               putserv "PRIVMSG $chan :$asplitr $post $asplitr"
                   foreach line [split $data "|"] {
                       putserv "PRIVMSG $chan :${acolor}$line"
                   }
               putserv "PRIVMSG $chan :$asplitr$asplitr$asplitr"
               return 0
               }      
        }
}

proc ::nyash::reset { uhost } {
        global nyash
        catch {killutimer $cod(timer,$uhost)}
        catch {unset nyash(timer,$uhost)}
        catch {unset nyash(host,$uhost)}
}

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


<tvrsh> !nya
<@bionic> + 4160 +
<@bionic> xxx: А Япония в сравнении с Россией такая маленькая... Как лоли...
<@bionic> xxx: И Курилы к ней тянутся такие длинные... Тентакли...
<@bionic> +++
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.

За это сообщение автора tvrsh поблагодарил:
DarkMakc (08 апр 2011 23:30)
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: Цитатник

Сообщение tarianz » 20 сен 2011 15:36

Хороший скрип. Спосиб
y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97y97инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
Последний раз редактировалось tarianz 21 сен 2018 07:28, всего редактировалось 3 раз(а).
tarianz
 
Сообщения: 1
Зарегистрирован: 20 сен 2011 15:35
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: Цитатник

Сообщение DarkMakc » 24 авг 2012 23:12

tvrsh, можешь изменить скрипт: поиск по постам, и чтобы новые посты которые появляются в цитатнике выводил изначально, а затем все так-же в рандомном порядке.
DarkMakc
 
Сообщения: 2
Зарегистрирован: 07 апр 2011 23:36
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18+suzi

Re: Цитатник

Сообщение tvrsh » 25 авг 2012 00:24

Не, что-то совсем не хочется, тем более во всю учу ооп, а этот процедурный метод тикля меня сбивает с толку. Ты лучше в строке
        set post [rand 6117]
поменяй число на 7203. И тогда цитат у тебя станет на почти тысячу больше.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.

За это сообщение автора tvrsh поблагодарил:
DarkMakc (25 авг 2012 10:14)
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi


Вернуться в Заявки на скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron