11/01/11 19:26:22
>>215
そういや、Perlもそんな記法だったっけ。
一応、Windows PowerShell をイメージして書いた。($が変数、#がコメント)
#--------------------------------
#ダイスロールを行う関数を作成
function dice( [int]$diceCount, [int]$diceType )
{
$rnd = new-object random;
$result = [int]0;
for( $i=[int]0; $i -lt $diceCount; $i++ ){ $result += $rnd.next( $diceType ) + [int]1; }
return( $result );
}
#特定のダイス個数・ダイス面数でダイスロールを行う関数を作成
function judge { return( dice 2 6 ); }
#頻出する判定値の登録
function hit { return( ( judge ) + ( [int]18 ) ); } #【命中】18を判定値とするジャッジを登録
function atk { return( ( judge ) + ( [int]30 ) ); } #【攻撃】30を判定値とするジャッジを登録
#ダイスロールの実行
hit #【命中】ジャッジの実行
atk #【攻撃】ジャッジの実行
#--------------------------------
ちゃんと書くとこんな感じ。多分。