HSPTV!掲示板

button "button",*btn
stop

*main
	repeat
	await
	loop

*btn
	goto *main
	

このようなプログラムを実行しボタンを連打すると
「ネストが深すぎます」という旨のエラーがでてしまうのですが
どのようにしたらエラーがでなくなるのでしょうか

button "button",*btn
stop

*main
repeat
await
loop

*btn
stop

これで発生しなくなるかな?

マニュアルには
>割り込みによるジャンプ(on??? gosubを使わない割り込み)が発生した場合には、
>サブルーチンやrepeat〜loopのネストはすべて0(初期状態)に戻されます
という(正直、なんでこんなややこしい仕様にしたんだか意味不明な)仕様が
書いてあり、それを踏まえればエラーにはならない筈なのですが、おかしいですね。

とりあえず、buttonをbutton gosubにし、gotoではなくreturnで戻るようにすれば
エラーにはならないと思います。

button gosub "button",*btn
repeat
	await 100
loop

*btn
	return

この場合の深すぎてしまうネストとはsublevではなくlooplevです。

button "button",*btn
stop

*main
	repeat
	await
	loop

*btn
  title "" + looplev + ""
	goto *main

これでlooplevが上がっていく様子がわかると思います。


repeat〜loop でループしている間にgotoジャンプするとrepeatの入れ子状態が続いてしまうので、沢渡のようにgosub＆returnを使うか、breakして「すべてのrepeatを抜けてから」gotoしましょう。


もしくは純粋に

button "button",*btn
stop

*main
	await
goto *main

*btn
	goto *main

このようにgotoだけ使う方法で解決することもできます。

解決しました！
解答してくれた方々ありがとうございました！