08/12/06 16:32:38 jQ3dHgmO
～>>651の続きです～
*sentakumachi_1 ;選択肢を表示し、10秒間待つまでのサブルーチン。
print 4
spbtn 0,1 : spbtn 1,2 :spbtn 2,3
mov %1,10000
sub %2,%2 ;%2は寄り道（ボタン以外クリックor右クリックする事）1サイクルの経過時間
sub %3,%3 ;%3は寄り道経過時間の総和（寄り道を複数回された場合のフォロー）
sub %4,%4 ;最後に寄り道してから（寄り道なしの場合はresettimerから）ボタンクリックor時間切れするまでの経過時間
sub %5,%5 ;%3と%4の和＝1問答えるのに“実際に”かかった時間
resettimer
*else
add %3,%2 ;寄り道する度にかかった時間を蓄積する
sub %1,%2
btntime %1
btnwait %0
if %0=0 getbtntimer %2:goto *else
if %0=-1 getbtntimer %2:goto *else
return
*points ;正解したらその速さに応じてポイント加算
add %5,%3
add %5,%4
mov %6,%1 : sub %6,%5 ;%6は制限時間MAX－回答に要した時間。
あとは%6を適当な関数に入れればおｋ