HSPTV!掲示板

こんばんは、catです。
質問です。

なぜ、gosubの後にbuttonでさらに飛び、その後にreturnで帰れないのでしょうか。
良い解決法をお教えいただければ嬉しいです。

↓スクリプト

gosub *a					;aに飛ぶ
end
*a
	button "ボタン",*b		;bに飛ぶボタン
	stop
*b
	return					;ここでエラー
							;本当なら2行目に飛ぶはず…

すいません。Tabが変になっていました。

gosub *a			;aに飛ぶ
end
*a
	button "ボタン",*b		;bに飛ぶボタン
	stop
*b
	return　　;ここでエラー
　　　　　　　　　;本当なら2行目に飛ぶはず…

上のは一応HSPスクリプトエディタに貼り付けると普通ですが、見やすいように念のため
もう一個貼っておきます。

どうか、よろしくお願いします。
なぜできないのでしょうか。

button "ボタン",*b
を
button gosub "ボタン",*b
にしてみてください。

gosub で飛んだフラグ *a を stop命令で止めてしまっているのも原因のひとつです。

goto は stop
gosub は return
と対応していないといけません。

というか、やりたいことがよくわかりません。
もしかしてこういうこと？

	gosub *a
	stop
*a
	button gosub "ボタン",*b
	return
*b
	end
	return

ボタンを押すと

---------------------------
Error
---------------------------
#Error 10 in line 7 (???)
-->サブルーチン外のreturnは無効です

---------------------------
OK
---------------------------

とエラーが出ますね。メッセージのままだと思います。

あとリファレンスに
>ボタン表示
>button goto/gosub "name",*label
>goto、gosubキーワードを省略した場合には、gotoと同じ動作になります。
とあります。

gotoやgosubと違い、ボタンのジャンプはスクリプトの流れと無関係にジャンプする特殊なものです。
ユーザーはボタンをいつでも押せてしまうのですから、必ずサブルーチン実行中に押されるということは期待できません。
たとえば、 button goto 命令で配置したボタンのジャンプ先に return があると、サブルーチンでないところを実行中にそのボタンをおしたらアウトです。サブルーチン実行中ではないのにreturnに到達します。

ですから、ボタンは gosub でない無条件ジャンプのときには gosub のネストをクリアするようです。

button "test",*onbutton
lv=0
*main
	title "return " + lv +" times"
	gosub *sub
*sub
	stop
*onbutton
	lv++
	goto *main

returnに到達することなく つぎのgosub に行き当たったとき、gosub はネストします。
このネストは、HSPでは127回まで。
つまり、returnせずに 128回目のgosubに行き当たるとエラーになる仕様のはずです。

このスクリプトでは、ボタンを押すと最初に戻って同じサブルーチンに入ります。
つまり returnなしで再度 gosub に入ります。が、128回以上いけるはずです。
また、ボタンの処理の中で return しようとするとエラーになるはずです。


つまり、button命令でジャンプするとき、HSPはサブルーチン実行中だったということを忘れます。
…しばらく扱ってるとそのほうがいいって思えるかもしれません。
サブルーチン実行中にボタンが押されて、その処理の先にreturnがなかったらおかしくなるとか面倒をみなくてはならないよりは、ボタンを押されたら何も考えずにボタンの処理をして、適当な処理に復帰できるほうが。。。

クリックされるとgosubから戻って来ます。

gosub *a
end

*a
	stick key
	if key&256 : return
	wait 1
	goto *a

こういうのをボタンでやりたいんですよね？
色々試行錯誤してみましたが、私にはこれが限界でした。

gosub *a					;aに飛ぶ
end

*a
	flg=0
	button gosub "ボタン",*b

*@
	if flg : return
	wait 1
	goto *@b
	
*b
	flg=1
	return

書いてる間にSYAMさんがまともな回答をされてましたね。

ネストレベルを表示するだけの粗末なものを作ってみました。

gosub *a

*a
	mes sublev
	button "sublev?",*b
	stop
	
*b
	mes sublev
	stop

皆さん丁寧な御回答ありがとうございます。
僕は今までbutton gosubというのを知りませんでした。
もっとたくさん勉強したいと思います。

本当にありがとうございました。

解決済みで蛇足ですが、
SYAMさんの
>このネストは、HSPでは127回まで。
は、HSP3.2では255回でエラーとなるようです。

また、stop命令でもbutton goto時と同様にスタックが破棄されるのですね。
ドキュメントライブラリに記載の無い内容で参考になりました。

…通常のgoto/gosubと同様の動作だろうと思ってました
別の動作をするものなのにスタックは共有してるのはちょっと怖い気がします