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

[DmitRex]

Неполучается скрипт, поправте.

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

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

bind pub - !лотерея pub_loto
set loto(delay) 900
set loto(color1) \00311
set loto(color2) \00310
set loto(color3) \00305
set loto(color4) \00312
set loto(color5) \00304
set loto(color6) \00313
proc pub_loto {nick uhost hand chan args} {
variable loto
if {[channel get $chan nopubbart]} { return }
if {[info exists loto(lasttime,$chan)] && [expr $loto(lasttime,$chan) + $loto(delay)] > [clock seconds]} {
        putserv "NOTICE $nick :Запрос не чаще одного раза в $loto(delay) [lindex {. секунду секунды секунд} [lotonumgrp $loto(delay)]]."
      putserv "NOTICE $nick :Подождите [expr $loto(delay) - [expr [clock seconds] - $loto(lasttime,$chan)]] [lindex {. секунду секунды секунд} [lotonumgrp [expr $loto(delay) - [expr [clock seconds] - $loto(lasttime,$chan)]]]] до следующего запроса."       return
}
putserv "PRIVMSG $chan : $loto(color1)..:: $loto(color4)Начинается очерёдный розыгрыш лотереи на канале$loto(color5) $chan color2::..”
set winner [lindex [chanlist $chan]  [rand [llength [chanlist $chan]]]]
putserv ‘PRIVMSG $chan :
putserv "PRIVMSG $chan :$loto(color2)..:: $loto(color3)Это $winner $loto(color6)! Поздравим его $loto(color2)::..”
set mode [lindex "o h v b" [rand [llength "o h v b"]]]
putserv "MODE $chan +$mode $winner"
return 0
}
 

[tvrsh]

При чем тут .mrc? Тут форум о tcl скриптах для ботов Eggdrop а не для клиента mIRC.
Читай: post46.html#p46

Добавлено спустя 11 минут 11 секунд:
Пробуй:

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

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

setudef flag loto
bind pub - !лотерея pub_loto
set loto(delay) 900
set loto(color1) \00311
set loto(color2) \00310
set loto(color3) \00305
set loto(color4) \00312
set loto(color5) \00304
set loto(color6) \00313
proc pub_loto {nick uhost hand chan text} {
variable loto
if {![channel get $chan loto]} {return 0}
if {[info exists loto(lasttime,$chan)] && [expr $loto(lasttime,$chan) + $loto(delay)] > [clock seconds]} {
     putserv "NOTICE $nick :Запрос не чаще одного раза в $loto(delay) [lindex {. секунду секунды секунд} [lotonumgrp $loto(delay)]]."
      putserv "NOTICE $nick :Подождите [expr $loto(delay) - [expr [clock seconds] - $loto(lasttime,$chan)]] [lindex {. секунду секунды секунд} [lotonumgrp [expr $loto(delay) - [expr [clock seconds] - $loto(lasttime,$chan)]]]] до следующего запроса."
    return 0
}
putserv "PRIVMSG $chan : $loto(color1)..:: $loto(color4)Начинается очередной розыгрыш лотереи на канале $loto(color5)$chan $loto(color2)::."
set winner [lindex [chanlist $chan]  [rand [llength [chanlist $chan]]]]
putserv "PRIVMSG $chan :$loto(color2)..:: $loto(color3)Это $winner $loto(color6)! Поздравим его $loto(color2)::.."
set mode [lindex "o h v b" [rand [llength "o h v b"]]]
putserv "MODE $chan +$mode $winner"
set loto(lasttime,$chan) [clock seconds]
return 0
}

proc lotonumgrp {number} {
    switch -glob -- "$number" {
        *11 {return 3}
        *12 {return 3}
        *13 {return 3}
        *14 {return 3}
        *1 {return 1}
        *2 {return 2}
        *3 {return 2}
        *4 {return 2}
        default {return 3}
    }
}

[DmitRex]

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

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

if {![channel get $chan loto]} {return 0}
if {[info exists loto(lasttime,$chan)] && [expr $loto(lasttime,$chan) + $loto(delay)] > [clock seconds]} {
     putserv "NOTICE $nick :Запрос не чаще одного раза в $loto(delay) [lindex {. секунду секунды секунд} [lotonumgrp $loto(delay)]]."
      putserv "NOTICE $nick :Подождите [expr $loto(delay) - [expr [clock seconds] - $loto(lasttime,$chan)]] [lindex {. секунду секунды секунд} [lotonumgrp [expr $loto(delay) - [expr [clock seconds] - $loto(lasttime,$chan)]]]] до следующего запроса."
    return 0
}

Вот это не работает!

[tvrsh]

Безнадежный случай.
Повторяю еще раз: Правила оформления топиков.
Обрати внимание на 1, 2 и 3 пункты.
В конце концов, почему я должен тебе верить? Может оно работает а ты просто хочешь меня обмануть. Пока не будет доказательств твоей правоты бессмысленно продолжать разговор.
И вообще, ты просишь помощи, так уж будь любезен, предоставь всю необходимую для этого информацию а не какое-то сомнительное "не работает".

Добавлено спустя 1 минуту 49 секунд:
И перепроверь скрипт из моего предыдущего поста.