DocServ 0.3-rc1. lyrics-скрипт для Eggdrop

Скрипт для Eggdrop, который умел по запросу выдать список файлов или какой-нибудь конкретный текстовый файл. Пытался сделать канал, где можно было получить по запросу лириксы на конкретный альбом исполнителя.

Как обычно, ни к чему это не привело. Остался скрипт =)

bind join — *         join:msg_welcome
bind pub — «!get»    txt:get
bind msg — «get»    txt:get
bind pub — «!getdcc»    dcc:get
bind msg — «getdcc»    dcc:get

set botnick
set DS_ver «0.3-rc1 Tue May 11 18:40:02 2004»
set welcome «Type ‘!get help’ (without quotes!) for getting more information.»
set our_channels «#phobos.talk #lyr»
set sharedir «/home/mef/lyr/»
set nafile «File not available. Type ‘!get list’ for getting lastest filelist.»

proc join:msg_welcome {nick host hand chan} {
global botnick our_channels welcome
if { [lsearch $our_channels $chan] == -1} { return 0 }
puthelp «NOTICE $nick :$welcome»
return 1
}

proc dcc:get {nick uhost hand chan file} {
global our_channels nafile sharedir
if { [lsearch $our_channels $chan] == -1 } then { return 0 }
if { [dccsend $sharedir/$file $nick] != 0 } {
dccsend $sharedir/$file $nick }
putlog «DocServ dcc $file -> $nick»
puthelp «NOTICE $nick :Sending $file to you..»
dccsend $file $nick
return 1
}

proc txt:get {nick uhost hand chan file} {
set file [lindex $file 0]
global our_channels nafile sharedir
if { [lsearch $our_channels $chan] == -1 } { return 0 }
set end_file 0
if { [file exist $sharedir/$file] } {
set open_file [open $sharedir/$file r]
} else { puthelp «NOTICE $nick :$nafile» }
putlog «DocServ txt $file -> $nick»
while { ![eof $open_file] } {
gets $open_file line
puthelp «PRIVMSG $nick :$line»
set end_file 1
}
close $open_file
return 1
}

putlog «DocServ $DS_ver by mef@RusNet <mef@anarxi.st> «

Другие публикации по теме:

Руководство и FAQ по компиляции... Это руководство - плод работы мозга многих пользователей и разработчиков - поможет вам правильно скомпилировать Eggdrop. Если вам кажется, что чего-то...
Модуль Wire Этот модуль предоставляет все стандартные .wire-команды через dcc. Это утилита, шифрующая связь патилайна; совместима с wire.tcl. Ус...
Странные сообщения, появляющиеся в лог-файлах... Ниже приведены сообщения, которые Eggdrop может помещать в лог время от времени, что выглядит довольно странным и на это существуют не совсем внят...
Частозадаваемые вопросы СодержаниеЧто мне делать, если я получаю сообщение об ошибке "Userfile не найден (Userfile not found)"? Мой Eggdrop не хочет запускаться; Про...

Поделиться информацией с друзьями!

Чтобы не пропустить обновления, подпишись на RSS или почтовую рассылку (свой выбор сделали уже 128 человек!)

Один комментарий к «DocServ 0.3-rc1. lyrics-скрипт для Eggdrop»

  1. В былое время активного пользования IRC у меня был весьма крутой почтовый ящик =)

Оставить комментарий