HSPTV!掲示板

f_size=20
font "HGP行書体",f_size
sdim d,200
d={"
ちょっと長めに書いてみようかと思いました
これだと記号をはさむのは大変だよね
でもこれだと記号なくても改行されるからね。
"}
pos 100,50

y0=csry ;書き始めのｙ座標を取得
mojisuu = strlen(d)
mojisuu=mojisuu/2
repeat mojisuu
kari=""
kari = strmid(d,cnt*2,2)
if kari="\n" {
pos csrx-f_size,y0
continue
}
mes kari
loop
stop

で文字を縦書きに出来るらしいのですが、全角で書かれた文が文字化けしてしまいます
どの辺を直せばいいのでしょうか？＞＜

あああ自己解決しました･･･
というか横書きでも良さそうなので普通に表示する事にしました

無駄スレ申し訳ないです；

なぜかは分かりませんが
kari = strmid(d,3+cnt*2,2)
にしたらうまくできました

ムダにならないよう、てきとーな縦書き文字表示処理を書いてみた。

	picload "sample\\demo\\sky_bg.jpg", 1

	font "HGP行書体", 25, 1 | 16
	color 255

//	いちおう全角文字のみ対応
	pos 400, 10
	data = "むかしむかしの、じいさんばあさん。"
	gosub *draw_string

	wait 50

	pos 435, 50
	data = "あひゃひゃ、皮へ選択、山へ紙ば仮。"
	gosub *draw_string

	stop

*draw_string
	i = 0
	repeat
		getstr hoge, data, i, , 2
		if strsize = 0 : break

		if hoge = "。" | hoge = "、" {
//			フォントサイズに合わせて要調節
			pos ginfo(22) + 15, ginfo(23) - 10
			mes hoge
			pos ginfo(22) - 15, ginfo(23) + 10
		} else {
			mes hoge
		}

		i + 2

//		一瞬で表示したいなら不要
		wait 20
	loop

	return