- 641 名前：名前は開発中のものです。 mailto:sage [2006/06/23(金) 10:07:53 ID:YPVKhOgA]
- こうですか？わかりません＞＜
#define STAND 0
#define ASCENT 1
#define DESCENT 2
chr_x = 100:chr_y = 200:chr_state = STAND
repeat
stick key, 1 + 4 + 16
if chr_state = DESCENT {
chr_y += chr_move:chr_move++
if chr_y > 200:chr_y = 200:chr_state = STAND
}
if key & 16 {
if chr_state = STAND {
chr_state = ASCENT:chr_move = 15
} else:if chr_state = ASCENT {
chr_y -= chr_move:chr_move--
if chr_move < 1:chr_move = 0:chr_state = DESCENT
}
} else:if chr_state = ASCENT:chr_state = DESCENT
chr_x -= (key & 1)* 5:chr_x += ((key & 4)= 4)* 5
redraw 0:palcolor 7:boxf:pos chr_x, chr_y:palcolor 0:mes "人":redraw 1
await 30:loop
操作方法:スペースと←→
|
 |
