Скрипт переписан, основные отличия:
1. Можно добавлять несколько сообщений на один ник/маску/канал, будет выбираться случайное.
2. Простой и удобный формат, не нужно отдельно записывать канал как ранее и тд.
В версии 1.1:
1. Приветствие для ника так же сработает на смену ника, актуально для бнц.
В версии 1.2:
1. Теперь можно добавлять приветствие для ника, маски и канала.
2. Можно указать как будет отправлено сообщение - на канал, в приват или нотисом.
В версии 1.3:
1. Исправлены небольшие недочёты.
В версии 1.4:
1. Теперь можно в сообщение указывать переменную канала или ника, а так же tcl команду. Если будет ошибка, то обработка команды не выполнится и на выводе будет сама команда.
В версии 1.5:
1. Вывод сообщений теперь с рандомной задержкой от 2 до 7 секунд.
Цитата
!прив <ник|маска|#канал|все> - просмотр приветствий.
!прив + <ник|маска|#канал> [канал|приват|нотис] <сообщение> - добавление приветствия. Вы можете указать выводить сообщение в приват, нотисом или на канал. В маске обязательно должен быть символ "*" или "?". В сообщении могут быть переменные и tcl команды.
!прив - <ник|маска|#канал> - удаление приветствия.
Примеры tcl-команд:
Цитата
!прив + * $nick, [expr {[lindex [::stats::stat $nick $chan 1] 7] == 0 ? "не материшься? молодец!":"давай-ка без матюков! На твоём счету здесь их уже [lindex [::stats::stat $nick $chan 1] 7]!"}]
!прив + * $nick, до Нового Года осталось всего [expr ([clock scan "2015-01-01"]-[clock seconds])/60/60/24] [lindex {. день дня дней} [numgrp [expr ([clock scan "2015-01-01"]-[clock seconds])/60/60/24]]]! Готовьте Новогодний стол и шлите политику лесом!
!прив + Build Build, давай-ка без матюков! На твоём счету здесь их уже [lindex [::stats::stat $nick $chan 1] 7]!
!прив + Primary Primary, [regsub -- {^.*?>USD.*?Value>(.*?)<.*?>EUR.*?Value>(.*?)<.*?$} [regsub -all -- {\n} [::ccs::get_httpdata
http://www.cbr.ru/scripts/XML_daily.asp] ""] "сегодня курс доллара: \\1 евро: \\2."]
!прив + Estet Estet, [string tolower [regsub -- {^.*?<category.*?<title xml:lang="ru">(.*?)<.*?summary xml:lang="ru">(.*?)<.*?$} [regsub -all -- {\n} [encoding convertfrom utf-8 [::ccs::get_httpdata
http://rp5.ru/rss/2840/ru]] ""] {\1 \2}] 0 0]
