objgetfvの使い方が間違っているんでしょうか？

１２歳からのHPSという本。2005年発行

105ページ目で
95行目でエラー７がでます

objgetfvの使い方が間違っているんでしょうか？

対処がわかりません。教えてください




#include "hgimg.as"



screen 0,480,320,0
hgini

setsizef 1.5f,1.5f
setcolor 200,255,0
addbox JIKIMODEL, MODEL_SHADE

setsizef 1.5f,1.5f
setcolor 200,0,0
addbox TEKIMODEL, MODEL_SHADE

setsizef 1.0f,1.0f
setcolor 0,255,255
addbox HAIKEIMODEL
regobj HAIKEI,HAIKEIMODEL,OBJ_GROUND

selscale HAIKEI : objsetf3 8.0f,0.2f,15.0f
selpos HAIKEI : objsetf3 0.0f,0.2f,-5.5f



regobj JIKI,JIKIMODEL
setcoli JIKI,1,2


dim TK,5
repeat 5

regobj TK.cnt , TEKIMODEL
setcoli TK.cnt,2,1
selpos TK.cnt : objset3 (cnt-2)*2,0,-15
loop




cammode CAM_MODE_LOOKAT
selcpos : objsetf3 0.0f,-2.0f,6.0f
selcint  : objsetf3 0.0f,0.0f,-20.0f


SHOTMODE=0
SUSUMODE=0
MOGU=0
*DRAWLOOP
	stick KY,5
	if SHOTMODE=0{
	selpos JIKI
	objgetfv FV
	if KY&1 : fvadd FV, -0.2f,0.0f,0.0f
	if KY&4 : fvadd FV, 0.2f,0.0f,0.0f
	fvmin FV, -4.0f,0.0f,0.0f
	fvmax FV, 4.0f,0.0f,0.0f
	objsetfv FV
	
	
	
		
	if KY&16 : SHOTMODE=1
	
	
	}
	else{
	selpos JIKI :objaddf3 0.0f,0.0f,-0.2f
	getcoli RET,JIKI,1.5f
	
	if RET!-1{
	objsetf1 2, 0.0f
	SHOTMODE=0
	selpos RET
	objsetf1 2, -15.0f
	SUSUMODE=0



	
		}
	
	}
	
	;敵移動
	if SUSUMODE=0{
	MOGU=rnd(5)
	SUSUMODE=20
	}else{
	selpos TK.MOGU
	objaddf1 2, 0.15f
	SUSUMODE=SUSUMODE-1
		objgetfv FV
	fcmp RET, FV.2 , 1.5f
	if (RET=1) :goto *en


	
		}

	
	hgdraw
	hgsync 30
	goto *DRAWLOOP
	
*en
	
	stop

HSPTV!掲示板