vbsのmsgboxランダム表示について
つい先日、vbsをいじりだしたばかりの初心者です。
このプログラムなんですが・・・
msgbox("冒険はじまりー"),,("冒険")
msgbox("てくてく")
i = msgbox("分かれ道だ" & vbCrLf & "はい:左 いいえ:真ん中 キャンセル:右",3,"わかれみち")
if (i=6) then
msgbox("いきどまり")
msgbox("ゲームオーバー")
elseif (i=2) then
msgbox("いきどまり")
msgbox("ゲームオーバー")
else
msgbox("モンスターがあらわれた",48,"バトル")
myhp=10
mymp=5
youhp=20
for i=0 to 10 step 0
num=msgbox("HP(" & myhp & ")" & vbCrLf &_
"MP(" & mymp & ")" & vbCrLf &_
"モンスターHP (" & youhp & ")" & vbCrLf &_
"こうげき:はい かいふく:いいえ まほう:キャンセル",3,"バトル")
if(num=6)then
myhp = myhp-1
mymp = mymp+1
youhp = youhp-1
msgbox("こうげき!" & vbCrLf &_
"モンスターHP-1" & vbCrLf & "自分のHP-1" & vbCrLf & "自分のMP+1")
elseif (num=7) then
myhp = myhp+3
mymp = mymp-3
msgbox"HPが3回復 MPが3減った"
else
youhp = myhp-2
mymp = mymp-2
msgbox"まほうをつかった MP-2 モンスターHP-2"
end if
if(youhp=0)then
msgbox"モンスターに勝った!",64,"やったね"
msgbox"おしまい"
exit for
elseif(myhp=0)then
msgbox"負けた",16,"ざんねん"
msgbox"ゲームオーバー",16,"ざんねん"
exit for
end if
next
end if
これの、攻撃とか魔法とかのところでmsgboxにランダムで違うメッセージを出すことは
できますか?(3パターンくらいです)
調べてみても書き方がよくわかりませんでした・・・。
それと、ゲームオーバーの場合、もう一度やるかどうかの選択メッセージの出し方も
教えていただけると嬉しいです。
質問が多くてごめんなさい、どうぞよろしくお願いしますm(_ _)m
お礼
お返事ありがとう御座います。 早速試してみます。