'Microsoft Visual Basic 6.0(SP5)
'モラ殿の追加
'Ver4
'自分が倒されたときのMsgBox処理変更
'連続攻撃のループ回数を格納する変数
Dim Renzoku As Integer


MsgBox "おにぎりをやっつけた！"

nokori = 50

MsgBox "あなたのＬＶが上がった！" & vbCrLf & "" & vbCrLf & "HPがすべて回復した！" _
& vbCrLf & "HPの最大値が" & nokori & "になった！" & vbCrLf & "" & vbCrLf & _
"攻撃力が2あがった！！"

MsgBox "ＦＩＮＡＬＢＡＴＴＬＥ　ＦＩＧＨＴ！！"
' 敵のHPの初期値設定
E_nokori = 45

slime = MsgBox("　 ●　" & vbCrLf & "∧（（∧" & vbCrLf & "（ ・∀・）" _
& vbCrLf & _
"モラ殿が、あらわれた！！" & vbCrLf & "あなたのHP・・・" & _
nokori & vbCrLf & "" & vbCrLf & "敵のHP・・・" & E_nokori, _
vbExclamation)

You_livingAct4:

MsgBox "あなたの攻撃！！「どんな良スレもいずれ終りが来る」"
'
'乱数の初期化
Randomize
'敵に与えたダメージ
E_dameji = Int(Rnd * 3) + 6
'敵の状態
E_nokori = E_nokori - E_dameji

slime = MsgBox("　 ●　" & vbCrLf & "∧（（∧" & vbCrLf & "（ ・∀・）" _
& vbCrLf & "" & vbCrLf & _
"モラ殿に" & E_dameji & "のダメージを与えた！" & vbCrLf & "" & _
vbCrLf & "　 ●　" & vbCrLf & "∧（（∧" & vbCrLf & "（ ・∀・）モラ殿の　残HP " _
& E_nokori, , "戦闘中")