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

[wr`]

не знаю может уже есть такой скрипт и все же попрошу написать
добавление юсера в базу бота его страницу вконтакте и небольшую графу о себе,чтоб по определенной команде бот выдавал всех юсеров кто добавил свою страницу
пример:
!явконтакте http://страница.ru добрый,скромный добавляйтесь

[DmitRex]

Можно использовать http.tcl скрипт который будет говорить о название страницы введя страницу в контакте он дастинформацию о ней.

[Vertigo]

Можно использовать http.tcl скрипт который будет говорить о название страницы введя страницу в контакте он дастинформацию о ней.

Мда. http.tcl это только http-клиент. Сам по себе он информации не даст. Но можно легко написать скрипт с использованием http.tcl. Hint: для юзания поиска по вконтакту надо каждый раз логиниться или заюзать куки. У себя я выбрал второе.

[wr`]

ребят вы не на ту тему заморочились,я прошу типа маленькой анкетки,чтоб юсер ввел данные о себе а другие посмотрели

[wr`]

почему и начал свой пост со слов может где то есть такой скрипт(скрипт анкеты)

[Vertigo]

Посмотри этот скрипт.

[tvrsh]

Можно использовать http.tcl скрипт который будет говорить о название страницы введя страницу в контакте он дастинформацию о ней.

Такой наивный, стоило посмотреть, что это за скрипт перед тем как что-то советовать. Хотя, судя по тому, что шапка скрипта удалена все таки посмотрел. Зачем было шапку с описанием удалять? Идиотизм.

[wr`]

Посмотри этот скрипт.

спасибо,то что надо

[tvrsh]

А я вот такое набросал, на основе викторины. Не знаю работает ли они только. Не тестировал.

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

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

bind pub - !vkset vkset
proc vkset {nick uhost hand chan text} {
if {$hand == "*"} {
    if {![validuser $nick]} {
        adduser $nick
        addhost [set hand $nick] [set host "*![lindex [split [getchanhost $nick] "@"] 0]@[lindex [split [getchanhost $nick] "@"] 1]"]
    }
}
setuser $hand xtra vklink [lindex [split $text] 0]
setuser $hand xtra vkdesc [lrange [split $text] 1 end]
putserv "PRIVMSG $chan :$nick, тебе установлена страница Вконтакте([lindex [split $text] 0]) и описание([lrange [split $text] 1 end])."
return 0
}

bind pub - !vk vkview
proc vkview {nick uhost hand chan text} {
set text [lindex [split $text] 0]
foreach hand [userlist] {
    if {[set xtra [getuser $hand xtra vklink]] != ""} {
        lappend vklist $hand
    }
}
set hand [nick2hand $text]
if {[validuser $hand]} {
    set vklink [getuser $hand xtra vklink]
    set vkdesc [getuser $hand xtra vkdesc]
    putserv "PRIVMSG $chan :$nick, пользователь $text установил себе страничку $vklink с описанием $vkdesc."
    putserv "PRIVMSG $chan :Страничка Вконтакте есть у следующих пользователей: [split $vklist ", "]"
    return 0
} else {
    putserv "PRIVMSG $chan :$nick, пользователь $text мне не известен."
    putserv "PRIVMSG $chan :Страничка Вконтакте есть у следующих пользователей: [split $vklist ", "]"
    return 0
}
}

[Vertigo]

c

setuser $hand xtra vkdesc [larange [split $text] 0 end]
putserv "PRIVMSG $chan :$nick, тебе установлена страница Вконтакте([lindex [split $text] 0]) и описание([larange [split $text] 0 end])."

подозреваю, что нет

[wr`]

да выдает ошибку
Tcl error [vkset]: invalid command name "larange"

[tvrsh]

Если дело было в larange вместо lrange, то исправил.

[Vertigo]

Замени тот "кусок" на

setuser $hand xtra vkdesc [lrange [split $text] 1 end]
putserv "PRIVMSG $chan :$nick, тебе установлена страница Вконтакте([lindex [split $text] 0]) и описание([lrange [split $text] 1 end])."

[wr`]

так а куда он будет сохранять эти записи?

[wr`]

•(20:47:26)• <BAJIbTEP> !vkset http://vkontakte.ru/irc**** ттт
•(20:47:26)• <emanuel> BAJIbTEP, тебе установлена страница Вконтакте(http://vkontakte.ru/irc****) и описание(ттт)
•(20:52:28)• <BAJIbTEP> !vk BAJIbTEP
•(20:52:28)• <emanuel> BAJIbTEP, пользователь BAJIbTEP установил себе страничку с описанием ттт.
при выводе не показал ссылку на страницу
и можно еще написать чтоб бот выдавал список юсеров которые занесены будут в базу

[tvrsh]

Дополнил скриптик, теперь по идее должен показать всех, у кого установлена ссылка на страничку.

[wr`]

спасибо все работает (: