リソースtoデータ by 反動
プチコンではBGやスプライトなどのリソースデータはそれぞれ独自にセーブできるが、プログラムリストとして公開するには向いていない。そこで便利なのがこの実用プログラムだ。
プログラムを実行して、リソースデータを読み込むと画面上部にそのデータが一覧表示される。カーソルを十字ボタンで動かして、データ化したい画像の上に乗せると（見づらいリソースデータであれば１行目に表示される座標値を手がかりにしよう）、キャラクタ情報が表示されるぞ。
左リンクのサンプル動画では、最初にプチコン付属の「CHRED」でデフォルトのリソースデータを保存するところから撮影されているので参考になるだろう。プログラム再起動時に同じファイル名を読み込むのであれば、「０」を指定すればファイル名は省略できるぞ。
私が作りました
反動
サークル反動冥土の反動と申します。
ベーマガ世代ですので、プチコンに見事ハマっています。
豊富にキャラクター文字があるのでそれを使ってもいいのですが折角なのでドット絵のゲームも配信して欲しいと思い、このツールを作りました。
昔ベーマガを見ながらひたすらDATA文のデータを打ち込んでいた苦行を思い出してくださいｗ
CHECK POiNT 
使ってみたら数字がズラッと並んでるが、つまりこれはどういうこったこのヤロー！
そこからか。ズバリ言ってしまうと、それは
ＣＨＲＳＥＴ命令に使う〈画像文字列〉じゃな。詳しくはマニュアル参照じゃが、このまま書き写すだけでプログラムの中にリソースデータを含めることができるのじゃからリスト公開派のショクンには有用なツールじゃぞ。
そのまま
ＣＨＲＳＥＴ命令の中に入れるのもいいけど、数が多いようならＤＡＴＡ文に列記して、ＲＥＡＤ命令で読み出すのがやっぱり基本かな。しかし８×８ドットのために64文字とは長ったらしいもんだぜ、ファック！ だいたいコレ、表示されるのはわかったけどよォ、どうやってプログラムにコピペすりゃいいんだ？
うーん……地道に書き写すしかないだろうね。ケータイのカメラで撮るのが一番手近かな。
シット！ 公開するのも打ち込むのもヘビーじゃねえか！
もっと短くしたいなら、データ圧縮のアルゴリズムを組むことになるね。かなり研究の進んでいる分野だから、いろいろ参考になる情報も多いんじゃないかな。
かつて某誌にぴゅ●太の野球拳プログラムが載ったときは、絵といっしょに「まずこのごほうび絵を描いてください」から始まっておって、何がごほうびなんだかわからんことになっておったものじゃ。これは一例じゃが、プログラムの中にデータで含めることができるというのは重要じゃぞ。
プログラムリスト
- ’＊＊＊ＲＴＤ２＊＊＊
- ＠Ｊ
- ＣＬＳ：ＳＰＣＬＲ
- ＬＯＣＡＴＥ ０，８
- ＦＮ１＄＝ＦＮ＄
- ＩＮＰＵＴ”ＦＩＬＥＮＡＭＥ（０－”＋ＦＮ＄＋”）”；ＦＮ＄
- ＩＦ ＦＮ＄＝＝”０” ＴＨＥＮ ＦＮ＄＝ＦＮ１＄
- ’
- ＩＮＰＵＴ”１）ＳＰＵ ２）ＢＧＵ”；Ａ
- ＩＦ Ａ＝＝１ ＴＨＥＮ ＲＮ＄＝”ＳＰＵ０”：ＧＯＴＯ ＠Ｊ１
- ＩＦ Ａ＝＝２ ＴＨＥＮ ＲＮ＄＝”ＢＧＵ０”：ＧＯＴＯ ＠Ｊ１
- ＧＯＴＯ ＠Ｊ
- ’
- ＠Ｊ１
- ＩＮＰＵＴ”ＰＡＬＥＴ”；ＰＬ
- ＩＦ ＰＬ＜０ ＯＲ ＰＬ＞１５ ＴＨＥＮ ＠Ｊ１
- ’
- ＲＮ１＄＝ＲＮ＄＋”：”＋ＦＮ＄
- ＬＯＡＤ ＲＮ１＄，ＦＡＬＳＥ
- ’
- Ｎ＝０
- ＩＦ Ａ＝＝２ ＴＨＥＮ ＠ＬＯＯＰ
- ＧＯＴＯ ＠ＬＯＯＰ２
- ’＊＊＊ＳＰＲＩＴＥ
- ＠ＬＯＯＰ２
- ＦＯＲ Ｙ＝０ ＴＯ ３
- ＦＯＲ Ｘ＝０ ＴＯ １５
- ＳＰＳＥＴ Ｎ，Ｎ，ＰＬ，０，０，３
- ＳＰＯＦＳ Ｎ，Ｘ＊１６，Ｙ＊１６
- Ｎ＝Ｎ＋１
- ＮＥＸＴ
- ＮＥＸＴ
- Ｘ＝０：Ｙ＝０
- ’
- ＠Ｊ２
- ＣＬＳ
- ＢＴ＝ＢＵＴＴＯＮ（）
- Ｘ＝Ｘ＋（ＢＴ ＝＝ ８）－（ＢＴ ＝＝ ４）
- Ｙ＝Ｙ＋（ＢＴ ＝＝ ２）－（ＢＴ ＝＝ １）
- ＩＦ ＢＴ ＡＮＤ １６ ＴＨＥＮ ＠Ｊ
- ＩＦ Ｘ＞１５ ＴＨＥＮ Ｘ＝１５
- ＩＦ Ｘ＜０ ＴＨＥＮ Ｘ＝０
- ＩＦ Ｙ＞３ ＴＨＥＮ Ｙ＝３
- ＩＦ Ｙ＜０ ＴＨＥＮ Ｙ＝０
- ＣＨＲＮＯ＝Ｘ＊４＋Ｙ＊６４
- ＬＯＣＡＴＥ ０，８：？ ＳＴＲ＄（Ｘ）＋”，”＋ＳＴＲ＄（Ｙ）
- Ｊ＝９
- ＦＯＲ Ｉ＝ＣＨＲＮＯ ＴＯ ＣＨＲＮＯ＋３
- ＣＨＲＲＥＡＤ（ＲＮ＄，Ｉ），Ｃ＄
- ＬＯＣＡＴＥ ０，Ｊ：？Ｃ＄
- Ｊ＝Ｊ＋２
- ＮＥＸＴ
- ＸＸ＝Ｘ＊２：ＹＹ＝Ｙ＊２
- ＣＯＬＯＲ ＲＮＤ（７）
- ＬＯＣＡＴＥ ＸＸ，ＹＹ： ？”╂╂”
- ＬＯＣＡＴＥ ＸＸ，ＹＹ＋１：？”╂╂”
- ＣＯＬＯＲ ＆ＨＦ
- ＶＳＹＮＣ（５）
- ＧＯＴＯ ＠Ｊ２
- ’＊＊＊ＢＧＣＨＲ
- ＠ＬＯＯＰ
- Ｎ＝０
- ＦＯＲ Ｙ＝０ ＴＯ ７
- ＦＯＲ Ｘ＝０ ＴＯ ３１
- ＧＰＵＴＣＨＲ Ｘ＊８，Ｙ＊８，”ＢＧＵ０”，Ｎ，ＰＬ，１
- Ｎ＝Ｎ＋１
- ＮＥＸＴ
- ＮＥＸＴ
- Ｘ＝０：Ｙ＝０
- ’
- ＠Ｊ３
- ＣＬＳ
- ＢＴ＝ＢＵＴＴＯＮ（）
- Ｘ＝Ｘ＋（ＢＴ ＝＝ ８）－（ＢＴ ＝＝ ４）
- Ｙ＝Ｙ＋（ＢＴ ＝＝ ２）－（ＢＴ ＝＝ １）
- ＩＦ ＢＴ ＡＮＤ １６ ＴＨＥＮ ＠Ｊ
- ＩＦ Ｘ＞３１ ＴＨＥＮ Ｘ＝３１
- ＩＦ Ｘ＜０ ＴＨＥＮ Ｘ＝０
- ＩＦ Ｙ＞７ ＴＨＥＮ Ｙ＝７
- ＩＦ Ｙ＜０ ＴＨＥＮ Ｙ＝０
- ’
- ＣＯＬＯＲ ＲＮＤ（７）
- ＬＯＣＡＴＥ Ｘ，Ｙ：？”╂”
- ＣＯＬＯＲ ＆ＨＦ
- ＬＯＣＡＴＥ ０，８：？ ＳＴＲ＄（Ｘ）＋”，”＋ＳＴＲ＄（Ｙ）
- ＬＯＣＡＴＥ ０，９：ＣＨＲＲＥＡＤ（ＲＮ＄，Ｘ＋（Ｙ＊３２）），Ｃ＄
- ？ Ｃ＄
- ＶＳＹＮＣ（５）
- ＧＯＴＯ ＠Ｊ３
