From e4319f885440af73f6e3e8ed5595d0ed653915fa Mon Sep 17 00:00:00 2001 From: Mirzaev Date: Thu, 10 Nov 2022 23:27:57 +1000 Subject: [PATCH] =?UTF-8?q?=D0=AD=D0=BA=D1=80=D0=B0=D0=BD=D0=B8=D1=80?= =?UTF-8?q?=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5,=20=D0=BF=D0=B5=D1=80?= =?UTF-8?q?=D0=B5=D0=BD=D0=BE=D1=81=20=D0=BF=D1=80=D0=BE=D0=B3=D1=80=D0=B0?= =?UTF-8?q?=D0=BC=D0=BC=20=D0=B2=20=D1=84=D0=B0=D0=B9=D0=BB=D1=8B,=20?= =?UTF-8?q?=D0=BD=D0=B0=D1=87=D0=B0=D0=BB=D0=BE=20=D1=80=D0=B0=D0=B7=D1=80?= =?UTF-8?q?=D0=B0=D0=B1=D0=BE=D1=82=D0=BA=D0=B8=20=D0=BA=D0=BD=D0=BE=D0=BF?= =?UTF-8?q?=D0=BE=D0=BA?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../system/programs/buttons_generator.php | 39 +++++ .../system/programs/character_escaping.php | 66 +++++++ .../system/programs/mentions_converter.php | 45 +++++ .../bobby/system/programs/reply_to_group.php | 69 ++++++++ .../bobby/system/programs/roleplay_action.php | 163 ++++++++++++++++++ .../robot/bobby/system/programs/variables.php | 43 +++++ 6 files changed, 425 insertions(+) create mode 100644 mirzaev/vk/robot/bobby/system/programs/buttons_generator.php create mode 100644 mirzaev/vk/robot/bobby/system/programs/character_escaping.php create mode 100644 mirzaev/vk/robot/bobby/system/programs/mentions_converter.php create mode 100644 mirzaev/vk/robot/bobby/system/programs/reply_to_group.php create mode 100644 mirzaev/vk/robot/bobby/system/programs/roleplay_action.php create mode 100644 mirzaev/vk/robot/bobby/system/programs/variables.php diff --git a/mirzaev/vk/robot/bobby/system/programs/buttons_generator.php b/mirzaev/vk/robot/bobby/system/programs/buttons_generator.php new file mode 100644 index 0000000..b498f8f --- /dev/null +++ b/mirzaev/vk/robot/bobby/system/programs/buttons_generator.php @@ -0,0 +1,39 @@ + + */ +class buttons_generator extends program +{ + /** + * Конструктор + * + * @param robot $robot Робот, который будет выполнять команду + * @param array $accounts Реестр аккаунтов которым разрешено выполнять команду + */ + public function __construct( + public robot $robot, + public array $accounts = [] + ) { + parent::__construct(function (core $core, robot $robot, array &$update, string ...$buttons): void { + var_dump($buttons); die; + }, $robot, $accounts); + } +} diff --git a/mirzaev/vk/robot/bobby/system/programs/character_escaping.php b/mirzaev/vk/robot/bobby/system/programs/character_escaping.php new file mode 100644 index 0000000..c784088 --- /dev/null +++ b/mirzaev/vk/robot/bobby/system/programs/character_escaping.php @@ -0,0 +1,66 @@ + + */ +class character_escaping extends program +{ + /** + * Конструктор + * + * @param callable $program Программа выполняемая командой + * @param robot $robot Робот, который будет выполнять команду + * @param array $accounts Реестр аккаунтов которым разрешено выполнять команду + */ + public function __construct( + public robot $robot, + public array $accounts = [] + ) { + parent::__construct(function (core $core, robot $robot, array &$update, string ...$text): void { + // Инициализация буфера текста + $buffer = ''; + + // Конвертация текста + foreach ($text as $part) $buffer .= mb_substr($part, 0, 1) === '\\' ? self::convert($part = mb_substr($part, 1)) : $part; + + // Запись текста из буфера в событие (для того, чтобы передать на выполнение следующим программам) + $update['object']['message']['text'] = $buffer; + }, $robot, $accounts); + } + + protected static function convert(string $text): string + { + // Инициализация буфера вывода + $buffer = ''; + + foreach ([mb_convert_encoding($text, 'UTF-32', 'UTF-8')] as $symbol) { + // Перебор символов + + $c = 0; + for ($i = 0; $i < 4; $i++) { + $c |= ord($symbol[$i]) << (8 * (3 - $i)); + } + + // Запись в буфер вывода + $buffer .= "&#" . $c . ";"; + } + + return $buffer; + } +} diff --git a/mirzaev/vk/robot/bobby/system/programs/mentions_converter.php b/mirzaev/vk/robot/bobby/system/programs/mentions_converter.php new file mode 100644 index 0000000..0982e5c --- /dev/null +++ b/mirzaev/vk/robot/bobby/system/programs/mentions_converter.php @@ -0,0 +1,45 @@ + + */ +class mentions_converter extends program +{ + /** + * Конструктор + * + * @param robot $robot Робот, который будет выполнять команду + * @param array $accounts Реестр аккаунтов которым разрешено выполнять команду + */ + public function __construct( + public robot $robot, + public array $accounts = [] + ) { + parent::__construct(function (core $core, robot $robot, array &$update): void { + // Конвертация упоминаний + $update['object']['message']['text'] = preg_replace_callback('/(*UTF8)(?=[^\[]+)[^\[]+|\[(id\d+)\|([^\]]+)\]/', fn (array $matches) => isset($matches[2]) ? '@' . $matches[1] . ' (' . $matches[2] . ')' : $matches[0] ?? $update['object']['message']['text'], $update['object']['message']['text'], 500); + }, $robot, $accounts); + } +} diff --git a/mirzaev/vk/robot/bobby/system/programs/reply_to_group.php b/mirzaev/vk/robot/bobby/system/programs/reply_to_group.php new file mode 100644 index 0000000..8bef535 --- /dev/null +++ b/mirzaev/vk/robot/bobby/system/programs/reply_to_group.php @@ -0,0 +1,69 @@ + + */ +class reply_to_group extends program +{ + /** + * Конструктор + * + * @param robot $robot Робот, который будет выполнять команду + * @param array $accounts Реестр аккаунтов которым разрешено выполнять команду + */ + public function __construct( + public robot $robot, + public array $accounts = [] + ) { + parent::__construct(function (core $core, robot $robot, array &$update): void { + if (isset($update['object']['message']['reply_message'])) { + // Найдено сообщение для ответа + + if ($update['object']['message']['reply_message']['from_id'] < 0) { + // Ответ на сообщение группы + + // Инициализация данных аккаунта отправителя + $sender = $robot->user()->get($update['object']['message']['from_id'], name_case: 'gen'); + + if ($update['object']['message']['reply_message']['from_id'] === -217012993) { + // Ответ на сообщение Бобби Мирзаева + + // Отправка сообщения с ролевым действием + $core->message($robot->message()->destination($update['object']['message']['peer_id'])->text("@club217012993 (Бобби) избил @id$sender->id ($sender->first_name) до полусмерти")->mentions(false)); + } else if ($update['object']['message']['reply_message']['from_id'] === -191417381) { + // Ответ на сообщение Шамиля Мирзаева + + // Отправка сообщения с ролевым действием + $core->message($robot->message()->destination($update['object']['message']['peer_id'])->text('Как дела, @club191417381 (брат)? Давай свалим отсюда?')->mentions(false)); + } else { + // Ответ на сообщение другой группы + + // Отправка сообщения с ролевым действием + $core->message($robot->message()->destination($update['object']['message']['peer_id'])->text('@club' . $update['object']['message']['reply_message']['from_id'] . ' (Слышь), здристни отсюда')->mentions(false)); + } + + // Завершение выполнения команд + $core->break(); + + return; + } + } + }, $robot, $accounts); + } +} diff --git a/mirzaev/vk/robot/bobby/system/programs/roleplay_action.php b/mirzaev/vk/robot/bobby/system/programs/roleplay_action.php new file mode 100644 index 0000000..6f16aa1 --- /dev/null +++ b/mirzaev/vk/robot/bobby/system/programs/roleplay_action.php @@ -0,0 +1,163 @@ + + */ +class roleplay_action extends program +{ + /** + * Конструктор + * + * @param robot $robot Робот, который будет выполнять команду + * @param array $accounts Реестр аккаунтов которым разрешено выполнять команду + */ + public function __construct( + public robot $robot, + public array $accounts = [] + ) { + parent::__construct(function (core $core, robot $robot, array &$update, string $original, string $text = ''): void { + try { + // Инициализация длины сообщения + $original_length = strlen($update['object']['message']['text']); + + // Инициализция длины распознанных команд + $command_length = strlen($text) + 2; // +2 это два символа "*" - особенность регулярного выражения + if (!empty($buttons)) $command_length += strlen($buttons); + if (!empty($parameters)) $command_length += strlen($parameters); + + // Удаление сообщения, если в нём нет лишнего текста + if ($original_length === $command_length) $robot->message()->delete($update['object']['message']['conversation_message_id'], $update['object']['message']['peer_id']); + } catch (Exception $e) { + } + + if (empty($text = trim($text))) { + // Пустой текст сообщения + + // Инициализация данных аккаунта отправителя + $sender = $robot->user()->get($update['object']['message']['from_id']); + + // Инициализация сообщения с ролевым действием + $core->message($robot->message()->destination($update['object']['message']['peer_id'])->text("@id$sender->id ($sender->first_name) тупит")->disable_mentions(true)); + + return; + } + + // Инициализация индикаторов наличия изменённого псевдонима у получателя и отпрвителя + $sender_changed = $receiver_changed = false; + + // Инициализация псевдонима получателя + $receiver_alias = ''; + + if (isset($update['object']['message']['reply_message'])) { + // Найдено сообщение для ответа + + // Инициализация данных аккаунта получателя + $receiver = $robot->user()->get($update['object']['message']['reply_message']['from_id']); + + if (isset($receiver)) { + // Найден получатель + + // Обработка падежа получателя + $text = preg_replace_callback('/(*UTF8)^(.*)\|([^$]+)$/', function (array $matches) use ($text, &$receiver_alias, $receiver): string { + // Инициализация псевдонима отправителя + $alias = preg_replace('/\)/', ')', $matches[2], 300); + + // Инициализация псевдонима получателя + $receiver_alias = " @id$receiver->id ($receiver->first_name" . (empty($alias) ? '' : $alias) . ')'; + + return $matches[1] ?? $matches[0] ?? $text; + }, $text, 1); + + if (empty($receiver_alias)) { + // Не найден псевдоним получателя + + // Обработка псевдонима получателя + $text = preg_replace_callback('/(*UTF8)^(.*)\(([^\)]*)\)$/', function (array $matches) use ($text, &$receiver_alias, $receiver): string { + // Инициализация псевдонима отправителя + $alias = preg_replace('/\)/', ')', $matches[2], 300); + + // Инициализация псевдонима получателя + $receiver_alias = " @id$receiver->id (" . (empty($alias) ? $receiver->first_name : $alias) . ')'; + + return $matches[1] ?? $matches[0] ?? $text; + }, $text, 1); + } + } + + // Проверка на пустого получателя + if (empty(trim($receiver_alias))) { + // Пустой текст получателя + + // Реинициализация текста получателя + $receiver_alias = " @id$receiver->id ($receiver->first_name)"; + } else $receiver_changed = true; + } + + // Инициализация псевдонима отправителя + $sender_alias = ''; + + // Инициализация данных аккаунта отправителя + $sender = $robot->user()->get($update['object']['message']['from_id']); + + // Обработка падежа отправителя + $text = preg_replace_callback('/(*UTF8)^\|([^\s]+)(.*)$/', function (array $matches) use ($text, $sender, &$sender_alias): string { + // Инициализация псевдонима отправителя + $alias = preg_replace('/\)/', ')', $matches[1], 300); + + // Инициализация ссылки на отправителя + $sender_alias = "@id$sender->id ($sender->first_name" . (empty($alias) ? '' : $alias) . ') '; + + return $matches[2] ?? $matches[0] ?? $text; + }, $text, 1); + + if (empty($sender_alias)) { + // Не найден псевдоним отправителя + + // Обработка псевдонима отправителя + $text = preg_replace_callback('/(*UTF8)^\(([^\)]*)\)(.*)$/', function (array $matches) use ($text, $sender, &$sender_alias): string { + // Инициализация псевдонима отправителя + $alias = preg_replace('/\)/', ')', $matches[1], 300); + + // Инициализация ссылки на отправителя + $sender_alias = "@id$sender->id (" . (empty($alias) ? $sender->first_name : $alias) . ') '; + + return $matches[2] ?? $matches[0] ?? $text; + }, $text, 1); + } + + if (empty(trim($sender_alias))) { + // Пустой текст отправителя + + // Реинициализация текста отправителя + $sender_alias = "@id$sender->id ($sender->first_name) "; + } else $sender_changed = true; + + // Удаление команд падежей из строки + $text = preg_replace('/(*UTF8)\|[А-яё\w]+/', '', $text, 500); + + // Инициализация сообщения с ролевым действием + if (empty($text = trim($text)) && !$sender_changed && !$receiver_changed) $core->message($robot->message()->destination($update['object']['message']['peer_id'])->text("@id$sender->id ($sender->first_name) тупит")->mentions(false)); + else $core->message($robot->message()->destination($update['object']['message']['peer_id'])->text("$sender_alias$text$receiver_alias")->mentions(false), 'roleplay_action'); + }, $robot, $accounts); + } +} diff --git a/mirzaev/vk/robot/bobby/system/programs/variables.php b/mirzaev/vk/robot/bobby/system/programs/variables.php new file mode 100644 index 0000000..83b9cf9 --- /dev/null +++ b/mirzaev/vk/robot/bobby/system/programs/variables.php @@ -0,0 +1,43 @@ + + */ +class variables extends program +{ + /** + * Конструктор + * + * @param callable $program Программа выполняемая командой + * @param robot $robot Робот, который будет выполнять команду + * @param array $accounts Реестр аккаунтов которым разрешено выполнять команду + */ + public function __construct( + public robot $robot, + public array $accounts = [] + ) { + parent::__construct(function (core $core, robot $robot, array &$update, string ...$text): void { + + }, $robot, $accounts); + } +}