星乃一歌のパズル

ゴッホ風ヒマワリのパズル（https://n3s.nadesi.com/id.php?3383）を改変させていただき、私が愛しているプロセカの星乃一歌ちゃんのパズルにしました

エディタ

プログラム

// ver0.4 正確に表示されない不具合の修正
// ver0.5 正確に表示されない不具合の修正
// ver1.4 URLで読み込む画像サイズの変更
#-------------------------------------------------------
#ゴッホ風ヒマワリのパズル（https://n3s.nadesi.com/id.php?3383）を使用
# ピース入れ替えパズル
# [解説記事] https://news.mynavi.jp/techplus/article/nadeshiko-92/
#-------------------------------------------------------
# 盤面の初期化 --- (※1)
盤面分割数=6 # ←難易度を指定(3x3)
画面幅=300 # ゲームキャンバスのサイズ
盤面幅=画面幅÷盤面分割数
画像幅=0
ピース幅=0
盤面＝0から(盤面分割数*盤面分割数-1)の配列連番作成。
盤面クリア状態＝盤面を「:」で配列結合
盤面を配列シャッフル。
CX=-1
CY=-1
「rgba(0,0,255,.5)」に塗り色設定。
# 画像の読み込み --- (※2)
URL=「https://n3s.nadesi.com/image.php?t=2b8ac071084a321c&f=766.jpg」
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ラベル$テキスト＝「移動先を選んで」
　盤面表示。

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

実行結果

保存

プログラムを保存

表示ページ

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

実行環境

なでしこバージョン

素材

画像・音声・データ

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

🍯 プログラム貯蔵庫

プログラム

プログラムを保存

なでしこバージョン

画像・音声・データ