箱入り娘
作品プログラム
- 動作環境
- プロデル 2.0.1322 Windows 10
- 投稿者
- ohisama
- 投稿日
- 2025-10-09 11:22:55
- ダウンロード数
- 95
作品のプログラム
メイン画面を表示する
待機する
メイン画面とは
ウィンドウを継承する
-移動中
-開始横座標
-開始縦座標
-処理中
-選択図形
MaxRows = 7
MaxCols = 8
Board = {
{1, 1, 1, 1, 1, 1, 1, 1},
{1, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 1},
{1, 1, 1, 9, 9, 1, 1, 1}}
はじめ手順
初期化する
選択図形は、無
処理中は、×
キャンバス1に子キャンバスを作って父とする
その位置と大きさは、｛100 + 2 * 80, 100 + 1 * 80, １ * 80, 2 * 80｝
その背景色を#b9bbddに変える
父へ「父」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って娘とする
その位置と大きさは、｛100 + 3 * 80, 100 + 1 * 80, 2 * 80, 2 * 80｝
その背景色を#e4bdc3に変える
娘へ「娘」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って母とする
その位置と大きさは、｛100 + 5 * 80, 100 + 1 * 80, １ * 80, 2 * 80｝
その背景色を#e9ccccに変える
母へ「母」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って手代とする
その位置と大きさは、｛100 + １ * 80, 100 + ３ * 80, １ * 80, 1 * 80｝
その背景色を#f7dcb4に変える
手代へ「手代」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って大番頭とする
その位置と大きさは、｛100 + 2 * 80, 100 + 3 * 80, 4 * 80, 1 * 80｝
その背景色を#dfbfaaに変える
大番頭へ「大番頭」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って兄嫁とする
その位置と大きさは、｛100 + 6 * 80, 100 + 3 * 80, 1 * 80, 1 * 80｝
その背景色を#b9bbddに変える
兄嫁へ「兄嫁」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って丁稚0とする
その位置と大きさは、｛100 + 1 * 80, 100 + 4 * 80, 1 * 80, 1 * 80｝
その背景色を#d2e7d4に変える
丁稚0へ「丁稚」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って女中とする
その位置と大きさは、｛100 + 2 * 80, 100 + 4 * 80, 2 * 80, 1 * 80｝
その背景色を#f3e0e3に変える
女中へ「女中」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って番頭とする
その位置と大きさは、｛100 + 4 * 80, 100 + 4 * 80, 2 * 80, 1 * 80｝
その背景色を#ddcdc1に変える
番頭へ「番頭」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って丁稚1とする
その位置と大きさは、｛100 + 6 * 80, 100 + 4 * 80, 1 * 80, 1 * 80｝
その背景色を#d2e7d4に変える
丁稚1へ「丁稚」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って番犬とする
その位置と大きさは、｛100 + 1 * 80, 100 + 5 * 80, 1 * 80, 1 * 80｝
その背景色を#f7f0f1に変える
番犬へ「番犬」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って祖父とする
その位置と大きさは、｛100 + 2 * 80, 100 + 5 * 80, 2 * 80, 1 * 80｝
その背景色を#adafdfに変える
祖父へ「祖父」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って祖母とする
その位置と大きさは、｛100 + 4 * 80, 100 + 5 * 80, 2 * 80, 1 * 80｝
その背景色を#daadadに変える
祖母へ「祖母」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1に子キャンバスを作って丁稚2とする
その位置と大きさは、｛100 + 6 * 80, 100 + 5 * 80, 1 * 80, 1 * 80｝
その背景色を#d2e7d4に変える
丁稚2へ「丁稚」という文字を描く
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
キャンバス1を更新する
終わり
初期化する手順
この実質大きさを｛800, 700｝に変える
この初期位置を「手動」に変える
この内容を「箱入り娘」に変える
初期化開始する
キャンバス1というキャンバスを作る
その位置と大きさを｛0, 0, 417, 366｝に変える
その背景色を「水」に変える
そのドッキング方向を「全体」に変える
その間隔を｛4, 4, 4, 4｝に変える
MaxCols回，iに1からカウントしながら繰り返す
MaxRows回，jに1からカウントしながら繰り返す
キャンバス1へ四角形を描く
その位置と大きさは｛20 + i * 80, 20 + j * 80, 80, 80｝
Board(j, i)について分岐
0の場合
その背景色は、#444
1の場合
その背景色は、#aaa
9の場合
その背景色は、#eee
キャンバス1に「玄関」という文字を描く
その位置は｛2３ + i * 80, 40 + j * 80｝
そのフォントは「メイリオ」
その文字色は、灰
その文字サイズは20
他の場合
その背景色は、黄色
分岐終わり
そして
そして
初期化終了する
この設計スケール比率を｛96, 96｝に変える
終わり
キャンバス1がマウスのボタンが押された時の手順
選択図形は、キャンバス1から{イベントの横座標, イベントの縦座標}を選択したもの
移動中は、○
開始横座標は、選択図形の横 - イベントの横座標
開始縦座標は、選択図形の縦 - イベントの縦座標
終わり
キャンバス1のマウスカーソルが移動した時の手順
もし移動中でないなら、抜け出す
もし処理中なら、抜け出す
処理中は、○
位置xは、(イベントの横座標 ＋ 開始横座標)
位置yは、(イベントの縦座標 ＋ 開始縦座標)
選択図形の位置は｛位置ｘ, 位置ｙ｝
キャンバス1を更新する
処理中は、×
終わり
キャンバス1がマウスのボタンが離された時の手順
移動中は、×
位置xは、（（選択図形の横 － 100）/ 80）の整数 * 80 + 100
位置ｙは、（（選択図形の縦 － 100）/ 80）の整数 * 80 + 100
選択図形の位置は｛位置ｘ, 位置ｙ｝
終わり
終わり