HSPTV!掲示板

;メインループ
*main
redraw 0
	gosub*scini
	gosub*hensu
	gosub*buttons_kai
	gosub*debug
redraw 1
await 10
goto*main
*buttons_kai
	repeat 4
		btny=cnt
		repeat 3
			btnx=cnt
			;色々
		loop
	loop
	repeat 10:if num(cnt)=2:inputpass+=str(cnt):loop
	if BS=2 or DEL=2:inputpass=""
return
//略

サブルーチンネストがふけーよバーカって言われるんです。
repeat 10:if num(cnt)=2:inputpass+=str(cnt):loop
を
repeat 10:/*〜〜〜*/:inputpass+=str(cnt):loop
にするとエランないんです。


どういう状況なんでしょうか・・・
numは[dim num,10]のように初期化しています。タイプミスでもなさそうです。

ラベルが幾つか省略されていますがそこにreturn抜けは無いでしょうか？

repeat 10:if num(cnt)=2:inputpass+=str(cnt):loop
↑の命令名よーくみてわからないかな？
上のスクリプト行を分解してみてね。

repeat 10
if num(cnt)=2:inputpass+=str(cnt):loop
////あれ・・・loop がない？

if は、条件分岐命令を{}で記載しない限り、同じ行の最後までを条件分岐後命令として認識します。
上記の場合、num(cnt)=2 の場合、inputpass+=str(cnt) と loop を実行します。

以下の場合のみ、一行記載が可能となります。
repeat 10:if num(cnt)=2{inputpass+=str(cnt)}loop

repeat 10:if num(cnt)=2:inputpass+=str(cnt):loop

を

repeat 10:mes cnt:if num(cnt)=2:inputpass+=str(cnt):loop

とすると、出力が全部0になっているので、
恐らく以下のような感じに解釈されてるかと。

repeat 10
	mes cnt
	if num(cnt)=2{
		inputpass+=str(cnt)
		loop
	}

これですと、cnt = 0のときにloop命令が処理されないので、
どんどんループネストが溜まってしまい、エラーが起きているのかと。

if num(cnt)=2
を抜くとエラーを吐かなくなるんです。

これがあると、起動後即エラー。
これを省くと、普通に稼働する。

あと、なぜか
エラー行が
>repeat 10:if num(cnt)=2:inputpass+=str(cnt):loop
ではなく
>repeat 3
が指摘されます。
あいつ(if num(cnt)=2)がいなければちゃんと動くのに。

すれ違い。
分かりました・・・超ドジってますね