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

[НеоспоримыыЙ]

Здравствуйте! Имею такой скрипт.

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

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

# Автокоманда действия
bind time - "?10 * * * *" com4
bind time - "?0 * * * *" com4

# Процедура действия
proc com4 {min hour day month year} {
set com4rand [::egglib::readdata data/basa.txt]
putserv "topic #lineage :[lindex $com4rand [rand [llength $com4rand]]]"
}
bind pub - !строка com6
proc com6 { nick uhost hand chan text } {
if {$text == ""} {putserv "NOTICE $nick :Формат: !строка <текст>"; return}
set info [lindex $text]
set file [open data/basa.txt a+]
puts $file "$info"
close $file
puthelp "NOTICE $nick :Строка была успешно сохранена. Спасибо!"
}
 

Помогите доработать скрипт.
Работа со скриптом в привате, удаление строк из файла, установления таймера на смену, установление канала, добавления юзеров (если возможна), запрос идентификации у юзеров для работы со скриптом.
Заранее благодарен

[tvrsh]

Для работы в привате надо добавить такой код:

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

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

bind msg - !строка com7
proc com7 { nick uhost hand text } {
if {$text == ""} {putserv "NOTICE $nick :Формат: !строка <текст>"; return}
set info [lindex $text]
set file [open data/basa.txt a+]
puts $file "$info"
close $file
puthelp "NOTICE $nick :Строка была успешно сохранена. Спасибо!"
}

Но это слишком просто, лучше сделать немного покрасивее. Чтобы не было одинаковых процедур сделаем так.

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

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

# Бидим паблик команду. Тут у нас процедура предварительной обработки.
bind pub - !строка pubbind
proc pubbind {nick uhost hand chan text} {
    # Тут можно добавить проверку на наличие флага на канале.
    stroka $nick $uhost $hand $text
}

# Бидим приватную команду.
bind msg - !строка msgbind
proc msgbind {nick uhost hand text} {
    stroka $nick $uhost $hand $text
}

Все аргументы после срабатывания обоих биндов передаются сначала в отдельные процедуры, а потом каждая из них передает их в общую процедуру, которая и работает с топиками.

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

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

proc stroka {nick uhost hand text} {
if {$text == ""} {
    putserv "NOTICE $nick :Формат: !строка <текст>"
    return 0
}
set info [lindex $text]
set file [open data/basa.txt a+]
puts $file "$info"
close $file
puthelp "NOTICE $nick :Строка была успешно сохранена. Спасибо!"
}

Удаление строк надо вырезать из моего скрипта которые раздает войсы в зависимости от тэга в нике. Установку таймера посмотри в любых подобных скриптах. Установку канала там же. Каких юзеров ты добавлять хочешь?

Короче, чем писать все это заново, проще взять уже готовый скрипт работающий с топиками. Не вижу смысла изобретать велосипед.
Но если тебе так хочется то пожалуйста, обращайся если будут вопросы.

[НеоспоримыыЙ]

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

Добавлено спустя 4 минуты 43 секунды:
ну если взять из первого раза как ты показывал и все это объединить то думаю выходит так:

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

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

# Указываем канал.
set _chan "#канал"

# и начальный индекс топика. Это менять не надо.
set index 0

 bind time - "* * * * *" topic
proc topic {min hour day month year} {
global index _chan
     set fname "topic.txt"
     set fp [open $fname "r"]
     set data [read -nonewline $fp]
     close $fp
     # Считываем данные из файла и показываем индексный топик по счету.
     putserv "TOPIC $_chan :[lindex [split $data "\n"] $index]"
     # после чего увеличиваем индекс.
     incr index
}

# Бидим паблик команду. Тут у нас процедура предварительной обработки.
 bind pub - !строка pubbind
proc pubbind {nick uhost hand chan text} {
     # Тут можно добавить проверку на наличие флага на канале.
     stroka $nick $uhost $hand $text
}

# Бидим приватную команду.
 bind msg - !строка msgbind
proc msgbind {nick uhost hand text} {
     stroka $nick $uhost $hand $text
}
proc stroka {nick uhost hand text} {
if {$text == ""} {
     putserv "NOTICE $nick :Формат: !строка <текст>"
     return 0
}
set info [lindex $text]
set file [open data/basa.txt a+]
puts $file "$info"
close $file
 puthelp "NOTICE $nick :Строка была успешно сохранена. Спасибо!"
}

# Процедура удаления строк. Для удаления указывай точный текст строки.
 bind pub o|o !del del
proc del {nick uhost hand chan text} {
     set fname "yourfile.txt"
     set fp [open $fname "r"]
     set data [read -nonewline $fp]
     close $fp
     set index 0
     set nomer ""
     foreach line [split $data "\n"] {
         incr index
         if {$line == $text} {
             set nomer [expr $index - 1]
         }
     }

     if {$nomer != ""} {
         set data [lreplace [split $data "\n"] $nomer $nomer]
     } else {
         putserv "PRIVMSG $chan :$nick, строка $text не найдена в базе."
         return 0
     }

     set fp [open $fname "w"]
     puts $fp [join $data "\n"]
     close $fp

     putserv "PRIVMSG $chan :$nick, строка $text удалена."
}

Если где есть ошибки подправь пожалуйста и покажи где и какие были ошибки.

[tvrsh]

Есть ошибки или нет тебе должно быть виднее. Работает все правильно? В патилайне ошибок нет?
А вместо авторизации лучше добавить флаги для тех, кому можно использовать команды.

[tvrsh]

По поводу добавления юзеров можно в настройки добавить

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

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

set _nicks "nick1 nick2 nick3"

И в процедуры добавить такую конструкцию:

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

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

# Объявляем переменную разрешающую или запрещающую действие для ника. По умолчанию запрещает.
set allow 0

# Перебираем все ники из списка в настройках.
foreach _nick [split $_nicks] {
    # Если ник использовавшего команду соответствует нику из списка в настройках. То ставим переменную в 1.
    if {$_nick == $nick} {
        set allow 1  
    }
}

# А тут делаем проверку на значение этой переменной.
if {$allow == "0"} {
    # То есть, если мы перебрали весь список ников в настройках, и не обнаружили там ника, который использовал команду, то мы его посылаем и прерываем выполнение процедуры.
    putserv "NOTICE $nick :Вам запрещено работать с топиками канала."
    return 0
}

Можно еще проще сделать, в настройки добавить тот же список, но проверку делать иначе:

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

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

# Если в строке _nicks нет ника nick, то посылаем юзера.
if {![string match "*$nick*" $_nicks]} {
    putserv "NOTICE $nick :Вам запрещено работать с топиками канала."
    return 0
}

Таких вариантов можно еще несколько штук придумать. У всех есть свои минусы и плюсы.

[НеоспоримыыЙ]

попробывал протестить скрипт который выложил выше и попросил проверить его на ошибки. Так вот скрипт работает, но команда !del не работает что-то, да и менять что-то не сменяет топики на канале.

[tvrsh]

Зачем ты кого-то просил? Сам не можешь на своем боле это сделать?
Если не удаляет и не меняет топики значит скрипт не работает. В таких случаях обычно принято показывать лог ошибок из .set errorInfo

[НеоспоримыыЙ]

дело в том что в Putty не подключается, у меня постоянно с этим проблема.

[tvrsh]

Тогда о каком написании скрипта идет речь, если ты не можешь попасть в патилайн?
Пробуй DCC: /ctcp botnick chat