discord-chatgpt-bot ( json opcode -- )

Vocabulary

discord.chatgpt-bot

Inputs

json	an object
opcode	an object

Outputs

None

Definition

IN: discord.chatgpt-bot

GENERIC: discord-chatgpt-bot ( json opcode -- )

Methods

USING: arrays assocs discord discord.chatgpt-bot hashtables
kernel openai sequences splitting unicode ;

M: MESSAGE_CREATE discord-chatgpt-bot
    drop dup obey-message? [
        "content" of "chatgpt: " ?head [
            [ blank? ] trim [ [ "content" ] ] dip [ ] curry
            compose { } like [ [ { "role" "user" } ] ] dip
            [ ] curry compose { } like
            >hashtable 1array <cheapest-chat-completion>
            [ g... gflush ] [ chat-completions ] bi
            first-chat-completion reply-message
        ] [ drop ] if
    ] [ drop ] if ;


USING: discord.chatgpt-bot kernel ;

M: object discord-chatgpt-bot 2drop ;