HSPTV!掲示板

title""
pos 250,30
font　"ＭＳ　ゴシック",40,1
mes"Music game"
mes"v(TπT)v"
pos 300,150
button"　始める　　",*start
stop
*start


cls
; repeat - loop 10
gakuhu="01050345212234512345112345234132451321454231" ;0は無表示,1〜5はz〜bボタンを押す
tenpo=60
;テンポの速さ
dim key,6
font "",30
repeat
color 0,0,0 :boxf
color 255,255,255
hantei=cnt\9

if hantei=0 :use=0:gaku=int(strmid (gakuhu,gcnt,1)):gcnt+1

getkey key(1),90
getkey key(2),88
getkey key(3),67
getkey key(4),86
getkey key(5),66


line 100,0,100,640
line 200,0,200,640
line 300,0,300,640
line 400,0,400,640
line 500,0,500,640
line 0,400,500,400

color 255,255,0

pos (gaku*100)-60,350
if gaku=1 :mes ""
if gaku=2 :mes ""
if gaku=3 :mes ""
if gaku=4 :mes ""
if gaku=5 :mes ""

color 255,0,255
if hantei=4 {
boxf (gaku*100)-100,390,gaku*100,410
} else {
if hantei<4 :boxf (gaku*100)-100,(cnt\9)*(390/4),gaku*100,(cnt\9)*(390/4)+20
}

pos 41,423
mes "Z"
color 255,0,255
pos 141,423
mes "X"
color 255,0,255
pos 241,423
mes "C"
color 255,0,255
pos 341,423
mes "V"
color 255,0,255
pos 441,423
mes "B"
pos 500,50
mes "miss"
mes "good"
mes "perfect"

if (key(gaku)=1)&(use=0)&(gaku!0) {
if (hantei=3)|(hsntei=4)|(hantei=5) :ms="perfect" :use=1:tokuten+=3,*perfect
if (hantei=1)|(hantei=2)|(hantei=6)|(hantei=7) :ms="good" :tokuten+=2:use=1
if (hantei=0)|(hantei=8) :ms="miss" :use=1
}
pos 500,0
color 255,255,255
mes ms
mes tokuten
redraw 1
await 60000/tenpo/9
redraw 0

*perfect
loop

どこをどう変えればいいか教えてください

このソース、別の人ので見たのですが。
しかもその人の質問で回答した自分の書き換えたソースも入ってますね。
http://hsp.tv/play/pforum.php?mode=all&num=79784
でも少し改変されていると。ヒノノニトンさんに許可取ってますか？
あくまでもこのゲームはヒノノニトンさんの作成したゲームなので、自分の改変したソースはともかく、
ゲームの改変等の許可を取ってないなら取られた方がいいかと思います。

・・・で、本題ですが、どこをどうプレイすればエラーが出るのか、エラーコード・内容はなんなのか記載してください。
ヒノノニトンさんの方にも言いましたが、「出来ません」や「エラーが出ます」や「どう変えれば」
等だけだと、こっちがその問題に直面するまでずっとプレイしなければいけなくなり、
大変なんですよ。教えてほしいならせめて「エラーコード」・「エラー内容」と
具体的にどうプレイしたら出てくるのか、自分で試したことは記載してください。
プログラムってエラーが出たら自分で何度も修正し頑張ってもできなかったら他人に頼る感じですが、
まずは自分でやってみないと、仮に教えてもらって解決しても、なんで解決したのかわからず、
後々困ることになりますよ。

>>あくまでもこのゲームはヒノノニトンさんの作成したゲームなので、自分の改変したソースはともかく、ゲームの改変等の許可を取ってないなら取られた方がいいかと思います
同一人物ですので、問題ないと思いますよ。

スクリプト 3行目の font ですが font と "ＭＳ ゴシック" の間が全角スペースになっています。
全角スペースは、命令と引数の区切りとして認識できませんので、半角スペースで区切ってください。

76行目
>if (hantei=3)|(hsntei=4)|(hantei=5) :ms="perfect" :use=1:tokuten+=3,*perfect

if (hantei=3)|(hsntei=4)|(hantei=5) :ms="perfect" :use=1:tokuten+=3: goto *perfect

また、if文をHSPの記法でかくことはお勧めしません。Cライク記法を身に着けたほうが可読性が増します。以下の通り

if (hantei=3)|(hsntei=4)|(hantei=5){
ms="perfect"
use=1
tokuten+=3
goto *perfect
}

なお、NO.79845の命令と引数の区切りとしての全角スペースは、HSP3.4以降（だったはず）「区切りとして認識されます」のでご安心ください。

>>同一人物ですので、問題ないと思いますよ。
マジですか。それならいいんですが、あんまり名前を変えては欲しくないですね。
紛らわしいですので。
そして前の方を放置して新しくスレを立て、感謝もなく提供したソースを使われるのはいい気分じゃないですね。
まぁ、誰でも作れる適当なソースなので別にいいと言えばいいのですが。

感謝の一言くらいあってもいいのでは？