乱数ロールプログラム

[SOS2改造]乱数ロールプログラム

概要

TRPGではダイスを振ることをロールすると言います。
というわけで乱数支援用のルーチンを2つ用意してみました。

ランダムロール

これは単に乱数を発生するだけですが、サブルーチン化すると便利……かもしれません。
少し多機能になっています。

ダイスロール

これは何面体ダイスを何回ロールしたか、という結果を出すことが出来ます。
洋ゲーやTRPG、某所Shattered Legacyなどで多用されている手法です：）

ランダムロール

サブルーチン

sub rnd_roll {
	$Roll  = int(rand($_[0] - $_[2])) + $_[1];
	$Roll -= $_[3];
	$Roll  = 0     if $Roll < 0;              # 戻り値の最低値を 0 と指定
	$Roll  = $_[1] if $_[1] && $Roll < $_[1]; # $b が代入された場合、その値を最低値と指定

	return($Roll);
}

リクワイア

$scalar = &rnd_roll($a,$b,$c,$d);

使い方

上記のリクワイアを記述することで実行します。
まず、各変数の説明が以下のようになります――

注意

戻り値の最低値は 0 と指定しています。
$b が代入された場合、その値を最低値と指定しています。
サブルーチン内のコメントアウトを参照してください。

ケーススタディ

$a = 100; only
$scalar = 0 〜 99;

$a = 100; $b = 1;
$scalar = 1 〜 100;

$a = 100; $b = 1; $c = 50;
$scalar = 1 〜 50;

$a = 100; $d = 50;
$scalar = 0 〜 49;

$a = 100; $b = 10; $d = 100;
$scalar = 10 〜 10;

ダイスロール

サブルーチン

sub dice_roll {
	if (!$_[0] || !$_[1]) { return('0') }

	$Dice = $Roll = 0;
	while ($Dice < $_[0]) { 
		$Roll += int(rand($_[1]));
		$Roll ++;
		$Dice ++;
	}
	$Roll += $_[2];

	return($Roll);
}

リクワイア

$scalar = &dice_roll($a,$b,$c);

使い方

上記のリクワイアを記述することで実行します。
まず、各変数の説明が以下のようになります――

ケーススタディ

ショートソード（1D6）
$scalar = &dice_roll(1,6);
$scalar = 1 〜 6;

ロングソード+1（1D8+1）
$scalar = &dice_roll(1,8,1);
$scalar = 2 〜 9;

カシナートの剣（1D3+9）
$scalar = &dice_roll(1,3,9);
$scalar = 10 〜 12;