Diary/2019-6-2

 褌を借りた[TRPG支援チャット]

一から創るのは力不足を感じて、おなじみKENTさんのKENT-WEBから comchat をベースにして改造してみた。弄ったのは、init.cgiで、書き加えたのは↓

# 改変 by 泰司
my ( $a,$b,$c,$d,$i) ;
$_ = $val ;
$a = m/(\d)[d|D](\d+)/ ;

if ($a!=0){
  $b="";
  $d=0; 
  for ($i=0;$i<$1;++$i){
    if($i>0){ $b = "$b + "; }
    $c = int(rand($2) + 1) ;
    $d += $c;
    $b = "$b ( $c )";
  }
  $val = "$d = $b $val" ;
}

メッセージに"3d6" と入れるとコメントの冒頭に降った場合の値が追加表示される。"+"および"-"の増減はまだ非対応です。発動キーは数字の間に小文字の"d"にして、大文字の"D"はスルーさせました。両方で実行したい場合は

$a = m/(\d)d(\d+)/ ;

と、なっているのを

$a = m/(\d)[d|D](\d+)/ ;

へ書き換えてください。