If x <= 30 Then '30%の確率で成功 Msg = Msg & "○" SeikouCount = SeikouCount + 1 ElseIf x > 30 And x <= 65 Then '35%の確率で失敗 Msg = Msg & "×" ElseIf x > 65 Then '35%の確率で闇 Msg = Msg & "闇" Exit For End If
If SeikouCount >= SeikouKaisuu Then KanseiFlg = 1 Exit For End If