HSPTV!掲示板

画面上に文字とラインを表示させ、文字をクリックしマウスにくっつくよう複製し
ラインの下の画面上をクリックするとそこに置くようにし、またラインより上の文字を
クリックし複製すると、最初においた文字が消えてしまします。
最初の文字の場所をうまく記憶させるような事はできますか？
また、いい方法があれば教えていただけないでしょうか

	screen 0,300,300
	cls
	pos 0.0
	color 0, 0, 0 :boxf
	color 255, 255, 255
	pos 30, 20
	mes "文字セレクト"
	pos 30, 40
	mes "●　▲"
	line 0,80,300,80

*sentaku
;;;;マウスポジションを探してクリックしたものの判別
	x=mousex : y=mousey
		if (x>30)&(x<45)&(y>30)&(y<55) : gosub *cl
	redraw 1
	await 1
	goto *sentaku
	color 0,0,0
*cl
	stick key
	if key=256 : gosub *cl2
	return
;;;;クリックした時の動作
*cl2
	redraw 2;ちらつき防止
	pos 0, 0
	color 0, 0, 0 :boxf
	color 255, 255, 255
	pos 30, 20
	mes "文字セレクト"
	pos 30, 40
	mes "●　▲"
	line 0,80,600,80
	pos mousex,mousey
	color 255, 255, 255
	gmode 4,,,256
	mes "●"
	redraw 1;実描画
	await 1
	x=mousex : y=mousey
	stick key
		if key=256 {
			if (x>0)&(x<300)&(y>80)&(y<300) : gosub *set
	}
	goto *cl2
*set
gosub *sentaku

単に画像として残れば良いなら仮想画面に書き込んで
表にコピーすれば良い

NO.49959のはgosubしてるのにreturnせずに再度gosubしてたり(gosub内でgosub出来る数は決まってる)
gotoとgosubが入り組んでて流れが読みにくいので変えてある

	buffer 1,300,300 //仮想画面確保（ID1）
	cls
	pos 0.0
	color 0, 0, 0 :boxf
	color 255, 255, 255
	pos 30, 20
	mes "文字セレクト"
	pos 30, 40
	mes "●　▲"
	line 0,80,300,80//ここまで仮想画面に描画
	screen 0,300,300//描画先を表画面に

*sentaku
	redraw 2;ちらつき防止
	pos 0, 0
	gmode 0
	gcopy 1,0,0,300,300 //仮想画面から表画面にコピー
	stick key
	x=mousex : y=mousey
	;;;;クリックした時の動作
	if key=256 {
		if y<80 { //ラインより上
			;;;;マウスポジションを探してクリックしたものの判別
			if (x>30)&(x<45)&(y>30)&(y<55)   : cl_sel=1 //セレクトNOをセット
			if (x>30+32)&(x<45+32)&(y>30)&(y<55)   : cl_sel=2 
		}else{ //ラインより下
			if (x>0)&(x<300)&(y>80)&(y<300) and (cl_sel>0) : gosub *set 
		}
	}
	
	if cl_sel>0 {//セレクトNOがセットされてる
		pos x, y
		color 255, 255, 255
		if cl_sel=1 :mes "●"
		if cl_sel=2 :mes "▲"
	}

	redraw 1
	await 1
goto *sentaku

*set
	gsel 1 //描画先に仮想画面選択
	pos x, y
	if cl_sel=1 :mes "●"
	if cl_sel=2 :mes "▲"
	cl_sel=0 //0クリアしなければ連続で同じ文字を置ける
	gsel 0 //描画先に表画面選択
return

座標や書き込んだ文字を記憶したいなら
配列変数を使うのが一般的

返信ありがとうございます。
無事に先に進めそうです。
自分で調べて解決できなかったので、すごく助かりました。

>gosub内でgosub出来る数は決まってる
この書き方だと違う解釈もできてしまうので補足

gosubはreturnしないで多重にgosub出来る回数が決まってる
ヘルプでは最大32重までとなってるが実際は違う
（バグか変更された事をヘルプに書いてないかは分からない）

*@
title ""+sublev
gosub *@b

sublevが510(バージョンによって違う)でスタック領域のオーバーフローになる