落ちるテスト | Codetter（こーどったー）

#uselib "user32.dll"
#func SetTimer  "SetTimer"  int,int,int,int

#define WM_TIMER    0x0113
#define TIMER_ID    1    ; タイマーID

; メッセージ処理の登録
oncmd gosub *OnTimer, WM_TIMER

; タイマーを設定（0.01秒間隔）
SetTimer hwnd, TIMER_ID, 10, 0

stop

*OnTimer
; ====== タイマーメッセージの処理 ======
if wparam == TIMER_ID {
	title "sublev: " + sublev
	if sublev > 480 : mes "そろそろ落ちそう！！" // 512
	wait 100
}
return 0