HSPTV!掲示板

このゲームを実行し、何回も死ぬと
「サブルチーンやループのネストが深すぎます」
とゆうようなエラーになってしまいます。
このような解決法はあるのでしょうか。

ゲームプレイについて
レーザーや敵との当たり判定機能を追加しました。
敵が多いのはわざと死ぬようにしています。もし、敵を減らす場合は30行目の値を変えてください。

http://be-sp.com/7909pp7/home/kousyoukai/joyful/img/145.zip
コードです。

そのままの意味で
repeatやgosubを使うと
ポイントみたいなものが少しづつ溜まっていきます。
どこかで途切れればよいのですが
ずっと続いているとそれが表示される時があります。
どこかでgosub、又はrepeatがずっと行われているような所がありませんか？
説明下手ですいませんがイメージはこんな感じです

適当に作った
このスクリプトを例にします

repeat 10
*a
	repeat 10
		repeat 10
			redraw 0
			color 0,0,0 : boxf
			color 255,255,255
			pos 0,0 : mes ""+rnd(256)
			redraw 1
			wait 0.1
			goto*a
		loop
	loop
goto*a
loop

この場合
3行目のrepeat10で
エラーが起きていますね。

ネストというものが
普通ならrepeatの3つが終わった所で
リセットされるはずなのですが
goto*aのせいでリセットされず、
結果「ネスト」が深くなって（ネストはrepeatやgosubの数が多いほど深くなる）
エラーが起きました。
これでわかりますか？？

あと、(おまけ)

repeat 10
*aa
wait 0.1
goto *aa
loop

このように同じループ内でgotoしてループ内のラベルへジャンプすることは良いのでしょうか。

>>NO.47118
おまけ？
どういうシチュエーションでそんなことをするのか良く分かりませんが、
エラーは出ないものの、好ましい形では無いと思います。

やっぱりプログラムはメインルーチンサブルーチン構成が一番良いと思います

7909pprさん、
それってrepeatの中無限ループになってますよね？？
たぶんgosubではなくgotoなので
エラーのダイアログは出ませんが、
repeatが意味を果たしていませんよね・・・

>NO.47118
loopの中でgotoしたいならforの方が安全ですよ

for i,0,10,1
*aa
wait 0.1
goto *aa
next

みたいに
後、失敗したサンプルスクリプトなんですけどerror出ませんｗ

i=0
*aa
for i,i,10,1
wait 0.1
mes i
goto *aa
next
mes "end"

なるほど〜
修復後、エラーにならずにすんだので良かったです。
ありがとうございました。

>NO.47114
error出ないように書き換えてみました

next通ってないんでカウンタ増えないですが^^;
repeatの代わりにfor使うとネストしても大丈夫です
ループの中でどっか行きたいならfor使ってください

for i,0,10
*a
	for ii,0,10
		for iii,0,10
			logmes "i:"+i+" ii:"+ii+" iii:"+iii
			wait 0.1
			goto*a
		next
	next
	goto*a
next