Экранирование, перенос программ в файлы, начало разработки кнопок
This commit is contained in:
parent
395c90f64c
commit
e4319f8854
|
|
@ -0,0 +1,39 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
declare(strict_types=1);
|
||||||
|
|
||||||
|
namespace mirzaev\vk\robot\bobby\programs;
|
||||||
|
|
||||||
|
// Фреймворк ВКонтакте
|
||||||
|
use mirzaev\vk\robots\robot;
|
||||||
|
|
||||||
|
// Модуль чат-робота для фреймворка ВКонтакте
|
||||||
|
use mirzaev\vk\chat\core,
|
||||||
|
mirzaev\vk\chat\program;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Программа: "генератор кнопок"
|
||||||
|
*
|
||||||
|
* Обрабатывает "[название|авторизованные|*ролевое действие*] в кнопку и
|
||||||
|
* соответствующее ей действие или сообщение, в зависимости от параметров
|
||||||
|
*
|
||||||
|
* @package mirzaev\vk\robot\bobby\programs
|
||||||
|
* @author Arsen Mirzaev Tatyano-Muradovich <arsen@mirzaev.sexy>
|
||||||
|
*/
|
||||||
|
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);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,66 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
declare(strict_types=1);
|
||||||
|
|
||||||
|
namespace mirzaev\vk\robot\bobby\programs;
|
||||||
|
|
||||||
|
// Фреймворк ВКонтакте
|
||||||
|
use mirzaev\vk\robots\robot;
|
||||||
|
|
||||||
|
// Модуль чат-робота для фреймворка ВКонтакте
|
||||||
|
use mirzaev\vk\chat\core,
|
||||||
|
mirzaev\vk\chat\program;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Программа: "экранирование символов"
|
||||||
|
*
|
||||||
|
* Находит символ "\" и конвертирует следующий за ним в HTML-код
|
||||||
|
*
|
||||||
|
* @package mirzaev\vk\robot\bobby\programs
|
||||||
|
* @author Arsen Mirzaev Tatyano-Muradovich <arsen@mirzaev.sexy>
|
||||||
|
*/
|
||||||
|
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;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,45 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
declare(strict_types=1);
|
||||||
|
|
||||||
|
namespace mirzaev\vk\robot\bobby\programs;
|
||||||
|
|
||||||
|
// Фреймворк ВКонтакте
|
||||||
|
use mirzaev\vk\robots\robot;
|
||||||
|
|
||||||
|
// Модуль чат-робота для фреймворка ВКонтакте
|
||||||
|
use mirzaev\vk\chat\core,
|
||||||
|
mirzaev\vk\chat\program;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Программа: "конвертер упоминаний"
|
||||||
|
*
|
||||||
|
* Принцип работы:
|
||||||
|
*
|
||||||
|
* 1. Пользователь отправляет: "@id123456789 (Имя)"
|
||||||
|
* 2. Сервер получает: "[id123456789|Имя]"
|
||||||
|
* 3. Программа конвертирует: "[id123456789|Имя]" в "@id123456789 (Имя)"
|
||||||
|
*
|
||||||
|
* Это нужно для того, чтобы упоминание понял препроцессор ВКонтакте
|
||||||
|
*
|
||||||
|
* @package mirzaev\vk\robot\bobby\programs
|
||||||
|
* @author Arsen Mirzaev Tatyano-Muradovich <arsen@mirzaev.sexy>
|
||||||
|
*/
|
||||||
|
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);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,69 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
declare(strict_types=1);
|
||||||
|
|
||||||
|
namespace mirzaev\vk\robot\bobby\programs;
|
||||||
|
|
||||||
|
// Фреймворк ВКонтакте
|
||||||
|
use mirzaev\vk\robots\robot;
|
||||||
|
|
||||||
|
// Модуль чат-робота для фреймворка ВКонтакте
|
||||||
|
use mirzaev\vk\chat\core,
|
||||||
|
mirzaev\vk\chat\program;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Программа: "ответ группе"
|
||||||
|
*
|
||||||
|
* Обрабатывает ответ напрвленный не пользователю, а группе
|
||||||
|
*
|
||||||
|
* @package mirzaev\vk\robot\bobby\programs
|
||||||
|
* @author Arsen Mirzaev Tatyano-Muradovich <arsen@mirzaev.sexy>
|
||||||
|
*/
|
||||||
|
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);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,163 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
declare(strict_types=1);
|
||||||
|
|
||||||
|
namespace mirzaev\vk\robot\bobby\programs;
|
||||||
|
|
||||||
|
// Фреймворк ВКонтакте
|
||||||
|
use mirzaev\vk\robots\robot;
|
||||||
|
|
||||||
|
// Модуль чат-робота для фреймворка ВКонтакте
|
||||||
|
use mirzaev\vk\chat\core,
|
||||||
|
mirzaev\vk\chat\program;
|
||||||
|
|
||||||
|
// Встроенные библиотеки
|
||||||
|
use Exception;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Программа: "ролевое действие"
|
||||||
|
*
|
||||||
|
* Удаляет запрос и отправляет в чат выполняемое действие.
|
||||||
|
* Можно использовать псевдонимы и падежи
|
||||||
|
*
|
||||||
|
* @package mirzaev\vk\robot\bobby\programs
|
||||||
|
* @author Arsen Mirzaev Tatyano-Muradovich <arsen@mirzaev.sexy>
|
||||||
|
*/
|
||||||
|
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);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,43 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
declare(strict_types=1);
|
||||||
|
|
||||||
|
namespace mirzaev\vk\robot\bobby\programs;
|
||||||
|
|
||||||
|
// Фреймворк ВКонтакте
|
||||||
|
use mirzaev\vk\robots\robot;
|
||||||
|
|
||||||
|
// Модуль чат-робота для фреймворка ВКонтакте
|
||||||
|
use mirzaev\vk\chat\core,
|
||||||
|
mirzaev\vk\chat\program;
|
||||||
|
|
||||||
|
// Встроенные библиотеки
|
||||||
|
use Closure,
|
||||||
|
Exception;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Программа: "переменные"
|
||||||
|
*
|
||||||
|
* Обрабатывает (название: значение) в переменные хранимые в ядре
|
||||||
|
*
|
||||||
|
* @package mirzaev\vk\robot\bobby\programs
|
||||||
|
* @author Arsen Mirzaev Tatyano-Muradovich <arsen@mirzaev.sexy>
|
||||||
|
*/
|
||||||
|
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);
|
||||||
|
}
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue