HSPTV!掲示板

	repeat
	stick key
	wait 1
	if key=256 : break
	loop
	end

上のようなスクリプトで時間制限を設けたいのですが、どのようにすればよいのでしょうか？
例えば、１０秒間クリックされなければ、終了するみたいなことです。
よろしくお願いします．．．

検索してから質問してください。
http://hsp.tv/play/pforum.php?mode=all&num=20351

検索してもわからなかったので、投稿したのですが．．．
gettimeでどうやって時間制限ができるのですか？

「hsp gettime 時間制限」のようなキーワードでGoogle検索してください。

>検索してもわからなかったので、投稿したのですが．．．
この掲示板にはエスパーはいませんので、shoshinshaさんの状況はまったく
分かりません。（＾＾;

どうやって検索したかが気になるなすぐに出るぞ。
まあいいや、
<sample>

;---------------------------------------
;timersample
;10秒後に終了
;---------------------------------------

	tims=gettime(6)
	timm=gettime(5)
	timer=timm*60+tims
	repeat
	ntims=gettime(6)
	ntimm=gettime(5)
	ntimer=ntimm*60+ntims
	if ntimer=timer+10 : break
	stick key
	wait 1
	if key=256 : break
	loop
	end

起動したときの時間と現在の時間を比較して、
１０秒たったら終了。
比べやすいようにすべて秒に直している。

あっやべ！
ほかの人が検索することを進めているのに
サンプル出しちまった。
まあ、これからはしっかりと検索してくれ。

checkさんのサンプルでは、あるタイミングでそれを開始すると無限に待機状態になります。
以下のように変更してみてください。

	tims=gettime(6)
	timm=gettime(5)
	timer=timm*60+tims+10
	if timer>3600:timer-=3600
	repeat
	ntims=gettime(6)
	ntimm=gettime(5)
	ntimer=ntimm*60+ntims
	if ntimer=timer : break
	stick key
	wait 1
	if key=256 : break
	loop
	end

※過去、潜伏期間を３ヶ月とする演出を組み込んだコンピュータウイルスが、永遠に１５月を待ちつづけていたという話があります。。。


ただし、これでも、ロジック的にはまだ最大１秒未満の誤差が出ます。
※秒が変化する直前にカウント開始したら、当然その直後に１秒経ったことになってしまいます。

なので、
・カウント開始を、秒が変化した瞬間にする
・カウントを秒より細かい単位で行う
…のような工夫が必要です。

…。あれ？
gettime(5) 要らなくなってるや。。

こんな手もありますが。。
(10msec * 10 * 100 = 10secなので。)
※wait 1だと正確な時間が計れないみたいです。(処理が間に合わない？)

for i, 0, 100
stick key
wait 10
if key=256 : _break
next
end

wait1の時間を求める方法を捨てておく。

#uselib "WINMM.DLL"
#cfunc timeGetTime "timeGetTime"
timer=timeGetTime()
wait 1
ntimer=timeGetTime
timedif=ntimer-timer
mes timedif

Windowsが起動してからの経過時間で求める。
すると正確な10msじゃ無いことがわかる。

ミスった・・・。
5行目のtimeGetTimeに()をプラスしてくれ。