はい、爆裂AT機のミリオンゴッドです。
一度 GOD中GOD ってのをやってみたかったですね。

しかし、打ってる時は、千円がただの紙くずに思えた機種。


ソースですが、ぐっちゃぐちゃです。後からどんどん変数を付け加えていったので…。



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

    # GG の即発動 ( PGG,SGG, rep4連 、その他全てのGG発動)
    if ($soku && !$gg_on) { # $soku=1; 発動。
        $gg_on = 1; $soku = 0; 
        god game 発動 の表示
    }

    # 通常時、GG時の小役抽選
    $r = int(rand(32768)+1);
    if ($r <= $rep) { # replay
        if ($gg_on) {
            $gg_replay = 1; GG中リプ3連について
        } else {
            $replay = 1;    通常時リプ4連について
        }
    } elsif ($r <= $pggr) { # PGG
        $soku = 1;  PGGは次ゲーム即発動
    } elsif ($r <= $sggr) { # SGG
        $soku = 1;  SGGは次ゲーム即発動
    } elsif ($r <= $hazr) { # 純ハズレ
        GG 中ならストック放出抽選
    } else { # 15枚役
        if ($gg_on) {
            $coin += 15; # GG中ならコイン+15枚
        } else {
            $r15 = int(rand(256)+1);
            if ($r15 <= $c15s[0]) { # 順押し
                コイン+15枚、ストックの放出、天井
            } elsif ($r15 <= ($c15s[0]+$c15s[1])) { # 逆押し
                逆押し15枚選択時のGG回数の決定
            }
        }
    }
    if ($fire && !$gg_on) { # 逆押し15枚で成立したGGの発動抽選。
        発動プレイ数抽選
    }

    # リプレイ連続当選カウンタ。連続でない場合、0 に戻す。
    $rep_c  = 0 if (!$gg_on && !$replay && ($count>=50 or !$ggcount));
    $ggrep_c= 0 if (!$gg_replay && $gg_on);

    # GG中は $ggplay=50 にセットし、毎ゲーム1ずつ減らしていく。（PGGは$ggplay+=500）
    $ggplay-- if ($gg_on);
    if ($ggplay == '-1' && $gg_on) {
        GG 終了 の表示
    }

    # mode 移行
    if ($r<=$mt[$mode] && !$gg_on) {
        GG中でなければ、モード移行を行う
    }

    # 表示
    if ($flag) {
        表示がある場合は $flag=1 となるので、ここで表示。
    }

    $replay = 0; $gg_replay = 0;

    if (…) {
        GG終了後、潜伏していれば発動抽選。（G-zone中のやつね）
    }
}





ちなみに、このソースは juou.cgi （獣王のシミュ）を基本部分を元に作ったので
獣王のシミュと同じバグがあります。

上記ソースの通り、1Pでの表示は1つしかできないため、

 　"(プレイ数) god game 発動"

 と、GG発動を表示するプレイで、別の表示があると（例えば PGG,SGG, GG中rep3連 など）

 　"(プレイ数) GG中rep3連 …"

のように god game 発動の表示が消えてしまいます。
内部的には GG 発動しているし、 GG のカウンタ $ggcount も +1 されているので
問題ないんですけど。