ab.com コミュニティ

ActiveBasicを通したコミュニケーション
前回の訪問日時: 2020年8月16日(日) 00:58 現在時刻 - 2020年8月16日(日) 00:58

All times are UTC+09:00




 [ 1 件の記事 ] 
作成者 メッセージ
 記事の件名: 産技卒です。
投稿記事Posted: 2020年7月24日(金) 22:33 
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


ページトップ
   
 
 [ 1 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: AhrefsBot, Bing [Bot], CCBot & ゲスト[0人]


トピック投稿: 不可
返信投稿: 不可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean