HSPTV!掲示板

#include "obaq.as"
screen 0, 920, 820
qreset
qgravity 0, 0

qaddpoly target, 4, 115, 185, 0, 144, 10, , 1, , 2
qtype target, type_bind
qaddpoly play, 4, 99, 155, 0, 3, 3, , 5
px=99

score = 0
fcnt = 0
a=0
*mainLoop
redraw 0
color : boxf
qexec

stick key, 15 ;キー入力
if key & 1 : px = px - 1 ;左
if key & 4 : px = px + 1 ;右
qpos play, px ,155, 0
a=a+1
if a=3 {
qaddpoly obj, 4, rnd(300), 25 + cnt * 10, , 4, 4, , 2
qinertia obj, 1
qspeed obj, ,0.2
a=0
}

qcollision target
qgetcol i, x, y
if (i >= 0) {
score += 100
qdel i
}
qdraw

color 255, 255, 255
pos 30, 20
mes "score " + score
redraw 1
await 15
fcnt++
goto *mainLoop