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


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0621
aaaobjgetfvについて2解決


aaa

リンク

2007/6/21(Thu) 06:50:20|NO.9051

#include "hgimg3.as"
randomize
dim obja,100:dim fv,100:dim ha,100
dim hasha,100:dim uc,100:dim objt,100:dim objta,100
hgini
addxfile model,"test.x"//自機
repeat 100
setsizef 1.5f,1.5f//自機弾
setuv 0,0,127,127
addbox modela
texload "test.bmp"
setsizef 1.5f,1.5f//敵機
setuv 0,0,127,127
setcolor 255,0,0
addbox modelt
loop
gsel 0
regobj obj,model//自機
selscale obj:objsetf3 0.3f,0.3f,0.3f;倍率
repeat 100
regobj obja(cnt),modela//弾
selscale obja(cnt):objsetf3 0.1f,0.1f,0.1f
selpos obja(cnt):objsetf3 -50.0f,-50.0f,-50.0f
setcoli obja(cnt),1,2
xx=(cnt-1)*20//敵機
yy=rnd(3)
regobj objt(cnt),modelt
selpos objt(cnt):objsetf3 xx,yy,0.0f
selscale objt(cnt):objsetf3 0.3f,0.3f,0.3f
setcoli objt(cnt),2,1
loop
*a
hgdraw
stick key,15:getkey space,32
selpos obj
if key&1:objaddf3 -0.1f,0,0f,0.0f
if key&4:objaddf3 0.1f,0.0f,0.0f
if key&2:objaddf3 0.0f,-0.1f,0.0f
if key&8:objaddf3 0.0f,0.1f,0.0f
repeat 30
if space=1&hasha(cnt)=0:if hare=0:hasha(cnt)=1:hare=100
if hare>=1:hare=hare-1
if hasha(cnt)=1 { selpos obja(cnt):objaddf3 0.2f,0.0f,0.0f
selang obja(cnt):objaddf3 1.0f,0.0f,0.0f
ha(cnt)=ha(cnt)+1
if ha(cnt)>=75:ha(cnt)=0:hasha(cnt)=0
} else { selpos obj
objgetfv fv(cnt):fvadd fv(cnt),0.1f,0.0f,0.0f
selpos obja(cnt):objsetfv fv(cnt)
}
selpos objt(cnt):objaddf3 -0.1f,0.0f,0.0f
selang objt(cnt):objaddf3 0.1f,0.1f,0.1f
loop
repeat 100
getcoli uc(cnt),obja(cnt),1.5f
if uc(cnt)!-1:delobj objt(cnt)
loop
selang obj:objaddf3 0.1f,0.1f,0.0f
hgsync 20
goto *a

これを実行すると、objgetfvのところでシステムエラーがおきます。
どうすればよいでしょうか。
(長いスクリプトですみません)



この記事に返信する


f

リンク

2007/6/21(Thu) 11:53:28|NO.9052

・・・。

repeat 100
getcoli uc(cnt),obja(cnt),1.5f
if uc(cnt)!-1:delobj objt(cnt)
loop

ここで消した物を表示しようとしてエラーになってるんじゃね?



aaa

リンク

2007/6/23(Sat) 19:01:40|NO.9085

わかりました



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