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

[tvrsh]

Скрипт игры в рулетку.
Версия бета, есть несколько недочетов. Об установке читаем в INSTALL.txt, еще немного полезной информации есть в README.txt. Загружать нужно только сам скрипт - casino.tcl.
Текущая версия: 1.5.1b

Для работы скрипта необходима база MySQL. Скрипт довольно громоздкий. В будущем, наверно, нужно либо разбивать его на двух ботов, чтобы иметь возможность выводить все необходимые сообщения и рассчеты (легкий вариант), либо реализовывать в виде модуля (сложный, но правильный вариант :S).
Вопросы, предложения - можно сюда.

Сам скрипт: http://www.egghelp.ru/files/401

[freaky]

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

[oIIa4ku]

Вроде загружается судя по логу загрузки

[12:07] Загружается расширение MySQLTCL..
[12:07] Casino.tcl message file v1.5.1b by Deniska @ RusNet loaded.
[12:07] Casino.tcl v1.5.1b by Deniska @ RusNet loaded (2.877ms)

а вот работать нехочет, не создаёт casino.user, пишет ошибку

[12:33] Tcl error [::casino::reg]: ::mysql::sel/db server: Table 'casino.users' doesn't exist

может что не так сделал, единственное так и не понял что делать с casino.sql.txt хотя его нету в архиве, у меня он валялся не понятно откуда
подскажите что делать?

[tvrsh]

Покажи содержимое этого файла.
В INSTALL.txt написано

4) Выполняем casino.sql.txt. Он создает таблицу "users" в текущей базе MySQL

Сделать это можно в phpmyadmin во вкладке SQL.

[oIIa4ku]

Вот содержание casino.sql.txt :

DROP TABLE IF EXISTS `users` ;

CREATE TABLE `users` (
`id` int( 7 ) unsigned NOT NULL AUTO_INCREMENT ,
`name` varchar( 50 ) NOT NULL ,
`hosts` varchar( 255 ) NOT NULL ,
`pass` varchar( 255 ) NOT NULL ,
`score` double( 15, 2 ) NOT NULL ,
`regdate` date NOT NULL ,
PRIMARY KEY ( `id` ) ,
UNIQUE KEY `name` ( `name` )
) ENGINE = MYISAM DEFAULT CHARSET = cp1251 AUTO_INCREMENT =1;

А как сделать на дебиан через shh например?

[tvrsh]

Зайди в папку где лежит этот файл. Введи команду mysql -u логин -pпароль имя_базы < casino.sql.txt, где -p и пароль пишутся слитно. Имя базы casino, если конечно не менял в настройках

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

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

variable name "casino"

Сам так не пробовал, говорят должно помочь.

[oIIa4ku]

Спасибо.
Правда сам скрипт наполовину рабочий, щас попробую более раннюю версию.

[tvrsh]

Почему наполовину, покажи какие ошибки в нем.

[oIIa4ku]

Вот ошибка на ставки

Tcl error [::casino::even]: expected integer but got "120.00"

меняется число и переменная ::casino::even, смотря как делаешь ставку.
А эта ошибка на передачу средств кому-либо

Tcl error [::casino::transfer]: can't read "::casino::pls(oIIa4ku,score)": no such element in array

[tvrsh]

А .set errorInfo показать религия не позволяет?

[oIIa4ku]

Вот так первая на ставки

) <oIIa4ku> .set errorInfo
(08:33:11) <mircbot> [08:31] #oIIa4ku# set errorInfo
(08:33:13) <mircbot> Currently: expected integer but got "12180.00"
(08:33:13) <mircbot> Currently: while executing
(08:33:13) <mircbot> Currently: "incr ::casino::pls($nick,score) -$bet"
(08:33:13) <mircbot> Currently: (procedure "addbet" line 13)
(08:33:13) <mircbot> Currently: invoked from within
(08:33:13) <mircbot> Currently: "addbet $nick $type $bet"
(08:33:13) <mircbot> Currently: (procedure "makebet" line 4)
(08:33:13) <mircbot> Currently: invoked from within
(08:33:13) <mircbot> Currently: "makebet $nick $chan "even" $text "
(08:33:13) <mircbot> Currently: (procedure "::casino::even" line 1)
(08:33:13) <mircbot> Currently: invoked from within
(08:33:13) <mircbot> Currently: "::casino::even $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Вторая на передачу

(08:33:35) <mircbot> [08:32] Tcl error [::casino::transfer]: can't read "::casino::pls(oIIa4ku,score)": no such element in array
(08:33:37) <oIIa4ku> .set errorInfo
(08:33:38) <mircbot> [08:32] #oIIa4ku# set errorInfo
(08:33:41) <mircbot> Currently: can't read "::casino::pls(oIIa4ku,score)": no such element in array
(08:33:41) <mircbot> Currently: while executing
(08:33:41) <mircbot> Currently: "if { $::casino::pls($nick,score) < $gift } { putquick "$mode $nick :[format [msg 17] $::casino::pls($nick,score)]";return}"
(08:33:41) <mircbot> Currently: (procedure "::casino::transfer" line 13)
(08:33:41) <mircbot> Currently: invoked from within
(08:33:41) <mircbot> Currently: "::casino::transfer $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

[tvrsh]

По поводу первой ошибки. В процедуре addbet замени строки

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

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

                incr ::casino::pls($nick,$type) $bet
                incr ::casino::pls($nick,score) -$bet

на

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

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

                incr ::casino::pls($nick,$type) [expr round($bet)]
                incr ::casino::pls($nick,score) [expr round(-$bet)]

А что со второй делать не знаю, с виду все нормально.

[oIIa4ku]

Первая ошибка не исчезла

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

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

(19:13:39) <oIIa4ku> .set errorInfo
(19:13:41) <mircbot> [19:12] #oIIa4ku# set errorInfo
(19:13:41) <mircbot> Currently: expected integer but got "11950.00"
(19:13:41) <mircbot> Currently:     while executing
(19:13:41) <mircbot> Currently: "incr ::casino::pls($nick,score) [expr round(-$bet)]"
(19:13:41) <mircbot> Currently:     (procedure "addbet" line 13)
(19:13:41) <mircbot> Currently:     invoked from within
(19:13:41) <mircbot> Currently: "addbet $nick $type $bet"
(19:13:41) <mircbot> Currently:     (procedure "makebet" line 4)
(19:13:41) <mircbot> Currently:     invoked from within
(19:13:41) <mircbot> Currently: "makebet $nick $chan "even" $text "
(19:13:41) <mircbot> Currently:     (procedure "::casino::even" line 1)
(19:13:41) <mircbot> Currently:     invoked from within
(19:13:41) <mircbot> Currently: "::casino::even $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

[tvrsh]

На сколько я понимаю, ошибка получается из-за того, что команда incr работает только с целыми числами, а в переменную $bet попадает 11950.00. Она и ругается на это.
Командой [expr round()] мы округляем $bet до целого.

<tvrsh> $$ set a 10; incr a 5.0; return $a
<@bionic> Error: expected integer but got "5.0" - 0.033 ms.
<tvrsh> $$ set a 10; incr a [expr round(5.0)]; return $a
<@bionic> Return: 15 - 0.032 ms.

Может ты не сохранил/не рехашнул бота?

[oIIa4ku]

Если бы я забыл что-то сделать, наверняка и в ошибке бы ничего не изменилось, а в ошибке есть прогрессия.