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

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

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

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

Сообщение smile » 17 окт 2010 12:17

типо отправляеш смс на номер **** с текстом join #chan и бот заходит на канал #chan
такое вроде возможно)
помню у нас было такое прописывание вхоста, отправляеш vhost nick vhost
smile
 
Сообщения: 7
Зарегистрирован: 16 окт 2010 20:01
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18+suzi

Re: скрипт для управления ботом по смс

Сообщение tvrsh » 17 окт 2010 16:32

Когда у меня будет смсгейт я, может быть, подумаю над этим.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: скрипт для управления ботом по смс

Сообщение smile » 17 окт 2010 21:43

хорошо
smile
 
Сообщения: 7
Зарегистрирован: 16 окт 2010 20:01
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18+suzi

Re: скрипт для управления ботом по смс

Сообщение ch3rtenok » 19 окт 2010 19:06

Для этого нужно:
1. Php скрипт для записи текста с смс на текстовый файл
2. Tcl скрипт для чтения этого текста и выполнение команды
ch3rtenok
 
Сообщения: 2
Зарегистрирован: 19 окт 2010 19:02
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8

Re: скрипт для управления ботом по смс

Сообщение smile » 19 окт 2010 19:39

Вот нашел скрипт помогите прикрутить к нему таймер
TCL: [ Скачать ] [ Скрыть ]
set mins 10
set actchan #vasya
set file "scripts/mail.txt"
set smsnick Vasya

foreach tms "[timers]" {
if {([llength $tms] != 0)} {
set tmc [lindex $tms 1]
set tid [lindex $tms 2]
if {($tmc == "check")} {
killtimer $tid
}
}
}


proc check { } {

global file actchan smsnick
## Обьявляем переменные, заданные выше, как глобальные
set pipefile [open $file]
## Открываем канал, несущий в себе связь с файлом (хранящим email)
while { [gets $pipefile sms] >=0 } {
## Пока возможно считывание
if {($sms != "empty")} {
## Если сообщение НЕ равно "empty"
set arg1 [lindex $sms 0]
set maybe [lindex $sms 1]
## Установим переменные: arg1 - слово IRC, maybe - возможное действие на СМС (установка топика, если SMS состоит из первых слов "IRC topic", иначе - вывод простым текстом)
if {($maybe == "topic")} {
set irc [lrange $sms 2 end]
set predtopic [topic $actchan]
## Если есть слово topic - выделяем предыдущий топик канала и текст SMS (переменная irc)
if {([llength $predtopic] <= 100)} {
putserv "topic $actchan :$predtopic // $irc // Sms from $smsnick //"
## Если топик не слишком длинный - сохраняем старый и дописываем текст SMS в топик
} else {
putserv "topic $actchan :$irc // $irc // Sms from $smsnick //"
## Иначе создаем новый топик канала
}
} else {
set irc [lrange $sms 1 end]
putmsg $actchan "$irc // Sms from $smsnick //"
## Если в SMS нет слова topic - выдаем простым текстом
}
}
}
close $pipefile
## Закрываем связь с файлом
set tempfile [open $file w]
puts $tempfile "empty"
close $tempfile
## Открываем связь с файлом (но уже для записи), пишем в файл строку "empty" и закрываем его - для того, чтобы скрипт дважды не скидывал в IRC одно и тоже сообщение
timer mins check
## Создаем таймер на указанный интервал со ссылкой на процедуру check
}
check
## При запуске скрипта - сразу же выполним процедуру
smile
 
Сообщения: 7
Зарегистрирован: 16 окт 2010 20:01
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18+suzi

Re: скрипт для управления ботом по смс

Сообщение tvrsh » 19 окт 2010 22:58

Там уже есть таймер, выполняется раз в 10 минут.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: скрипт для управления ботом по смс

Сообщение Stefan » 20 окт 2010 17:55

что должно быть внутри файла mail.txt ?
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: скрипт для управления ботом по смс

Сообщение ch3rtenok » 20 окт 2010 21:55

Вот переделываю скрипт, помогите с командами...
TCL: [ Скачать ] [ Скрыть ]
set mins 1
set actchan #chan
set file "/home/eggdrop/data/www/web.ru/eggdrop.txt"

foreach tms "[timers]" {
if {([llength $tms] != 0)} {
set tmc [lindex $tms 1]
set tid [lindex $tms 2]
if {($tmc == "check")} {
killtimer $tid
}
}
}
proc check { } {
global file actchan smsnick
set pipefile [open $file]
while { [gets $pipefile sms] >=0 } {
if {($sms != "Пусто")} {
set maybe [lindex $sms 1]
set smsempty [lindex $sms  2 3 4 5 6 7 8 9]
set smsenick [lindex $sms  2 3 4 5 6 7 8 9]
if {($maybe == "join")} {
set irc [lrange $sms 1 end]
set joinchan [lrange $sms 3 end]
<span style="color: #FF0000">Команда добваление канала</span>
putserv "PRIVMSG $smsnick канал $joinchan добавлен"

if {($maybe == "part")} {
set partchan [lrange $sms 3 end]
<span style="color: #FF0000">Команда выхода с канала</span>
putserv "PRIVMSG $smsnick канал $joinchan удален" }
} else {
}
}
}
close $pipefile
set tempfile [open $file w]
puts $tempfile "?????"
close $tempfile
timer mins check
}
check
putlog "Script SMS.tcl Загружен..."
 
ch3rtenok
 
Сообщения: 2
Зарегистрирован: 19 окт 2010 19:02
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8


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

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

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

cron