loto.tcl - лотерея, розыгрыш войса, хопа или опа.

Решение вопросов при работе с TCL скриптами.

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

loto.tcl - лотерея, розыгрыш войса, хопа или опа.

Сообщение DmitRex » 12 фев 2011 12:03

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

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
}
 
Последний раз редактировалось DmitRex 12 фев 2011 12:23, всего редактировалось 2 раз(а).
Аватара пользователя
DmitRex
 
Сообщения: 50
Зарегистрирован: 14 июл 2010 10:39
Откуда: Владимир
Благодарил (а): 1 раз.
Поблагодарили: 3 раз.
Версия бота: Eggdrop 1.6.21

Re: loto.mrc

Сообщение tvrsh » 12 фев 2011 12:09

При чем тут .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}
    }
}
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: loto.tcl

Сообщение DmitRex » 12 фев 2011 12:27

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
}

Вот это не работает!
Аватара пользователя
DmitRex
 
Сообщения: 50
Зарегистрирован: 14 июл 2010 10:39
Откуда: Владимир
Благодарил (а): 1 раз.
Поблагодарили: 3 раз.
Версия бота: Eggdrop 1.6.21

Re: loto.tcl

Сообщение tvrsh » 12 фев 2011 12:32

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

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


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

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

Сейчас этот форум просматривают: Google [Bot] и гости: 4

cron