「乙女アタック簡易体験版」の編集履歴（バックアップ）一覧はこちら

「乙女アタック簡易体験版」の最新版変更点

追加された行はこの色になります。

削除された行はこの色になります。

 ■■乙女アタック簡易体験版：制作＠115スレ「68MgF9/y」氏
 ＋乙女アタック検証スクリプト
 ＋ケンシンの連チャン数検証スクリプト
 
 
 ■遊び方（要PC。携帯の人は泣いて下さい）
 以下のVer.１～４の好きなものをメモ帳などのテキストエディタにコピペして拡張子vbsで保存（例：乙女アタック.vbs）
 保存したファイル（VBScript Script File）をダブルクリックでゲーム開始です。
 セリフをカスタマイズして楽しむ事も可能です。
 
 
 
 □簡易版Ver.１
 
 Dim atack,MyValue,Game 
 Randomize 
 Call MsgBox("乙女アタック開始", vbOKOnly) 
 Do Until Game = vbNo 
 For atack = 1 to 8 
 Select Case atack 
 Case 1 
 Call MsgBox("我はヒデヨシ　覚悟しろ！", vbOKOnly) 
 Case 2 
 Call MsgBox("我はケンシン　行くわよ！", vbOKOnly) 
 Case 3 
 Call MsgBox("我はイエヤス　覚悟してください", vbOKOnly) 
 Case 4 
 Call MsgBox("我はヨシモト　お覚悟はよろしくて？", vbOKOnly) 
 Case 5 
 Call MsgBox("我はシンゲン　覚悟はいいか？", vbOKOnly) 
 Case 6 
 Call MsgBox("我はマサムネ　覚悟！", vbOKOnly) 
 Case 7 
 Call MsgBox("我はノブナガじゃ　覚悟はよいかっ！", vbOKOnly) 
 Case 8 
 Call MsgBox("我はミツヒデ　覚悟はできたか？", vbOKOnly) 
 End Select
 MyValue = Int((16 * Rnd) + 1) 
 If MyValue = 16 Then 
 Call MsgBox("勝利", vbOKOnly) 
 Call MsgBox("大当たり！", vbOKOnly) 
 Exit For 
 Else 
 Call MsgBox("敗北", vbOKOnly) 
 End If 
 Next 
 If MyValue < 16 Then 
 Call MsgBox("乙女アタック終了", vbOKOnly) 
 End If 
 Game = MsgBox("もっかいやる？", vbYesNo) 
 Loop
 
 
 □簡易版Ver.２
 
 Dim atack,MyValue,NextValue,Game 
 Randomize 
 Call MsgBox("乙女アタック開始", vbOKOnly) 
 Do Until Game = vbNo 
 For atack = 1 to 8 
 MyValue = Int((16 * Rnd) + 1) 
 Select Case atack 
 Case 1 
 Call MsgBox("我はヒデヨシ　覚悟しろ！", vbOKOnly) 
 Case 2 
 Call MsgBox("我はケンシン　行くわよ！", vbOKOnly) 
 Case 3 
 Call MsgBox("我はイエヤス　覚悟してください", vbOKOnly) 
 Case 4 
 Call MsgBox("我はヨシモト　お覚悟はよろしくて？", vbOKOnly) 
 Case 5 
 Call MsgBox("我はシンゲン　覚悟はいいか？", vbOKOnly) 
 Case 6 
 Call MsgBox("我はマサムネ　覚悟！", vbOKOnly) 
 Case 7 
 Call MsgBox("我はノブナガじゃ　覚悟はよいかっ！", vbOKOnly) 
 Case 8 
 Call MsgBox("我はミツヒデ　覚悟はできたか？", vbOKOnly) 
 End Select
 If MyValue = 16 Then 
 NextValue = Int((100 * Rnd) + 1) 
 If NextValue <= 9 Then 
 Call MsgBox("オウガイ参上！", vbOKOnly) 
 ElseIf NextValue <= 37 Then 
 Call MsgBox("切り刻んであげる…", vbOKOnly) 
 ElseIf NextValue <= 87 Then 
 Call MsgBox("僕の出番だ！", vbOKOnly) 
 Else 
 Call MsgBox("わお～ん", vbOKOnly) 
 End If 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("じゃきーん！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Call MsgBox("大当たり！", vbOKOnly) 
 Exit For 
 Else
 NextValue = MyValue * 100 + Int((100 * Rnd) + 1) 
 If NextValue <= 970 Then 
 Call MsgBox("オウガイ参上！", vbOKOnly) 
 ElseIf NextValue <= 1436 Then 
 Call MsgBox("切り刻んであげる…", vbOKOnly) 
 Else 
 Call MsgBox("僕の出番だ！", vbOKOnly) 
 End If 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("じゃきーん！", vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 End If 
 Next 
 If MyValue < 16 Then 
 Call MsgBox("乙女アタック終了", vbOKOnly) 
 End If 
 Game = MsgBox("もっかいやる？", vbYesNo) 
 Loop
 
 
 □簡易版Ver.２.１
 
 Dim otome(3, 8),enemy(3, 4) 
 '乙女の名乗り 
 otome(1, 1) = "我はヒデヨシ　覚悟しろ！" 
 otome(1, 2) = "我はケンシン　行くわよ！" 
 otome(1, 3) = "我はイエヤス　覚悟してください" 
 otome(1, 4) = "我はヨシモト　お覚悟はよろしくて？" 
 otome(1, 5) = "我はシンゲン　覚悟はいいか？" 
 otome(1, 6) = "我はマサムネ　覚悟！" 
 otome(1, 7) = "我はノブナガじゃ　覚悟はよいかっ！" 
 otome(1, 8) = "我はミツヒデ　覚悟はできたか？" 
 '乙女の勝利 
 otome(2, 1) = "勝っちゃったもんね～　やったね！" 
 otome(2, 2) = "フフッ口ほどにもない" 
 otome(2, 3) = "やりました" 
 otome(2, 4) = "ひれ伏しなさい　お～っほっほっほ、楽勝ですわ" 
 otome(2, 5) = "よっしやー" 
 otome(2, 6) = "間合いが甘い　たわいもない" 
 otome(2, 7) = "楽勝、楽勝！ハッハッハッハ！" 
 otome(2, 8) = "フフ…私の勝ちだ" 
 '乙女の敗北 
 otome(3, 1) = "いった～い" 
 otome(3, 2) = "不覚…" 
 otome(3, 3) = "やられちゃいました…" 
 otome(3, 4) = "この私が…" 
 otome(3, 5) = "ってえなぁ…" 
 otome(3, 6) = "無念…" 
 otome(3, 7) = "ちっくしょう…" 
 otome(3, 8) = "よくも…" 
 '敵の名乗り 
 enemy(1, 1) = "オウガイ参上！" 
 enemy(1, 2) = "切り刻んであげる…" 
 enemy(1, 3) = "僕の出番だ！" 
 enemy(1, 4) = "わおーん" 
 '敵の勝利 
 enemy(2, 1) = "あーははは！" 
 enemy(2, 2) = "おーほっほっほ！" 
 enemy(2, 3) = "ぼ、僕だって！" 
 '敵の敗北 
 enemy(3, 1) = "不覚！" 
 enemy(3, 2) = "いった～ぃん…" 
 enemy(3, 3) = "つ、つよい…" 
 enemy(3, 4) = "くぅ～ん" 
 '勝率（パーセント） 
 Const SS = 6.6 
 '勝利試合の中での敵のパーセンテージ 
 Const WIN_OUGAI = 4 
 Const WIN_MURASAME = 27.5 
 Const WIN_KOTAROU = 61 
 '敗北試合の中での敵のパーセンテージ 
 Const LOST_OUGAI = 56.3 
 Const LOST_MURASAME = 37.3 
 Dim atack,MyValue,NextValue,Game 
 Randomize 
 Call MsgBox("乙女アタック開始", vbOKOnly) 
 Do Until Game = vbNo 
 For atack = 1 to 8 
 MyValue = CSng((100 * Rnd) + 1) 
 Call MsgBox(otome(1, atack), vbOKOnly) 
 If MyValue <= SS Then 
 NextValue = CSng((100 * Rnd) + 1) 
 If NextValue <= WIN_OUGAI Then 
 i = 1 
 ElseIf NextValue <= (WIN_OUGAI + WIN_MURASAME) Then 
 i = 2 
 ElseIf NextValue <= (WIN_OUGAI + WIN_MURASAME + WIN_KOTAROU) Then 
 i = 3 
 Else 
 i = 4 
 End If 
 Call MsgBox(enemy(1, i), vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("じゃきーん！", vbOKOnly) 
 Call MsgBox(enemy(3, i), vbOKOnly) 
 Call MsgBox(otome(2, atack), vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Call MsgBox("大当たり！", vbOKOnly) 
 Exit For 
 Else 
 NextValue = CSng((100 * Rnd) + 1) 
 If NextValue <= LOST_OUGAI Then 
 i = 1 
 ElseIf NextValue <= (LOST_OUGAI + LOST_MURASAME) Then 
 i = 2 
 Else 
 i = 3 
 End If 
 Call MsgBox(enemy(1, i), vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("じゃきーん！", vbOKOnly) 
 Call MsgBox(otome(3, atack), vbOKOnly) 
 Call MsgBox(enemy(2, i), vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 End If 
 Next 
 If MyValue > SS Then 
 Call MsgBox("乙女アタック終了", vbOKOnly) 
 End If 
 Game = MsgBox("もっかいやる？", vbYesNo) 
 Loop 
 
 
 □簡易版Ver.３：改編＠115スレ「Z76uUf9s」氏
 
 Dim atack,NextValue,Game 
 Randomize 
 Call MsgBox("乙女アタック開始", vbOKOnly) 
 Do Until Game = vbNo 
 For atack = 1 to 8 
 NextValue = Int(1515 * Rnd + 1) 
 Select Case atack 
 Case 1 
 Call MsgBox("我はヒデヨシ　覚悟しろ！", vbOKOnly) 
 Case 2 
 Call MsgBox("我はケンシン　行くわよ！", vbOKOnly) 
 Case 3 
 Call MsgBox("我はイエヤス　覚悟してください", vbOKOnly) 
 Case 4 
 Call MsgBox("我はヨシモト　お覚悟はよろしくて？", vbOKOnly) 
 Case 5 
 Call MsgBox("我はシンゲン　覚悟はいいか？", vbOKOnly) 
 Case 6 
 Call MsgBox("我はマサムネ　覚悟！", vbOKOnly) 
 Case 7 
 Call MsgBox("我はノブナガじゃ　覚悟はよいかっ！", vbOKOnly) 
 Case 8 
 Call MsgBox("我はミツヒデ　覚悟はできたか？", vbOKOnly) 
 End Select
 If NextValue <= 2 Then 
 Call MsgBox("vs オウガイ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Call MsgBox("大当たり！", vbOKOnly) 
 Exit For 
 ElseIf NextValue <= 1000 Then 
 Call MsgBox("vs オウガイ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 ElseIf NextValue <= 1017 Then 
 Call MsgBox("vs ムラサメ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Call MsgBox("大当たり！", vbOKOnly) 
 Exit For 
 ElseIf NextValue <= 1335 Then 
 Call MsgBox("vs ムラサメ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 ElseIf NextValue <= 1401 Then 
 Call MsgBox("vs コタロウ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Call MsgBox("大当たり！", vbOKOnly) 
 Exit For 
 ElseIf NextValue <= 1500 Then 
 Call MsgBox("vs コタロウ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 ElseIf NextValue <= 1515 Then 
 Call MsgBox("vs シロ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Call MsgBox("大当たり！", vbOKOnly) 
 Exit For 
 NextValue = Int(1515 * Rnd + 1) 
 End If 
 If atack >= 8 Then 
 Call MsgBox("乙女アタック終了", vbOKOnly) 
 End If 
 Next 
 Game = MsgBox("もっかいやる？", vbYesNo) 
 Loop
 
 □簡易版（通常時大当たり付き）Ver.３.１：改編＠115スレ「Z76uUf9s」氏
 
 Dim attack,NextValue,Game,Rcount,kaiten,Round 
 Randomize 
 kaiten = 0 
 Rcount = 0 
 
 Do Until Game = vbNo 
 
 '通常モードの処理 
 Do 
 kaiten = kaiten + 1 
 NextValue = Int(9945 * Rnd + 1) 
 If NextValue <= 3 Then 
 Call MsgBox(kaiten & "回転で 15R 大当り！" , vbOKOnly) 
 Rcount = Rcount + 1 
 Round = 15 
 kaiten = 0 
 Exit Do 
 ElseIf NextValue <= 100 Then 
 Call MsgBox(kaiten & "回転で 5R 大当り！" , vbOKOnly) 
 Rcount = Rcount + 1 
 Round = 5 
 kaiten = 0 
 Exit Do 
 End If 
 Loop
 '乙女アタックの処理 
 If Round <= 5 Then 
 Call MsgBox("乙女アタック開始", vbOKOnly) 
 For attack = 1 to 8 
 kaiten = kaiten + 1 
 NextValue = Int(3030 * Rnd + 1) 
 Select Case attack 
 Case 1 
 Call MsgBox("我はヒデヨシ　覚悟しろ！", vbOKOnly) 
 Case 2 
 Call MsgBox("我はケンシン　行くわよ！", vbOKOnly) 
 Case 3 
 Call MsgBox("我はイエヤス　覚悟してください", vbOKOnly) 
 Case 4 
 Call MsgBox("我はヨシモト　お覚悟はよろしくて？", vbOKOnly) 
 Case 5 
 Call MsgBox("我はシンゲン　覚悟はいいか？", vbOKOnly) 
 Case 6 
 Call MsgBox("我はマサムネ　覚悟！", vbOKOnly) 
 Case 7 
 Call MsgBox("我はノブナガじゃ　覚悟はよいかっ！", vbOKOnly) 
 Case 8 
 Call MsgBox("我はミツヒデ　覚悟はできたか？", vbOKOnly) 
 End Select
 If NextValue <= 4 Then 
 Call MsgBox("vs オウガイ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Round = RoundCheck() 
 Call MsgBox(Round & "R 大当り！", vbOKOnly) 
 kaiten = 0 
 Rcount = Rcount + 1 
 Exit For 
 ElseIf NextValue <= 1800 Then 
 Call MsgBox("vs オウガイ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 ElseIf NextValue <= 1846 Then 
 Call MsgBox("vs ムラサメ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Round = RoundCheck() 
 Call MsgBox(Round & "R 大当り！", vbOKOnly) 
 kaiten = 0 
 Rcount = Rcount + 1 
 Exit For 
 ElseIf NextValue <= 2700 Then 
 Call MsgBox("vs ムラサメ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 ElseIf NextValue <= 2820 Then 
 Call MsgBox("vs コタロウ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Round = RoundCheck() 
 Call MsgBox(Round & "R 大当り！", vbOKOnly) 
 kaiten = 0 
 Rcount = Rcount + 1 
 Exit For 
 ElseIf NextValue <= 3000 Then 
 Call MsgBox("vs コタロウ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("敗北", vbOKOnly) 
 ElseIf NextValue <= 3030 Then 
 Call MsgBox("vs シロ", vbOKOnly) 
 Call MsgBox("いざ、勝負！", vbOKOnly) 
 Call MsgBox("勝利", vbOKOnly) 
 Round = RoundCheck() 
 Call MsgBox(Round & "R 大当り！", vbOKOnly) 
 kaiten = 0 
 Rcount = Rcount + 1 
 Exit For 
 NextValue = Int(3030 * Rnd + 1) 
 End If 
 If attack >= 8 Then 
 Call MsgBox("乙女アタック終了", vbOKOnly) 
 Rcount = 0 
 End If 
 Next 
 End If 
 '戦国モード＋乙女モードの処理 
 While Rcount <> 0 
 
 Do 
 kaiten = kaiten + 1 
 NextValue = Int(1515 * Rnd + 1) 
 If NextValue <= 3 Then 
 Call MsgBox(kaiten & "回転で 15R 大当り！" , vbOKOnly) 
 Rcount = Rcount + 1 
 Round = 15 
 kaiten = 0 
 Exit Do 
 ElseIf NextValue <= 100 Then 
 Call MsgBox(kaiten & "回転で 5R 大当り！" , vbOKOnly) 
 Rcount = Rcount + 1 
 Round = 5 
 kaiten = 0 
 Exit Do 
 End If 
 Loop While kaiten < 8 
 If kaiten <> 0 Then 
 Do 
 kaiten = kaiten + 1 
 NextValue = Int(9945 * Rnd + 1) 
 If NextValue <= 3 Then 
 Call MsgBox(kaiten & "回転で 15R 大当り！" , vbOKOnly) 
 Rcount = Rcount + 1 
 Round = 15 
 kaiten = 0 
 Exit Do 
 ElseIf NextValue <= 100 Then 
 Call MsgBox(kaiten & "回転で 5R 大当り！" , vbOKOnly) 
 Rcount = Rcount + 1 
 Round = 5 
 kaiten = 0 
 Exit Do 
 End If 
 If kaiten >= 100 Then 
 Call MsgBox(Rcount & "連チャン で 乙女モード終了", vbOKOnly) 
 Rcount = 0 
 End If 
 Loop While kaiten < 100 
 End If 
 
 Wend 
 Game = MsgBox("もっかいやる？", vbYesNo) 
 Loop 
 
 '乙女アタック時の15R判定用サブルーチン 
 Function RoundCheck() 
 NextValue = Int(100 * Rnd + 1) 
 If NextValue <= 3 Then 
 RoundCheck = 15 
 Else 
 RoundCheck = 5 
 End If 
 End Function 
+
+
+□簡易版（通常時大当たり付き）Ver.３.２：改編＠129スレ「QqghILvc」氏
+
+Dim attack,NextValue,Game,Rcount,Dcount,kaiten,Round 
+Randomize 
+kaiten = 0 
+Rcount = 0 
+Dcount = 0 
+
+Do Until Game = vbNo 
+
+'通常モードの処理 
+Do 
+kaiten = kaiten + 1 
+NextValue = Int(9945 * Rnd + 1) 
+If NextValue <= 3 Then 
+Call MsgBox(kaiten & "回転で 15R 大当り！" , vbOKOnly) 
+Rcount = Rcount + 1 
+Round = 15 
+Dcount = Dcount + 1500 
+kaiten = 0 
+Exit Do 
+ElseIf NextValue <= 100 Then 
+Call MsgBox(kaiten & "回転で 5R 大当り！" , vbOKOnly) 
+Rcount = Rcount + 1 
+Round = 5 
+Dcount = Dcount + 500 
+kaiten = 0 
+Exit Do 
+End If 
+Loop 
+'乙女アタックの処理 
+If Round <= 5 Then 
+Call MsgBox("乙女アタック開始", vbOKOnly) 
+For attack = 1 to 8 
+kaiten = kaiten + 1 
+NextValue = Int(3030 * Rnd + 1) 
+Select Case attack 
+Case 1 
+Call MsgBox("我はヒデヨシ　覚悟しろ！", vbOKOnly) 
+Case 2 
+Call MsgBox("我はケンシン　行くわよ！", vbOKOnly) 
+Case 3 
+Call MsgBox("我はイエヤス　覚悟してください", vbOKOnly) 
+Case 4 
+Call MsgBox("我はヨシモト　お覚悟はよろしくて？", vbOKOnly) 
+Case 5 
+Call MsgBox("我はシンゲン　覚悟はいいか？", vbOKOnly) 
+Case 6 
+Call MsgBox("我はマサムネ　覚悟！", vbOKOnly) 
+Case 7 
+Call MsgBox("我はノブナガじゃ　覚悟はよいかっ！", vbOKOnly) 
+Case 8 
+Call MsgBox("我はミツヒデ　覚悟はできたか？", vbOKOnly) 
+End Select 
+If NextValue <= 4 Then 
+Call MsgBox("vs オウガイ", vbOKOnly) 
+Call MsgBox("いざ、勝負！", vbOKOnly) 
+Call MsgBox("勝利", vbOKOnly) 
+Round = RoundCheck() 
+Call MsgBox(Round & "R 大当り！", vbOKOnly) 
+Dcount = Dcount + Round * 100 
+kaiten = 0 
+Rcount = Rcount + 1 
+Exit For 
+ElseIf NextValue <= 1800 Then 
+Call MsgBox("vs オウガイ", vbOKOnly) 
+Call MsgBox("いざ、勝負！", vbOKOnly) 
+Call MsgBox("敗北", vbOKOnly) 
+ElseIf NextValue <= 1846 Then 
+Call MsgBox("vs ムラサメ", vbOKOnly) 
+Call MsgBox("いざ、勝負！", vbOKOnly) 
+Call MsgBox("勝利", vbOKOnly) 
+Round = RoundCheck() 
+Call MsgBox(Round & "R 大当り！", vbOKOnly) 
+Dcount = Dcount + Round * 100 
+kaiten = 0 
+Rcount = Rcount + 1 
+Exit For 
+ElseIf NextValue <= 2700 Then 
+Call MsgBox("vs ムラサメ", vbOKOnly) 
+Call MsgBox("いざ、勝負！", vbOKOnly) 
+Call MsgBox("敗北", vbOKOnly) 
+ElseIf NextValue <= 2820 Then 
+Call MsgBox("vs コタロウ", vbOKOnly) 
+Call MsgBox("いざ、勝負！", vbOKOnly) 
+Call MsgBox("勝利", vbOKOnly) 
+Round = RoundCheck() 
+Call MsgBox(Round & "R 大当り！", vbOKOnly) 
+Dcount = Dcount + Round * 100 
+kaiten = 0 
+Rcount = Rcount + 1 
+Exit For 
+ElseIf NextValue <= 3000 Then 
+Call MsgBox("vs コタロウ", vbOKOnly) 
+Call MsgBox("いざ、勝負！", vbOKOnly) 
+Call MsgBox("敗北", vbOKOnly) 
+ElseIf NextValue <= 3030 Then 
+Call MsgBox("vs シロ", vbOKOnly) 
+Call MsgBox("いざ、勝負！", vbOKOnly) 
+Call MsgBox("勝利", vbOKOnly) 
+Round = RoundCheck() 
+Call MsgBox(Round & "R 大当り！", vbOKOnly) 
+Dcount = Dcount + Round * 100 
+kaiten = 0 
+Rcount = Rcount + 1 
+Exit For 
+NextValue = Int(3030 * Rnd + 1) 
+End If 
+If attack >= 8 Then 
+Call MsgBox("乙女アタック終了", vbOKOnly) 
+Rcount = 0 
+End If 
+Next 
+End If 
+'戦国モード＋乙女モードの処理 
+While Rcount <> 0 
+
+Do 
+kaiten = kaiten + 1 
+NextValue = Int(1515 * Rnd + 1) 
+If NextValue <= 3 Then 
+Call MsgBox(kaiten & "回転で 15R 大当り！" , vbOKOnly) 
+Rcount = Rcount + 1 
+Round = 15 
+Dcount = Dcount + 1500 
+kaiten = 0 
+Exit Do 
+ElseIf NextValue <= 100 Then 
+Call MsgBox(kaiten & "回転で 5R 大当り！" , vbOKOnly) 
+Rcount = Rcount + 1 
+Round = 5 
+Dcount = Dcount + 500 
+kaiten = 0 
+Exit Do 
+End If 
+Loop While kaiten < 8 
+If kaiten <> 0 Then 
+Do 
+kaiten = kaiten + 1 
+NextValue = Int(9945 * Rnd + 1) 
+If NextValue <= 3 Then 
+Call MsgBox(kaiten & "回転で 15R 大当り！" , vbOKOnly) 
+Rcount = Rcount + 1 
+Round = 15 
+Dcount = Dcount + 1500 
+kaiten = 0 
+Exit Do 
+ElseIf NextValue <= 100 Then 
+Call MsgBox(kaiten & "回転で 5R 大当り！" , vbOKOnly) 
+Rcount = Rcount + 1 
+Round = 5 
+Dcount = Dcount + 500 
+kaiten = 0 
+Exit Do 
+End If 
+If kaiten >= 100 Then 
+Call MsgBox(Rcount & "連チャン で 乙女モード終了", vbOKOnly) 
+Call MsgBox(Dcount & " 発獲得", vbOKOnly) 
+Rcount = 0 
+End If 
+Loop While kaiten < 100 
+End If 
+
+Wend 
+Dcount = 0 
+Game = MsgBox("もっかいやる？", vbYesNo) 
+Loop 
+
+'乙女アタック時の15R判定用サブルーチン 
+Function RoundCheck() 
+NextValue = Int(100 * Rnd + 1) 
+If NextValue <= 3 Then 
+RoundCheck = 15 
+Else 
+RoundCheck = 5 
+End If 
+End Function 
+
 
 
 □簡易版Ver.４：改編＠115スレ「UsWdvlKQ」氏
 
 ' 3030の乱数のうち200までが当たり（確率1/15.15）。 
 ' 当たり乱数200個のうち、8個をオウガイでの当たり、 
 ' 55個をムラサメでの当たり、122個をコタロウでの当たり、 
 ' 15個をシロでの当たりとしています。 
 ' はずれ乱数2830個のうち、1592個をオウガイでの外れ、 
 ' 1055個をムラサメでの外れ、183個をコタロウでの外れとしています。 
 ' （注）数字は体感上や書込みデータをもとに適当に求めたもの。 
 ' もっと良い値があると思われるときは直して使って下さい。 
 ' セリフはまとめwikiを参照 
 ' 
 ' まとめると 
 ' 当たり: 外れ 信頼度 
 ' オウガイ 8 : 1592 ＝ 1:199 0.5% 
 ' ムラサメ 55 : 1055 ≒ 1: 19 5% 
 ' コタロウ 122 : 183 ＝ 1:1.5 40% 
 ' シロ 15 : 0 100% 
 ' 
 Dim Attk 'アタック順を格納 
 Dim Tyusen '当落判定乱数格納 
 Dim Atari '当たり時登場敵判定用 
 Dim Hazure 'はずれ時登場敵判定用 
 Dim EndSW '終了判定 
 ' 
 Do Until EndSW = vbNo 
 Call MsgBox("乙女アタック開始", vbOKOnly) 
 ' 
 ' ８人分ループ 
 For Attk = 1 To 8 
 ' 乙女登場時のセリフ 
 Select Case Attk 
 Case 1 
 Call MsgBox("我はヒデヨシ　覚悟しろ！", vbOKOnly) 
 Case 2 
 Call MsgBox("我はケンシン　行くわよ！", vbOKOnly) 
 Case 3 
 Call MsgBox("我はイエヤス　覚悟してください", vbOKOnly) 
 Case 4 
 Call MsgBox("我はヨシモト　お覚悟はよろしくて？", vbOKOnly) 
 Case 5 
 Call MsgBox("我はシンゲン　覚悟はいいか？", vbOKOnly) 
 Case 6 
 Call MsgBox("我はマサムネ　覚悟！", vbOKOnly) 
 Case 7 
 Call MsgBox("我はノブナガじゃ　覚悟はよいかっ！", vbOKOnly) 
 Case 8 
 Call MsgBox("我はミツヒデ　覚悟はできたか？", vbOKOnly) 
 End Select
 ' 
 ' 当落判定乱数を求める。200以下なら当たり 
 ' 乱数初期化 
 Randomize 
 Tyusen = Int((3030 * Rnd) + 1) 
 If Tyusen <= 200 Then 
 ' 当たり時敵武将登場判定 
 Atari = Int((200 * Rnd) + 1) 
 If Atari <= 8 Then 
 Call MsgBox("フンッ！", vbOKOnly) 
 Call MsgBox("不覚ッ！", vbOKOnly) 
 ElseIf Atari >= 9 And Atari <= 63 Then 
 Call MsgBox("ハァッ！", vbOKOnly) 
 Call MsgBox("痛ったぁ～い", vbOKOnly) 
 ElseIf Atari >= 64 And Atari <= 185 Then 
 Call MsgBox("たぁ～！", vbOKOnly) 
 Call MsgBox("つ、つよい", vbOKOnly) 
 Else 
 Call MsgBox("わぉ～ん！", vbOKOnly) 
 Call MsgBox("くぅ～ん", vbOKOnly) 
 End If 
 ' 乙女勝利時のセリフ 
 Select Case Attk 
 Case 1 
 Call MsgBox("勝っちゃったもんね～　やったね！", vbOKOnly) 
 Case 2 
 Call MsgBox("フフッ口ほどにもない", vbOKOnly)
 Case 3 
 Call MsgBox("やりました", vbOKOnly) 
 Case 4 
 Call MsgBox("ひれ伏しなさい　お～っほっほっほ、楽勝ですわ", vbOKOnly) 
 Case 5 
 Call MsgBox("よっしやー", vbOKOnly) 
 Case 6 
 Call MsgBox("間合いが甘い　たわいもない", vbOKOnly) 
 Case 7 
 Call MsgBox("楽勝、楽勝！ハッハッハッハ！", vbOKOnly) 
 Case 8 
 Call MsgBox("フフ・・私の勝ちだ", vbOKOnly) 
 End Select 
 Call MsgBox("戦国モード突入！", vbOKOnly) 
 Exit For 
 ' 201以上なら外れ 
 Else 
 ' 外れ時敵武将登場判定 
 Atari = Int((2830 * Rnd) + 1) 
 If Atari <= 1592 Then 'オウガイ 
 Call MsgBox("フンッ！", vbOKOnly) 
 ElseIf Atari >= 1593 And Atari <= 2647 Then 'ムラサメ 
 Call MsgBox("ハァッ！", vbOKOnly) 
 ElseIf Atari >= 2648 And Atari <= 2830 Then 'コタロウ 
 Call MsgBox("たぁ～！", vbOKOnly) 
 End If 
 ' 乙女敗北時のセリフ 
 Select Case Attk 
 Case 1 
 Call MsgBox("いった～い", vbOKOnly) 
 Case 2 
 Call MsgBox("不覚…", vbOKOnly) 
 Case 3 
 Call MsgBox("やられちゃいました…", vbOKOnly) 
 Case 4 
 Call MsgBox("この私が…", vbOKOnly) 
 Case 5 
 Call MsgBox("（痛）ってえなぁ…", vbOKOnly) 
 Case 6 
 Call MsgBox("無念…", vbOKOnly) 
 Case 7 
 Call MsgBox("ちっくしょう…", vbOKOnly) 
 Case 8 
 Call MsgBox("よくも…", vbOKOnly) 
 End Select 
 ' 外れ時敵武将のセリフ 
 If Atari <= 1592 Then 'オウガイ 
 Call MsgBox("ウェァ～ハッハッハ", vbOKOnly) 
 ElseIf Atari >= 1593 And Atari <= 2647 Then 'ムラサメ 
 Call MsgBox("フッフフフフ", vbOKOnly) 
 ElseIf Atari >= 2648 And Atari <= 2830 Then 'コタロウ 
 Call MsgBox("ぼ、ぼくだって", vbOKOnly) 
 End If 
 If Attk = 8 Then 
 Call MsgBox("乙女アタック終了", vbOKOnly) 
 End If 
 
 End If 
 Next 
 EndSW = MsgBox("再挑戦？", vbYesNo) 
 Loop 
 
 
 
 ■乙女アタック検証スクリプト＠117スレ「xY2EKkF2」氏
 
 Dim atack,MyValue,Game,Did,Win,Lost,MaxWin,MaxLost,WinCount 
 Did = CLng(InputBox("ノブナガ「トライ回数を半角英数字で入力するのじゃ！」")) 
 If Did < 1 Then 
 Call MsgBox("ノブナガ「数値が変じゃ！ふざけるな！くらえ！非情ノ大剣！") 
 Call MsgBox("ずぎゃーん！！！") 
 Else 
 Call MsgBox("ノブナガ「では、" + CStr(Did) + "回、試行しようぞ！」" ) 
 Randomize 
 Call MsgBox("ヒデヨシ「じゃあー、始めるよー！」", vbOKOnly) 
 For Game = 1 to Did 
 For atack = 1 to 8 
 MyValue = CInt((1515 * Rnd) + 1) 
 If MyValue <= 100 Then 
 WinCount = WinCount + 1 
 Win = Win + 1 
 If Win > MaxWin Then MaxWin = Win 
 Lost = 0 
 Exit For 
 End If 
 Next 
 If MyValue > 100 Then 
 Lost = Lost + 1 
 If Lost > MaxLost Then MaxLost = Lost 
 Win = 0 
 End If 
 Next 
 Call MsgBox("オウガイ「わーはっはっは！最大連続スルー" + CStr(MaxLost) + "回だ！！」") 
 Call MsgBox("ヒデヨシ「でもでも！最大連覇" + CStr(MaxWin) + "回だよ！！」") 
 Call MsgBox("ノブナガ「結局、" + CStr(Did) + "回中、勝ったのは" + CStr(WinCount) + "回だな！」") 
 End If
 
 
 
 ■ケンシンの連チャン数検証スクリプト＠122スレ「ym4pMQnN」氏
 
 Dim sengoku,MyValue,Game,Did,Win,MaxWin,MaxLost,average,otome,Tan 
 Call MsgBox("ケンシン「ああ、いい水浴だった…あ、上杉ケンシンです」") 
 Call MsgBox("ケンシン「乙女アタック突入回数に対する最高連チャン数を調べてみましょう」") 
 Did = CLng(InputBox("ケンシン「トライ回数を半角英数字で入力してね」")) 
 If Did < 1 Then 
 Call MsgBox("ケンシン「数値がおかしいわ！馬鹿にする気！？雷光連撃槍！」") 
 Call MsgBox("ずきゅーん！！！") 
 Else 
 Call MsgBox("ケンシン「では、" + CStr(Did) + "回、試行しましょう」" ) 
 Randomize 
 Call MsgBox("シンゲン「ナッシャー！　いくぞ！！」") 
 average = 0 : Tan = 0 
 For Game = 1 to Did 
 Win = 1 
 Do 
 For sengoku = 1 to 8 
 MyValue = CInt((1515 * Rnd) + 1) 
 If MyValue <= 100 Then 
 Win = Win + 1 
 If Win > MaxWin Then MaxWin = Win 
 Exit For 
 End If 
 Next 
 If (MyValue > 100) and (Win > 1) Then 
 For sengoku = 1 to 92 
 MyValue = CInt((9945 * Rnd) + 1) 
 If MyValue <= 100 Then 
 Win = Win + 1 
 If Win > MaxWin Then MaxWin = Win 
 Exit For 
 End If 
 Next 
 End If 
 Loop Until MyValue > 100 
 If Win = 1 Then Tan = Tan + 1 
 average = average + Win 
 Next 
 Call MsgBox("ケンシン「結局、アタック" + CStr(Did) + "回の最大連チャン数は…」") 
 Call MsgBox(CStr(MaxWin) + "回…") 
 Call MsgBox("ケンシン「うち乙女アタックを突破できなかったのは…」") 
 Call MsgBox(CStr(Tan) + "回…") 
 Call MsgBox("ケンシン「平均" + CStr(CSng(average/Did)) + "連チャンとなりました…」" ) 
 Call MsgBox("ケンシン「実機でも頑張ってね」" ) 
 Call MsgBox("シンゲン「ナッシャー！」" ) 
 End If