VBSプログラミング最初の一歩 VBScript

CountDown

数人で行うサイコロゲームです。まず最初に何人で行うかを入力する画面が出ます。そこで何人で行うか、10人までの数を入力します。

次に各プレイヤーの名前を入力します。人数分、入力します。

それから最初のプレイヤーからプレイを開始します。最初全プレイヤーはアラートレベルというポイントを「人数×5」だけ持っています。この数が最初に0以下になった人の負けです。

プレイはサイコロを1個振って、1~4だったら、その数だけアラートレベルがさがり次の人の手番になります。5だったら、アラートレベルが+5されて次の人の手番になります。6の場合にはアラートレベルが6下がって、もう一度その人の番になります。

ヒント:入力した数はCIntで数値に変換しておくこと

画面には以下のような感じで出ます。

何人で進めますか?
例:3と入力

名前を入力してください
例:「古原」と入力

名前を入力してください
例:「小泉」と入力

名前を入力してください
例:「井川」と入力

古原さんの番です。アラートレベル:15

古原さんのサイコロは3でした。アラートレベル:12

小泉さんの番です。アラートレベル:15

小泉さんのサイコロは5でした。アラートレベル:20

井川さんの番です。アラートレベル:15

井川さんのサイコロは6でした。アラートレベル:9

井川さんの番です。アラートレベル:9

井川さんのサイコロは3でした。アラートレベル:6

古原さんの番です。アラートレベル:12

古原さんのサイコロは4でした。アラートレベル:8

小泉さんの番です。アラートレベル:20

小泉さんのサイコロは6でした。アラートレベル:14

小泉さんの番です。アラートレベル:14

小泉さんのサイコロは6でした。アラートレベル:8

小泉さんの番です。アラートレベル:8

小泉さんのサイコロは1でした。アラートレベル:7

井川さんの番です。アラートレベル:6

井川さんのサイコロは6でした。アラートレベル:0

井川さんの負けです。