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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX