【hspdxfix.as】es_iniを6846以上にするとエラーになる
hspdxfix.asプラグインで作ったSTGゲームになります！
■やりたいこと
es_iniで9100ぐらいスプライトを確保できるようにしたい
■仕様
・Zキーを押している間発射され、敵が画面内に出現したらホーミングする
（エラーが出てしまうので「if TEKI_HOMIN_no != -1 {」で敵が出現しているときに発射されます）
if TEKI_HOMIN_no != -1 {でエラー回避してしまうと、
Zキーを押している間にホーミングが発射されない。
（敵が出現してから発射されるロジックになってしまう）
またこの回避方法だと当たり判定のところでエラーになってしまうので、
どっちみちこの方法はよくないので違う方法にしたい。
スプライトを6845を上限にして作成してもいいけど、
何かあったときにエラーになってしまうので、できれば原因を判明させたいので
アドバイス等お待ちしております！
（敵処理に関しては出来ればツッコミなしでお願いします・・・）
ちなみに前回はループ処理に原因がありました。
http://hsp.tv/play/pforum.php?mode=pastwch&num=91192
#include "hspogg.as" ;音のために入れる #include "hspdxfix.as" ;DXライブラリ使用 width ,,130,200 ;ウィンドウの位置 es_ini 6846,9100,4096 ;スプライトの最大数、キャラクタ定義の最大数,周の精度(180*2) es_screen 640,480 ,0,0,1,1 ;スクリーン es_window 0,-43, 640,480 ;スプライト表示エリア設定 es_area -36,-430, 600,498 ;スプライト有効エリア設定 buffer 4 picload "jiki.bmp" ; es_buffer 4,,$00ff00,,1 ;---自機--- es_size 28,42, 100 es_pat 4000, 0, 0 JIKI_x = 206 : JIKI_y = 390 ;---ホーミング--- es_size 17,19, 100 es_pat 55, 56,62 ;------ buffer 5 picload "teki.bmp" ; es_buffer 5,,$00ff00,,1 ;---敵--- es_size 18,19, 100 es_pat 80, 18*cnt, 0 ;p1=キャラクタNo. gsel 0,1 ;敵 TEKI_MAX = 5 ;最大数 TEKI_Gmax = 22 ;グループ数 TEKI_GOKEI = TEKI_MAX * TEKI_Gmax ;敵合計数 dim TEKI_f,TEKI_GOKEI ;フラグ dim TEKI_x,TEKI_MAX,TEKI_Gmax ;配置Ｘ dim TEKI_y,TEKI_MAX,TEKI_Gmax ;配置Ｙ dim TEKI_NO_GID,TEKI_GOKEI ;敵スプライトNOを使って敵グループインデックス用 (スプライトの最大数) dim TEKI_NO_DID,TEKI_GOKEI ;敵スプライトNOを使って敵データインデックス格納用 (スプライトの最大数) dim TEKI_IDO_f,TEKI_MAX,TEKI_Gmax ;移動フラグ dim TEKI_TIM,TEKI_GOKEI ;出現する時間 ;▼▼▼▼▼▼▼敵配列▼▼▼▼▼▼▼ ;グループ1 右上 TEKI_x(0,0) = 390,390,390,390,390 TEKI_y(0,0) = -10,-50,-90,-130,-170 ;グループ2 左上 TEKI_x(0,1) = 40,40,40,40,40 TEKI_y(0,1) = -10,-50,-90,-130,-170 ;敵出現時間 TEKI_TIM = 100,300 ;■■■敵配置■■■ repeat TEKI_Gmax ;グループ数(22) TEK_G = cnt repeat TEKI_MAX ;敵の最大数(5) es_exnew TEKI ,80,190 ;新規スプライトNo es_set TEKI, TEKI_x(cnt,TEK_G),TEKI_y(cnt,TEK_G), 80 ;スプライトNo, X,Y座標 ,キャラNo es_flag TEKI,$1100 ;自動削除OFF (スプライト表示ON+ボーダー消去無効ON) es_type TEKI,8192 TEKI_Move(TEKI) = TEK_G TEKI_NO_GID(TEKI) = TEK_G ;スプライトNOをキーにグループインデックス格納 TEKI_DID = TEK_G * TEKI_MAX + cnt ;データインデックス(一次元配列とした場合のインデックス) TEKI_NO_DID(TEKI) = TEKI_DID ;スプライトNOをキーにデータインデックス格納 loop loop ;************メインループ*************** *メイン es_cls ;画面クリア es_draw ;スプライト描画 ;************カウンター****************** pos 420,250 : es_mes "TEKI_D " + TEKI_D pos 420,270 : es_mes "TEKI_HOMIN_no " + TEKI_HOMIN_no ;****************************** ;自機表示 es_set 4000, JIKI_x,JIKI_y, 4000 ;スプライトNo, X,Y座標 ,キャラNo ;************gosub************ gosub *自機ホーミング gosub *敵移動 es_sync ;画面更新 await 16 goto *メイン ;*************自機ホーミング**************** *自機ホーミング getkey keyZ,90 ;Zキー if keyZ AND JK_HMIN_f = 0 { JK_HMIN_f = 1 ;ホーミングフラグを【立てる】 JK_HMIN_x = double(JIKI_x) : JK_HMIN_y = double(JIKI_y) ;実数値に変換 } if JK_HMIN_f = 1 { ;ホーミングフラグ立ってたら実行 TEKI_no = 80 ;敵の検索開始ナンバ－ kyori = 10000.0 ;自機と敵の距離を代入する変数（最も近い敵を探すために出来るだけ大きな数値を入れておく） TEKI_HOMIN_no = -1 ;敵が全員いなかった時にマイナス値を入れることによって、ホーミングが最後の敵に行かないようにする repeat es_find TEKI_D, 4096, TEKI_no,190;画面内の敵を探す if TEKI_D = -1 : break es_get JK_HMIN_TEKI_x,TEKI_D,3 ;敵Ｘ es_get JK_HMIN_TEKI_y,TEKI_D,5 ;敵Ｙ if (JK_HMIN_TEKI_x > 30) AND (JK_HMIN_TEKI_y > 10) AND (JK_HMIN_TEKI_x < 412) AND (JK_HMIN_TEKI_y < 460) { ;自機と敵の距離 kyori_2 = sqrt((JIKI_x-JK_HMIN_TEKI_x)*(JIKI_x-JK_HMIN_TEKI_x) + (JIKI_y-JK_HMIN_TEKI_y)*(JIKI_y-JK_HMIN_TEKI_y));ルート値を返す if kyori_2 < kyori { kyori = kyori_2 ;近い敵までの距離を更新 TEKI_HOMIN_no = TEKI_D ;近い敵のスプライト№を更新 } }TEKI_no++ ;敵の検索開始ナンバ－ loop ;「es_ini」を「6845」以上にするとスプライトエラーが出るので回避したい ;TEKI_HOMIN_no != -1で回避すると、当たり判定「es_check HMIN_VS_TEKI ,TEKI_HOMIN_no,256」でエラーが起きてしまう if TEKI_HOMIN_no != -1 { es_get JK_HMIN_TEKI_x,TEKI_HOMIN_no,3 ;敵Ｘ es_get JK_HMIN_TEKI_y,TEKI_HOMIN_no,5 ;敵Ｙ es_set 55, JK_HMIN_x+5,JK_HMIN_y , 55 ;スプライト設定 es_chr TEKI_HOMIN_no, 80 ;初期状態 } es_type 55,256 angle = 0.0 ;角度を入れる変数 if TEKI_HOMIN_no != -1 { ;敵がいる場合 angle = atan(JK_HMIN_TEKI_y - JK_HMIN_y, JK_HMIN_TEKI_x - JK_HMIN_x-10) ;敵とホーミングとの角度を求める JK_HMIN_x += 8.0 * cos(angle) : JK_HMIN_y += 8.0 * sin(angle) ;弾速さ } else { ;敵がいない場合 JK_HMIN_x += 8.0 * cos(deg2rad(270)) : JK_HMIN_y += 8.0 * sin(deg2rad(270));正面に真っ直ぐ進む } ;当たり判定 if (JK_HMIN_TEKI_x > 30) AND (JK_HMIN_TEKI_y > 10) AND (JK_HMIN_TEKI_x < 412) AND (JK_HMIN_TEKI_y < 460) { es_check HMIN_VS_TEKI ,TEKI_HOMIN_no,256 if HMIN_VS_TEKI != -1 { JK_HMIN_f = 0 ;ホーミングフラグ【削除】 es_kill TEKI_HOMIN_no ;敵【削除】 es_kill HMIN_VS_TEKI ;ホーミング【削除】 TEKI_HIT_no = TEKI_HOMIN_no ;アイテム es_chr TEKI_HOMIN_no, 81 ;ヒットしたら赤くする TEKI_Ef_f = 1 ;敵エフェクトフラグ HMIN_HIT++ ;デバッグ用 } } } es_get JK_HMIN_TEKI_x,55,3 ;ホーミングＸ es_get JK_HMIN_TEKI_y,55,5 ;ホーミングＹ if (JK_HMIN_TEKI_x < 30-17) or (JK_HMIN_TEKI_y < 10-19) or (JK_HMIN_TEKI_x > 412+17) or (JK_HMIN_TEKI_y > 460+19) { JK_HMIN_f = 0 ;ホーミングフラグを【戻す】 } return ;*************敵移動**************** *敵移動 if TEKI_TIM_c < 2800 : TEKI_TIM_c += 1 ;敵出現カウンター dup TEKI_Move_f,TEKI_IDO_f ;枠外 (↓に移動する) TEKI_no = 80 ;敵スプライト検索開始NO repeat es_find TEKI_D, 8192, TEKI_no,190, 1 if TEKI_D < 0 : break es_get TEKI_pos_x,TEKI_D,3 ;敵X es_get TEKI_pos_y,TEKI_D,5 ;敵Y TEK_G = TEKI_NO_GID(TEKI_D) ;敵スプライトNOをキーにグループインデックス取り出し TEKI_DID = TEKI_NO_DID(TEKI_D) ;敵スプライトNOをキーに敵データインデックス取り出し if TEKI_Move_f(TEKI_DID) = 0 { TAMA_NO_DID(TEKI_IDO) = TEKI_DID;弾のスプライトNOをキーに敵データインデックス格納(これで弾と敵データとの紐付) if TEKI_f(cnt) = 0 { ;１グループ if TEKI_TIM_c >= TEKI_TIM(TEK_G) { if TEK_G = 0 { es_apos TEKI_D, 0,1, 200 ;200のスピードで↓に移動する } } ;2グループ if TEKI_TIM_c >= TEKI_TIM(TEK_G) { if TEK_G = 1 { es_apos TEKI_D, 0,1, 200 ;200のスピードで↓に移動する } } ;---枠内 (type書き換え)--- if (TEKI_pos_x > 30) AND (TEKI_pos_y > 10) AND (TEKI_pos_x < 412) AND (TEKI_pos_y < 460) { es_get TEKI_flag,TEKI_D,0 ;敵のflag値を「取得」 es_type TEKI_D,4096 ;画面内のtype値設定 } } }TEKI_no++ ;敵の検索開始ナンバ－ loop return
