HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
1228
himahimaこんなの作って見ました0解決


himahima

リンク

2014/12/28(Sun) 19:14:08|NO.66686

#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



この記事に返信する


ONION software Copyright 1997-2021(c) All rights reserved.