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

[tvrsh]

###
#
# Название: mobile.tcl
# Версия: 2.0
# Автор: tvrsh
# Оффсайт: http://egghelp.ru/
#
###
#
# Описание: Скрипт собирает с сайта http://www.gsmarena.com характеристики мобильных телефонов.
#
###
#
# Установка:
# 1. Скопируйте скрипт mobile.tcl в папку scripts/mobile вашего бота.
# 2. В файле eggdrop.conf впишите строку source scripts/mobile/mobile.tcl
# 3. Сделайте .rehash боту.
#
###
#
# Версион хистори:
#
# 1.0(25.03.2007) Первая паблик версия.
# 1.1(31.03.2007) + Канальный флаг.
# + Обработка страниц через http.tcl
# 2.0(03.08.2010) Скрипт переделан для работу с сайтом http://www.gsmarena.com
#
###

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

# Просмотр списка брэндов.
<tvrsh> !mob
<@bionic> List of all GSM brands
<@bionic> Acer (18), Alcatel (154), Amoi (47), Apple (4), Asus (26), AT&T (4), Benefon (9), BenQ (29), BenQ-Siemens (27), Bird (61), BlackBerry (40), Bosch (10), Chea (12), Dell (8),
<@bionic> Ericsson (40), Eten (22), Fujitsu-Siemens (2), Garmin-Asus (5), Gigabyte (27), Haier (51), HP (17), HTC (65), Huawei (30), i-mate (34), i-mobile (37), Innostream (18), iNQ (3), Kyocera (6),
<@bionic> LG (306), Maxon (31), Micromax (36), Microsoft (2), Mitac (12), Mitsubishi (25), Modu (7), Motorola (278), MWg (5), NEC (72), Neonode (3), Nokia (308), O2 (45), Palm (14),
<@bionic> Panasonic (43), Pantech (48), Philips (136), Qtek (21), Sagem (120), Samsung (590), Sendo (19), Sewon (25), Sharp (36), Siemens (94), Sonim (6), Sony (13), Sony-Ericsson (169), T-Mobile (29),
<@bionic> Tel.Me. (7), Telit (30), Thuraya (1), Toshiba (22), Vertu (9), VK-Mobile (31), Vodafone (44), WND (5), XCute (4), ZTE (23)
<@bionic> Для просмотра моделей используйте !mob марка. (677.469мc.)

# Просмотр списка моделей.
<tvrsh> !mob asus
<@bionic> All Asus phones
<@bionic> P835, P565, P552w, P320, M930, P550, P750, P527, Z801, J502, V88i, M530w, P526, J501, P735, Z810, P535, P525, P505, M303, M307, M310, V80, V75, V66, V55
<@bionic> Для просмотра модели используйте: !mob марка модель. (625.396мc.)

# Просмотр конкретной модели.
<tvrsh> !mob asus P835
<@bionic> Asus :: P835
<@bionic> General :: 2G Network: GSM 850 / 900 / 1800 / 1900 3G Network: HSDPA 900 / 1900 / 2100 Announced: 2009, March Status: Available. Released 2009, May
<@bionic> Size :: Dimensions: 115 x 59 x 13.8 mm Weight: 148 g
<@bionic> Display :: Type: TFT resistive touchscreen, 65K colors Size: 480 x 800 pixels, 3.5 inches
<@bionic> Sound :: Alert types: Vibration; Downloadable polyphonic, MP3 ringtones Speakerphone: Yes
<@bionic> Memory :: Phonebook: Practically unlimited entries and fields, Photocall Call records: Practically unlimited Internal: 4GB storage, 288MB RAM, 256MB ROM Card slot: microSD, up to 16GB
<@bionic> Data :: GPRS: Class 12 (4+1/3+2/2+3/1+4 slots), 32 - 48 kbps EDGE: Class 12 3G: HSDPA, 7.2 Mbps, HSUPA 2 Mbps WLAN: Wi-Fi 802.11b/g Bluetooth: Yes, v2.0 with A2DP Infrared port: No USB: Yes, v2.0
<@bionic> Camera :: Primary: 5 MP, 2592x1944 pixels, autofocus Video: Yes Secondary: Yes
<@bionic> Features :: OS: Microsoft Windows Mobile 6.1 Professional Messaging: SMS (threaded view), EMS, MMS, Email Browser: WAP 2.0/xHTML, HTML (IE), RSS reader Radio: No Games: Yes Colors: Black GPS: Yes, with A-GPS support Java: Yes, MIDP 2.0 More function: - Pocket Office (Word, Excel, PowerPoint, OneNote, PDF viewer) - Organizer - MP3/MP4 player
<@bionic> Battery :: Stand-by: Up to 350 h Talk time: Up to 6 h More function: Standard battery, Li-Ion 1100 mAh
<@bionic> Misc :: Price group: About 400 EUR
<@bionic> Related :: Nokia N8, Nokia N97
<@bionic> Pictures :: http://www.gsmarena.com/asus_p835-pictures-2727.php (584.001мc.)

Скрипт должен работать как на сузи так и на обычных ботах.
Приветствуются комментарии и предложения а просто молчаливое скачивание.

Скачать: mobile2.tcl

[triton]

ввожу команду !mob asus Asus-P525 -a не дает ответа в пати

Tcl error [mobile_pub]: can't read "nomer": no such variable

а при !mob

[09:57] Tcl error [mobile_pub]: couldn't open socket: connection timed out

[tvrsh]

Долгожданное возвращение легендарного скрипта.
Смотрим первый пост.

[triton]

спс tvrsh, все работает.

[Baklazhan]

Отлично работает,спс за скрипт

[tvrsh]

Чтобы в запросе можно было безболезненно допускать лишние пробелы и не возникало ошибок как эта:

<tvrsh> !mob acer beTouch E130
<@bionic> Модели {} beTouch E130 нет в списке. Уточнике список моделей командой !mob Acer. (0.547мc.)

В процедуре ::mobile::mobile_proc после строки

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

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

global mobile lastbind

допишите

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

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

regsub -all {\s+} $text " " text

Это уберет все лишние пробелы.

[tvrsh]

Чтобы скрипт показывал похожие по функционалу телефоны, в процедуре ::mobile::mobile_parce после строк

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

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

if {[regexp -- {<li id="specs-cp-pics"><a href=(.*?)>Pictures</a></li>} $html - p]} {
      set pics "$mobile(color4)Pictures :: \037\00312http://www.gsmarena.com/$p\037\003"
}

добавьте строки

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

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

if {[regexp -- {<li id="specs-cp-related"><a href=(.*?)>Related} $html - p]} {
      set rlink $p
}

После чего, в самом низу этой же процедуры перед строкой

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

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

::mobile::mobile_largetext PRIVMSG $chan "$pics \00315([expr ([clock clicks] - $mobile(start))/1000.0]мc.)"

вставьте следующий код

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

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

set mobile(agent) [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)"]
set mobile(url) [::http::geturl "http://www.gsmarena.com/$rlink" -timeout 15000]
set html [::http::data $mobile(url)]
::http::cleanup $mobile(url)

regexp {<div class=\"main-related\">(.*?)<div class=\"makers\">} $html "" data
regsub -all {<div id="specs-cp-pic">} $data "|" data
foreach line [split $data "|"] {
    if {[regexp -- {<a title=\"(.*?)\"\ href=\"(.*?)\">} $line -> rphone rlink]} {
        lappend related "$mobile(color2)$rphone$mobile(color1), "
    }
}
set related "$mobile(color4)Related :: [string trim [join $related] ", "]"
::mobile::mobile_largetext PRIVMSG $chan "$related"

Сохраните скрипт и сделайте .rehash боту.

В итоге имеем:

<@tvrsh> !mob nokia n900
<+bionic> Nokia :: N900
...
<+bionic> Related :: Nokia N8, Nokia N97
<+bionic> Pictures :: http://www.gsmarena.com/nokia_n900-pictures-2917.php (1232.064мc.)

[UnInViTeD]

норм скрипт

[IuClik]

откуда взять этот TCL?

[tvrsh]

откуда взять этот TCL?

Из первого сообщения темы.