HSPTV!掲示板

1回目は正常に動くと思うのですが、起動したままでもうプレイしようとすると
0で割り算したと出てエラーが出てしまいます
どうやったら治りますかね？
ファイル↓
https://kie.nu/2KgM

ソースコードを見させていただきました。
原因は多分、「maxgauge8」変数に何も数値がないから計算ができなくて、0で除算しているから
だと思います。
ちょっと修正してみました。(これで本当にいいのかなぁ・・・)

*gage
	color 0,255,0
	maxgauge8=10
	if ok<0.0 {
		ok=0.0
	}
	if ok>maxgauge{
		ok=maxgauge8
	}
	gauge=(ok/maxgauge8*100*5+50)
	boxf 50,140,gauge,160
	if gauge-425>0{
		boxf 425,120,gauge,140
	}
	if gauge>=maxgauge8 {
		gauge=maxgauge8
	}
	color 0,0,0
	return 

こうすることで多分2回目もできると思います。
分かりにくい説明で申し訳ございません...

訂正

*gage
	color 0,255,0
	maxgauge8=10
	if ok<0.0 {
		ok=0.0
	}
	if ok>maxgauge8{
		ok=maxgauge8
	}
	gauge=(ok/maxgauge8*100*5+50)
	boxf 50,140,gauge,160
	if gauge-425>0{
		boxf 425,120,gauge,140
	}
	if gauge>=maxgauge8 {
		gauge=maxgauge8
	}
	color 0,0,0
	return 

隧ｦ菴懷刀
文字化けw

>>HogeHogeさん
そうするとゲージの機能が失われてしまうんです(´・ω・`)

> current+1
この変数が二回目にクリアされずに使われてる

>>(´・ω・`)さん
ソースコード軽く見てみました。
330行目でエラーが発生してるんですね。
これを見る限り、HogeHogeさんの言うようにmaxgauge8が0になるためこのエラーが発生します。
解決策として、maxgauge8を1回目と同じ値で初期化します。

*play
	y=0
	ok=0.0
	mcomb=0
	judge=0
	score=0
	maxgauge8=12

関係ありませんが、
割算は整数型と実数型をちゃんと確認してから行わないと結果が小数点切り捨てで帰ってきます。
なので変数は整数型と実数型をしっかり意識してプログラムしないといけません。

0で割ることはできないので仕方ないですね

if maxgauge8=0 : maxgauge8=12
gauge=(ok/maxgauge8*100*5+50)

とりあえず一週目の12を入れてみましたけど・・・
どういう数値がくれば正解なのかわかりません^^;

デバッグの方法として
エラー行は
> gauge=(ok/maxgauge8*100*5+50)
で0除算エラーならmaxgauge8が0なのが原因なのは分かる
maxgauge8に代入してるのは
> maxgauge8=0.8*maxgauge
でmaxgaugeが0だった事が分かる
maxgaugeに代入してるのは
> maxgauge=don+ca
なので、don+caが0になってしまってる事が分かる
don+caの代入は
> if strmid(musicdata,current,1)=1 :don+1
> if strmid(musicdata,current,1)=2 :ca+1
これで、musicdata内に文字列が無いのかcurrentが不正な値なのか表示すれば分かる

結果としてcurrentが初期化されずに再利用してるため
musicdataの文字数を超えてstrmid()の意味が無くなってる

maxgauge8 をハードコーディングする話が出てきていますが、暇人さんが正解でしょう。
私も同じ結果に辿り着いてましたが、僅差で書き込むのが遅かったため止めました。

暇人さんの説明が完璧ですね。
基本的に、エラーが発生した場合はまずエラーコードで検索しどういう時に発生するのかを確認してください。
http://www.geocities.co.jp/Playtown-Yoyo/6130/hsp/hsp-error-number.html

currentが原因でしたか・・・
ありがとうございます