gretmn102 / agent-discord-bot Goto Github PK

maybe it's related to this - https://github.com/gretmn102/agent-discord-bot/wiki/libssl#no-usable-version-of-libssl-was-found

Reason

???

Command parameters

.copy <message_url> <#destination_channel>

Бумеранг предложил назвать как .lb

Бумеранг:

• Человек пишет команду .бутылочка, автоматически подключаясь к пати
• Чтобы игра началась нужно допустим минимум 4 человека, которые за минуту должны подключиться. Ещё трое или более подключаются
• Начинается игра. Тот, кто создал игру, начинает "крутить бутылочку", т.е. жмёт на кнопку;
• Рандомно выбирается один из остальных троих человек, и бот пишет что-то типа "Игрок 1" (тот, кто крутанул) "поцелуйте командой .поцелуй игрока 3 (или 2 или 4, смотря что выпадет);
• Игрок отправил команду верному человеку, то есть игроку 3, то Игроку 3 приходится нажимать на кнопку, то есть перешло право хода, теперь он крутит бутылочку. ЕСЛИ игрок 1 использует команду на другого игрока, то бот должен как-то наругаться на игрока и выгнать его из игры или что-то можно придумать);
• игра продолжается допустим 3-5 хода, чтобы не затягивать и создавать заново если хочется;

К полу игроков привязываться не надо, так смешнее, а для усложнения можно подумать что-то вроде игры на вылет, тот кто поцеловал - вылетает

On computer;

On mobile:

@cabacherry предлагала следующие:

• .любит, .любовь
• .совместимость
• .together
• .amour, .амур
• .simp (?) от sympathy
• .чувства
• .пара

Reproduction

???

Last seen

The last time such an error was observed was in 2022. I may have accidentally fixed it at some point (see possible causes). Perhaps we should close the issue.

Reproduction

???

Possible causes {#posible-causes}

This can happen because of an exception in MailboxProccessor: when .PostAndReply is called, it waits for a response. If an exception occurs in MailboxProccessor before that, .PostAndReply will continue to wait indefinitely.

The following code can be used to prove this:

module AsyncLearning =
    open System.Threading.Tasks

    let awaiti (t: Task) =
        t.GetAwaiter().GetResult()

    type Msg =
        | Inc of AsyncReplyChannel<int>
        | GetCounter of AsyncReplyChannel<int>

    let reduce msg state =
        match msg with
        | Inc ->
            let counter = state + 1
            if counter > 1 then
                System.Threading.Tasks.Task.Run(fun x ->
                    failwithf "counter > 1"
                )
                |> awaiti

            counter

        | GetCounter r ->
            r.Reply state
            state

    let counter =
        let initState = 0

        MailboxProcessor.Start(fun mail ->
            let rec loop state =
                async {
                    let! msg = mail.Receive()
                    let state =
                        try
                            reduce msg state
                        with e ->
                            printfn "%A" e
                            state

                    return! loop state
                }
            loop initState
        )

    counter.PostAndReply (fun r -> Inc r)

    ()

Error reproduction:

• Configure doorkeeper module
• Create @role
• Give it to @user
• Log @user out of the server
• Delete @role
• Log @user into the server
• .pass @user