https://www.facebook.com/jfkjjfkojcn
Randomize
i = 0
j = 0
k = 0
msgbox "□モンスターが現れた。"
res = MsgBox("イージーモードにしますか?", vbYesNo)
If res = vbYes Then
msgbox "HPが2倍になります!"
k = -50
end if
If res = vbNo Then
msgbox "HPそのまま!"
end if
Do While i < 50
if k > 40 then
res2 = MsgBox("必殺技を使いますか?", vbYesNo)
If res2 = vbYes Then
j = 1 + int(rnd*0.2*10)
msgbox j
if j = 2 then
MsgBox "クリティカルヒット!"
i = 50
exit do
end if
if j = 1 then
msgbox "スカ"
k = k + 5
MsgBox "モンスターからの攻撃"
k = k + 5 + int(rnd*0.6*10)
msgbox "◇" & k
if k > 50 then
msgbox "◆やられた。" & k
exit do
end if
End If
end if
end if
MsgBox "普通攻撃"
i = i + 5 + int(rnd*0.6*10)
msgbox "□" & i
MsgBox "モンスターからの攻撃"
k = k + 5 + int(rnd*0.6*10)
msgbox "◇" & k
if k > 50 then
msgbox "◆やられた。" & k
exit do
end if
Loop
if i = 50 then
msgbox "■倒した。"
msgbox "super!"
end if
if i = 51 then
msgbox "■倒した。"
msgbox "宝箱"
end if
if i = 52 then
msgbox "■倒した。"
msgbox "キャプテン"
end if
if i = 53 then
msgbox "■倒した。"
msgbox "ピコ太郎"
end if
if i = 54 then
msgbox "■倒した。"
msgbox "ドットコム"
end if
if i = 55 then
msgbox "■倒した。"
msgbox "カプトン"
end if
if i = 56 then
msgbox "■倒した。"
msgbox "ソースは?"
end if
if i = 57 then
msgbox "■倒した。"
msgbox "醤油は?"
end if
if i = 58 then
msgbox "■倒した。"
msgbox "煩悩"
end if
if i = 59 then
msgbox "■倒した。"
msgbox "渋谷"
end if
if i = 60 then
msgbox "■倒した。"
msgbox "60"
end if