スゴロクその3（共通テスト2021年情報関係基礎）

2021年実施の共通テストの「情報関係基礎」のプログラム問題のプログラムを実際につくってみました。その3は、オバケが登場するバージョンで、プレイヤーふたりで実際に遊ぶことができるようにしてみました。と言っても、自分の番になったら、サイコロをクリックまたはタップするだけですが。ひとりでふたり分操作することもできますが、むなしいです。できることなら、相手を見つけて、ふたりで遊んでみてください。「〇さんの番です」とアナウンスされてから、クリックまたはタップするようにしてください。早いと、同期がとれなくなってしまいます。なお、サイコロの描画は、雪乃☆雫さんのプログラムを参考にさせていただきました。ありがとうございます。

文法命令一覧

エディタ

プログラム

全描画クリア。
{"声高":1.5, "速度":1.8}に話者詳細設定。
dcx＝-30。dcy＝-30。辺長＝60。マス＝辺長/4。目半径＝辺長/10。
目位置＝[[4],[0,8],[0,4,8],[0,2,6,8],[0,2,4,6,8],[0,2,3,5,6,8]]
出目=0。
マス種類=[「スタート」,「道」，「崖」,「穴」,「沼」,「ゴール」]
マス表記=[「Ｓ」,「　」，「崖」,「穴」,「沼」,「Ｇ」]
マス係数=[1,1,-1,0,0.5,1]
地図=[0,0,1,4,2,1,1,1,1,1,1,4,1,2,3,5]
Masu=[]
iiを1から15まで繰り返す
　　Masu@ii=マス係数@地図@ii
ここまで。
Koma=[[],[],[]]
Saikoro=[[],[],[]]
遊手=[「　」,「Ａ」,「Ｂ」]
勝者=「」。
owari=0
kx=0。ky=0。
obake=6。a=0。
r=0。i=1。
Koma@1,0=1。Koma@2,0=1。
msgx=0。msgy=0。
捕獲フラグはオフ。
0に線太設定。「#000077」に線色設定。「#000077」に塗色設定。
[0,0,800,600]へ四角描画。
「32px sans-serif」に描画フォント設定。
0に線太設定。灰色に線色設定。白色に塗色設定。
[20,48]へ「スゴロク（共通テスト2021年）」を文字描画。
「24px sans-serif」に描画フォント設定。
[480,48]へ「オバケありバージョン」を文字描画。
iiを1から15まで繰り返す
　　x=-25+50*ii。y=100。z=地図@ii。
　　x,yへzのマス描画。
　　「16px sans-serif」に描画フォント設定。
　　0に線太設定。灰色に線色設定。白色に塗色設定。
　　マス番号=「 {ii}」で2文字右部分。
　　[x+13,y-6]へマス番号を文字描画。
ここまで。
0に線太設定。白色に線色設定。白色に塗色設定。
「24px sans-serif」に描画フォント設定。
kx=50*(obake)-18。ky=181。
[kx,ky]へ「👻」を文字描画。
kx=50*(Koma@1,0)-15。ky=212。
[kx,ky]へ「Ａ」を文字描画。
kx=50*(Koma@2,0)-15。ky=242。
[kx,ky]へ「Ｂ」を文字描画。

[20,300]へ「Ａさん（先攻）とＢさん（後攻）のふたりで遊ぶスゴロクです。」を文字描画。
[20,340]へ「スタート（Ｓ）と道（空白）にいる時は、サイコロの目だけ進みます。」を文字描画。
[20,380]へ「沼にいる時は、サイコロの目の半分（切り捨て）だけ進みます。」を文字描画。
[20,420]へ「崖にいる時は、サイコロの目だけ戻ります。」を文字描画。
[20,460]へ「穴にいる時は、サイコロの目が３以下の時はその場にとどまります。」を文字描画。
[20,500]へ「オバケ👻をゴールの向きに追い越そうとすると、捕まります。」を文字描画。
0に線太設定。白色に線色設定。黄色に塗色設定。
[175,560]へ「画面をクリックすると、ゲーム開始です。」を文字描画。
描画中キャンバスの「click」に「スゴロク実行」をDOMイベント追加。

#-------------------------------

●スゴロク実行とは
　　描画中キャンバスの「click」から「スゴロク実行」をDOMイベント削除。
　　0に線太設定。「#000077」に線色設定。「#000077」に塗色設定。
　　[0,270,800,310]へ四角描画。
　　owari=0。
　　r=1。i=1。a=0。
　　0に線太さ設定。「#666666」に線色設定。「#000077」に塗り色設定。
　　[320,320,160,160]へ四角描画。
　　dcx=370。
　　dcy=370。
　　1のサイコロ描画。
　　msgx=10。msgy=350。
　　「18px sans-serif」に描画フォント設定。
　　0に線太設定。灰色に線色設定。黄色に塗色設定。
　　[msgx,msgy]へ「Ａさんの番です。」を文字描画。
　　[msgx,msgy+30]へ「サイコロをクリックしてください。」を文字描画。
　　「Ａさんのばんです。」と話す。
　　描画中キャンバスをマウス押した時には
　　　　mx=マウスX。my=マウスY。
　　　　もし、（my>350）かつ（my<450）かつ（mx>350）かつ（mx<450）ならば、
　　　　　　もし、owari=0ならば、
　　　　　　　　＃「r=｛r｝　i=｛i｝　a=｛a｝」を言う。
　　　　　　　　サイコロ振り。
　　　　　　　　コマ移動。
　　　　　　　　勝敗判定。
　　　　　　　　もし、owari=1ならば、
　　　　　　　　　　終了処理。
　　　　　　　　違えば、
　　　　　　　　　　もし、i=2ならば、オバケ移動。
　　　　　　　　　　i=i+1。
　　　　　　　　　　もし、i>2ならば、
　　　　　　　　　　　　r=r+1。
　　　　　　　　　　　　i=1。
　　　　　　　　　　ここまで。
　　　　　　　　　　iの情報消去。
　　　　　　　　　　msgx=10+490*(i-1)。msgy=350。
　　　　　　　　　　「18px sans-serif」に描画フォント設定。
　　　　　　　　　　0に線太設定。灰色に線色設定。黄色に塗色設定。
　　　　　　　　　　[msgx,msgy]へ「｛遊手@i｝さんの番です。」を文字描画。
　　　　　　　　　　[msgx,msgy+30]へ「サイコロをクリックしてください。」を文字描画。
　　　　　　　　　　「｛遊手@i｝さんのばんです。」と話す。
　　　　　　　　ここまで。
　　　　　　ここまで。
　　　　ここまで。
　　ここまで。
ここまで。

●コマ移動とは
　　Saikoro@i,r=出目。
　　k=Koma@i,(r-1)
　　bairitu=Masu@k
　　もし、（bairitu=0）かつ（Saikoro@i,r>=4）ならば、
　　　　bairitu=1
　　ここまで。
　　idou=（Saikoro@i,r*bairitu）の整数部分
　　Koma@i,r=k+idou
　　もし、（Koma@i,(r-1)<obake）かつ（Koma@i,r>obake）ならば、
　　　　Koma@i,r=obake
　　　　捕獲フラグはオン。
　　ここまで。
　　もし、Koma@i,r<1ならば、Koma@i,r=1
　　もし、Koma@i,r>=15ならば、Koma@i,r=15
　　iのコマ消去。
　　0に線太設定。白色に線色設定。白色に塗色設定。
　　「24px sans-serif」に描画フォント設定。
　　kx=50*(Koma@i,r)-15。ky=182+i*30。
　　[kx,ky]へ遊手@iを文字描画。
　　iの情報消去。
　　msgx=10+490*(i-1)。msgy=350。
　　「18px sans-serif」に描画フォント設定。
　　0に線太設定。灰色に線色設定。白色に塗色設定。
　　[msgx,msgy]へ「［｛出目｝］が出ました。」を文字描画。
　　もし、捕獲フラグがオンならば、
　　　　[msgx,msgy+30]へ「マス｛Koma@i,r｝でオバケに捕まりました。」を文字描画。
　　違えば、
　　　　[msgx,msgy+30]へ「マス｛Koma@i,r｝へ着きました。」を文字描画。
　　ここまで。
　　[msgx,msgy+60]へ「マス｛Koma@i,r｝は、｛マス種類@地図@(Koma@i,r)｝です。」を文字描画。
　　1秒待つ。
　　捕獲フラグはオフ。
ここまで。

●（zの）コマ消去とは
　　0に線太設定。「#000077」に線色設定。「#000077」に塗色設定。
　　[21,158+z*30,750,30]へ四角描画。
ここまで。

●（zの）情報消去とは
　　0に線太設定。「#000077」に線色設定。「#000077」に塗色設定。
　　[10+490*(z-1),320,290,200]へ四角描画。
ここまで。

●オバケ移動とは
　　a=(r-1)%4
　　もし、a<2ならば、
　　　　obake=obake+1
　　違えば、
　　　　obake=obake-1
　　ここまで。
　　0のコマ消去。
　　0に線太設定。白色に線色設定。白色に塗色設定。
　　「24px sans-serif」に描画フォント設定。
　　kx=50*(obake)-18。ky=181。
　　[kx,ky]へ「👻」を文字描画。
　　0.5秒待つ。
ここまで。

●（x,yへzの）マス描画とは
　　2に線太設定。「#aaaaaa」に線色設定。白色に塗色設定。
　　もし、z=2ならば、「#cc9900」に塗色設定。
　　もし、z=3ならば、「#cccccc」に塗色設定。
　　もし、z=4ならば、「#ccdd99」に塗色設定。
　　[x,y,46,46]へ四角描画。
　　0に線太設定。灰色に線色設定。黒色に塗色設定。
　　「36px sans-serif」に描画フォント設定。
　　[x+5,y+37]へマス表記@zを文字描画。
ここまで。

●サイコロ振りとは
　　回転数=（6の乱数）+7
　　ii=0
　　（ii<回転数）の間
　　　　0に線太さ設定。「#666666」に線色設定。「#000077」に塗り色設定。
　　　　[320,320,160,160]へ四角描画。
　　　　dcx=(19の乱数)-39
　　　　dcy=(19の乱数)-39
　　　　キャンバス状態保存
　　　　　　[400,400]に描画起点設定。
　　　　　　(180の乱数)に描画回転。
　　　　　　出目=((6の乱数)+1)。
　　　　　　出目のサイコロ描画。
　　　　キャンバス状態復元
　　　　ii=ii+1。
　　　　0.05秒待つ。
　　ここまで。
ここまで。

●（数の）サイコロ描画とは
　　黒色に線色設定。白色に塗り色設定。2に線太さ設定。
　　[dcx,dcy,辺長,辺長]へ四角描画。
　　もし、数が1ならば、目色は赤色。
　　違えば、目色は黒色。
　　目色に線色設定。目色に塗り色設定。1に線太さ設定。
　　（数）回
　　　　目x＝1＋目位置[数-1][回数-1]%3。
　　　　目y＝1＋目位置[数-1][回数-1]/3を整数変換。
　　　　[dcx+マス*目x,dcy+マス*目y]に目半径の円描画。
　　ここまで。
ここまで。

●勝敗判定とは
　　もし、Koma@1,r=15ならば、
　　　　owari=1。
　　　　勝者=「Ａ」
　　ここまで。
　　もし、Koma@2,r=15ならば、
　　　　owari=1。
　　　　勝者=「Ｂ」
　　ここまで。
ここまで。

●終了処理とは
　　描画中キャンバスをマウス押した時には
　　ここまで。
　　「24px sans-serif」に描画フォント設定。
　　0に線太設定。灰色に線色設定。白色に塗色設定。
　　[320,300]へ「｛勝者｝さんの勝ち！」を文字描画。
　　「｛勝者｝さんの勝ちです。」と話す。
　　0に線太設定。灰色に線色設定。黄色に塗色設定。
　　[175,560]へ「ブラウザの再読み込みボタンをクリック」を文字描画。
ここまで。

実行結果

保存

プログラムを保存

表示ページ

直前に実行または一時保存した内容を復元

実行環境

なでしこバージョン

素材

画像・音声・データ

ログインすると素材をアップロードできます。

🍯 プログラム貯蔵庫

プログラム

プログラムを保存

なでしこバージョン

画像・音声・データ