win = "dice_game_win";

    lose = "dice_game_lose";

    draw = "dice_game_draw";

    entered = function(s)

        s.player_pts = 0;

        s.enemy_pts = 0;

        s.current_pts = 0;

        s.state = 0;

        dg_pass:disable();

        dg_roll:enable();

    end;

    dsc = function(s)

        if s.state == 0 then

            return [[Определяем очередность ходов. Бросайте кость. ]];

        else

            return([[Очки:^Вы:]] .. s.player_pts .. [[^Соперник:]] .. s.enemy_pts .. [[^Текущий раунд:]] .. s.current_pts);

        end;

    end;

    obj = {

        "dg_roll";

        "dg_pass";

    };

    player_turn = function(s)

        if s.turn and (s.player_pts >= 100 or s.enemy_pts >= 100) then

            if s.player_pts >= 100 and s.enemy_pts >= 100 then

                walk(s.draw);

            elseif s.player_pts >= 100 then

                walk(s.win);

            else

                walk(s.lose);

            end;

        end;

        s.state = 1;

        s.current_pts = 0;

        timer:stop();

        game.timer = nil;

        dg_roll:enable();

        dg_pass:enable();

    end;

    enemy_turn = function(s)

        if not s.turn and (s.player_pts >= 100 or s.enemy_pts >= 100) then

            if s.player_pts >= 100 and s.enemy_pts >= 100 then

                walk(s.draw);

            elseif s.player_pts >= 100 then

                walk(s.win);

            else

                walk(s.lose);

            end;

        end;

        s.state = 1;

        s.current_pts = 0;

        game.timer = s.make_enemy_turn;

        timer:set(2500);

        dg_roll:disable();

        dg_pass:disable();

    end;

    make_enemy_turn = function()

        local s = dice_game;

        local pl = rnd(6);

        pr [[Соперник бросает кости. ]];

        pr([[Результат броска: ]] .. tostring(pl) .. [[.^]]);

        if pl == 1 then

            pr [[Ваш соперник теряет ход. ]];

            s:player_turn();

        else

                dice_game.current_pts = dice_game.current_pts + pl;

            end;

        end;

    end;

};

dg_pass = obj {

    nam = "dg_pass";

    dsc = [[{Передать ход. }^]];

    act = function(s)

        dice_game.player_pts = dice_game.player_pts + dice_game.current_pts;

        dice_game.current_pts = 0;

        dice_game:enemy_turn();

        return [[]];

    end;

};

dice_game_draw = cutscene("dice_game_draw", "Игра в кости", [[Человек разводит руками: "Ничья. Сыграем еще раз?"]], "port_street");

dice_game_win = cutscene("dice_game_win", "Игра в кости", [[Человек вручает вам сумму выигрыша: "Поздравляю, вы выиграли! Сыграем еще?"]], "port_street", function()

    pl.money = pl.money + dice_game.stake;

end);

    pl.money = pl.money - dice_game.stake;

end);