ゴッホ風ヒマワリのパズル

ソース

プログラム

#-------------------------------------------------------
# ピース入れ替えパズル
# [解説記事] https://news.mynavi.jp/techplus/article/nadeshiko-92/
#-------------------------------------------------------
# 盤面の初期化 --- (※1)
盤面分割数=3 # ←難易度を指定(3x3)
画面幅=500 # ゲームキャンバスのサイズ
盤面幅=画面幅÷盤面分割数
画像幅=0
ピース幅=0
盤面＝0から(盤面分割数*盤面分割数-1)の配列連番作成。
盤面クリア状態＝盤面を「:」で配列結合
盤面を配列シャッフル。
CX=-1
CY=-1
「rgba(0,0,255,.5)」に塗り色設定。
# 画像の読み込み --- (※2)
URL=「https://n3s.nadesi.com/image.php?f=744.png」
URLの画像作成して、F画像に代入。
F画像の読み込んだ時には：
　画像幅=F画像$width
　F画像$style$display="none"
　ピース幅=INT(画像幅÷盤面分割数)
　盤面表示。
# ラベル作成
「ピースを入れ替えて絵を完成させましょう」のラベル作成して、Fラベルに代入。改行作成

# パズルの盤面を描画する処理 --- (※3)
●盤面表示とは：
　Yを0から(盤面分割数-1)まで繰り返し：
　　Xを0から(盤面分割数-1)まで繰り返し：
　　　I=Y×盤面分割数+X
　　　J=盤面[I]
　　　TX,TY = [J%盤面分割数, INT(J÷盤面分割数)]
　　　IX=TX×ピース幅
　　　IY=TY×ピース幅
　　　XX=X×盤面幅
　　　YY=Y×盤面幅
　　　F画像を[IX,IY,ピース幅,ピース幅, XX,YY,盤面幅,盤面幅]へ画像描画。
　　　# カーソルを描画
　　　もし、(CX=X)かつ(CY=Y)ならば：
　　　　[XX, YY, 盤面幅, 盤面幅]へ四角描画。
　# クリア判定 --- (※4)
　S=盤面を「:」で配列結合
　もし、S＝盤面クリア状態ならば：
　  Fラベル$テキスト＝「完成！クリア！」

# 盤面のピースを入れ替える処理 --- (※5)
●ピース入替処理とは：
　# クリックされた座標を取得
　TX=INT(マウスX÷盤面幅)
　TY=INT(マウスY÷盤面幅)
　# 既に選択中だった場合
　もし、CX≧0かつCY≧0ならば：
　　# 交換
　　TI=TY*盤面分割数+TX
　　CI=CY*盤面分割数+CX
　　T=盤面[CI]
　　盤面[CI] = 盤面[TI]
　　盤面[TI] = T
　　CX = -1
　　CY = -1
　　Fラベル$テキスト＝「移動しました」
　違えば:
　　CX = TX
　　CY = TY
　　# Fラベルに「移動先を選んで」をテキスト設定
　　Fラベル$テキスト＝「移動先を選んで」
　盤面表示。

描画中キャンバスをマウス押した時には：
　ピース入替処理。

作品について

作品情報

作品を編集

クジラ飛行机作

ライセンス: MIT（改変可/表示）
形式: wnako
タグ: -
利用バージョン: 3.7.20
アクセス数(累計): 139
アクセス数(今月): 55
更新日時: 2026/07/20 01:22 編集: 2026/07/28 14:16

⭐

作品公開情報

交流

ゴッホ風ヒマワリのパズル

プログラム

作品情報

コメント