str2fで文字を数字になおして、fvdivで割り、ZBに代入というながれですが
できません
また全部のコードが必要ならだします
dim TEKIPM,10: dim TEKISP,10 if TEKIKAZU=0 : gosub *TEKISYUTUGEN if TEKIKAZU>0{ repeat 10 gosub *TEKIMOVE loop } *TEKISYUTUGEN X=rnd(6):Y=rnd(4) repeat 10 regobj TEKIOBJ.cnt,TEKIMODEL,0 selpos TEKIOBJ.cnt objset3 X-2,-Y,-50 TEKILIVE.cnt=cnt*10+10 TEKIPM.cnt=0 TEKISP.cnt=0 setcoli TEKIOBJ.cnt,2,1 loop TEKIKAZU=10 return *TEKIMOVE if (TEKILIVE.cnt>1) :TEKILIVE.cnt = TEKILIVE.cnt-1 if TEKILIVE.cnt=1{ if TEKIPM.cnt = 0 : TEKISP.cnt = TEKISP.cnt-1 : else :TEKISP.cnt = TEKISP.cnt+1 if TEKISP.cnt > 60 :TEKIPM.cnt = 0 if TEKISP.cnt < -60 :TEKIPM.cnt = 1 str2f ZB, "" + TEKISP.cnt + ".0f" fvdiv ZB, 200.0f ;敵座標変化 selpos TEKIOBJ.cnt : objgetfv FV fvadd FV, 0,ZB,0.25f objsetfv FV