PSPDEONS

唐突ですが左手をご覧下さい。
Bookmarksという項目に燦然ときら星の如き各サイト様のリンクが御座います。
…すみません、無断リンクです。支障御座いましたら大変お手数ですが罵詈雑言にてお知らせ下さい。

基本、当BLOGが活動するに当たって直接的・間接的にお世話になっているサイト様を勝手にリンクさせて頂いています。
もちろんこの他の方々にも色々お世話になっているのですが、申し訳なく無精にて最近滞っています。
しかし、さてそうすると一見異彩を放っているのがPOSHBOY様。漫画・アニメ各種感想の超大御所です。
ああ、ひっそりリンクするのも畏れ多かったのについに本旨として取り上げてしまいました。

種明かしから先にしてしまうと、私が『車輪の国、向日葵の少女』に興味を持ったのはPOSHBOYおきた様の
日記にて大絶賛されていたのが最初でした。いわばうちの活動の原点であらせらるのですねー。
またエロゲ感想専用ページもあり、何気に当方の劣化移植ブツの大方は取り上げられています。
その感想も的を射ていて、方向性など私のそれとも相通ずる（一方的に。相？）部分が多いので大変参考になっています。

再度しかし。
そもそもはエロゲに触れるより前、週刊少年ジャンプ感想サイトの最古参として、それも特にライジングインパクト（超人？ゴルフ漫画）の独立レビューに惹かれて閲覧していました。
今もその情感の溢れる筆致にしてなお的確な分析かつ客観的な視点で語られる感想は必読です。
かっこひらき801に興味が無くとも！かっことじ

と、ここまでが本題にして前置きです。以下は畑違いに突っ走ります。置いてきぼりです。

そんなわけで今週もジャンプ感想など読みふけるに、SKET DANCE なる漫画が一押しされていました。
この漫画を初めて目にした時は、謎のオリジナル球技を開発して騒いでいる妙な色物学園ギャグという印象で
流し読みして「ふーん、20週打ち切りかなー」という程度だったのですが、一押されでこの機会に時間を作ってみました。

むむ、これは予想以上に面白い。
青臭さもあるちょっといい話を真っ向からとりあげつつ、過度に湿っぽくならずカラっとギャグ仕立てでシャッキリボンです。
とまあ私が何を言っても換言なので大本を見て欲しいのですけれど、この作家は本当に漫画が上手いですね。特に現在のジャンプ恒例・集団バトルシリーズにおける料理対決の回（10号）が白眉です。

まず対決する両者及び周辺のキャラ立てを深めつつ（特にヒロイン（？）は今までの描写と不整合はないのに新味は一杯あるという）対決自体も真っ当に「大丈夫か？」「もしかして勝てるのかも」「勝って欲しい」と読者に思わせるメリハリの効いた展開。
そこで怒濤のパロネタ○連発を挟みながらも、決してギャグでグダグダにはせず説得力のある勝敗が描かれています。最後には大ゴマを使うべきところでしっかり使ってグっとこさせ、次の勝負へ盛り上がるヒキという。
（…抽象的なのは仕様です。感想って難しい）
一つ一つは王道でも、これをたった一週のみでこなす密度とそうと感じさせない構成力が凄いです。
後出しジャンケンを一週に片方が一手出すだけを延々と繰り返す同誌某人気漫画とは大違い。

次の対決も面白かったし、キャラクターの組み合わせ的に明日発売の号も大いに期待してます。

ではそろそろこの辺りで結論。PSPDEONSでは『金剛番長』（鈴木央氏）を応援していません。
いや、もの凄く面白いのですけれどー。ライジングインパクトの時から10年越しで氏のダーク気味な正統ファンタジーを待ち望んでいるのです。いつまで週刊少年漫画雑誌読んでるんだ、というのは禁句。

※と、ひたすら話題が流転を繰り返してどこに着地すればいいのかさっぱり見失いました。
※あとこういう時にamazonリンクがあると便利そうですね。前回は何だか申し訳ありません。

・パルフェ

体験版を見るばかりでは（こればっかりだ）こんにゃくと同アプローチでいけそうです。
スクリプトの開始アドレスやらテーブルファイルの読み込み方などをダンプ時に調整し、
行末にある命令の種別コード？を微妙に置き換えながらなんとかかんとか。
ただ、移動処理の判定（複数同時や順次単独など）とか酷いことになってるので見直すのが少し怖いです。

それより最大の問題は何はともあれ先立つもの。おぶちまけますところの金です。
製品版を買わないと選択パート等がにんともかんとも。

そこでネコ型杓子ロボットが取り出すところのアフィリエイト。
こちらでの累計が目標金額に達しましたら最優先で作成させて頂きたいと思います。

まず今までの皆々様からのご協力を全て注ぎ込みまして、
パルフ ェ～ショコラ second brew～Re-order 購入への目標残高は税込み約6,100円弱になりました！
改めまして誠にありがとうございます。
もちろん善意のご協力がなくともマイペースで積み立てていきますが、どうしてもというお大臣様は是非。

我ながらブログ運営費他諸経費を度外視するあたり、何という環境に優しい計画でしょう。
その後に3万円くらい溜まったらアリスマをプレイするためにPDAを購入しようと思います。

さあさ、おろかなるたみぐさどもよわたしにみつぐがよい

すとーむさんのサイトにてMedia Engine を組み込んだPSP用ONSバイナリが公開されました。
その凄さは実際に試して頂くとして、取り急ぎうちでのスクリプトの対応編集方法などを。

☆命令
・こんにゃく・おとボク・HB等システムカスタマイズ済みのもの
0.txt に *voice という自作命令ラベルがあるので、その中の 「dwave 0,」 を 「bgmonce」 に変更。
また0.txt 1.txt の「bgm 」(半角スペースが大事)を「bgm2 」、「bgmstop 」を「stop2 」（bgmstop2？）に一斉置換してみてください。
Perlスクリプトを書き換えた方が早いかも。

・それ以外
「dwave 0,」→「bgmonce 」
「bgm 」→「bgm2 」
「bgmstop 」→「stop2 」

…うん、そのまんまです。

追記）「dwavestop 0」 → 「bgmstop」　も必要でしたね。

☆ファイル名　（ひとまずbgmファイルのみATRAC3に変換を）
Perlスクリプトで bgm "$hoge.ogg" となっているところを探して ogg からATRAC3拡張子（oma?）に変更

というのも不親切なので、いつか一斉置換スクリプトや 0.txtでの設定等で対応すべきでしょうか。
もし拡張子 ogg のままでも判別してくれるならば必要ないですね。

ATRAC3というのがちょっとネックですが威力は申し分ないので(要[ご検討)を]。
改めてすとーむさんお疲れ様です。

Encode.pm（標準モジュール）でNスクにおけるメッセージ中の半角英字、カナを全角に変換してみる。
あまり意味もなくモジュール仕立て。瀬里奈の時、ここでだけ "use utf8" したかったんだっけ？

※hontai.pl　コンバータ本体です。
use nsc_h2z;
～
略
～
nsc_h2z::nh2z("1.txt");
exit;

※nsc_h2z.pm　同梱するとかで
package nsc_h2z;


use utf8;
use Encode;
use Encode::JP::H2Z;


use open IO => ":encoding(cp932)";


sub nh2z{
my $file = $_[0];
open (local *IN,"$file");
open (local *OUT,">temp.txt");
while ( my $line = <IN> ){


	if ( $line !~ /^[0-9a-zA-Z;\*\t]/ ){　　　# 命令文チェック
		chomp $line;
		my $text = $line;
		my $tag;
		if ( $line =~ /^(\[.*?\])(.*)/ ){　　　# タグ
			$tag = $1;
			$text = $2;
		}
		$text = Encode::encode("euc-jp",$text);
		Encode::JP::H2Z::h2z(\$text);
		$text = Encode::decode("euc-jp",$text);
		$text =~ tr/?!a-zA-Z0-9/？！ａ-ｚＡ-Ｚ０-９/;
		$line = "$tag$text\n";
	}
	print OUT $line;


}
close IN;
close OUT;
rename "temp.txt","$file" if unlink "$file";
}
1;

use utf8 下で、なおかつ一度 euc-jp にエンコードした文字列を渡してやらないと上手くいかないようです。
shift-jis（原文） → utf8 （Perl内部） → euc (半角全角処理)→ utf8 (に戻して)→ shift-jis （出力）
記号は　$text =~ tr/?!a-zA-Z0-9/？！ａ-ｚＡ-Ｚ０-９/; 　に追記で適当に対応しましょうか。
…なんだかよくわからない文字はなんだかよくわからないままで。沙耶の唄は微妙かも

ONScripter用に アトリエかぐや TEAM HEARTBEAT 様製ソフトの簡易回想モードを作成するスクリプト

2/3)
第4弾？
主に体験版をソースに、瀬里奈 for ONSから改変して作成したものです。
シーン回想へのジャンプフラグが統一されているようなので機械的に拾っています。
間違ってもRPGモードはついていません。もとい個別の作品での検証は十分ではありません。
そのため、ここをこうして欲しいという要望が有ればある程度対応させたいと思います。
また夏神 for ONScripter というわけではないようです。自重中。

kaguyaHB_20080203.rar

ついでに瀬里奈のバックログを複数表示に変更。
あとメッセージ送りの時に音声が中断されないようになっています。（なんだか根強い要望があるみたい）
serina_20080203.rar（修正：バックログ時に立ち絵が消えてました→立ち絵が消えなく…再修正）
上記個別エントリにて

音量設定はないので、予めBGMの音量を下げて変換しておくといいかも。

PerlでもONSでもなかったりしますけれど。

ときに顔画像を立ち絵と合成する座標が判らず、しょうがなく目で見て合わせてみることに。
しかしこれまた丁度いい機能のあるツールが見つからないので、自作で賄ってみようと思い立ち。

欲しい機能
・αPNGを読み込める
・カーソルキーで差分画像を動かせる
・終了時の座標をファイルに出力できる
・予め画像をリスト化しておいて、連続で位置調整ができる

これらの機能とかかる労力と有する技術を色々総合的に判断した結果、Nスクでやることに決定。
…いやまあ、楽なのが一番ですよね。

;mode800
*define


transmode alpha
spi "nscrpng.spi|png"
usewheel


numalias face,10
numalias base,11
numalias left,12
numalias top,13
numalias step,14


defsub chklocate


game


*start
textoff:saveoff
erasetextwindow 0
csvopen "stand.csv","w"


;chklocate "ベース画像","差分画像"
chklocate "sp/anj_00.png","sp/anj0001.png"
chklocate "sp/cho_00.png","sp/cho0001.png"
chklocate "sp/kan_00.png","sp/kan0001.png"
chklocate "sp/kaz_00.png","sp/kaz0001.png"
chklocate "sp/koh_00.png","sp/koh0001.png"
chklocate "sp/kou_00.png","sp/kou0001.png"
chklocate "sp/nan_00.png","sp/nan0001.png"
chklocate "sp/sae_00.png","sp/sae0001.png"
chklocate "sp/say_00.png","sp/say0001.png"
chklocate "sp/tat_00.png","sp/tat0001.png"
chklocate "sp/tou_00.png","sp/tou0001.png"
chklocate "sp/tug_00.png","sp/tug0001.png"
chklocate "sp/kaz_00_z.png","sp/kaz0003_z.png"
chklocate "sp/nan_00_z.png","sp/nan0001_z.png"
chklocate "sp/sae_00_z_s.png","sp/sae0001_z_s.png"
chklocate "sp/tug_01_z.png","sp/tug0008_z.png"


csp -1
print 1
click
end


*chklocate


getparam $base,$face
fileexist %0,$base
if %0 == 0 goto *error1
fileexist %0,$face
if %0 == 0 goto *error2
mov %left,300
mov %top,50
lsp 10,$base,0,0
mov %step,1


*locate_loop


lsp 9,$face,%left,%top
itoa $1,%left
itoa $2,%top
itoa $3,%step
add $1,","+$2+"@"+$3
len %0,$1
if %0 mod 2 != 0 add $1," "
csp 5:lsp 5,":s/20,20,2;#FFFFFF$1",10,10
print 1


btndef clear
btndown 1
getcursor
getenter


btnwait %0


if %0 = -19 goto *result
if %0 = -1 mov %step,1
if %0 = -2 inc %step:if %step>20 mov %step,20
if %0 = -3 dec %step:if %step<1 mov %step,1
if %0 = -40 sub %top,%step
if %0 = -41 add %left,%step
if %0 = -42 add %top,%step
if %0 = -43 sub %left,%step


goto *locate_loop


*result
csvwrite $base,%left,%top
return


*error1
csvwrite $base,"not found"
return


*error2
csvwrite $face,"not found"
return

こんな感じでさっくりと福笑いが完成。
顔画像をカーソルで動かして決定した座標をCSVに出力します。Nスクって便利。
あとは変換する時のテーブルにするなり ImageMagick で総当たり合成するなり。
自作命令に渡すファイル名はPerlで取得したような手入力したような…。

もっとも当然ながら微妙にずれるので、本来の座標が取得出来れば最善なのですが。
何か見落としてないかな。