HSPTV!掲示板

#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のところでシステムエラーがおきます。
どうすればよいでしょうか。
(長いスクリプトですみません)

・・・。

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

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

わかりました