source ： スーパーリノ
#!/usr/bin/perl
# スーパーリノ シミュレーション
$cginame = "s_reno.cgi";
$title = "スーパーリノ シミュレーション";
# データRT振り分け / 総数は 256
$st[1] = '8,133,8,10,20,20,5,5,3,4,5,6,7,7,7,8';
$st[2] = '8,137,8,10,20,20,5,5,3,4,5,6,6,6,6,7';
$st[3] = '8,141,8,10,20,20,5,5,3,4,5,6,5,5,5,6';
$st[4] = '8,145,8,10,20,20,5,5,3,4,5,6,4,4,4,5';
$st[5] = '8,149,8,10,20,20,5,5,3,4,5,6,3,3,3,4';
$st[6] = '8,153,8,10,20,20,5,5,3,4,5,6,2,2,2,3';
print "Content-Type: text/html\n\n";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read (STDIN, $input, $ENV{'CONTENT_LENGTH'});
foreach ( split(/&/,$input) ) {
($name,$value) = split(/=/, $_);
push(@input, $value);
}
($s, $play, $s_big, $s_reg, $int) = @input;
@tbl = split(/,/, $st[$s]);
$block= '0 4 5 9 17 49 57 89 153 217 281 345 409 473 537 601 857'; # データ RTプレイ数
@blk=split(/ /,$block);
}
$int = 0 if !$int;
$int_chk[$int] = 'checked';
# ヘッダとフォームの表示
print <<"__ FORM __";
<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>
<html lang='ja'>
<head>
<meta http-equiv='Content-Type' content="text/html; charset=shift_jis">
<title>jug7.com - cgi $title</title>
<style type="text/css"> <!--
A:hover {color:#ff0000;}
--></style>
</head>
<body text='#000000' bgcolor='#ffffff' link='#0000ff' alink='#ff0000' vlink='#0000cc'>
<div align='right'>[ <a href='../simu_data_s-reno.html'>data</a> / <a href='s_reno_memo.html'>memo</a> / <a href='s_reno.html'>source</a> / <a href='../index.html'>home</a> ]</div>
<br><br>
<div align='center'><h2>$title</h2></div>
<hr width='70%'><center>
<form action='$cginame' method='POST'>
<table border=0>
<tr><td>設定</td><td><input type='text' maxlength=1 name='s' size=14 value='$s'></td></tr>
<tr><td>試行ゲーム数</td><td><input type='text' size=14 name='play' maxlength=4 value='$play'></td></tr>
<tr><td>最初のストック数</td><td>B <input type='text' size=2 name='s_big' maxlength=2 value='$s_big'>
R <input type='text' size=2 name='s_reg' maxlength=2 value='$s_reg'></td></tr>
<tr><td><font size=2>内部ボーナス<br>の表\示</font></td>
<td><input type='radio' name='int' value=0 $int_chk[0]> 無 <input type='radio' name='int' value=1 $int_chk[1]> 有</td></tr>
</table><br>
<input type='submit' value="開始">
</form>
<font size=2>設定は 1 〜 6 までの数値を入力。<br>
ストック数は合計 56個まで。</font><br>
</center><br><br>
__ FORM __
# エラーチェックとGET送信
if ($play > 9999) { $error = 1; $er_msg = 'プレイ数は最大9999Pまでです。'; }
if (!$s or !$play) { $error = 1; $er_msg = '記入漏れがあります。'; }
if ($s<=0 or $s>6) { $error = 1; $er_msg = '設定は 1 から 6 までです。'; }
if (grep { /[^\d]/ } ($play, $s_big, $s_reg)) { $error = 1; $er_msg = '不適切な文字が記入されています。'; };
$total_stock = $s_big + $s_reg;
if ($total_stock > 56) { $error = 1; $er_msg = 'ストック数は合計56個までです。'; }
if ($ENV{'REQUEST_METHOD'} ne 'POST') { $error = 1; $er_msg = 0; }
if ($er_msg) {
print q{<center><b><font color='red' size=4>*** ERROR !! ***</font><br><br>},"\n";
print "$er_msg</b></center>\n";
}
if ($error) {
print '<br><br><br><br><br>';
print q{<div align='right'>[ <a href='../simu_data_s-reno.html'>data</a> / <a href='s_reno_memo.html'>memo</a> / <a href='s_reno.html'>source</a> / <a href='../index.html'>home</a> ]</div>};
exit;
}
# 最初のストック
$s_big = 0 if !$s_big;
$s_reg = 0 if !$s_reg;
for (1..$s_big) { push(@bonus,"B"); }
for (1..$s_reg) { push(@bonus,"R"); }
while (@bonus) { push( @new_bonus, splice(@bonus,rand(@bonus),1) ); }
@bonus = @new_bonus;
$rt = ($start) ? $start: &rt;
# 通常時小役データ 総数は 16384
@big = (54,58,62,66,68,68);
$bigr = $big[$s-1];
@reg = (27,29,31,33,37,45);
$regr = $reg[$s-1];
@lemon = (1460,1460,1460,1460,1500,1550);
$lemon = $lemon[$s-1];
$che2 = 1000; $che4 = ''; $che8 = ''; # 振り分け不明不明
$rep = 2245; @reprt = (13842,13836,13830,13824,13778,13720); $reprt = $reprt[$s-1];
$bigget = 382.646;
$regget = 15+112;
print <<"__ TBL __";
<br><br><table border=1 align='center' cellspacing=0><caption>シミュレーション結果</caption>
<tr align='center' bgcolor='#ffffcc'><td><font size=2>ゲーム数</font></td><td><font size=2>当選</font></td>
<td><font size=2>備考</font></td><td><font size=2>次のRT</font></td><td><font size=2>BIG<br>回数</font></td>
<td><font size=2>REG<br>回数</font></td><td><font size=2>ストック数</font></td><td><font size=2>投資</font></td>
<td><font size=2>コイン</font></td><td><font size=2>総ゲーム数</font></td></tr>
__ TBL __
#--------------------
# シミュレート開始
#--------------------
$g = $count = $bigcount = $regcount = $coin = 0; $msg=' ';
while (1) {
$g++; $count++;
if ($coin < 3) { $coin += 50; $k++; $totalk++; }
$coin -= 3;
# 規定RT消化
$rt_cancel = 1 if ($rt<=$count && $bonus[0]);
$repr = ($bonus[0]) ? $reprt : $rep;
$r = int(rand(16384)+1);
if ($r<=$bigr && $#bonus<55) { # BIG
if (!$bonus[0]) { $rt = $rt_d = &rt; $rt += $count; } else { $rt_d = ' '; }
push(@bonus, 'B'); $s_big++;
if ($int) {
print "<tr align='right' bgcolor='#eeefef'><td>( $count )</td><td><font size=2>内部 777</font></td>";
print "<td> </td><td>$rt_d</td><td> </td><td> </td><td>B $s_big R $s_reg</td>";
print "<td> </td><td> </td><td>$g</td></tr>\n";
}
} elsif ($r<=($bigr+$regr) && $#bonus<55) { # REG
if (!$bonus[0]) { $rt = $rt_d = &rt; $rt += $count; } else { $rt_d = ' '; }
push(@bonus, 'R'); $s_reg++;
if ($int) {
print "<tr align='right' bgcolor='#eeefef'><td>( $count )</td><td><font size=2>内部 REG</font></td>";
print "<td> </td><td>$rt_d</td><td> </td><td> </td><td>B $s_big R $s_reg</td>";
print "<td> </td><td> </td><td>$g</td></tr>\n";
}
} elsif ($r <= ($bigr+$regr+$repr)) { # replay
if (!$bonus[0]) {
$coin += 3; next;
} else {
$r = int(rand(16)+1); # 3/16 で揃うリプレイ
if ($r <= 3) { $coin += 3; next; }
}
} elsif ($r <= ($bigr+$regr+$repr+$lemon)) { $coin += 10; next; } # lemon
elsif ($r <= ($bigr+$regr+$repr+$lemon+$che2)){ $coin += 2; } # cherry
else { # haz
if ($bonus[0]) { $rt_cancel = 1; $msg = '<font size=2>純ハズレ解除</font>'; }
}
# bonus 放出
if ($rt_cancel) {
$rt_cancel = 0;
if ($bonus[0] eq 'B') {
$bigcount++; $coin += $bigget; $s_big--; shift(@bonus);
$get = '<font color=\'red\' face=\'Arial black\'><b>777</b></font>';
} else {
$regcount++; $coin += $regget; $s_reg--; shift(@bonus);
$get = '<b>REG</b>';
}
$rt = ($bonus[0]) ? &rt : ' '; # 次のRTを決定
$opt = ($count < 128) ? '<b><font color=\'blue\'>' : ($count >= 500) ? '<b><font color=\'red\'>' : '';
$opt2 = ($count < 128) ? '</font></b>' : ($count >= 500) ? '</font></b>' : '';
$k = ($k > 0) ? $k.'k' : ' ';
$coin_d = int($coin);
if ($bigcount) { $b_prob = int($g/$bigcount+0.5); $b_prob = "(1/$b_prob)"; }
if ($regcount) { $r_prob = int($g/$regcount+0.5); $r_prob = "(1/$r_prob)"; }
print "<tr align='right'><td>$opt $count $opt2</td><td>$get</td><td>$msg</td><td>$rt</td><td>";
print "<font color='blue'>$bigcount</font> $b_prob</td><td><font color='blue'>$regcount</font> $r_prob</td>";
print "<td>B $s_big R $s_reg</td><td>$k</td><td>$coin_d</td><td>$g</td></tr>\n";
$k = ''; $count = 0; $msg = ' ';
}
if($g >= $play) {
$k = ($k > 0) ? $k.'k' : ' ';
$coin_d = int($coin);
if ($bigcount) { $b_prob = int($g/$bigcount+0.5); $b_prob = "(1/$b_prob)"; }
if ($regcount) { $r_prob = int($g/$regcount+0.5); $r_prob = "(1/$r_prob)"; }
print "<tr align='right'><td>$count</td><td>ヤメ</td><td> </td><td> </td><td>";
print "<font color='blue'>$bigcount</font> $b_prob</td><td><font color='blue'>$regcount</font> $r_prob</td>";
print "<td>B $s_big R $s_reg</td><td>$k</td><td>$coin_d</td><td>$g</td></tr>\n";
last;
}
}
# シミュデータの整理
$coin = int($coin);
$toushi = $totalk * 1000;
$kankin = $coin * 20;
$shushi = $kankin - $toushi;
$opt3 = ($shushi >= 0) ? 'blue' : 'red';
$payout = ($coin-($totalk * 50))/($g * 3)*100+100;
$payout = &point($payout,2);
if ($bigcount) { $b_prob = &point(($g/$bigcount),2); $b_prob = "(1/$b_prob)"; }
if ($regcount) { $r_prob = &point(($g/$regcount),2); $r_prob = "(1/$r_prob)"; }
$start = $rt - $count;
# 整理したデータ、再試行ボタン、フッタの表示
print <<"__ RESULT __";
</table><br><br>
<table border=1 align='center' cellspacing=0>
<tr align='center' bgcolor='#ffffcc'><td colspan=2><b>スーパーリノ 設定 $s</b></b></td></tr>
<tr><td>総プレイ数</td><td align='right'>$g P</td></tr>
<tr><td>BIG</td><td align='right'><b>$bigcount $b_prob</b></td></tr>
<tr><td>REG</td><td align='right'><b>$regcount $r_prob</b></td></tr>
<tr><td>投資</td><td align='right'>$toushi 円</td></tr>
<tr><td>獲得枚数</td><td align='right'><b>$coin_d 枚</b></td></tr>
<tr><td>換金</td><td align='right'>$kankin 円</td></tr>
<tr><td>収支</td><td align='right'><font color='$opt3'><b>$shushi 円</b></font></td></tr>
<tr><td>PAYOUT</td><td align='right'><b>$payout %</b></td></tr>
</table>
<br><br><table border=0 align='center' cellspacing=5>
<tr valign='bottom'><td>
<form action='$cginame' method='POST'>
<input type='hidden' name='s' value='$s'>
<input type='hidden' name='play' value='$play'>
<input type='hidden' name='s_big' value='$s_big'>
<input type='hidden' name='s_reg' value='$s_reg'>
<input type='hidden' name='int' value='$int'>
<input type='submit' value="再試行">
</form></td><td>
<form action='$cginame' method='POST'>
<input type='hidden' name='s' value='$s'>
<input type='hidden' name='play' value='$play'>
<input type='hidden' name='s_big' value='$s_big'>
<input type='hidden' name='s_reg' value='$s_reg'>
<input type='hidden' name='int' value='$int'>
<input type='hidden' name='start' value='$start'>
<input type='submit' value="再試行2（据え置き）">
</form></td></tr></table>
<br><br><br><br>
<div align='right'>[ <a href='../simu_data_s-reno.html'>data</a> / <a href='s_reno_memo.html'>memo</a> / <a href='s_reno.html'>source</a> / <a href='../index.html'>home</a> ]</div>
</body></html>
__ RESULT __
exit;
sub rt { # RT 決定
local($i,$r,$rt,$x);
$i = 0; $x = $tbl[0];
$r = int(rand(256)+1);
while ($r > $x) { $i++; $x += $tbl[$i]; }
$rt = &rtset($blk[$i], $blk[$i+1]);
return $rt;
}
sub rtset { # 引数2つの間のランダムな整数を返す
local($y,$r,$a,$b);
($a,$b) = @_;
$y = $b - $a;
$r = int(rand($y)+1) + $a;
return $r;
}
# 少数を四捨五入して指定の桁にする
sub point {
my($value, $fig, $x);
($value, $fig) = @_;
$value = int($value * (10 ** $fig) + 0.5) / (10 ** $fig);
if ($value =~ /(\d+)\.(\d+)/) { $x = $2; }
elsif ($value !~ /\./) { $x =''; $value .= '.'; }
$value = $value.'0' x ( $fig - length($x) );
return $value;
}