雑記帳

昨日の続きです。

HSP命令リファレンスを眺めていたらsplit命令を見つけたので、字間を空けて表示するモジュールを改良して改行に対応してみました。

#module ;字間で表示命令(改行対応版)
#deffunc jikanmes str a ,int b,int c
_a = a
split _a,"\n",d
cx = ginfo_cx
posx = cx : posy = ginfo_cy
foreach d
	sdim buf,strlen(d(cnt))*2+2
	cnvstow buf,d(cnt)
	repeat
		pos posx,posy
		tmp = wpeek(buf,cnt*2)
		if tmp = 0 : break
		mes cnvwtos(tmp)
		posx = posx+ginfo_mesx+b
	loop
	posx = cx : posy = posy+ginfo_mesy+c
loop
return
#global

jikanmes "あいうえお\nかきくけこ\nさしすせそ",20,30

第2引数が文字間隔、第3引数が行間隔となっています。

改行コードごとに配列に格納し、それぞれ前回と同じ処理をしています。

また、mes命令と同様、あらかじめpos指定しておけば、その点を基準に描画されます。