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


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0403
hps初心者objgetfvの使い方が間違っているんでしょうか?4解決


hps初心者

リンク

2014/4/3(Thu) 19:08:26|NO.61323

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

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


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



この記事に返信する


hps初心者

リンク

2014/4/3(Thu) 19:18:42|NO.61326

バージョンが2でしたね。
すいません。なんでもないです



暇人

リンク

2014/4/3(Thu) 19:41:25|NO.61327

hgimgとhgimg3でobjgetfvの動作が違うのでバグだと思う
本来objgetfvで使った変数は要素3個(実際には4個)の配列になるべきなのに
HSP上から配列として使用できなくてエラーが出る

解決方法として使用する変数を最初に実数の配列で確保しとく

ddim fv,4 objgetfv fv



T.T

リンク

2014/4/3(Thu) 19:44:18|NO.61328

dim fv,20

を入れたら動いたぞ!



hps初心者

リンク

2014/4/3(Thu) 21:05:31|NO.61333

暇人さんTTさん
返信ありがとうございます



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