HSPTV!掲示板

	repeat 30
		mes cnt
		gosub *sub_test
	loop
stop

*sub_test
	if cnt = 15 : break
return

「repeat外でbreakした。」と言われ、エラーが出るんですが、私としてはこれはあくまでrepeat内でbreakしているつもりなのですが、なぜrepeat外なのでしょうか?
また、こういうことがしたいときにはどうすればよいのでしょうか?

>こういうことがしたいとき

こうですかねえ…

done=0

	repeat 30
		mes cnt
		gosub *sub_test
		if done : break
	loop
stop

*sub_test
	if cnt = 15 : done=1
return

確かにそのスクリプトでは、repeatの中でbreakが行われていると言えます。

しかしgosubが行われた時点で、サブルーチンのネストレベルは加算されているため、
もし、そのような方法でのコンパイルと実行が可能であったとしても、
その処理が連続することで、ネストレベルが加算され続けてしまい、
結果的にエラーが発生する恐れがあります。

その対処方法としては以下のように、breakを行いたくなった場合に、
フラグとなる変数に値を代入し、
repeat〜loopの間でそのフラグの値をチェックした上で、
breakでループを抜け出すといった処理が有効かと思います。

	repeat 30
		mes cnt
		gosub *sub_test
		if Flag = 1 : break
	loop
stop

*sub_test
	if cnt = 15 : Flag = 1
return

SYAMさま、extさまご回答ありがとうございます。

>gosubが行われた時点で、サブルーチンのネストレベルは加算されているため
???
returnする前にbreakしてるからネストがおかしなことになるってことですか?
私の書いたソースが仮に抜けれた場合、breeak後もネストレベルが１のままになってやばいって理解であってます?

なるほど!フラグ立てればいいだけの話ですよね…こんな簡単なことに気づかないとは迂闊でした。
…ただ、欲を言わせてもらうと

上のソースは簡潔に問題を表すため、ループを1つにしましたが、実際のソースは、

foreach A
	gosub *sub_test
loop

foreach B
	gosub *sub_test
loop

foreach C
	gosub *sub_test
loop
…

と多数の配列に同じ処理を行うものでして…
やっぱり1個1個のループにフラグチェッカーつけないと駄目ですか?
(breakが必要ない!やっぱり要る！とかなったりとか、デバグのため一時コメントアウトしたいとなったりという事態を考えると、できれば一箇所で済ませたい
と思うのは無い物ねだりでしょうか?)

どうしてもというなら、フラグのチェック部分を #define で書いておけば記述は一箇所になりますね。

>SYAMさま
やっぱりそれくらいしかないですよね。
1つ1つのループに書き足すことにします。

皆様ご回答ありがとうございました。

解決しているけど・・・

X=A
gosub *fo

*fo
foreach X
gosub *sub_test
loop
return

こんな感じにはできない？