jug7.com - sakura.cgi ソース

jug7.com
[ home / cgi / juggler / column / diary / bbs / link / welcome ]
source ：サクラ大戦

#!/usr/bin/perl
# サクラ大戦　シミュレーション

$cginame  = 'sakura.cgi';
$title    = 'サクラ大戦　シミュレーション';

$url_data   = '../simu_data_sakura.html';
$url_memo   = 'sakura_memo.html';
$url_source = 'sakura.html';


if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read (STDIN, $input, $ENV{'CONTENT_LENGTH'});
}
foreach $str (split(/&/,$input)) {
    ($name,$value) = split(/=/, $str);
    push(@input, $value);
}
($s, $play) = @input; # 設定, プレイ数

print "Content-Type: text/html\n\n";

$s = 1 if !$s;
$s = 2 if $s==6;  # 設定6はシミュ内では 2
$check[$s] = 'checked';

# ヘッダとフォームの表示
print <<"__ HTML __";
<!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'>
<font size=7><b><font face='Times New Roman,Times'>jug</font><font face='Bookman Old Style,arial black,Helvetica Black'>7</font><font face='Times New Roman,Times'>.com</font></b></font>
<hr color='#00aa00'>

<strong>[ <a href='../index.html'>home</a> / <a href='index.html'>cgi</a> / <a href='../jug/index.html'>juggler</a> / <a href='../column.html'>column</a> / <a href='../diary/index.html'>diary</a> / <a href='bbs.cgi'>bbs</a> / <a href='../link.html'>link</a> / <a href='../intro.html'>welcome</a> ]</strong>
<div align='center'><h2>$title</h2></div>
<hr width='70%'>
<div align='right'>[ <a href='$url_data'>data</a> / <a href='$url_memo'>memo</a> / <a href='$url_source'>source</a> ]</div>
<br><br><center>
<form action='$cginame' method='POST'>
<table border=0>
<tr><td>設定</td><td><input type='radio' name='s' value='1' $check[1]> 設定 1<input type='radio' name='s' value='2' $check[2]> 設定 6</td></tr>
<tr><td>試行ゲーム数</td><td><input type='text' size=10 name='play' maxlength=4 value='$play'></td></tr>
</table><br>
<input type='submit' value="開始">
<br><br>
<table border=0><tr><td>
赤7BIGは成立ゲームの1P後、青7BIGは成立ゲームの2P後、<br>
REGは成立ゲームの3P後に揃えるものとした。<br>
<br>
赤7BIGは純増370枚、青7BIGは純増275枚、REGは純増 96枚と固定した。
</td></tr></table>
</form></center>
__ HTML __


# エラーチェックと GET 送信
if ($play > 9999)   { $error = 1; $er_msg = 'プレイ数は最大9999Pまでです。'; }
if (!$play or !$s)  { $error = 1; $er_msg = '記入漏れがあります。'; }
if ($s!=1 && $s!=2) { $error = 1; $er_msg = '設定は 1 or 6 です。'; }
if (grep { /[^\d\.]/ } @input) { $error = 1; $er_msg = '不適切な文字が記入されています。'; };

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 "<div align='right'>[ <a href='$url_data'>data</a> / <a href='$url_memo'>memo</a> / <a href='$url_source'>source</a> ]</div>";
    print q{<strong>[ <a href='../index.html'>home</a> / <a href='index.html'>cgi</a> / <a href='../jug/index.html'>juggler</a> / <a href='../column.html'>column</a> / <a href='../diary/index.html'>diary</a> / <a href='bbs.cgi'>bbs</a> / <a href='../link.html'>link</a> / <a href='../intro.html'>welcome</a> ]</strong>};
    print '</body></html>';
    exit;
}


# data /65536
@red_big  = (98,116); $red_big  = $red_big[$s-1];
@blue_big = (98,116); $blue_big = $blue_big[$s-1];
@reg      = (75,80);  $reg      = $reg[$s-1];
$rep      = 8980;
$che      = 512;
$suika    = 512;
@bell     = (6030, 6100); $bell = $bell[$s-1];

print q{<table border=1 cellspacing=0 align='center' cellpadding=2><caption>シミュレーション結果</caption>},"\n";
print q{<tr align='center' bgcolor='#ffffcc'><td><font size=2>ゲーム数</font></td><td><font size=2>当選</font></td>};
print q{<td><font size=2>BIG<br>回数</font></td><td><font size=2>REG<br>回数</font></td>};
print q{<td><font size=2>投資</font></td><td><font size=2>コイン</font></td><td><font size=2>total<br>ゲーム数</font></td></tr>},"\n";


#---------------------------
#  シミュレート開始
#---------------------------
$g = $count = $coin = $k = $totalk = 0;
$red_big_count = $blue_big_count = $reg_count = 0;
$flag = $red_big_flag = $blue_big_flag = $reg_flag = 0;

while (1) {

    $g++; $count++;
    if ($coin < 3) { $coin += 50; $k++; $totalk++; }
    $coin -= 3;

    if ($wait) { $wait--; }

    $r = int(rand(65536)+1);
    if ($r <= $bell) { $coin += 15; next; }
    elsif ($r <= $bell+$rep) { $coin += 3; next; }
    elsif ($r <= $bell+$rep+$che) { $coin += 2; }
    elsif ($r <= $bell+$rep+$che+$suika) { $coin += 6; }
    elsif ($r <= $bell+$rep+$che+$suika+$red_big) { $flag = $red_big_flag = 1; $wait = 1; }
    elsif ($r <= $bell+$rep+$che+$suika+$red_big+$blue_big) { $flag = $blue_big_flag = 1; $wait = 2; }
    elsif ($r <= $bell+$rep+$che+$suika+$red_big+$blue_big+$reg) { $flag = $reg_flag = 1; $wait = 3; }

    if ($flag && $wait<=0) {
        $k = ($k > 0) ? $k .'k' : '　';

        if    ($red_big_flag)  { $get = '<font color=\'red\' face=\'Arial black\'><strong>777</strong></font>';  $coin += 370; $red_big_count++; }
        elsif ($blue_big_flag) { $get = '<font color=\'blue\' face=\'Arial black\'><strong>777</strong></font>'; $coin += 275; $blue_big_count++; }
        else                   { $get = '<strong>REG</strong>'; $coin += 96; $reg_count++; }

        $opt  = ($count < 100) ? "<b><font color='blue'>" : ($count >= 500) ? "<b><font color='red'>" : '';
        $opt2 = ($count < 100) ? "</font></b>"            : ($count >= 500) ? "</font></b>"           : '';

        $big_count = $red_big_count + $blue_big_count;
        if ($big_count) { $b_prob = int($g/$big_count+0.5); $b_prob = "(1/$b_prob)"; }
        if ($reg_count) { $r_prob = int($g/$reg_count+0.5); $r_prob = "(1/$r_prob)"; }

        print "<tr align='center'><td align='right'>$opt $count $opt2</td><td>$get</td>";
        print "<td><font color='blue'>$big_count</font> $b_prob</td><td><font color='blue'>$reg_count</font> $r_prob</td>";
        print "<td>$k</td><td>$coin</td><td>$g</td></tr>\n";

        $flag = $red_big_flag = $blue_big_flag = $reg_flag = $wait = $count = 0;
        $k='';
    }

    if ($g >= $play) {
        $k = ($k > 0) ? $k.'k' : '　';
        if ($big_count) { $b_prob = int($g/$big_count+0.5); $b_prob = "(1/$b_prob)"; }
        if ($reg_count) { $r_prob = int($g/$reg_count+0.5); $r_prob = "(1/$r_prob)"; }
        print "<tr align='center'><td align='right'>$count</td></td><td>ヤメ</td>";
        print "<td><font color='blue'>$big_count</font> $b_prob</td><td><font color='blue'>$reg_count</font> $r_prob</td>";
        print "<td>$k</td><td>$coin</td><td>$g</td></tr>\n";
        last;
    }
}

print '</table><br><br><br>';

# 結果の整理
$toushi = $totalk * 1000;
$kankin = int($coin*20);
$shushi = $kankin - $toushi;
$opt3   = ($shushi >= 0) ? 'blue' : 'red';
$payout = ($coin-($totalk*50))/($g*3)*100+100;
$payout = &point($payout,3);
if ($big_count) { $b_prob = &point(($g/$big_count),3); $b_prob = "(1/$b_prob)"; }
if ($reg_count) { $r_prob = &point(($g/$reg_count),3); $r_prob = "(1/$r_prob)"; }
if ($red_big_count)  { $red_b_prob  = &point(($g/$red_big_count),3);  $red_b_prob  = "(1/$red_b_prob)"; }
if ($blue_big_count) { $blue_b_prob = &point(($g/$blue_big_count),3); $blue_b_prob = "(1/$blue_b_prob)"; }

$t_bigget = $red_big_count*370 + $blue_big_count*275;
$coin1k = &point(($g*50/($t_bigget + $reg_count*96 + $totalk*50 - $coin)), 3);
$s_d = $s;
$s_d = 6 if $s_d==2;

# 整理した結果と再試行ボタン、フッタの表示
print <<"__ HTML __";
<table border=1 align='center' cellpadding=3 cellspacing=0>
<tr align='center' bgcolor='#ffffcc'><td colspan=2><b>サクラ大戦</b>　<b>設定 $s_d</font></td></tr>
<tr><td>プレイ数</td><td align='right'> $g P</td></tr>
<tr><td><b>BIG</b></td><td align='right'><b>$big_count 回 <font color='red'>$b_prob</font></td></tr>
<tr><td><b><font color='red' face='Arial black'>777</font></b></td><td align='right'><b>$red_big_count 回 <font color='red'>$red_b_prob</font></td></tr>
<tr><td><b><font color='blue' face='Arial black'>777</font></b></td><td align='right'><b>$blue_big_count 回 <font color='red'>$blue_b_prob</font></td></tr>
<tr><td><b>REG</b></td><td align='right'><b>$reg_count 回 <font color='red'>$r_prob</font></td></tr>
<tr><td>投資</td><td align='right'>$toushi 円</td></tr>
<tr><td>獲得</td><td align='right'>$coin 枚</td></tr>
<tr><td>換金</td><td align='right'>$kankin 円</td></tr>
<tr><td>PAYOUT</td><td align='right'><b>$payout %</b></td></tr>
<tr><td>1k当たり</td><td align='right'><b>$coin1k P</b></td></tr>
<tr><td>収支</td><td align='right'><font color='$opt3'><b>$shushi 円</b></font></td></tr>
</table></center>

<form action='$cginame' method='POST'>
<input type='hidden' name='s' value='$s'>
<input type='hidden' name='play' value='$play'>
<center><input type='submit' value='再試行'></center>
</form>

<br><br><br><br>
<div align='right'>[ <a href='$url_data'>data</a> / <a href='$url_memo'>memo</a> / <a href='$url_source'>source</a> ]</div>
<strong>[ <a href='../index.html'>home</a> / <a href='index.html'>cgi</a> / <a href='../jug/index.html'>juggler</a> / <a href='../column.html'>column</a> / <a href='../diary/index.html'>diary</a> / <a href='bbs.cgi'>bbs</a> / <a href='../link.html'>link</a> / <a href='../intro.html'>welcome</a> ]</strong>
</body></html>
__ HTML __

exit;

# 少数を四捨五入して指定の桁にする
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;
}
[ home / cgi / juggler / column / diary / bbs / link / welcome ]
source ： サクラ大戦

source ：サクラ大戦
