HSPTV!掲示板

以下のスクリプトを実行すると「サブルーチン外のreturnは無効です」と出ます。
gosub *test1の部分に戻ると思うのですが。
buttonのところをgoto *testに変えると正常（想定した動作）に動作しました。
HSPのバージョンは3.2です。

	a=2
	gosub *test1
stop

*test1
	button "test",*test
stop
*test
return

button のジャンプは gosub のネストをリセットする性質があったと思います。

　HSP2.61では以下のスクリプトは動作しますが、
何でこんな仕様になってしまったのでしょう？

	gosub *test1
	gsel 2,-1
	gsel 0
	mes "end"
stop

*test1
	screen 2,640,480
	button "test",*test
stop
*test
return

たしかに過去のバージョンでは動いてますね。

個人的にサブルーチン飛んでいる間に stop 挟むのはあまり好きな記法じゃないですけど。

>>button のジャンプは gosub のネストをリセットする性質があったと思います。

repeat : repeat : gosub *l1 : loop : loop
*l1 : gosub *l2
*l2 : mes "looplev="+looplev+" : sublev="+sublev : button "Button",*btn : stop
*btn : mes "looplev="+looplev+" : sublev="+sublev : stop

　SYAMさんのおっしゃる通り、looplevとsublevがgoto型buttonだとリセットされてしまいます。
　サブルーチンネストを活かしながらボタンを利用したいのならdo〜until構文を利用する
べきだと思います。以下は一例

	gosub *label
	cls
	mes "帰還しました"
	stop

*label
	button gosub "帰還",*帰還
	do
		wait 5
	until flag
	return

*帰還
	flag=1
	return

　なるほど。ありがとうございます。
でも、ちょっと面倒ですね。