OTYAX/API/OTWSETTIMEOUT - otya128 @ ウィキ

@OTWSETTIMEOUT

OTYAX4.1.3~
WAITの非同期版
数フレームほど正確ではない可能性がある

OTWTF	フレーム数
OTWTLBL$	ラベルの名前("@"+OTWTLBL$)

独立したタスクで動いているため、SAMPLEのように繰り返し呼ぶとタスク終了時でも残るのでグローバル変数を使用して消す

@OTWSETTIMEOUTHMS

時分秒で指定する版

OTWTH	時
OTWTM	分
OTWTS	秒
OTWTLBL$	ラベルの名前("@"+OTWTLBL$)

SAMPLE

@S_TIMEOUTEST
OTWTF=60
OTWTLBL$="TIMEOUTEST"
GOSUB@OTWSETTIMEOUT
WINCLS=1
RETURN
@C_TIMEOUTEST
TIMEOUTEST=0
RETURN
@WIN_TIMEOUTEST
TIMEOUTEST=1
RETURN
@TIMEOUTEST
IF TIMEOUTEST THEN RETURN
BEEP
OTWTF=60
OTWTLBL$="TIMEOUTEST"
GOSUB@OTWSETTIMEOUT
RETURN
1秒毎にBEEPが鳴る

通常のプチコン

?"HOGE"
WAIT 60
?"1ビョウタッタ..."

GUI+非同期

@S_T_T
T_T_T$="HOGE"'?"HOGE"
OTWTF=60
OTWTLBL$="T_T_T"
GOSUB@OTWSETTIMEOUT'WAIT 60
RETURN
@WIN_T_T
WINSTR$=T_T_T$
WINSX=0WINSY=0WINSC=1
GOSUB@WINSTRPUT 'PRINT文
RETURN
@T_T_T
T_T_T$="1ビョウタッタ..."'?"1ビョウタッタ..."
RETURN