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


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
1209
龍一OBAQの使い方2未解決


龍一

リンク

2014/12/9(Tue) 16:33:07|NO.66367

#include "obaq.as"
screen 0,490,740:title "Avoidance"
button "start",*start
vcy=1
stop
*start
cls
qreset
qaddpoly obj1,4,40,30,,12,12
qaddpoly syoukyo1,4,61,160,,76,2,,
qgroup obj1,,,1
*main
vcy=vcy+1
redraw 0
if vcy=50{
goto *vcy3}
color:boxf
qexec
qdraw
qcollision obj1 ;オブジェクトの指定
qgetcol obj,x,y ;コリジョン情報の取得
if obj>=0{
qdel obj1
qdel obj2
}
redraw
await 20
goto *main
*vcy3
vcy=1
qaddpoly obj1,4,40,30,,12,12
qgroup obj1,,,1
await 10
goto *main

で、作って見たのですが
Objectの「syoukyo1」に、objが当たるとobjが、消えるといった
ものを作りたいです(説明下手ですいません)

実行すると外枠まで消えてしまいます
どうすればいいですか?



この記事に返信する


cats

リンク

2014/12/9(Tue) 17:34:59|NO.66368

たくさんオブジェクトを作っているのに配列変数が使われていないのは気のせいでしょうか。
OBAQには詳しくないですが、オブジェクトの何らかの情報を取得するには各オブジェクトIDを
オブジェクトごとに分ける必要があると思います。



龍一

リンク

2014/12/13(Sat) 20:36:25|NO.66441

catsさんありがとう御座います。

なんとなく問題がわかりました。

OBAQでオブジェクト1に当たった(衝突した)オブジェクトのIDを見つけて
そのIDを変更するということはできますか?



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