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

[tvrsh]

###
#
# Название: statusi.tcl
# Версия: 1.2
# Автор: tvrsh
# Оффсайт: http://egghelp.ru/
#
###
#
# Описание: Скрипт забирает с сайта http://qip.enjoy.ru прикольные статусы для аськи.
#
###

Скрипт заходит на сайт, считает общее количество страниц со статусами, выбирает случайную и показывает три статуса с нее и их рейтинг. Есть встроенный антифлуд.

22.08.2010 - Добавлено отображение дополнительного статусы в скобках перед основным.
- Исправлена ошибка Tcl error [::statusi::statusi_pub]: list element in quotes followed by "." instead of space

Пример работы:

<tvrsh> !statusi
<@bionic> (Пиво) Пропала теща. Пошла за пивом и не вернулась. Нашедшего просьба вернуть пиво. (17)
<@bionic> (Весело) Любое придуманное на ходу слово, теперь считается статусом! (14)
<@bionic> (Весело) Говорят что идеалов несуществует,но я его нашла! (13) (251.874мc.)

Скачать: statusi.tcl

[nunucuH2H]

thx.

[tvrsh]

22.08.2010 - Добавлено отображение дополнительного статусы в скобках перед основным.
- Исправлена ошибка Tcl error [::statusi::statusi_pub]: list element in quotes followed by "." instead of space
Новый скрипт приложен к первому посту темы.

[Radiosignal]

Скрипт работает нормально, но выдает кракозябры, вместо нормального текста, кодировка на боте cp1251(set irc_encoding cp1251), как и на сайте. Если какая другая, подскажите.Заранее спасибо.

<Markus> (Весело) @>682 10 ;5B 2 >AA88,0<5@8:0=5F =5 A<>3 ?>=OBL,?>G5<C EC52>-MB> ?;>E>,0 ?8740B>-MB> E>@>H>. ?>G5<C ?8745F-MB> EC65,G5< EC52>,0 >EC5==>-MB> ;CGH5,G5< ?8740B>) (8)

[Vertigo]

Скрипт работает нормально, но выдает кракозябры, вместо нормального текста, кодировка на боте cp1251(set irc_encoding cp1251), как и на сайте. Если какая другая, подскажите.Заранее спасибо.

<Markus> (Весело) @>682 10 ;5B 2 >AA88,0<5@8:0=5F =5 A<>3 ?>=OBL,?>G5<C EC52>-MB> ?;>E>,0 ?8740B>-MB> E>@>H>. ?>G5<C ?8745F-MB> EC65,G5< EC52>,0 >EC5==>-MB> ;CGH5,G5< ?8740B>) (8)

Бот с сузи патчем? Если да - правь скрипт.

[Vertigo]

Хотя у меня заработал. tvrsh обычно скрипты пишет для непатченных ботов.

|13:34:56| <Vertigo> !statusi
|13:34:57| <TrioN_> (Злой) Если соседи достали с музыкой до 2 часов ночи.....Позвоните им в 5 часов и скажите как вам понравилось =) (18)
|13:34:58| <TrioN_> (Думаю) Да, я слишком громкая, слишком много болтаю, у меня не идеальная мажорная мордашка и не длиннющие ноги, зато я настоящая!!! (16)
|13:34:59| <TrioN_> (Для одноклассников) когда-ДЖИГИТЫ-разговаривают, кони пасутся! (6) (1775.0мc.)
|13:36:04| <Vertigo> .tcl return "eggdrop v[lindex $::version 0]; suzi patch v[set ::sp_version]; Tcl v[info patchlevel]"
|13:36:04| <TrioN_> Tcl (0.000mks): eggdrop v1.6.19+ctcpfix; suzi patch v0009; Tcl v8.5.7

[Radiosignal]

Бот без Suzi(последней версии). По пробовал на боте с Suzi, на нем все нормально.

[tvrsh]

Странно, у меня бот без сузи, никаких дополнительных кодировок в конфиге не прописано.

[20:13:10] <@tvrsh> $$ return "eggdrop v[lindex $::version 0]; Tcl v[info patchlevel]; Encoding system [encoding system]"
[20:13:10] <+bionic> Return: eggdrop v1.6.19+ctcpfix; Tcl v8.5.8; Encoding system utf-8 - 0.034 ms.

[ABATAP4uk]

Скрипт работает нормально, но выдает кракозябры, вместо нормального текста, кодировка на боте cp1251(set irc_encoding cp1251), как и на сайте. Если какая другая, подскажите.Заранее спасибо.

<Markus> (Весело) @>682 10 ;5B 2 >AA88,0<5@8:0=5F =5 A<>3 ?>=OBL,?>G5<C EC52>-MB> ?;>E>,0 ?8740B>-MB> E>@>H>. ?>G5<C ?8745F-MB> EC65,G5< EC52>,0 >EC5==>-MB> ;CGH5,G5< ?8740B>) (8)

Бот с сузи патчем? Если да - правь скрипт.

а как править?
У меня тоже кракозябры
[23:30:00] <ABATAP4uk> !statusi
[23:30:01] <panda> (Думаю) 7@>A;55HL  MB> :>340 B515 2A5 @02=>: :@CG5 C B51O B5;5D>=, G5< C 4@C759 8;8 =5B. 8HL 1K 72>=8;.(A) (14)
[23:30:02] <panda> (Весело) 2>B A86C 8 ?LN 8 3>2>@N MB><C BC?><C 682>B D83 B5)) =5 40< O B5 2>48G:8)) (6) (

[ABATAP4uk]

Спасиб сам подумал разобрался малясь скрипт подправил tvrsh есь чо не ругайся по другому не работало)
Каму нада

[wr`]

поставил скрипт,все работает,попробовал команду у бота в привате,работает,но в патилайне выдает вот такую ошибку
Tcl error [::statusi::statusi_msg]: can't read "statusi(start)": no such element in array
как это убрать?

Добавлено спустя 15 минут 42 секунды:
и еще иногда выдает ошибку
Tcl error [::statusi::statusi_msg]: can't read "pages": no such variable
в этот момент на сайте не показаны статусы

[tvrsh]

Чтобы исправить

Tcl error [::statusi::statusi_msg]: can't read "statusi(start)": no such element in array

в процедуре ::statusi::statusi_msg после строки

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

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

variable statusi

допиши

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

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

set statusi(start) [clock clicks]

Добавлено спустя 13 минут 2 секунды:
А чтобы другой ошибки не было перед строкой

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

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

    regexp {></a> <a href=index.php\?n_page=(.*?)&page=all>...</a>} $data "" pages

добавь

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

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

set pages 1331

Этим ты заранее указываешь максимальную(на данный момент) страницу со статусами. Если ниженаписанный регэксп не сработает, то будет использоваться именно это значение в дальнейшем выборе случайной страницы.

[LuXe]

вот что пишит:

[19:54:13] Tcl error [::statusi::statusi_pub]: couldn't open socket: host is unreachable (hostname nor servname provided, or not known)

[DmitRex]

14.06.2011, Time: 22:05 - Сайт http://x-traz.ru/ временно не работает.

[tvrsh]

Скрипт обновлен. Теперь он работает с другим сайтом. Брать все также в первом посте.

[wr`]

в обновленном кодировка почему то сбилась

(Äóìàþ) ;N48 ;N1OB ;N459 :>B>@K< ?>EC9 =0 <=5=85 >:@C60NI8E  (32)
•(22:57:04)• <Fun> (Äóìàþ) <span id="b340528">K205B B0:, GB> :0:85-B> <5;:85 ?@>1;5<K, ;><0NB 1KAB@55 G5< 1>;55 7=0G8<K5. 54L : A5@L57=K< <>6=> ?>43>B>28BLAO 8 >=8 ?0E=CB =587156=>ABLN.  <5;:85, 8<5NB A2>9AB2> 2=570?=>AB8 8 @2CB 4CHC =0<=>3> A</span><span id="a340528" style="cursor:pointer;display:line" onclick="javascript:f(340528)"> <font color="green">40;LH5...</font></span><span style="display:none" id="r340528">K205B B0:, GB> :0:85-B> <5;:85 ?@>1;5<K, ;><0NB 1KAB@55 G5< 1>;55 7=0G8<K5

[tvrsh]

wr`, попробуй перед каждым выводом строки добавить

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

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

set msg1 [encoding convertto cp1251 $msg]

ABATAP4uk писал что ему это помогло.

[tvrsh]

Для тех у кого проблема с кодировкой, в скрипте нужно удалить строку

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

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

set data [encoding convertto cp1251 [encoding convertfrom [encoding system] $data]]