管理モメンが配布したファイルの「光の部分」を使ってrmj機能を手軽に実装したりってできないの？🥺 (73)

19 野に咲く名無し@転載禁止 2023/10/04 13:47:39 ID:H94yjEq4

omikujiの機能利用してるから同等の機能あればできるよ
delightly-v2forkのcommands.phpにomikujiないけど
rmj1からrmj20まで定義されてるだけ

#------------------------------------------------------------------------------------------------------------
# ランダム文字機能
#------------------------------------------------------------------------------------------------------------
sub RANDMOJI

my ($Sys, $Form, $msgmode) = @_;
my (@results,$count);

my $input = $msgmode ? $Form->Get('MESSAGE') : $Form->Get('FROM');

if ($input =~ s/!rmj1?[:"']((?:[\/:"']+\/)+[\/:"']+)[:"']([dm])?/!rmj1/g) {
my @results = split /\//, $1;
$count = @results;
my $fix = $2 ? $2 : '';
if ($fix) {
$fix = SID_FIX($Sys, $Form, $fix, $count);
$input =~ s|!rmj1(?!\d)|!b_st$results[$fix]!b_end|g;
else
$input =~ s|!rmj1(?!\d)|!b_st$results[int rand($count)]!b_end|g;

}



# my $b_st = $msgmode ? '<b>' : '</b>【';
my $b_st = $msgmode ? '' : '</b>【';
# my $b_end = $msgmode ? '</b>' : '】<b>';
my $b_end = $msgmode ? '' : '】<b>';
$input =~ s|!b_st|$b_st|g;
$input =~ s|!b_end|$b_end|g;
$input =~ s|(<b>[/])<b>|$1|g;
$input =~ s/(【[】])【/$1/g if !$msgmode;
$input =~ s/(】[^【]*)】/$1/g if !$msgmode;

return $input
}