HSPTV!掲示板

現在ゲーム用のメッセージウィンドウを作っています。
自分で作った物がこれなのですが

mesall =""

repeat
redraw 0

color 255,255,255
boxf //画面消す



mesadd = ""//同じメッセージがたくさん表示されないように追加メッセージは基本はないようにする

if mesnumber = 0 & stopper = 0 : mesadd = "メッセージ１\r":stopper = 1
if mesnumber = 1 & stopper = 0 : mesadd = "メッセージ２\r":stopper = 1
if mesnumber = 2 & stopper = 0 : mesadd = "メッセージ３\r":stopper = 1 //stopperをつけないとずっと追加メッセージが追加されちゃう

stick key
if key = 32 : mesnumber= 1 + mesnumber :stopper = 0 //エンターをおしたら追加メッセージが変わる

gosub *message //メッセージ表示に飛ぶ

redraw 1
wait 3
loop


*message

pos 0,0

font "ＭＳ ゴシック",13
color 0,0,0
mesall = mesadd + mesall //今までのメッセージにmesaddのメッセージを足す

mes mesall


return

この場合

1回目のエンター

1行目　　　メッセージ２
2行目　　　メッセージ１
3行目　

2回目のエンター
1行目　　　メッセージ３
2行目　　　メッセージ２
3行目　　　メッセージ１

と表示されます。
しかし私が作りたいメッセージウィンドウの理想は

エンターなし

1行目　　　
2行目　　　
3行目　　　　メッセージ１

エンター1回目

1行目　　　
2行目　　　メッセージ１
3行目　　　メッセージ２

エンター2回目

1行目　　　メッセージ１
2行目　　　メッセージ２
3行目　　　メッセージ３

と表示されるメッセージウィンドゥなのです。
ぜひ解決策をご教授いただきたいです！

>>この場合
>>1回目のエンター
>>1行目　　　メッセージ２
>>2行目　　　メッセージ１
>>3行目　
>>2回目のエンター
>>1行目　　　メッセージ３
>>2行目　　　メッセージ２
>>3行目　　　メッセージ１
>>と表示されます。

１：まず、メッセージを入れ替えれば表示順序は解決します。
２：最初に空改行２つ、エンター１回目で空改行１つ、２回目なし、を追加します。
これで表示位置も解決します。

KAさん返信ありがとうございます！
そして私は自分の最初の書き込みでは十分な情報を出しきれていなかったことを謝らなくてはなりません。

メッセージが４、５、６〜とドンドン増えていった場合に、自分の組んだものの場合はそのまま
下にずーとつながっていって古い文章は画面外に消えていってくれたのですが…
どうしても理想のメッセージウィンドゥの場合にはどう書けばそうなってくれるかわからないのです。

mesall =""
screen 0,360,40

repeat
	redraw 0
	
	color 255,255,255
	boxf      //画面消す
	
	

	mesadd = ""//同じメッセージがたくさん表示されないように追加メッセージは基本はないようにする

		if mesnumber = 0 & stopper = 0 : mesadd = "メッセージ１\r":stopper = 1		
		if mesnumber = 1 & stopper = 0 : mesadd = "メッセージ２\r":stopper = 1		
		if mesnumber = 2 & stopper = 0 : mesadd = "メッセージ３\r":stopper = 1		
		if mesnumber = 3 & stopper = 0 : mesadd = "メッセージ４\r":stopper = 1		
		if mesnumber = 4 & stopper = 0 : mesadd = "メッセージ５\r":stopper = 1		
		if mesnumber = 5 & stopper = 0 : mesadd = "メッセージ６\r":stopper = 1		
								//stopperをつけないとずっと追加メッセージが追加されちゃう

	stick key
		if key = 32 : mesnumber= 1 + mesnumber :stopper = 0		//エンターをおしたら追加メッセージが変わる
	
	gosub *message		//メッセージ表示に飛ぶ
	
	redraw 1
	wait 3 
	loop
	
	
	*message
	
	pos 0,0
	
	font "ＭＳ ゴシック",13
	color 0,0,0
	mesall = mesadd + mesall		//今までのメッセージにmesaddのメッセージを足す
	
	mes mesall
	
	
	return

このようにメッセージが複数の場合はどうすればいいでしょうか
お手数をかけてしまい本当にすいません。

mes描画位置を自分で管理すれば良い
ちゃんとやるならnote系命令使って一行ずつ取り出して
画面外の行は描画しないようにとかするけど・・・

	pos 0,13*(2-mesnumber)	//3行目開始位置にしてmesnumberが増えたら上にずれてくように
	mesall =   mesall+mesadd	//mesallの後ろにmesaddを追加

fontは一度しか変えないならメインループ前に一度すれば良い

ありがとうございます！
文章が増えていくとmes命令では結構無理が出てくるのですね。
note命令は恥ずかしながら今知った次第であります。
一旦この命令周りを勉強して、またわからない点があれば質問させていただきます。お二方ともありがとうございました

解決済みになっていましたが、
「表示用の配列を用意して中身を入れ替えていく」方法をご紹介。

sdim mesall,100,5	//表示用配列

screen 0,360,40
	font "ＭＳ ゴシック",13
	color 0,0,0
repeat
	redraw 0
	
	color 255,255,255	:boxf      //画面消す
	
	stick key
		if key = 32 : mesnumber= 1 + mesnumber :stopper = 0		//エンターをおしたら追加メッセージが変わる

	mesadd = ""//同じメッセージがたくさん表示されないように追加メッセージは基本はないようにする
		if mesnumber = 0 & stopper = 0 : mesadd = "メッセージ１":stopper = 1		
		if mesnumber = 1 & stopper = 0 : mesadd = "メッセージ２":stopper = 1		
		if mesnumber = 2 & stopper = 0 : mesadd = "メッセージ３":stopper = 1		
		if mesnumber = 3 & stopper = 0 : mesadd = "メッセージ４":stopper = 1		
		if mesnumber = 4 & stopper = 0 : mesadd = "メッセージ５":stopper = 1		
		if mesnumber = 5 & stopper = 0 : mesadd = "メッセージ６":stopper = 1		
								//stopperをつけないとずっと追加メッセージが追加されちゃう
	
	gosub *message		//メッセージ表示に飛ぶ
	
	redraw 1
	wait 3 
loop
//++++++++++++++++++	
*message
	if stopper=1{	//エンター直後の表示前にのみ実行。
		repeat 3	//表示させたい行数分ループさせて
			mesall.cnt=mesall.(cnt+1):await	//入れ替える。
		loop
		mesall.2=mesadd	//表示の最終行に新しい分を代入。
		stopper=2
	}
	//ココから先、表示作業。
	color 0,0,0	//文字色は黒
	pos 0,0
	repeat 3	//表示させたい行数分ループさせる。	
		mes mesall.cnt
	loop
return

表示させたい行数の変更も楽々ですよ。

たんすさんありがとうございます！
もっと早く僕が気づいていればお得だった…ぬぬぬ
note命令を勉強して作ってみたのでついでに張っておきます。


noteall = "１ぎょめ\n２ぎょめ\n３ぎょめ"
notesel noteall
noteadd "たした４ぎょめ"
noteget note1,notemax-3
noteget note2,notemax-2
noteget note3,notemax-1
mes note1
mes note2
mes note3

repeatで一括で処理した方がいいですよ。

notesel noteall
noteall = "１ぎょめ\n２ぎょめ\n３ぎょめ"
noteadd "たした４ぎょめ"
repeat notemax
	noteget note, (notemax - 1) - cnt
	mes note
loop